Fonksiyon Katagorisi, ve Yardım Menüsü ekleme

hsayar · 27 Şubat 2008

http://www.excel.web.tr/showpost.php?p=117841&postcount=1
başlığında bulunan dosyayı indirdim ve bir çok şeye karşı merakım uyandı.
Yapılabilen ama benim yapamadığım şeyler....

Dosya adıyla intenette arama yapınca xla nın şifresinide buldum: Morefunc

ve kodları incelemeye başladım ama anlamadım. yardım edebilirseniz sevinirim.

1) formül çubuğunda f(x) tıklanınca seçilen katagori seçin başlığına Kendi Katogri Başlığımızı nasıl ekleriz (örneğimizdeki başlık more funtion gb.)

2) Fonksiyonlara yardım menüsü nasıl eklenir?

3) xll ve xla arasındaki fark nedir? nasıl hazırlanır?

hsayar · 27 Şubat 2008

Mesala Aşağıdaki fonksiyonumuzu Module yazdıktan sonra

Kod:

Function Sayidan_Harfe(ByVal sayi As Double, Optional ByVal bHARF As Boolean = False)
'__________________________________________________________________________________________________
'<<||||||||||||||||||||          1 den 25259 a kadar olan sayıları          ||||||||||||||||||||>>'
'<<||||||||||||||||||||              harf olarak döndürür.                  ||||||||||||||||||||>>'
'<<||||||||||||||||||||-----------------------------------------------------||||||||||||||||||||>>'
'<<||||||||||||||||||||            hsayar - www.excel.web.tr                ||||||||||||||||||||>>'
'<<||||||||||||||||||||                 25/02/2008 - 20:40                  ||||||||||||||||||||>>'
'<<||||||||||||||||||||_____________________________________________________||||||||||||||||||||>>'
'=================================================================================================§

Arr_abc = Array("z", "a", "b", "c", "ç", "d", "e", "f", "g", "ğ", "h", "ı", "i", "j", "k", "l", _
                             "m", "n", "o", "ö", "p", "r", "s", "ş", "t", "u", "ü", "v", "y", "z")
bln = 29
Anlam = WorksheetFunction.Ceiling(sayi / bln, 1) 'TavanaYuvarla(Sayi, Anlam) fonsiyonu
sharf = ""
For syc = Anlam To 1 Step -1
     If Anlam > 0 And Anlam <= 1 Then
        sharf = Arr_abc(sayi): Exit For
     ElseIf Anlam > 1 And Anlam <= 30 Then
        sharf = Arr_abc((syc - 1) Mod bln) & Arr_abc((sayi Mod bln)): Exit For
    ElseIf Anlam > 30 And Anlam <= 871 Then
        tmp1 = WorksheetFunction.Ceiling(Anlam / (bln / 100), 0.001)
        tamkat = Int((tmp1) / 100) * 100
        fark = Int((tmp1 - tamkat) * 1000)
            If fark = 0 Or fark = 3449 Then
                ix = (Int(tamkat / 100) - 1)
            Else
                ix = (Int(tamkat / 100))
        End If
        sharf = Arr_abc(ix) & Arr_abc((syc - 1) Mod bln) & Arr_abc((sayi Mod bln)): Exit For
    Else
        sharf = sayi
    End If
Next syc

If bHARF = False Then
     Sayidan_Harfe = sharf
Else
     Sayidan_Harfe = UCase(Replace(Replace(sharf, "ı", "I"), "i", "İ"))
End If
End Function

THISWORKBOOKA

Kod:

Private Sub prvFonksiyonKılavuzu()
    On Error Resume Next
    With Application
        .MacroOptions macro:="Sayidan_Harfe", _
                Description:="1(A) den 25259(ZZZ) a kadar olan sayıları harf olarak döndürür." & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "Excel.web.tr."

   End With
   On Error GoTo 0
End Sub

prosodürü tanımlanıp

yine
THISWORKBOOKta

Kod:

Private Sub Workbook_Open()
...............    
    Call prvFonksiyonKılavuzu               'Fonksiyonların açıklamalarını çağır.
..............
End Sub

eklediktan sonra aşğaıdaki görüntü oluşur
1 nolu resim

2nolu resim

3nolu resim

SORULAR
1) 1 Nolu resimde görülen Katagori seçin başlığına kendimiz ad tanımlayabilrimiyiz.

2) 2 nolu resimde Sayi ve Bharf değişknleri tanımlanmış... abcak açıklma ekleyemedim...
Ancak 3 nolu resimdede görüldüğü üzere Sayı_Rakmalar değişkenine açıklma eklenmiş biz kendimiz nerede ekleme yapmalayız....

3) Ayrıca Fonksiyon yardım linkine kendi fonksiyon yardım linkimizi nasıl atarız.
devam edecek........

