Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/11/2009 16:32
Konu Sahibi
sezginsasm
Yorumlar
20
Okunma
8848
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

sezginsasm

Üye
 51
 5
 1
 24/11/2009
0
 Ankara
 
 Ofis 2003
 06/02/2017,20:51
Çözüldü 
Merhaba, benim sizlerden bir ricam var arkadaşlar. Excel'de örneğin 1.250.00.-TL rakamsal ifadeyi ( yalnız bin iki yüz elli TL ) olarak nasıl yazdırabilirim. Bu konuda bana yardımcı olursanız sevinirim. İlgi ve alakanıza şimdiden teşekkürler ediyorum. Saygılarımla


sezginsasm, 24-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 Bugün,11:41
Çözüldü 
Tüm dünyada tüm forumlarda olduğu gibi bizim sitemizde de konu başlığı acil yardım, ölüyorum, bittim, birileri baksın vb. kullanmak yasaktır. Ayrıca sizin hakkınızda olumsuz intiba oluşturan en önemli hatadır. Konunuzu bilseler bile bakmazlar, cevap yazmazlar hatta başka zaman normal bir sorunuz olsa dahi bakmakta isteksizlik yapar.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

sezginsasm

Üye
 51
 5
 1
 24/11/2009
0
 Ankara
 
 Ofis 2003
 06/02/2017,20:51
Çözüldü 
kusura bakmayın böyle oldugunu bilmiyordum zaten bilsem o şekilde yazmazdım. Yine de uyarınız için teşekkürler
uyarınızı dikkate aldım ve değiştirdim. Gerçekten teşekkür ederim. Saygılarımla


sezginsasm, 24-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ogulcan92

Aktif Üye
 54
 1.159
 154
 06/05/2009
480
 İzmir
 
 Ofis 2003
 07/08/2015,11:50
Çözüldü 
Merhaba
Sn:sezginsasm
İlk önce site içerisinde araştırırsan bununla ilgili örnekleri bulursun verdiğim sayfadaki konu içerisinde mevcut oradan incelersiniz takıldığın yerde yardımcı olalım

https://www.accesstr.net/konu-siparis-teklif-formu.html



Kullanici Avatari

maytas

Onursal Üye
 53
 545
 24
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
Çözüldü 
Merhaba.

Bu konuda nette bir çok örnek mevcut.
Sıfırdan hazırlamaktansa elimde mevcut olan M.Temel Korkmaz'ın hazırladığı bir fonksiyonu burada paylaşayım.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
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: Sayın ogulcan92, mesajınızı benimkini post ettikten sonra gördüm.


Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
[Resim: 3l7gq.gif]

Kullanici Avatari

ogulcan92

Aktif Üye
 54
 1.159
 154
 06/05/2009
480
 İzmir
 
 Ofis 2003
 07/08/2015,11:50
Çözüldü 
Sn:maytas
Teşekkürler hocamızın fonksiyonu çok güzel bem örneğimdekinden daha kısa ve net hangisini kulacaksa örneği inceleyerek nasıl uygulandığını görebilir.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Aynı Hücrede Belirli Hücrelere Göre Çıkarma? Yusuf KARAGÜN 2 82 13/11/2018, 13:56
Son Yorum: Yusuf KARAGÜN
Çözüldü 2 excel dosyası arasında kritere göre bağ yapıştırma mehmetdemiral 19 5.505 17/04/2018, 12:47
Son Yorum: Subco
Çözüldü Excel De Düşeyara Formülü #yok Hatası Veriyor... mehmet yaşar öztürk 9 1.518 08/01/2018, 11:06
Son Yorum: canazor
Çözüldü Excel Yıllık İzin Tablosu mehmetfetih 2 4.234 06/08/2017, 09:47
Son Yorum: mehmetfetih
Çözüldü Excel Veri Çekme Sorunu goksel86 7 1.226 26/05/2017, 16:14
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.