"50 Sayısını Elli olarak yazdırma" yardım edermisiniz

[mithrandil]

Merhaba arkadaşlar ben bir not çizelgesi hazırlamak istiyorum takildiğim nokta öğrencinin not ortalaması 50 çıktığında yanındaki hücreyede ELLİ yazsın istiyorum (50 nin altindaki her nota kaldı yaziyor).bunu EĞER formülü ile yaptim ama formul 50 den 100 e kadar olan sayılara yaydığımda formul çubuğuna sığmıyor böyle bir şey yapmam mümkünmüdür yardımlarınız için şimdiden çok teşekkürler..

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirmisiniz?

 

[Metin Karaağaç]

Aşağıdaki kodu dosyanızın vba modülüne ekleyin.
yazı yazmasını istediğiniz hücreye de =yaz(...) formülünü yazınca rakamı yazıyla yazacaktır.

Function yaz$(sayi)
  Dim b$(9)
  Dim y$(9)
  Dim m$(4)
  Dim v(15)
  Dim c(3)

  b$(0) = ""
  b$(1) = "Bir"
  b$(2) = "İki"
  b$(3) = "Üç"
  b$(4) = "Dört"
  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(sayi)

  If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
  a$ = Right$(a$, Len(a$) - 1)
  For x = 1 To Len(a$)
    If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata
  Next x

  If Len(a$) > 15 Then GoTo hata
  a$ = String(15 - Len(a$), "0") + a$

  For x = 1 To 15
    v(x) = Val(Mid$(a$, x, 1))
  Next x

  s$ = ""
  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$(x)
    If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
    s$ = s$ + e$
  Next x

  If s$ = "" Then s$ = "Sıfır"
  If pozitif = 0 Then s$ = "Eksi" + s$

  yaz$ = s$
  GoTo tamam
hata: yaz$ = "Hata"
tamam:
End Function

 

[mithrandil]

çok teşekkür ederim acemi1 emeğine sağlık. bir şey daha sorayım hazır bulmuşken üstadım ben vba kullanmadan bunu yapabilirmiyim bu şekilde oldu ama ben şöyle denedim formul sığmadı eğer formulu ile 100 e kadar tanımladım[=EĞER(F3=50;"elli" die (cahillik işte ) çok zor oldu )] benzeri bi şekilde yapabilirmiyim?

 

[Merhum İdris SERDAR]

çok teşekkür ederim acemi1 emeğine sağlık. bir şey daha sorayım hazır bulmuşken üstadım ben vba kullanmadan bunu yapabilirmiyim bu şekilde oldu ama ben şöyle denedim formul sığmadı eğer formulu ile 100 e kadar tanımladım[50=elli 100=elli die (cahillik işte ) çok zor oldu )] benzeri bi şekilde yapabilirmiyim?

Şöyle yaparsanız olur;

1.Dosyanızda başka bir sayfaya A1'den A100'e kadar 1'den başlamak üzere sayıları yazın. B1'den başlamak üzere karşılarına bunları yazı ile yazın.

2. A1:B100 alanını seçerek, Ekle/Ad/Tanımla'dan YAZI diye bir ad verin.

3. Örneğin rakamın yer aldığı hücre M5 ise; bunun N5'e yazıyla yazdıracaksanız; =DÜŞEYARA(M5;YAZI;2;0) formülünü girin.

 

[Zeki Gürsoy]

Fonksiyon ile bi alternatif de benden.

 

[entropy_tr]

Bu da benim formul kullanarak hazırladığım sayıyı yazıya çevirme işlemi. İşinize yararsa ne mutlu.

Sayi2Yazi_formulle.zip

 

[mithrandil]

ilginiz için teşekkür ederim çok saolun çok işime yaradı verdikleriniz. ayrı hücrelere yazdırmadan direk tek bir hücreye yazdıramıyoruz dimi formulle?yada benmi beceremedim..

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirmisiniz?

...................

 

[mithrandil]

tammadır arkadaşlar buldum herkesin emeğine sağlık