Formda Yazi

[savuntas]

excell de yazdığım rakamları belirtilen şekilde yazmak istiyorum. ama kutucuktan çıktıktan sonra gözükmesi gereken aşağıda verdiğim örnekte olduğu gibi nasıl yapılır.

123456789 yazacağız ama yapılan formda bu şekilde çıkması lazım nasl yapmam gerekiyor
1 2 3 4 5 6 7 8 9 şekilde gözükmesi gerekiyor

 

[Levent Menteşoğlu]

Hücreyi resimdeki gibi biçimlendirin.

 

[Orion1]

Merhaba.1 tane textbox1 ve 1 tanede textbox2 ekleyin.
Userform'un kod sayfasına aşağıdaki kodları yapıştırın.
Textbox1'e veri girdikçe textbox2'de birer atlayarak yazılacaktır.

Private Sub TextBox1_Change()
Dim deger As String, i As Integer
If TextBox1.Value = "" Then Exit Sub
For i = 1 To Len(TextBox1.Value)
    deger = deger & Mid(TextBox1.Value, i, 1) & " "
Next
TextBox2.Value = deger
End Sub

 

[savuntas]

Metne Çevİrme

Rakami Yaziya Ytl Olarak DeĞİl De Yaziya Nasil Çevİrebİlİrİm

 

[Orion1]

Merhabalar.
Sayın NecdetYesertener'in vermiş olduğu kodları sayın leventm'nin revize ederek düzenlediği şekli ile aşağıda veriyorum .Bir KTF.
Bunu KTF (formülü) ekli dosyada kullandım.Umarım işinize yarar.
Formülü C1 Hücresine yazdım.Siz istediğiniz kadar çoğaltabilirsiniz.