hsayar · 29 Şubat 2008

GÜnaydın.
Güncel yardım edebilirseniz sevinirim.

Ferhat Pazarçevirdi · 29 Şubat 2008

Aşağıdaki prosedürü kullanınız. Bu prosedürü, Thsiworkbook'un Open olayında veya Aut

pen prosedürüne ilave ederseniz, dosya açıldığında otomatik olarak, yeni kategori ve fonksiyon açıklamaları devreye girecektir.

NOT : Fonksiyonunuzun başına "Private" deyimini ilave ederseniz, "Kullanıcı Tanımlı" grubunda değil, "HSayar'a Özel Fonksiyonlar" grubunda görüntülenir.

Kod:

Sub Fonksiyon_Tanit()
Dim a01$, a02$, a03$, a04$, a05$, a06%, a07$, a08$, a09$, a10$, a11$, a12$
a01 = Chr(34) & "C:\Windows\System32\User32.dll" & Chr(34) 'Kütüphane
a02 = Chr(34) & "CharPrevA" & Chr(34)
a03 = Chr(34) & "PPP" & Chr(34)
a04 = Chr(34) & "Sayidan_Harfe" & Chr(34)
a05 = Chr(34) & "Sayi, Büyük Harf" & Chr(34)
a06 = 1
a07 = Chr(34) & "HSayar'a Özel Fonksiyonlar" & Chr(34)
a08 = "" 'Kısayol
a09 = "" 'Yardım
a10 = Chr(34) & "Bu fonksiyon, bir sayidan harf üretir" & Chr(34)
a11 = Chr(34) & "Bir tamsayı giriniz" & Chr(34) & "," _
    & Chr(34) & "Büyük harf giriniz" & Chr(34)
Application.ExecuteExcel4Macro "REGISTER(" & a01 & "," _
                                           & a02 & "," _
                                           & a03 & "," _
                                           & a04 & "," _
                                           & a05 & "," _
                                           & a06 & "," _
                                           & a07 & "," _
                                           & a08 & "," _
                                           & a09 & "," _
                                           & a10 & "," _
                                           & a11 & ")"
End Sub

hsayar · 29 Şubat 2008

Hocam Gerçekten alakanıza çok teşekkür ederim. Yüzsüzlüğüme verirseniz bir soru daha sormak istiyorum
bu benim yaptığım Sayidan_Harfe fonksiyonu fonksiyonu, birde bir kaç gündür çalıştığımız sizin hazırladığınız benim değiştirdiğim benzersiz_kayit fonksiyonu var herbiri için ayrı ayrı mı yapacağız yoksa bir kerede yapabilirmiyiz.

Ferhat Pazarçevirdi · 29 Şubat 2008

Eğer tek seferde yapmak istiyorsanız(Prosedürü çoğaltmadan), bu prosedürü parametrik hale getirip; parametreleri, hem Sayidan_Harfe, hem de Benzersiz_kayit fonksiyonu için ayrı ayrı gönderebilirsiniz.

hsayar · 29 Şubat 2008

Hocam çok teşekkürler.. yarın bu işle ilgileneceğim ....
umarım istediğim sonucu alaırım yalnız denediğim kadarıyla xla belgesinde Fonksiyonu private olarak tanımlamak Fonksiyonlarım.xla yı referans olarak tanımlayınca vba modulünden çağrılmasına engel oluyor.
Hem Kendi Yazdığım Fonksiyonların özel katogride görünmesi, hemde diğer belgelerimin vbe modulünde kullanabilmek istiyorum... bİliyorum çok şey istiyorum ama .... hakkımızda hayırlısı.

Hemen denedim Dediğim gibi Private Function UCaseTr(ByVal metin As String)

yapınca referans olarak dosya tanımlı olmasına rağmen Not defined hatası verdi. Privateyi kaldırınca sonuç döndü.

Kod:

Function UCaseTr(ByVal metin As String)
'__________________________________________________________________________________________________
'<<|||||||||||||||||||| Bir metin içerisinde Microsoftun ||||||||||||||||||||>>'
'<<|||||||||||||||||||| Ucase Fonksiyonu ile büyük harfe ||||||||||||||||||||>>'
'<<|||||||||||||||||||| dönmeyen karakterleri düzeltir. ||||||||||||||||||||>>'
'<<||||||||||||||||||||-----------------------------------------------------||||||||||||||||||||>>'
'<<|||||||||||||||||||| hsayar - [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] ||||||||||||||||||||>>'
'<<|||||||||||||||||||| 12/11/2007 - 15:40 ||||||||||||||||||||>>'
'<<||||||||||||||||||||_____________________________________________________||||||||||||||||||||>>'
'=================================================================================================§
UCaseTr = UCase(Replace(Replace(metin, "ı", "I"), "i", "İ"))
End Function

