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, 21: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, 22: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, 21:52   #3
Hüseyin
Administrator
 
Giriş: 01/06/2004
Şehir: ÇORLU
Mesaj: 3,566
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 22-07-2004, 23: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, 18:00   #5
Hüseyin
Administrator
 
Giriş: 01/06/2004
Şehir: ÇORLU
Mesaj: 3,566
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 01:04


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden