ThisWorkbook.IsAddin, #If VBA6 Then vs şeklindekli kodların anlamları?

[hsayar]

Aşağıdaki kodların anlamı nedir?

Private Sub Workbook_Open()
Dim strFontList As String
Dim blnCheckResp As Boolean

' ŠÖ”“\‚è•t‚¯ƒ_ƒCƒAƒƒO‚Å•\Ž¦‚³‚ê‚éƒRƒƒ“ƒg‚Ì“o˜^
    Call prvFunctionGuide
    
' ƒtƒHƒ“ƒgƒŠƒXƒg‚̎擾(ƒAƒhƒCƒ“/‘ÌŒ±ƒuƒbƒN—¼•û‚ŎÀs)
    If (ThisWorkbook.IsAddin = True) Then
        #If VBA6 Then
            'Excel2000ˆÈ~(API‚Ŏ擾‚·‚é‚̂ŃAƒhƒCƒ“‰ğœ‚Í•s—v)
            Call prvFontListGet("Init", 0, strFontList, blnCheckResp)
        #Else
            '—LŒø‚ȃV[ƒg‚ª–³‚¢‚ƤƒtƒHƒ“ƒgƒƒjƒ…[‚©‚ç‚̎擾‚ªo—ˆ‚È‚¢‚Ì‚Å
            'ˆêŽž“I‚É[IsAddin]‚ğ‰ğœ‚·‚é(Excel97)
            Application.ScreenUpdating = False
            ThisWorkbook.IsAddin = False
        
            Call prvFontListGet("Init", 0, strFontList, blnCheckResp)
        
            ThisWorkbook.IsAddin = True
            ThisWorkbook.Saved = True
            Application.ScreenUpdating = True
        #End If
    Else
        Call prvFontListGet("Init", 0, strFontList, blnCheckResp)
    End If

' Welcom ƒƒbƒZ[ƒW‚Ì•\Ž¦(‘ÌŒ±ƒuƒbƒN‚Ì‚İ)
'    If (Worksheets("Information").Range("L6").Value = True) Then
'        Call Trial01
'    End If
End Sub

 

[hsayar]

http://www.excel.web.tr/showthread.php?p=244425#post244425

linkinde eklentiyi verdim.
kodlar
ktMsgBoxAddin.xla
dosyasında
+microsoft excel objects
+>Thisworkbookta yer alıyor

 

[hsayar]

ThisWorkbook.IsAddin = True ne demekt,r?
#If VBA6 Then
saırındayer alan
# işareti kontrole hangi anlamı katmaktadır?

saygıarımla

 

[hsayar]

güncel yardımlarınız için teşekkür ederim

 

[hsayar]

ThisWorkbook.IsAddin = True ne demekt,r?
#If VBA6 Then
satırlarında yer alan
# işareti kontrole hangi anlamı katmaktadır?

güncel yardımlarınız için teşekkür ederim

 

[hsayar]

http://www.ozgrid.com/forum/showthread.php?t=26856
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_23140914.html
http://xcell05.free.fr/english/func_cats.htm
buralarda birşeyler yazıyor sanki ama ne işe yaradığını kavrayamadım.

 

[Ferhat Pazarçevirdi]

Merhabalar

Thisworkbook.IsAddin, çalışma kitabı yapısının addin (eklenti) olup olmadığını kontrol eder.

VBE'ye girdiğinizde, Thisworkbook'un Properties'inde IsAddin özelliğinin, default olarak False olduğunu görürsünüz.. Bunu; True olarak değiştirirseniz, sheet görüntüsünün kaybolduğunu görürsünüz.

Bu elle yaptığınız işlemin, kod karşılığı da, sizin bahsettiğiniz, Thisworkbook.IsAddin=True 'dur. False'a eşitlerseniz, dosya eklenti olmaktan çıkar, normal bir Excel Çalışma kitabı (xls) halini alır.

Diyez (Sharp, #) işareti ben daha önce hiç kullanmadım ve karşılaşmadım da ... Belki VB'nin daha alt versiyonlarında kullanılan ve şimdi çok kullanılmayan bir özellik olabilir.

Diyezleri kaldırdığınızda, prosedür aksamıyorsa, problem yok demektir.

 

[hsayar]

hocam ilginize teşekkür ederim yalnız tama olarak ne işe yaradığını hala anlamadım

eğer Eklentilerden xxx.xla yı işaretlemişsek dosyayı görmüyoruz bile ne fayda sağlıyor bu kontrol çözemedim.

 

[hsayar]

Merhabalar

Diyez (Sharp, #) işareti ben daha önce hiç kullanmadım ve karşılaşmadım da ... Belki VB'nin daha alt versiyonlarında kullanılan ve şimdi çok kullanılmayan bir özellik olabilir.

Diyezleri kaldırdığınızda, prosedür aksamıyorsa, problem yok demektir.

Compile Erro Hidden module Thisworkbook hatası veriyor hocam diezleri kaldırınca.

 

[hsayar]

kitapta #If Geçen diğer kodlar

Public Static Sub prvFontListGet(ByVal Action As String, _
                                 ByVal Idx As Integer, _
                                 ByRef FontList As String, _
                                 ByRef CheckResp As Boolean)

Dim strFontList_Sort() As String
Dim i As Integer
Dim strWK As String
Dim ErrNum As Long

'-------ŠJ”­Žž‚u‚a‚d‚©‚ç‚ÌŽÀs‚ŤStatic•Ï”‚ª‰Šú‰»‚³‚ꂽê‡‚̑Ήž------
    ErrNum = 0
    If (Action <> "Init") Then
        On Error Resume Next
        i = UBound(strFontList_Sort)
        ErrNum = Err.Number
        On Error GoTo 0
    End If
    
    If (ErrNum <> 0) Or (Action = "Init") Then
        '&#142;g&#8212;p&#8240;&#194;&#8221;\&#8218;&#200;&#402;t&#402;H&#402;&#8220;&#402;g&#8218;&#287;&#142;&#230;&#8220;&#190;
        #If VBA6 Then
            Call prvGetFontList_API     'for Excel2000&#710;&#200;&#141;~
        Else
            Call prvGetFontList_Menu    'for Excel/Word(97)
        End If

        ReDim strFontList_Sort(UBound(strFontList))
        strWK = ""
        For i = 0 To UBound(strFontList)
            strWK = prvMinValueFromList(strFontList, strWK)
            strFontList_Sort(i) = strWK
        Next i
    End If
'-----------------------------------------------------

    Select Case Action
    Case "Init"
        '&#143;&#227;&#8218;&#197;&#142;&#192;&#141;s
    Case "List"
        If (Idx >= 0) And (Idx <= UBound(strFontList_Sort)) Then
            FontList = strFontList_Sort(Idx)
        Else
            FontList = ""
        End If
    Case "Check"
        CheckResp = False
        For i = 0 To UBound(strFontList_Sort)
            If (strFontList_Sort(i) = FontList) Then
                CheckResp = True
                Exit For
            End If
        Next i
        
    End Select
End Sub

Private Sub prvGetFontList_API()
Dim lngDC As Long
Dim MyLogFont As LOGFONT
'AddressOf‰‰ŽZŽq‚ª‚ ‚é‚̂ŤğŒ•tƒRƒ“ƒpƒCƒ‹‚ÅExcel2000ˆÈ~‚Ì‚İ
#If VBA6 Then
    MyLogFont.lfCharSet = DEFAULT_CHARSET
    MyLogFont.lfPitchAndFamily = 0
    MyLogFont.lfFaceName(1) = 0
    ReDim strFontList(0)
    lngDC = GetDC(0)   'ƒfƒoƒCƒXƒRƒ“ƒeƒLƒXƒg‚ğŽæ“¾
    Call EnumFontFamiliesEx(lngDC, MyLogFont, _
                           AddressOf EnumFontFamExProc, 0, 0)
    Call ReleaseDC(0, lngDC)    'ƒfƒoƒCƒXƒRƒ“ƒeƒLƒXƒg‚ğ‰ğ•ú
    ReDim Preserve strFontList(UBound(strFontList) - 1) '––”ö‚Ì‹ó—v‘f‚ğíœ
#End If
End Sub

ve hepsi #If VBA6 Then ile başlıyor.

 

[Ferhat Pazarçevirdi]

O zaman , daha anlaşılır olması için, yukarıda verdiğiniz örnek kodlardan gidelim.

Bu kitap açıldığı zaman, aşağıdaki olaylar gerçekleşir. (Çok sağlamcı bir kod olduğu söylenebilir)

If (ThisWorkbook.IsAddin = True) Then kod satırı ile eklenti olup olmadığı sınanmaktadır.

Eğer eklentiyse, VBA6 versiyon (yani 2000'li versiyon) kontrolü yapılmakta,

Eğer doğruysa(2000'li versiyonsa) ; prvFontListGet prosedürü işletilmekte

Eğer yanlışsa(2000'li versiyonlardan önceyse);

ilk önce eklenti özelliği FALSE yapılmakta (yani bir bakıma sheet'ler görüntülenmekte) ve daha sonra prvFontListGet prosedürü çalıştırılmakta, tekrar dosya addin yapılmakta ve kaydedilmektedir.

Eğer bu kitap hali hazırda eklenti (xla) değilse, prvFontListGet direkt olarak çalıştırılmaktadır.

Kodların Ne iş yaptığını siz biliyorsunuz. Ben sadece tercümesini yaptım

 

[hsayar]

teşekkür ederim hocam....
birde eklenti ise Kendini varsayılan references listesine eklese süper olacak ama oda başak bir konu