OFFFFFF abiler uyuyonuzmu yaaaacevabı buldum işinize yararsaBoş bir Excel belgesi açın. Ekle menüsünden Makro Modül komutunu çalıştırın. Ekrana boş bir modül penceresi gelecektir. Aşağıdaki satırları bu pencereye aynen yazın. Excel belgesini kaydedin. Artık bu Excel belgesinin çalışma sayfalarında =YAZIYLA fonksiyonunu kullanabilirsiniz. Makronun dkümü Dim b$(9)Dim y$(9)Dim m$(4)Dim v(15)Dim c(3)Function Yaziyla$ b$(0) = ""b$(1) = "Bir"b$(2) = "İki"b$(3) = "Üç"b$(4) = "Drt"b$(5) = "Beş"b$(6) = "Altı"b$(7) = "Yedi"b$(8) = "Sekiz"b$(9) = "Dokuz"y$(0) = ""y$(1) = "On"y$(2) = "Yirmi"y$(3) = "Otuz"y$(4) = "Kırk"y$(5) = "Elli"y$(6) = "Altmış"y$(7) = "Yetmiş"y$(8) = "Seksen"y$(9) = "Doksan"m$(0) = "Trilyon"m$(1) = "Milyar"m$(2) = "Milyon"m$(3) = "Bin"m$(4) = ""a$ = Str If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0a$ = Right$(a$, Len - 1)For x = 1 To Len If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hataNext xIf Len > 15 Then GoTo hataa$ = String(15 - Len , "0") + a$For x = 1 To 15 v = Val(Mid$(a$, x, 1))Next xs$ = ""For x = 0 To 4 c(1) = v((x 3) + 1) c(2) = v((x 3) + 2) c(3) = v((x 3) + 3) If c(1) = 0 Then e$ = "" ElseIf c(1) = 1 Then e$ = "Yüz" Else e$ = b$(c(1)) + "Yüz" End If e$ = e$ + y$(c(2)) + b$(c(3)) If e$ <> "" Then e$ = e$ + m$ If (x = 3) And Then e$ = "Bin" s$ = s$ + e$Next xIf s$ = "" Then s$ = "Sıfır"If pozitif = 0 Then s$ = "Eksi" + s$Yaziyla$ = s$GoTo tamamhata: Yaziyla$ = "Hata"tamam:End Function Yol uzun olabilir. nemli olan yolun neresinde olduğumuzdur

bir hücredeki rakamı nasıl yazıya çeviririm? Yol uzun olabilir. nemli olan yolun neresinde olduğumuzdur