Excel hücrede sayısal değeri yazı ile gösterme
Tarih
24/11/2009 16:32
Konu Sahibi
sezginsasm
Yorumlar
19
Okunma
7183
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



sezginsasm
Üye
Kullanici Avatari
Üye
5
1
24/11/2009
0
Ankara
Ofis 2003
06/02/2017,20:51
Çözüldü 
Sponsor Reklam
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.
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.023
29/10/2008
Ordu
Ofis 2013 32 Bit
13/02/2017,13:34
Çö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.
Cevapla

sezginsasm
Üye
Kullanici Avatari
Üye
5
1
24/11/2009
0
Ankara
Ofis 2003
06/02/2017,20:51
Çözüldü 
Sponsor Reklam
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.
Cevapla

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İ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
Cevapla

maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Çözüldü 
Sponsor Reklam
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
Cevapla

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İ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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  İsteğe bağlı seçili kayıtların Excel'e aktarılması 1453asi 10 711 03/02/2017, 14:40 atoz112
  Excel Toplama İşlemi 53rize 4 227 20/12/2016, 12:11 53rize
  EXCEL çıkartma işleminde hata? prtkl 3 230 12/12/2016, 14:21 atoz112
  Data Filtreleyerek, Excel'e Export Etme - Yardım - Rıdvan Üçok 2 258 28/11/2016, 14:34 atoz112
  x-y dağılım grafiğinde maksimum değeri bulma mmert06 6 392 10/11/2016, 19:24 mmert06


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya