Şifremi/Kullanıcı Adımı Unuttum
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Şimdi Ara

excel için yardım lütfen

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir Kullanıcı, 1 Masaüstü Kullanıcı
2
Cevap
0
Favori
282
Tıklama
Cevapla
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
  • Onbaşı
    28 Mesaj
    Arkadaşlar excelde fatura usulü birşeyler yazdıracağım..
    yazdığım fatura miktarını aşagıya yazı ile yazacak otomatik olarak.
    yani 1.250.000 yazdığımda /BİRMİLYONİKİYÜZELLİBİN/ yazacak bir tablo oluşturmak istiyorum mümkünmü acaba?



    |
    |
  • Yarbay
    4656 Mesaj
    Aşağıdaki kodları kullanabilirsin.

    Eğer acemiyim nasıl yapılır diyorsan..
    Excelde fatura ile ilgili işlem yaptığın dosya açıkken ALT+F11 yapıp VBA editörünü açıyorsun
    Aktif değilse, görünümden proje gezginini seçiyorsun.
    Daha sonra ekleden modülü seçiyorsun, sol tarafta
    beyaz bir sayfa açılıyor.
    Aşağıdaki kodları beyaz sayfaya kopyalayıp. VBA editörü kapatıyorsun.

    Daha sonra =yaz() formülünü yazdığın yerde parantez içine yazdığın rakamı yazıya çeviriyor.
    Örn.. =yaz(555) yada =yaz(A1) ikinci formüldeki A1 hücre adresini gösteriyor. Burada yazıya çevrilmesini istediğin hücrenin adresini yazmalısın. Bu fonksiyonu başka dosyada da kulanmak istersen aynı işlemleri o dosya içinde yapman lazım yada varolan formülü kulanmak istersen fonksiyon ekleme düğmesinden kullanıcı tanımlı fonksiyonları seçip kullanabilrsin.
    Yada bu kodları personal.xls dosyasının içine kaydedip kullanıcı tanımlı fonksiyon olarak bütün dosyalarında kullanabilirsin.

    Eğer Alt+F11 yaptığında personal.xls dosyası proje gezgininde gözükmüyorsa;
    Excelde Araçlar - Makro Kaydet'e basıp nereye kaydedeyim diye sorarsa kişisel makro kitabını seç ve herhangi bir işlem yapıp(Örn. A1 hücresini seç) makroyu kapat. Personal.xls dosyan hazır. Kodları buraya kopyalayabilirsin..


    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


    Not: Kodlar bana ait değil.. Büyük ihtimalle kapanmadna önce excel.gen.tr 'den almış olabilirim...
    |
    |




  • Yüzbaşı
    653 Mesaj
    ben yazdım ama #AD? çıkıyor ne bu
    |
    |
    _____________________________
    Hayat bu bugun varım yarın yok...
HızlıCevap
Sayfaya Git:
Sayfa:
1
Reklamlar
üniversite
Mobilya Takımları
Kurumsal Web Tasarım Şirketi
haberler
Bu sayfanın
Mobil sürümü
Mini Sürümü

DHBR1
0,152
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.