matrakkisi
Yeni Üye
- Katılım
- 15 Haz 2023
- Mesajlar
- 29
- Aldığı beğeni
- 4
- Excel V
- Office 2021 TR
Konu Sahibi
Merhabalar,
Sheet üzerinde Combobox'ımda 81 ilimiz var ve bu illeri Combobox'tan seçince haritada yeşil rengine boyamasını amaçlıyorum. Bir UserForm üzerinde bunu başarabiliyorum Value tutabiliyorum ancak Combobox sheet üzerinde ise bunu başaramıyorum.
Tekrar eskine döndürme "Reset" tuşu başarılı şekilde çalışıyor.
ikinci olarak ise yandaki yazan rakamları harita üzerine şekil olarak geçirmem gerek. Ve o illerin de yeşile boyanması gerek.
Show kısmına basınca aşağıdaki gibi görünen bir durum gerekiyor.
Clear tuşuna basınca ise bunların yok olması ve tekrar türkiye haritasının gri olması gerekiyor. Tıpkı reset tuşumda olduğu gibi.
İpucu sheetinde şekillerin nasıl hareket etmesi gerektiğinin bir örneği var. Konumlandırmalardan top, left gibi kod durumlarıyla yazılmalı.
Aşağıdaki şekildeki gibi örnek kod var 850 480 670 Yazan çubukların kodları bu şekilde olmalı:
Sub Hints()
'pixel coordinate of the left edge of an object on the screen
a = Sheets("For Hints").Shapes.Range(Array("BURSA")).Left
'pixel coordinate of the top edge of an object on the screen
b = Sheets("For Hints").Shapes.Range(Array("BURSA")).Top
c = Sheets("For Hints").Shapes.Range(Array("BURSA")).Height
d = Sheets("For Hints").Shapes.Range(Array("BURSA")).Width
'relocating or moving an object. The cooridnate is given in terms of pixel
Sheets("For Hints").Shapes.Range(Array("ÇANAKKALE")).Left = 100
Sheets("For Hints").Shapes.Range(Array("ANTALYA")).Top = 270
End Sub
Şimdiden emekleriniz ve yardımlarınız için teşekkür ederim.
Sheet üzerinde Combobox'ımda 81 ilimiz var ve bu illeri Combobox'tan seçince haritada yeşil rengine boyamasını amaçlıyorum. Bir UserForm üzerinde bunu başarabiliyorum Value tutabiliyorum ancak Combobox sheet üzerinde ise bunu başaramıyorum.
Tekrar eskine döndürme "Reset" tuşu başarılı şekilde çalışıyor.
ikinci olarak ise yandaki yazan rakamları harita üzerine şekil olarak geçirmem gerek. Ve o illerin de yeşile boyanması gerek.
Show kısmına basınca aşağıdaki gibi görünen bir durum gerekiyor.
Clear tuşuna basınca ise bunların yok olması ve tekrar türkiye haritasının gri olması gerekiyor. Tıpkı reset tuşumda olduğu gibi.
İpucu sheetinde şekillerin nasıl hareket etmesi gerektiğinin bir örneği var. Konumlandırmalardan top, left gibi kod durumlarıyla yazılmalı.
Aşağıdaki şekildeki gibi örnek kod var 850 480 670 Yazan çubukların kodları bu şekilde olmalı:
Sub Hints()
'pixel coordinate of the left edge of an object on the screen
a = Sheets("For Hints").Shapes.Range(Array("BURSA")).Left
'pixel coordinate of the top edge of an object on the screen
b = Sheets("For Hints").Shapes.Range(Array("BURSA")).Top
c = Sheets("For Hints").Shapes.Range(Array("BURSA")).Height
d = Sheets("For Hints").Shapes.Range(Array("BURSA")).Width
'relocating or moving an object. The cooridnate is given in terms of pixel
Sheets("For Hints").Shapes.Range(Array("ÇANAKKALE")).Left = 100
Sheets("For Hints").Shapes.Range(Array("ANTALYA")).Top = 270
End Sub
Şimdiden emekleriniz ve yardımlarınız için teşekkür ederim.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
