KENARLIK FONKSİYONU???

[turkanet]

KENARLIK FONKSÝYONU???

örneğin; "eğer A1 doluysa, kenarlık çiz, değilse boş kalsın" diye bir fonksiyon var mı?

 

[Nazmi YAZICI]

Mrb,

Fonsiyon var mı ?? bilemiyorum ama kod isterseniz aşağıdaki işinize yarayabilir.

Sub Kenarlık()
If Range("A1") <> "" Then
    Range("A1").Borders.LineStyle = xlContinuous
Else
    Range("A1").Borders.LineStyle = xlNone
End If

End Sub

 

[TRABLUS]

Koşullu biçimlendir ile mümkün,
Koşul 1'e formül deyip yanındaki formül yazılacak kısma =EÐER(A1>0;1;"") yazınız, altta biçimi işaretleyin, daha sonra açılan pencerede kenarlıklar butonunu açın, istediğiniz kenarlığı işaretleyin, tamam deyin çıkın.

 

[Levent Menteşoğlu]

Elbette hazır fonksiyonda var, koşullu biçimlendirme bu iş için çok ideal bir uygulamadır. Ã?rneğin A1 hücresini seçin, sonra Biçim-koşullu biçimlendirme-formül ü seçin ve =A1=0 formülünü yazın ve biçim butonundan biçimi belirleyin. tamam butonuna basın. A1 hücresi boşsa kenarına kolaylıkla çizgi çizdirebilirsiniz.

 

[Nazmi YAZICI]

Sayın TRABLUS ve Sayın leventm çok haklı. Ben bu yöntemi tamamen unutmuşum :kafa:

 

[turkanet]

BENDE OLMADI. NEDENİ BAHSEDİLEN HÜCREDE
=EÐER(EBOÞSA(şablon!E6);"";YUVARLA((şablon!A12/(şablon!E2+şablon!E3+şablon!E4+şablon!E5+şablon!E6))*şablon!E6;0))
DİYE BİR FORMÜL OLMASI MI?

 

[TRABLUS]

DİYE BİR FORMÜL OLMASI MI?

Olabilir, şöyle deneyin, formüllü hücrenizi kopyalayın>özel yapıştır>değerler, deyin bakalım aynı hatayı verecekmi?

 

[turkanet]

evet, aynı şekilde oldu. koşullu biçimlendirme'de formül'de =$P$42>0 yaptım. içeriği boş olmasına rağmen altına kenarlık yaptı

 

[TRABLUS]

Birde şu formülle deneyin, =EÐER(A1>0;1;"")
Daha da olmazsa dosyanızı ekleyin yapmaya çalışalım.

 

[turkanet]

İÞTE Ã?RNEK

 

[TRABLUS]

Sizin ilk sorduğunuz soru ile bu dosyada ki soru arasında fark var, :shock:
Acaba hangisi doğru?

 

[turkanet]

:d SANIRIM ÞÃ?YLE DE DİYEBİLİRİM:
Ã?RNEK SAYFADA BELİRTİLEN HÜCRELER DOLUYKEN, HÜCRENİN ALT KENARLIÐI OLSUN.
FAKAT HÜCRE BOÞKEN (O KALEM, FATURAYA YAZILMAMIÞSA), BOÞ GÃ?RÜNECEÃİ İÇİN, KENARLIK DA OLMASIN. ÇÜNKÜ BU SAYFA, FATURA ÜZERİNE YAZDIRILIYOR VE KENARLIKLAR KÃ?TÜ BİR GÃ?RÜNTÜ OLUÞTURUYOR.
UMARIM DAHA AÇIKLAYICI OLABİLDİM.
TEÞEKKÜRLER.

 

[TRABLUS]

Herhalde doğru anlamışımdır, su anda belirttiğiniz hücrelerde değer yok ise, çizgi kalkıyor, şayet değer var ise altı kenarlık çizgili oluyor.

 

[turkanet]

Sn. Trablus, ilginize minnettarım. ama zaten o hücrelere 6, 9 103 vs gibi değerler girince kenarlık olayı düzgünce çalışıyor. ama sorun şu; o hücrelerde
=EÐER(EBOÞSA(şablon!E6);"";YUVARLA((şablon!A12/(şablon!E2+şablon!E3+şablon!E4+şablon!E5+şablon!E6))*şablon!E6;0))
gibi formüller var. bu halde iken kenarlık fonksiyonu çalışmıyor. sanırım bu formülü de sayı olarak görüyor. ve 0 dan büyük sayıp, altını çiziyor.
bu formül o hücrelerdeyken ve boşken (formüle dikkat ederseniz, EBOÞSA var) altı çizili nasıl göstertmem?