Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-07-2004, 22:12   #1
gul21
 
Giriş: 21/07/2004
Mesaj: 15
Varsayılan fonksiyon ekleme

Benim sorum excel fonksiyon çubuğuna yeni bir fonksiyon eklenebilir mi? örneğin yaz(5)=Beş diye mesela
__________________
Excel XP-Türkçe
gul21 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-07-2004, 23:53   #2
genesis
 
Giriş: 15/07/2004
Mesaj: 31
Varsayılan Re: fonksiyon ekleme

Alıntı:
gul21 tarafından gönderildi
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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
genesis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-07-2004, 22:52   #3
Hüseyin
Administrator
 
Giriş: 01/06/2004
Şehir: ÇORLU
Mesaj: 3,552
Excel Vers. ve Dili:
Excel 2010 - Türkçe
Varsayılan

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.

__________________
Hüseyin
--------------------------------------------
Linkedin kullanıyorsanız bağlantılarınıza ekleyebilirsiniz.

LÜTFEN EXCEL SORUSU SORMAK İÇİN EKLEMEYİN.
ÖZELDEN SORU YANITLAMIYORUM!!!

Hüseyin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-07-2004, 00:09   #4
genesis
 
Giriş: 15/07/2004
Mesaj: 31
Varsayılan

Forum sizin , ben ne desem boş


genesis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-07-2004, 19:00   #5
Hüseyin
Administrator
 
Giriş: 01/06/2004
Şehir: ÇORLU
Mesaj: 3,552
Excel Vers. ve Dili:
Excel 2010 - Türkçe
Varsayılan

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.
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.

Saygılarımla
__________________
Hüseyin
--------------------------------------------
Linkedin kullanıyorsanız bağlantılarınıza ekleyebilirsiniz.

LÜTFEN EXCEL SORUSU SORMAK İÇİN EKLEMEYİN.
ÖZELDEN SORU YANITLAMIYORUM!!!

Hüseyin Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:45


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden