Skip to main content

AccessTr.neT


Hücre seçildiğinde renkle doldurma

Conqueror20
Conqueror20
2
2272

Hücre seçildiğinde renkle doldurma

Çözüldü #1
iyi akşamlar,
ekteki dosyada
b2 hücresi seçilirse f2:p2 hücresini mavi
b3 hücresi seçilirse f3:p3 hücresini mavi
b4 hücresi seçilirse f4:p4 hücresini mavi yapmak istiyorum
.rar Kitap1.rar (Dosya Boyutu: 5,99 KB | İndirme Sayısı: 20)
Cevapla
Çözüldü #2
arkadaşlar yokmu yardım edecek
Cevapla
Çözüldü #3
Sn:Conqueror20
Aşağıdaki kodu kullanabilirsiniz.
Function InRange(Range1 As Range, Range2 As Range) As Boolean
Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function

Sub ColourChange()
If InRange(ActiveCell, Range("B2:B65536")) Then
Cells.Interior.ColorIndex = xlNone
Range("F" & ActiveCell.Row, "P" & ActiveCell.Row).Interior.ColorIndex = 4
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ColourChange
End Sub
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task