fonksiyon ekleme

[gul21]

Benim sorum excel fonksiyon çubuğuna yeni bir fonksiyon eklenebilir mi? örneğin yaz(5)=Beş diye mesela

 

[genesis]

Benim sorum excel fonksiyon çubuğuna yeni bir fonksiyon eklenebilir mi? örneğin yaz(5)=Beş diye mesela

Aşağıdaki kodu bir modüle kopyalayıp kullanabilirsiniz.

Function yaz$(sayi)
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v$(15)
Dim c$(3)
b$(0) = ""
b$(1) = "BİR"
b$(2) = "İKİ"
b$(3) = "ÜÇ"
b$(4) = "DÃ?RT"
b$(5) = "BEÞ"
b$(6) = "ALTI"
b$(7) = "YEDİ"
b$(8) = "SEKİZ"
b$(9) = "DOKUZ"
y$(0) = ""
y$(1) = "ON"
y$(2) = "YİRMİ"
y$(3) = "OTUZ"
y$(4) = "KIRK"
y$(5) = "ELLİ"
y$(6) = "ALTMIÞ"
y$(7) = "YETMİÞ"
y$(8) = "SEKSEN"
y$(9) = "DOKSAN"
m$(0) = "TRILYON"
m$(1) = "MİLYAR"
m$(2) = "MİLYON"
m$(3) = "BİN"
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
a$ = ""
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$ = "BİRBİN") Then e$ = "BİN"
s$ = s$ + e$
Next x
If s$ = "" Then s$ = "SIFIR"
If pozitif = 0 Then s$ = "" + s$
yaz$ = s$
GoTo tamam
hata: yaz$ = "hata"
tamam:
End Function

:uyku:

 

[Hüseyin]

Merhaba genesis,
bu kodu Makro örnekleri altına ayrıca bir defa daha atsak faydalı olmazmı?
Zira bu başlık altında belki bulunması diğer kullanıcılar için daha zor olabilir.

:hey:

 

[genesis]

Forum sizin , ben ne desem boş :hihoho:


:uyku:

 

[Hüseyin]

Merhaba @genesis,
"Forum Benim" anlayışı, bu forum için geçerli değildir.
Böyle bir görüntü oluştuysa bundan dolayı üzgünüm. :agla:
Zaten daha bu forumu kurarken @Red-Kid ve @Türker arkadaşlarla yola çıkmamız bu farklı anlayışın bir göstergesidir.
Sizlerin de katılımıyla bu demokratik ortam gelişecek ve zaman bize bu söylediklerimizi ıspatlama fırsatı verecektir.

Ben sadece bu forumun teknik altyapısını sağlıyorum.
Benim özlediğim excel.web.tr herkesin benimseyeceği bir forum ortamının oluşmasıdır. Soruların diğer üyeler tarafından yanıtlandığı, kararların belirli çoğunluğun katılımıyla alındığı ve kendi başına büyüyen ve gelişen bir forum.
"Yetki Devri"ne inanan bir insanım. Bu yüzden yakın zamanda @Red-Kit ve @Türker'in haricinde başka arkadaşları da Moderatör olarak görebileceksiniz.
EXCEL'i çok seviyoruz ve daha fazla ve etkili kullanılmasını teşvik etmek amacıyla buradayız.
vs. vs. vs.
...ama gelin bunları zamana bırakalım ve bu söylediklerimizi yaşayarak ıspatlayalım.

Sanırım tatildeyken fazla yazamadığım için acısını bu başlıkta çıkarttım. :hihoho:

Saygılarımla
:hey: