İnteraktif Türkiye Haritası

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Cevap: İnteraktif Türkiye Haritası

İleti#41)  mstfkrmbktcnr » 04 Şub 2020 11:34

Merhaba, harita üzerinde Mouse Over özelliğini makro ile aktif edilebilirse çok daha kullanışlı olabilir. İlgili Makroyu paylaşıyorum.
Türkiye Haritası üzerinde Mouse Over ile şunları yapabilirsiniz; Eğer Türkiye genelinde bir satış ağınız varsa il il , ay ay , yıl yıl, ürün , malzeme ve satıcı bazında raporları sadece mousu Türkiye Haritası üzerinden gezdirerek istediğiniz il üzerindeki bilgileri otomatik getirebilirsiniz.


Kod: Tümünü seç
Option Explicit

Public Function koordinat(sat As Integer, sut As Integer)
   
    Dim isol   As Integer
    Dim iyuk    As Integer
   
    isol = Sheet2.Cells(sat, sut).Left
    iyuk = Sheet2.Cells(sat, sut).Top
   
    If Range("soldeg").Value2 <> isol Then Range("soldeg").Value2 = isol
    If Range("ustdeg").Value2 <> iyuk Then Range("ustdeg").Value2 = iyuk
   
    If Len(Range("ildeg")) > 0 Then
       
        With Sheet2.Shapes("il")
            If .Visible = msoFalse Then .Visible = msoTrue
            If .Top <> iyuk Then .Top = iyuk
            If .Left <> isol + 15 Then .Left = isol + 15
        End With
    Else
        With Sheet2.Shapes("il")
           If .Visible <> msoFalse Then .Visible = msoFalse
        End With
   
   
    End If
       
End Function

Public Function ust(ilmetin As String)

    ust = Sheet2.Shapes("S_" & ilmetin).Top

End Function

Public Function sol(ilmetin As String)

    sol = Sheet2.Shapes("S_" & ilmetin).Left

End Function

Public Function yuk(ilmetin As String)

    yuk = Sheet2.Shapes("S_" & ilmetin).Height

End Function

Public Function gen(ilmetin As String)

   gen = Sheet2.Shapes("S_" & ilmetin).Width

End Function


Kullanıcı avatarı
mstfkrmbktcnr
Siteye Alışmış
 
Kayıt: 10 Şub 2018 10:17
Meslek: finans
Yaş: 48
İleti: 198
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: İnteraktif Türkiye Haritası

İleti#42)  ahmetilhan282 » 18 Mar 2020 20:00

Yeni versiyon v1.13
- google geo chart olarak dışa aktarma özelliği eklendi
harita üzerinde gösterilecek kriteri seçip "Google Geo Chart" butonuna basın.
örnek çıktı:
Adsız.jpg


*şehirler üzerinde etiket gösterme özelliğini yapamadım. kodlarda displayMode:'text' değişikliğini yapınca olması lazım ama bende olmadı. İnternette de benzer sorunlar var ama çözümler bende işe yaramadı.
*JavaScript + Google Geo Api' den anlayan biri yardımcı olursa daha da geliştirilebilir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 31
İleti: 906
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Önceki

Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe