rakamı yazıya çeviren makroyu bütün xls dosyalarına al

[ssakman2]

rakamı yazıya çeviren makrolu bir dosyam var bu makrolu dosyadaki maroyu bilgisayarımdaki açtığım ve açacağım bütün exel dosyalarına nasıl atabilirim bunu kısa bir yolu var mı

birde daha önce yazılmış bir rakamı yazıya çeviren makrolu dosyalardaki makroyu nasıl silebilirim


şimdiden ellerinize sağlık

 

[shocaoglu]

Rakkamı yazıya çevirme

2000 veya xp işletim sistemi kullanıyorsan
göndereceğim dosyaları aşağıda belirtiğim yere kopyalarsın
c:/Documents and setting/shocaoglu(burada kullanıcı ismi veya bilgisayar ismi vardır/Application Data/Microsoft/Excell/xlstart

 

[ssakman2]

hocam eline sağlık
yanlız bi problem var gönderdiğin dosyadaki makro galiba tl olarak değil ve de virgüleri ayırtedemiyor makrolarını değiştirebilmem için şifrelerini verebilirmisin yada daha önce gönderdiğiğim makroyu sen ekleyebilirmisin teşekkürler

deneme sayfasında yaptığım işlem aşağıdaki sayfada

 

[ssakman2]

hocam eline sağlık
yanlız bi problem var gönderdiğin dosyadaki makro galiba tl olarak değil ve de virgüleri ayırtedemiyor makrolarını değiştirebilmem için şifrelerini verebilirmisin yada daha önce gönderdiğiğim makroyu sen ekleyebilirmisin teşekkürler

deneme sayfasında yaptığım işlem aşağıdaki sayfada

shocaoglu,

2000 veya xp işletim sistemi kullanıyorsan
göndereceğim dosyaları aşağıda belirtiğim yere kopyalarsın
c:/Documents and setting/shocaoglu(burada kullanıcı ismi veya bilgisayar ismi vardır/Application Data/Microsoft/Excell/xlstart

hocam eline sağlık
yanlız bi problem var gönderdiğin dosyadaki makro galiba tl olarak değil ve de virgüleri ayırtedemiyor makrolarını değiştirebilmem için şifrelerini verebilirmisin yada daha önce gönderdiğiğim makroyu sen ekleyebilirmisin teşekkürler

 

[abazya]

birde daha önce yazılmış bir rakamı yazıya çeviren makrolu dosyalardaki makroyu nasıl silebilirim

Makro silme

Silmek istediğiniz makroyu (makro: Görevleri otomatikleştirmek için kullanabileceğiniz bir eylem veya eylem kümesi. Makrolar Visual Basic for Applications programlama dilinde kaydedilir.) içeren çalışma kitabını açın.

Araçlar menüsünden Makro'yu seçin, sonra Makrolar'ı tıklatın.

Makro yeri listesinde, Bu Çalışma Kitabı'nı tıklatın.

Makro adı kutusunda, silmek istediğiniz makro adını tıklatın.

Sil'i tıklatın.

 

[shocaoglu]

ssakman2,

Public Function YaziylaYTL(cTutar As Currency) As String
Dim cLira As Currency, cKurus As Currency, sStr As String, bEksi As Boolean
If cTutar < 0 Then cTutar = -cTutar: bEksi = True
cLira = Int(cTutar)
cKurus = Left((cTutar - cLira) * 100, 2)
If cLira = 0 Then
sStr = ""
Else
sStr = Yaziyla(cLira) & "yenitürklirası"
End If
If cKurus = 0 Then
sStr = sStr & ""
Else
sStr = sStr & IIf(sStr <> "", ", ", "") & Yaziyla(cKurus) & "Yenikuruş"
End If
If sStr = "" Then sStr = "sıfır"
If bEksi Then sStr = "eksi" & sStr
YaziylaYTL = sStr
End Function

Private Function Yaziyla(cTutar As Currency) As String
On Error Resume Next
Dim iUzunluk As Integer, a1 As Double, a2 As Double, iHaneSayisi As Integer, sTamSayi As String, X As Integer, Y As Integer, sHane(1 To 5) As String, sYazi(1 To 5) As String
Dim sBir(9) As String, sOn(9) As String, sYüz As String, sGrup(1 To 5) As String
sBir(0) = ""
sBir(1) = "bir"
sBir(2) = "iki"
sBir(3) = "üç"
sBir(4) = "dört"
sBir(5) = "beş"
sBir(6) = "altı"
sBir(7) = "yedi"
sBir(8) = "sekiz"
sBir(9) = "dokuz"
sOn(0) = ""
sOn(1) = "on"
sOn(2) = "yirmi"
sOn(3) = "otuz"
sOn(4) = "kırk"
sOn(5) = "elli"
sOn(6) = "altmış"
sOn(7) = "yetmiş"
sOn(8) = "seksen"
sOn(9) = "doksan"
sGrup(1) = ""
sGrup(2) = "bin"
sGrup(3) = "milyon"
sGrup(4) = "milyar"
sGrup(5) = "trilyon"
iUzunluk = Len(CStr(cTutar))
a1 = CInt(iUzunluk / 3)
a2 = iUzunluk / 3
If a2 > a1 Then iHaneSayisi = a1 + 1 Else iHaneSayisi = a1
sTamSayi = String$((iHaneSayisi * 3) - iUzunluk, "0") & CStr(cTutar)
For X = 1 To iHaneSayisi * 3
If X = 1 Then
sHane(X) = Mid$(sTamSayi, X, 3)
Else
sHane(X) = Mid$(sTamSayi, X * 3 - 2, 3)
End If
Next
For X = 1 To iHaneSayisi
For Y = 1 To 3
If Y = 1 Then
If Mid$(sHane(X), Y, 1) = "1" Then
sYazi(X) = sYazi(X) + "yüz"
ElseIf Mid$(sHane(X), Y, 1) = "0" Then
sYazi(X) = sYazi(X)
Else
sYazi(X) = sYazi(X) + sBir(Mid$(sHane(X), Y, 1)) + "yüz"
End If
ElseIf Y = 2 Then
If Mid$(sHane(X), Y, 1) = "0" Then
sYazi(X) = sYazi(X)
Else
sYazi(X) = sYazi(X) + sOn(Mid$(sHane(X), Y, 1))
End If
ElseIf Y = 3 Then
If Mid$(sHane(X), Y, 1) = "" Then
sYazi(X) = sYazi(X)
Else
If CInt(Mid$(sHane(X), Y, 1)) = 1 And Left$(sHane(X), 2) = "00" And X = iHaneSayisi - 1 Then
sYazi(X) = sYazi(X) + sGrup(iHaneSayisi + 1 - X)
Else
sYazi(X) = sYazi(X) + sBir(Mid$(sHane(X), Y, 1)) + sGrup(iHaneSayisi + 1 - X)
End If
End If
End If
Next
Next
Yaziyla = sYazi(1) + sYazi(2) + sYazi(3) + sYazi(4) + sYazi(5)
End Function

birde bunu denermisin

 

[ssakman2]

birde bunu denermisin

shocaoglu ÜSTAT ELİNE SAÐLIK BU SEFER BAÞARDIM SAÐOL :hey: