- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Aşağıdaki kodların anlamı nedir?
Kod:
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