hsayar · 29 Şubat 2008

sn hocam Public bir fonksiyonu "HSayar'a Özel Fonksiyonlar" grubunda görüntülemek için yapılacak bir işlem varmıdır.

(NOT : Fonksiyonunuzun başına "Private" deyimini ilave ederseniz, "Kullanıcı Tanımlı" grubunda değil, "HSayar'a Özel Fonksiyonlar" grubunda görüntülenir)

a02 = Chr(34) & "CharPrevA" & Chr(34)

hsayar · 29 Şubat 2008

Sn Ferhat hocam fonksiyonu private yapmadanda kendi grubuna geldi ancak

Kod:

Private Sub Fonksiyon_Tanit()
Dim a01$, a02$, a03$, a04$, a05$, a06&#37;, a07$, a08$, a09$, a10$, a11$, a12$
a01 = Chr(34) & "C:\Windows\System32\User32.dll" & Chr(34) 'K&#252;t&#252;phane
a02 = Chr(34) & "CharPrevA" & Chr(34)
a03 = Chr(34) & "PPP" & Chr(34)
a04 = Chr(34) & "Sayidan_Harfe" & Chr(34)
a05 = Chr(34) & "Sayi, B&#252;y&#252;k Harf" & Chr(34)
a06 = 1
a07 = Chr(34) & "HSayar'a &#214;zel Fonksiyonlar" & Chr(34)
a08 = "" 'K&#305;sayol
a09 = "" 'Yard&#305;m
a10 = Chr(34) & "1(A) den 25259(ZZZ) a kadar olan say&#305;lar&#305; harf olarak d&#246;nd&#252;r&#252;r." & Chr(34)
a11 = Chr(34) & "Bir tamsay&#305; veya h&#252;cre giriniz" & Chr(34) & "," _
[COLOR=red][B]   & Chr(34) & "K&#252;&#231;&#252;k harf ile yaz&#305;lacak" & Chr(34)[/B][/COLOR]
    '& Chr(34) & "B&#252;y&#252;k Harf ise 1, K&#252;&#231;&#252;k Harf ile yaz&#305;lacaksa 0, giriniz." & Chr(34)
Application.ExecuteExcel4Macro "REGISTER(" & a01 & "," _
                                           & a02 & "," _
                                           & a03 & "," _
                                           & a04 & "," _
                                           & a05 & "," _
                                           & a06 & "," _
                                           & a07 & "," _
                                           & a08 & "," _
                                           & a09 & "," _
                                           & a10 & "," _
                                           & a11 & ")"
End Sub

a11 değişkeninde Fonksiyona ait değişkenin açıklamasını tamamlayamıyoruz
& Chr(34) & "Küçük harf ile yazılacak" & Chr(34) şeklinde kalıyor.
& Chr(34) & "Küçük harf ile yazılacaks" & Chr(34) fazladan girdiğimiz harfte hata veriyor. Run-time error 1004 hatası veriyor.

halbuki 2 nolu mesajdaki 3 nolu resimde uzun uzadıya açıklama yapabiliyoruz. aşmanın bir yolu varmıdır.?

hsayar · 2 Mart 2008

iyi akşamlar.
Application.ExecuteExcel4Macro yönteminde Fonksiyon açıklamalarının daha uzun tulduğu durumlardaki Düzenleme nasıl olmalıdır.

veya Application.MacroOptions yönteminde fonksiyon değişkenlerine açıklama nasıl eklenir. yani Sayıdan_Harfe fonksiyonunun Tamsayı ve büyük harf değişkanlerine.

yardım edebilirseniz sevinirim.

hsayar · 7 Mart 2008

hsayar' Alıntı:
iyi akşamlar.
Application.ExecuteExcel4Macro yönteminde Fonksiyon açıklamalarının daha uzun tulduğu durumlardaki Düzenleme nasıl olmalıdır.

veya Application.MacroOptions yönteminde fonksiyon değişkenlerine açıklama nasıl eklenir. yani Sayıdan_Harfe fonksiyonunun Tamsayı ve büyük harf değişkenlerine.

yardım edebilirseniz sevinirim.

güncel yardım edebilirseniz sevinirim.

hsayar · 8 Mart 2008

güncel yardım edebilirseniz sevinirim.

hsayar · 10 Mart 2008

güncel yardım edebilirseniz sevinirim.

hsayar · 13 Mart 2008

Günaydın
Güncel Yardım edebilirserniz sevinirim.

Fonksiyon Katagorisi, ve Yardım Menüsü ekleme

hsayar

hsayar

hsayar

Ferhat Pazarçevirdi

Özel Üye

hsayar

Ferhat Pazarçevirdi

Özel Üye

hsayar

hsayar

hsayar

hsayar

hsayar

hsayar

hsayar

hsayar