Satır ve sütun ışıklandırmayı nasıl kontrol edebilir

[parafudur]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
Target.Interior.ColorIndex = 0
End With
End Sub

Bu kodu kullanarak Excel'de satır ve sütunları ışıklandırıyorum , Yardım menüsünün yanına açtığım Renklendir adlı menünün altına Aç ve Kapat olarak iki tane de başlık koydum. Þimdi benim istediğim: Aç'a basınca ışıklandırma özelliği açılsın Kapat'a basınca kapansın.
Bu konuda bana yardımcı olursanız çok sevinirim. Þimdiden teşekkürler...

 

[Haluk]

Ã?nce yukarıdaki makronuza aşağıdaki gibi ilaveleri yapın;

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If MyCheck Then
        Cells.Interior.ColorIndex = xlNone
        With ActiveCell
            .EntireRow.Interior.ColorIndex = 36
            .EntireColumn.Interior.ColorIndex = 36
            Target.Interior.ColorIndex = 0
        End With
    Else
        Cells.Interior.ColorIndex = xlNone
    End If
End Sub

Daha sonra, yeni bir modül ilave edin. Bu modüle de aşağıdakileri yerleştirin;

Public MyCheck As Boolean
'
Sub Ac()
    MyCheck = True
End Sub
'
Sub Kapat()
    MyCheck = False
End Sub

Bahsettiğiniz menülere de, yukarıdaki Ac ve Kapat prosedurlerini OnAction özelliklerine atayın.

 

[parafudur]

Yardımlarınız için çok teşekkür ederim ama yapamadım. Düzenlediğiniz Kodları Sayfa1 in kod yazma yerine girdim yeni kodu ise modüle girdim olmadı. Sonra ikisinide ayrı ayrı modüllere girdim yine olmadı. Yani ışıklandırma ve menü çalışmadı. Aç'ı veya Kapat'ı tıkladığımda ("Kitap1.xls" bulunamadı. Dosyanın adının yazılışını denetleyin ve dosya konumunun doğruluğundan emin olun.) mesajını verdi. Yardımın yanındaki menüyü yeniden oluşturdum Aç ve Kapat fonsiyonu dosya açma kapama fonsiyonunu yerine getiriyor. Yardımlarınızı bekliyorum.
İlginize de ayriyetten teşekkür ederim.

 

[Haluk]

Ekteki örnek dosyayı inceleyin ...

 

[parafudur]

Tam istediğim gibi olmuş ellerinize sağlık. Çok çok teşekkür ederim....

 

[VisuaL.NET]

Tam istediğim gibi olmuş ellerinize sağlık. Çok çok teşekkür ederim....

Ben bu kodların nasıl ışıklandırma özelliğini ile ne yapıyor anlayamadım.
Daha kod mu eksik acaba.. Kod eksik ise nasıl tamamlayabiliriz yada tamamlanmış halini forma ekleyebilir misiniz?
Teşekkürler...

 

[Haluk]

Ben bu kodların nasıl ışıklandırma özelliğini ile ne yapıyor anlayamadım.
Daha kod mu eksik acaba.. Kod eksik ise nasıl tamamlayabiliriz yada tamamlanmış halini forma ekleyebilir misiniz?
Teşekkürler...

Kodun tamamı yukarıdaki dosyada.

Dosyayı açın, menü çubuğunun en sonunda "Renklendir" etiketli yeni bir menü göreceksiniz.

Tıklayın ve "renklendirmeyi ac" etiketli alt menüyü tıklayın.

Daha sonra sayfa üzerinde rastgele hücreler seçin.

"Işıklandırma" ile kastedilen, aktif hücrenin bulunduğu satır ve sütunun "sarı" renk ile işaretlenmesidir..... başka bir şey değil.

 

[VisuaL.NET]

Ben bu kodların nasıl ışıklandırma özelliğini ile ne yapıyor anlayamadım.
Daha kod mu eksik acaba.. Kod eksik ise nasıl tamamlayabiliriz yada tamamlanmış halini forma ekleyebilir misiniz?
Teşekkürler...

Kodun tamamı yukarıdaki dosyada.

Dosyayı açın, menü çubuğunun en sonunda "Renklendir" etiketli yeni bir menü göreceksiniz.

Tıklayın ve "renklendirmeyi ac" etiketli alt menüyü tıklayın.

Daha sonra sayfa üzerinde rastgele hücreler seçin.

"Işıklandırma" ile kastedilen, aktif hücrenin bulunduğu satır ve sütunun "sarı" renk ile işaretlenmesidir..... başka bir şey değil.

Bende o şekilde düşündüm ama ben dediğiniz gibi ac tıkladığımda sarı rengle satır ve sütunlar yada hücreler olmamaktadır...

 

[VisuaL.NET]

Ben bu kodların nasıl ışıklandırma özelliğini ile ne yapıyor anlayamadım.
Daha kod mu eksik acaba.. Kod eksik ise nasıl tamamlayabiliriz yada tamamlanmış halini forma ekleyebilir misiniz?
Teşekkürler...

Kodun tamamı yukarıdaki dosyada.

Dosyayı açın, menü çubuğunun en sonunda "Renklendir" etiketli yeni bir menü göreceksiniz.

Tıklayın ve "renklendirmeyi ac" etiketli alt menüyü tıklayın.

Daha sonra sayfa üzerinde rastgele hücreler seçin.

"Işıklandırma" ile kastedilen, aktif hücrenin bulunduğu satır ve sütunun "sarı" renk ile işaretlenmesidir..... başka bir şey değil.

Bende o şekilde düşündüm ama ben dediğiniz gibi ac tıkladığımda sarı rengle satır ve sütunlar yada hücreler olmamaktadır...

Ã?zür dalgınlığıma verin ben sarı renk kodunu beyaz yapmışım....

ellerinize bilginize sağlık çok mükemmel olmuş...
Bu kodlar bana excel ile oyunlar programlama gibi ilginç fikirler getirdi..

Ama işte excelde kodlamaya daha yeni başladım.

 

[Haluk]

Kolay gelsin ...