Koşullu biçimlendirme

[GUERRA]

Koşullu biçimlendirme yapmaya çalışırken ,Font büyüklüğü ve tipini değiştiremediğimi farkettim.Olmazsa hücre değeri = "xx" ise font 36 olsun gibi bir makro veya formulde olur.

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "xx" Then
Target.Font.Size = 36
End If

End Sub

 

[Merhum İdris SERDAR]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "xx" Then
Target.Font.Size = 36
Else
Target.Font.Size = 12
End If
End Sub

şeklinde deneyin.

..

 

[GUERRA]

cevap için teşekkürler fakat , bu sefer fontu 36 ya b.r sefer düşürdüğü zaman ,hedefte istediğim kelime yazmasa bile 36 da kalıyor .eski fonta geri dönmüyor.

 

[Merhum İdris SERDAR]

cevap için teşekkürler fakat , bu sefer fontu 36 ya b.r sefer düşürdüğü zaman ,hedefte istediğim kelime yazmasa bile 36 da kalıyor .eski fonta geri dönmüyor.

Benim kodları denediniz mi? Else'ten sonra olan 12 yerine siz fontunuzun rakamını girin.

..

 

[Ali]

cevap için teşekkürler fakat , bu sefer fontu 36 ya b.r sefer düşürdüğü zaman ,hedefte istediğim kelime yazmasa bile 36 da kalıyor .eski fonta geri dönmüyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "xx" Then
Target.Font.Size = 36
Else
Target.Font.Size = 12
End If
End Sub

şeklinde deneyin.

..

Sn yurttas'ın cevabı sizin ihtiyacınız karşılıyor. Denemediniz sanırım.

 

[GUERRA]

evet teşekkürler.fakat değişkeni "target " olarak tanımladığımızda , bütün sayfadaki hücreleri etkiliyor.
Ben sadece B28-E28-H28-K28 bu dört hücrenin bu kurala dahil olmasını istiyorum.(Birbirlerinden ve sayfanın geri kalanından bağımsız olarak)

Yani:
B28 = "XX" ise font 42, değilse 72
E28 = "XX" ise font 42, değilse 72
H28 = "XX" ise font 42, değilse 72
K28 = "XX" ise font 42, değilse 72

ben içiçe geçmiş bir if range (..) = gibi bir döngü yapmaya çalıştım ama birbirlerini etkiledikleri için olmadı.

 

[Merhum İdris SERDAR]

Private Sub Worksheet_Change(ByVal Target As Range)

If [b28] = "xx" Then
[b28].Font.Size = 36
Else
[b28].Font.Size = 12

If [e28] = "xx" Then
[e28].Font.Size = 36
Else
[e28].Font.Size = 12

If [h28] = "xx" Then
[h28].Font.Size = 36
Else
[h28].Font.Size = 12

If [k28] = "xx" Then
[k28].Font.Size = 36
Else
[k28].Font.Size = 12

End If
End If
End If
End If

End Sub


Bir de böyle deneyin.

..

 

[GUERRA]

Vakit ayırdığınız için ve yardım için teşekkürler,fakat birbirlerinin aldığı değerlerden etkileniyorlar.Her hücre için ayrı bir kod yazmak gerekecek sanırım.