Excel'de Sayıyı Yazıya Çevirme
HTML-код
- Опубликовано: 13 сен 2024
- Online eğitimler. Bir eğitim alana ikinci eğitim ücretsizdir. Tüm eğitimlerin listesine aşağıdaki linkten ulaşabilirsiniz:
lnkd.in/di6B4WiD
Finans Matematiği, Finansal Modelleme ve Finansal Analiz: lnkd.in/duDi7Y5
Şirket Değerleme ve Finansal Strateji Geliştirme Eğitimi: lnkd.in/ezC2Qgh
İş Hayatında Stratejik Planlama ve Analitik Çözüm Üretme Eğitimi: lnkd.in/dD3sTCU
Şirket / Proje Finansmanı ve Nakit Akışı Modelleme: lnkd.in/dzg_dbX9
Excel - Temelden Uzmanlığa (FULL Paket): lnkd.in/diZJskD2
Muhasebe ve Finans Sektörü Çalışanları için Excel: lnkd.in/dMnkM3En
Business Plan (Proje Finansmanı, Kaynak Planlama, Değerleme): lnkd.in/dZ5tx5q
Excel Eğitimi - Temelden Uzmanlığa Kadar: lnkd.in/d8YgpsM
Excel Makro (VBA) - Temelden Uzmanlığa Kadar: lnkd.in/ddSWqKX
Python Mucizesi - Temelden Uzmanlığa (FULL Paket): lnkd.in/dGNWrY8V
MS Word - Temelden Uzmanlığa: lnkd.in/dTyr3s7
MS PowerPoint - Temelden Uzmanlığa: lnkd.in/dFYpT5F
MS Outlook - Temelden Uzmanlığa: lnkd.in/dZQ8bvD
Şirket Değerleme Eğitimi: lnkd.in/dBKKWQt
İş Hayatında Excel: lnkd.in/dugjncH
Excel Power Query: lnkd.in/d8EPQJQ
Yeni Excel ile Veri Analizi: lnkd.in/epxKYcxY
Excel for Everyone From Beginning to Advanced: lnkd.in/dHkuRC3
Tüm Finans Eğitimleri için: borf.in/u0LmoU
Para Kazanmanın Unutturulmuş Sırları: borf.in/OcsFXt
Pratikte Teknik Analiz: borf.in/NVf7XD
Stratejik Teknik Analiz: borf.in/9AOGa1
Yatırımcılar İçin Kapsamlı Temel Analiz ve Şirket Değerleme: borf.in/aI5iRd
Hisse Seçimi ve Analiz: borf.in/kMImbG
Bilanço Okuma Teknikleri: borf.in/bCifqv
Algoritmik Trade: borf.in/m6dezF
Hareketli Ortalamalarla Algo Trade: borf.in/LSVm1F
Yeni Başlayanlar İçin Borsa: borf.in/Vik7b7
A'dan Z'ye Yatırımcılık: borf.in/bnKjKt
Algoritmik Trading Akıllı Robotlar: borf.in/qwhuvs
Bilanço Okuma Teknikleri: borf.in/cMoR4K
Nihayet adam gibi konu anlatan bir kardeşimiz çıktı. Teşekkür ediyorum.
hocam iyi güzelde "1000 =bin sıfır 10000 onbin sıfır" olarak çeviriyor. birde rakamı yukarı yuvarlıyor. kuruşlarıda yazdırmak istiyorum. ama malesef olmuyor.
merhaba bilgi icin teşekkürler sizden ricam excelde fatura rakamsal tutarını metne çevirmek istiyorum ama küsüratlari vermiyor
Merhabalar çok faydalı oldu tşk ederim.fakat bir sorum olacaktı örneğin 1000 çevirmede sıkıntı oluyor bin sıfır şeklinde yazıyor
ÇOK FAYDALI OLDU. TEŞEKKÜR EDRİM.
KURUŞLARI ÇEVİRMİYOR ! 64,90 tutarı var altmış beş olarak alıyor yazıyı
çok faydalı oldu gerçekten çok teşekkür ediyorum
Teşekkür ederim
Çok teşekkürler.
Allah razı olsun
MRB. MESELA 500231 tutarının sonu TL ve KR olarak nasıl yazabilirim. hangi makro buna uygundur? yardımlarınız için şimdiden teşekkürler
excel size yeter : hazır makrolar da rakamı yazıya çevirme makrosu var, tl ve krş veriyor
emeğinize sağlık sayıyı eur yazıya çevirdim başka yerdende makro alarak
Merhaba, makro google sheets de çalışmadı.
Çok Teşekkürler
Hastanede düzenlenen mifin tutarini aşağı tarafa yazı ile yazmasını istiyorum ama yapamadım.
eyvallah hocam
çok teşekkürler süperdi
Sonu sıfır ile bitenleri yapamıyor. 375.000 i üç yüz yetmiş beş bin sıfır olarak çeviriyor
teşekkürler çok faydalı
ben yazıyı sayıya çevirmek istiyorum; örneğin ilkokul için 1; ortaokul için 2 ; lise için 3 ; üniversite için 4; yükseklisans için 5 gibi ,
Program Rakamları yuvarlıyor, Virgülden sonrası yok, Ayrıca yeni bir Excel sayfası açtığınızda formül işlemiyor.
ama bir sıkıntı oldu
türkçe karekterleri çıkmıyor ş ,,,,
virgülden sonra sıfır olunca hatalı oluyor
Videoda görülen diğer makroları kullanmanız gerekiyor.
Ben yapamadim
Bir tane adam akıllı çeviri ulaşamadım hepsi kuruşları çeviremiyor bir işe yaramaz çöpppp
'Aşağıdaki kodu kullanabilirsiniz:
Function SayiYaziya(Sayi As Currency) As String
Dim Birler As Variant, Onlar As Variant
Dim SayiStr As String, Lira As Long, Kurus As Long
Dim LiraStr As String, KurusStr As String
Birler = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
Onlar = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
' Sayıyı formatla ve Lira ile Kurus kısımlarını ayır
SayiStr = Format(Sayi, "0.00")
Lira = CLng(Fix(Sayi))
Kurus = (Sayi - Lira) * 100
' Lira kısmını yazıya çevir
If Lira = 0 Then
LiraStr = "Sıfırlira"
Else
LiraStr = ""
Dim Basamak As Integer
Dim Grup As Integer, Bolum As Long, Modulus As Long
Dim Parca As String
For Grup = 0 To 3
Bolum = (Lira \ 10 ^ (Grup * 3)) Mod 1000
If Bolum > 0 Then
Parca = ""
If Bolum >= 100 Then
Parca = Birler(Bolum \ 100) & "Yüz"
Bolum = Bolum Mod 100
End If
If Bolum >= 10 Then
Parca = Parca & Onlar(Bolum \ 10)
Bolum = Bolum Mod 10
End If
If Bolum > 0 Then
Parca = Parca & Birler(Bolum)
End If
Select Case Grup
Case 1
Parca = Parca & "Bin"
Case 2
Parca = Parca & "Milyon"
Case 3
Parca = Parca & "Milyar"
End Select
LiraStr = Parca & LiraStr
End If
Next Grup
LiraStr = LiraStr & "lira"
End If
' Kurus kısmını yazıya çevir
If Kurus = 0 Then
KurusStr = ""
Else
KurusStr = " " & Onlar(Kurus \ 10) & Birler(Kurus Mod 10) & "kuruş"
End If
SayiYaziya = LiraStr & KurusStr
End Function