aşağıdaki makro 2.4 de çalışıyordu ancak 3.1.1. yükledikten sonra silinen
makroyu tekrar makrolardan girerek kaydettim.
çalıştır dediğimde : hata kodu:
Basic, Standart.Module1.RakamOku betiği çalıştırılırken, betik dili çatı hatası
oluştu.
Mesaj: wrong number of parameters
Makro da aşağıda
Function RakamOku(CellAdr)
'*************************
'GERÇEK RUTİN
'*************************
Dim Dummy As String
Dim Dummy1 As String
Dim Dummy2 As String
Dim Texti(3, 10)
Dim Sayac As Integer
Dim Tur As Byte
Dim Binde(6)
'1. Basamak
Texti(1, 1) = "Bir": Texti(1, 2) = "İki": Texti(1, 3) = "Üç": Texti(1, 4) =
"Dört": Texti(1, 5) = "Beş"
Texti(1, 6) = "Altı": Texti(1, 7) = "Yedi": Texti(1, 8) = "Sekiz":
Texti(1, 9) = "Dokuz": Texti(1, 0) = ""
'2. Basamak
Texti(2, 1) = "On": Texti(2, 2) = "Yirmi": Texti(2, 3) = "Otuz": Texti(2, 4) =
"Kırk": Texti(2, 5) = "Elli"
Texti(2, 6) = "Altmış": Texti(2, 7) = "Yetmiş": Texti(2, 8) = "Seksen":
Texti(2, 9) = "Doksan": Texti(2, 0) = ""
'3. Basamak
Texti(3, 1) = "Yüz": Texti(3, 2) = "İkiYüz": Texti(3, 3) = "ÜçYüz":
Texti(3, 4) = "DörtYüz": Texti(3, 5) = "BeşYüz"
Texti(3, 6) = "AltıYüz": Texti(3, 7) = "YediYüz": Texti(3, 8) = "SekizYüz":
Texti(3, 9) = "DokuzYüz": Texti(3, 0) = ""
' Binde
Binde(2) = "Bin": Binde(3) = "Milyon": Binde(4) = "Milyar": Binde(5) =
"Trilyon": Binde(6) = "Katrilyon"
If Abs(Int(CellAdr) - CellAdr) >= 0.5 Then
Dummy = LTrim(Str(Int(CellAdr) + 1))
Else
Dummy = LTrim(Str(Int(CellAdr)))
End If
'Dummy = LTrim(Str(CellAdr))
Do Until Len(Dummy) > 14
Dummy = "0" + Dummy
Loop
RakamOku = ""
Tur = 0
For Sayac = 13 To 1 Step -3
Dummy1 = Mid$(Dummy, Sayac, 3)
Dummy2 = Texti(3, Mid$(Dummy1, 1, 1)) & Texti(2, Mid$(Dummy1, 2,
1)) & Texti(1, Mid$(Dummy1, 3, 1))
Tur = Tur + 1
'Select Case Tur
'Case Is = 2
If Tur = 2 Then
If Dummy2 <> "" Then
If Dummy2 <> "Bir" Then
Dummy2 = Dummy2 &
Binde(Tur)
Else
Dummy2 = Binde(Tur)
End If
End If
End If
If Tur > 2 Then
If Dummy2 <> "" Then
' If Dummy2 <> Binde(Tur) Then
Dummy2 = Dummy2 &
Binde(Tur)
' Else
' Dummy2 = Binde(Tur)
' End If
End If
End If
'Case Is = 3
'Dummy2 = Dummy2 & "Milyon"
'Case Is = 4
'Dummy2 = Dummy2 & "Milyar"
'Case Is = 5
'Dummy2 = Dummy2 & "Trilyon"
'End Select
RakamOku = Dummy2 & RakamOku
Next Sayac
'RakamOku = Texti(3, Mid$(Dummy, 1, 1)) & Texti(2, Mid$(Dummy, 2,
1)) & Texti(1, Mid$(Dummy, 3, 1))
'RakamOku = "ff"
End Function
