formüllü hücre içeriğinin bir böümünün biçimlendirilmesi

[sbayyigit]

nerhaba arkadaşlar yıllardır excel ile uğraşıyorum genelde makro ve vb haricindeki soruları sormamaya gayret ediyorum. fakat öyle bir noktaya geldim ki sorunu çözemedim. belki basittir ama ben çözemedim.

formül ile hücre içerisine bir sonuç aldırıyorum. fakat sonucun koyu renkli olması gerekiyor. formül şu;

="buraya karışılmayacak #"&yaz(I24) &"# buraya da karışılmayacak."

yukarıdaki formülde #"&yaz(I24) &"# alanı biraz büyük ve koyu renkte olması gerekiyor
biçimlendirmeye çalıştığım zaman başında "= "işareti olduğu zaman biçimlendirme çubuğu bir türlü aktif olmuyor.

 

[Vedat Özer]

Selamlar,


Yaz() kısmı kullanıcı tanımlısı fonksiyon oldugu için kod içerinde ekleme yapılbilir sanırım,

Kodu eklerseniz veya başka bir yolu varmı bilmiyorum.

 

[sbayyigit]

Selamlar,


Yaz() kısmı kullanıcı tanımlısı fonksiyon oldugu için kod içerinde ekleme yapılbilir sanırım,

Kodu eklerseniz veya başka bir yolu varmı bilmiyorum.

vedat hocam fonksiyon bu;

Function yaziyla(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
b = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
c = Array("", "", "bin", "milyon", "milyar", "trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "yüz", "biryüz", "yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "birbin" Then son = Replace(son, "birbin", "bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then ytl = son & " YTL"
If g = 2 And deger(2) <> 0 Then ykr = " " & son & " YKR"
son = ""
e = 0
Next
yaziyla = ytl & ykr
End Function

 

[sbayyigit]

Selamlar,


Yaz() kısmı kullanıcı tanımlısı fonksiyon oldugu için kod içerinde ekleme yapılbilir sanırım,

Kodu eklerseniz veya başka bir yolu varmı bilmiyorum.

vedat hocam bu kodlara nasıl bir ekleme yapabilirim.