Function Yaziyla(Sayi#)

ReDim birler$(10), onlar$(10), basamak$(5)

birler$(0) = "": birler$(1) = "Bir"
birler$(2) = "İki": birler$(3) = "Üç"
birler$(4) = "Dört": birler$(5) = "Beş"
birler$(6) = "Altı": birler$(7) = "Yedi"
birler$(8) = "Sekiz": birler$(9) = "Dokuz"

onlar$(0) = "": onlar$(1) = "On"
onlar$(2) = "Yirmi": onlar$(3) = "Otuz"
onlar$(4) = "Kırk": onlar$(5) = "Elli"
onlar$(6) = "Altmış": onlar$(7) = "Yetmiş"
onlar$(8) = "Seksen": onlar$(9) = "Doksan"

basamak$(1) = "": basamak$(2) = "Bin"
basamak$(3) = "Milyon": basamak$(4) = "Milyar"
basamak$(5) = "Trilyon"

virgul2$ = "": cevap$ = "": onda$ = ""

Say$ = Str$(Sayi#)
virgul% = InStr(1, Say$, ".")
If virgul% Then
Say$ = Right$(Say$, Len(Say$) - virgul%)
Select Case Len(Say$)
Case 6: onda$ = "Milyonda"
Case 5: onda$ = "Yüzbinde"
Case 4: onda$ = "Onbinde"
Case 3: onda$ = "Binde"
Case 2: onda$ = "Yüzde"
Case 1: onda$ = "Onda"
End Select
GoSub cevir

virgul2$ = " Tam " + onda$ + " " + cevap$
cevap$ = ""

Say$ = Str$(Sayi#)
Say$ = Left(Say$, virgul% - 1)
End If
GoSub cevir

If cevap$ = "" Then cevap$ = "Sıfır"

Yaziyla = cevap$ + virgul2$

Exit Function

cevir:
X% = Len(Say$)
Say$ = String$(3 - (X% - Int(X% / 3) * 3), 48) + Say$
X% = Len(Say$) / 3
For i% = 1 To X%
uclu$ = Mid$(Say$, Len(Say$) - i% * 3 + 1, 3)
y% = Val(Mid$(uclu$, 1, 1))
O% = Val(Mid$(uclu$, 2, 1))
b% = Val(Mid$(uclu$, 3, 1))

yazi$ = ""
If y% <> 0 Then
If y% > 1 Then yazi$ = birler$(y%)
yazi$ = yazi$ + "Yüz"
End If

yazi$ = yazi$ + onlar$(O%) + birler$(b%)

If yazi$ <> "" Then
If LCase(yazi$) = "bir" And i% = 2 Then yazi$ = ""
cevap$ = yazi$ + basamak$(i%) + cevap$
End If
Next i%
Return
End Function

 

[Orion1]

Merhaba.
Kodları değiştirdim şimdi direk Ton'u Kg'a çeviriyor.Formülü B1 hücresine girdim.
Kodlar aşağıdadır.Ve yeni düzenlemeye göre yeni dosyada ektedir.Umarım işinize yarar.

Function Yaziyla(Sayi#)

ReDim birler$(10), onlar$(10), basamak$(5)

birler$(0) = "": birler$(1) = "Bir"
birler$(2) = "İki": birler$(3) = "Üç"
birler$(4) = "Dört": birler$(5) = "Beş"
birler$(6) = "Altı": birler$(7) = "Yedi"
birler$(8) = "Sekiz": birler$(9) = "Dokuz"

onlar$(0) = "": onlar$(1) = "On"
onlar$(2) = "Yirmi": onlar$(3) = "Otuz"
onlar$(4) = "Kırk": onlar$(5) = "Elli"
onlar$(6) = "Altmış": onlar$(7) = "Yetmiş"
onlar$(8) = "Seksen": onlar$(9) = "Doksan"

basamak$(1) = "": basamak$(2) = "Bin"
basamak$(3) = "Milyon": basamak$(4) = "Milyar"
basamak$(5) = "Trilyon"

virgul2$ = "": cevap$ = "": onda$ = ""

Say$ = Str$(Sayi# * 1000)
virgul% = InStr(1, Say$, ".")
If virgul% Then
Say$ = Right$(Say$, Len(Say$) - virgul%)
Select Case Len(Say$)
Case 6: onda$ = "Milyonda"
Case 5: onda$ = "Yüzbinde"
Case 4: onda$ = "Onbinde"
Case 3: onda$ = "Binde"
Case 2: onda$ = "Yüzde"
Case 1: onda$ = "Onda"
End Select
GoSub cevir

virgul2$ = " Tam " + onda$ + " " + cevap$
cevap$ = ""

Say$ = Str$(Sayi#)
Say$ = Left(Say$, virgul% - 1)
End If
GoSub cevir

If cevap$ = "" Then cevap$ = "Sıfır"

Yaziyla = cevap$ + virgul2$ & " KG"

Exit Function

cevir:
X% = Len(Say$)
Say$ = String$(3 - (X% - Int(X% / 3) * 3), 48) + Say$
X% = Len(Say$) / 3
For i% = 1 To X%
uclu$ = Mid$(Say$, Len(Say$) - i% * 3 + 1, 3)
y% = Val(Mid$(uclu$, 1, 1))
O% = Val(Mid$(uclu$, 2, 1))
b% = Val(Mid$(uclu$, 3, 1))

yazi$ = ""
If y% <> 0 Then
If y% > 1 Then yazi$ = birler$(y%)
yazi$ = yazi$ + "Y&#252;z"
End If

yazi$ = yazi$ + onlar$(O%) + birler$(b%)

If yazi$ <> "" Then
If LCase(yazi$) = "bir" And i% = 2 Then yazi$ = ""
cevap$ = yazi$ + basamak$(i%) + cevap$
End If
Next i%
Return
End Function

 

[vakıf]

Merhaba
Arkadaşlar yaptığımız bazı ödemelerden dolayı damga vergisi kesiyoruz. bindeyedibuçuk damga vergisi bulabilmem için gerekli Excel formülünü forma yazarmısınız . teşekkürler