Kullanıcı tanımlı fonkisyonlarda "help" bilgisi

[tamer42]

Merhabalar,
Yazmakta olduğumuz bir kullanıcı tanımlı fonkisyonda ekrana yardım (help) bilgisinin de gelmesini nasıl sağlayabiliriz?

Function SutunHarf(Sut_No As Long) As String
' Bu fonksiyon sütun numarasını Harf' e dönüştürür.

    On Error Resume Next
    SutunHarf = Application.Substitute(Application.ConvertFormula("R1C" & Sut_No, _
        xlR1C1, xlA1, 4), "1", "")
End Function

Teşekkürler, iyi çalışmalar.

 

[hamitcan]

Benzer bir konu...
http://www.excel.web.tr/f48/fonksiyon-katagorisi-ve-yardym-menusu-ekleme-t46100.html

 

[tamer42]

Benzer bir konu...
http://www.excel.web.tr/f48/fonksiyon-katagorisi-ve-yardym-menusu-ekleme-t46100.html

Sn Hamitcan teşekkürler,

ekli linkte verilen örnekteki

Function Sayidan_Harfe(ByVal sayi As Double, Optional ByVal bHARF As Boolean = False)
.................
End Function

fonksiyonunda tamam, açıklama blgisi ekrana geliyor.

yalnız bu durumu kendi fonksiyonumuma uyguladığımda çalışmıyor.

Function SutunHarf(Sut_No As Long) As String
' Bu fonksiyon sütun numarasını Harf' e dönüştürür.

    On Error Resume Next
    SutunHarf = Application.Substitute(Application.ConvertFormula("R1C" & Sut_No, _
        xlR1C1, xlA1, 4), "1", "")
End Function

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

Private Sub prvFonksiyonKılavuzu()
    On Error Resume Next
    With Application
        .MacroOptions macro:="SutunHarf", _
                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

 

[hamitcan]

Açıkcası, ben konuyu fazla incelemedim bu yüzden birşey diyemeceğim.

 

[Zeki Gürsoy]

Bu konuda örnek bulmak biraz zor oluyor.

Sub auto_open()
    RegisterFucntion
End Sub

Sub RegisterFucntion()
    Dim vArgDescr(1 To 19) As Variant
    Dim lCt As Long
    For lCt = 1 To 19
        vArgDescr(lCt) = "Description for argument # " & lCt
    Next
    Application.MacroOptions _
                             Macro:="UDFTest", Description:="Test function with 19 arguments", _
                             Category:="UDF Helper demo", _
                             HelpContextID:=10000, _
                             HelpFile:=ThisWorkbook.Path & "\CHM-example.chm", _
                             ArgumentDescriptions:=vArgDescr
End Sub

Public Function UDFtest(Optional arg1, Optional arg2, Optional arg3, _
        Optional arg4, Optional arg5, Optional arg6, Optional arg7, _
        Optional arg8, Optional arg9, Optional arg10, _
        Optional arg11, Optional arg12, Optional arg13, _
        Optional arg14, Optional arg15, Optional arg16, _
        Optional arg17, Optional arg18, Optional arg19) As String

    UDFtest = "Test!"

End Function

 

[tamer42]

Sn Zeki teşekkürler,

Sub auto_open()
    RegisterFucntion
End Sub

auto_open ile çalıştığı için sadece ilgili çalışma kitabında kullanılabiliyor,

tüm çalışma kitaplarına genelleştirmek için nasıl bir düzenleme yapılabilir?

iyi çalışmalalr.

 

[Zeki Gürsoy]

Fonksiyonları içeren dosyayı "eklenti" olarak kaydedin.

 

[tamer42]

Fonksiyonları içeren dosyayı "eklenti" olarak kaydedin.

Sn Zeki dosyayı eklenti olarak kaydettim, yine olmadı.

Sanırım Class Module uygulamak gerekli,

teşekkürler, iyi çalışmalar.

 

[Zeki Gürsoy]

Eklentyi "aktif" ettiniz mi?

 

[tamer42]

Eklentyi "aktif" ettiniz mi?

Sn Zeki Eklenti aktif,

fonksiyon çalışıyor, sadece açıklama bilgileri gelmiyor...

Private Sub prvFonksiyonKılavuzu()
  .............
End Sub

bu kodu manuel olarak çalıştırdıktan sonra; fonksiyonun açıklama bilgileri görünütleniyor.

manuel yerine otomatik çalışmasını sağlayacak bir yol arıyorum.

bu sorunun Class Module yoluyla çözülebileciğini zannediyorum.

iyi çalışmalar.

 

[Zeki Gürsoy]

Class module kanısına nasıl vardınız?
"Private Sub prvFonksiyonKılavuzu" başındaki "Private" in ne anlama geldiğini açıklayabilir misiniz?

Ki, "Sub" yani prosedur, değer bile döndürmez.

 

[tamer42]

Class module kanısına nasıl vardınız?
"Private Sub prvFonksiyonKılavuzu" başındaki "Private" in ne anlama geldiğini açıklayabilir misiniz?

Ki, "Sub" yani prosedur, değer bile döndürmez.

Sn Zeki merhaba,

Sub auto_open()

kodunu tüm çalışma kitaplarına uygulayabilmek için Class module ile yapılır diye şey duymuştum,

Private Sub prvFonksiyonKılavuzu

başındaki "Private" (Özel) in ne anlama geldiği konusuna gelince sadece bulunduğu modul içerisinde çağrılabilir, başka bir modulden çağrılamaz diye biliyorum.

iyi çalışmalar.