ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] (¤w¸Ñ¨M)VBA²ÅéÂàÁcÅé

[µo°Ý] (¤w¸Ñ¨M)VBA²ÅéÂàÁcÅé

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:07 ½s¿è

Option Explicit
Private WithEvents GB_CbE As CommandBarEvents
Private WithEvents Big5_CbE As CommandBarEvents
¡@
________________________________________
Private Sub Workbook_Open()
    CreateVBEMenu
End Sub
¡@
________________________________________
Private Sub Workbook_AddinInstall()
    Dim AI As AddIn, hWnd As Long
    On Error Resume Next
    hWnd = Application.VBE.MainWindow.hWnd
    If Err.Number = 1004 Then
        MsgBox "±zªº¦w¥þ©Ê³]©w¤£¤¹³\±z°õ¦æ¦¹µ{§Ç." _
                & vbCrLf & vbCrLf & "½Ð§ó§ï¦w¥þ©Ê³]©w«á­«·s°õ¦æ:" _
                & vbCrLf & vbCrLf & " 1. ÂI¿ï ¤u¨ã - ¥¨¶° - ¦w¥þ©Ê." _
                & vbCrLf & " 2. ÂI¿ï  '«H¥ô¦s¨ú Visual Basic ±M®×"
        On Error Resume Next
        For Each AI In Application.AddIns
            If AI.Name = ThisWorkbook.Name Then
                AI.Installed = False
                ThisWorkbook.Close False
            End If
        Next AI
    End If
End Sub
¡@
________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.VBE.CommandBars("cmd_TCSC").Delete
    Application.VBE.CommandBars(2).Left = 0
End Sub
¡@
________________________________________
Sub CreateVBEMenu()
    Dim vcbr As CommandBar, vctl As CommandBarControl
    '¦pªG cmd_TCSC¦s¦bªº¸Ü,§R°£¥¦
    On Error Resume Next
    Application.VBE.CommandBars("cmd_TCSC").Delete
    Set vcbr = Application.VBE.CommandBars.Add(Name:="cmd_TCSC", _
            Position:=msoBarTop, temporary:=True)
    '·s¼WButton
    vcbr.Visible = True
    vcbr.RowIndex = Application.VBE.CommandBars(2).RowIndex
    Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
    With vctl
        ThisWorkbook.Sheets("icon").Shapes("TCSC").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "ÁcÂà²"
        Set GB_CbE = Application.VBE.Events.CommandBarEvents(.Control)
    End With
    Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
    With vctl
        ThisWorkbook.Sheets("icon").Shapes("SCTC").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "²ÂàÁc"
        Set Big5_CbE = Application.VBE.Events.CommandBarEvents(.Control)
    End With
End Sub
¡@
________________________________________
Private Sub GB_CbE_Click(ByVal CommandBarControl As Object, _
        handled As Boolean, CancelDefault As Boolean)
    Call BIG5_GB
End Sub
¡@
________________________________________
Private Sub Big5_CbE_Click(ByVal CommandBarControl As Object, _
        handled As Boolean, CancelDefault As Boolean)
    Call GB_BIG5
End Sub




³o­Ó¬O¦b¬Y­Óºô¯¸¤W¬Ý¨ìªº
¥i¥H¥Î¨ÓÂഫ²Å骺VBAÅܦ¨ÁcÅé
§Úª½±µ¶K¨ìµ{¦¡½X¤¤
¥i¬O·|¥X²{°ÝÃD
¦³¤Hª¾¹D«ç»ò¨Ï¥Î³o­Ó¶Ü?
¸ê®Æ¨Ó·½ºô§}
http://chijanzen.net/wp/?p=358
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¥X°ÝÃDªºµe­±¸Ôªþ¥[ÀÉ
½Ð°Ý¦³¤Hª¾¹D¨BÆJ¶Ü?
ÁÙ¬O¦³¤°»ò­­¨î?

¥X°ÝÃDªº³¡¤À.rar (179.63 KB)

¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥X°ÝÃDªºµe­±¸Ôªþ¥[ÀÉ
½Ð°Ý¦³¤Hª¾¹D¨BÆJ¶Ü?
ÁÙ¬O¦³¤°»ò­­¨î?
freeffly µoªí©ó 2010-7-24 19:25



    ¯d·N¤@¤U³o¸Ì, THISWORKBOOKªº­n©ñ¦bTHISWORKBOOK, MODULE1ªº©ñ¶iMODULE1...
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ÁÙ¬O¨S¿ìªk­C
¦³¤H·|±N²Å骺vbaÂনÁcÅé¶Ü

·s¼W Microsoft Word ¤å¥ó.rar (85.15 KB)

¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

chijanzen¤w»s§@¼W¯q¶°©ñ¦b¸Óºô§}¡A§A¤U¸ü«á¦b¼W¯q¶°¤¤¸ü¤J¡Avbeµøµ¡¤º§Y¦h¤FÁc²Âà´«ªº«ö¶s¡A«ö¤@¤U§Y¥iÂà´«¡I

TOP

¦^´_ 4# freeffly


   


H0077.rar (37.26 KB)

TOP

¦^´_ 6# PD961A


    §Ú«á¨Ó¦³¬Ý¨ì
  §Ú¤]·Ó°µ¥i¬O¤@¼Ë¨S¦³¨º­Ó«ö¶s
  Ãø¹DÁÙ¦³¤°»ò¨BÆJ­n°µ¶Ü?
  §Ú¦w¸Ë¤F¤]¥´¶}¨º­Ó¼W¯q¶°
¤]ÂI¿ï¤j¤jµe­±¤W¨º­Ó¤Ä¤Ä
¯u¬O¥¢±æ«ç»ò¤j®a³£¥i¥H¬°¤°»ò§Ú¸Õ¤£¥X¨Ó
ª©¥»¦³®t¶Ü?

¨S¦³.rar (185.74 KB)

¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-7-29 20:05): ³o¬O¤£¤@¼Ëªº¼W¯q¶° ¤@­Ó¬O°w¹ï¤u§@ªí¤å¦r ¤@­Ó¬O°w¹ïVBE¤å¦r

¦^´_ 7# freeffly

H0077¬O2007
¸Õ§ï¥ÎH0067
http://chijanzen.net/wp/?p=142

TOP

¦^´_ 7# freeffly


   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# Hsieh
    ÁÂÁ¶W¯Åª©¥D
¥u¦³¬Ý¨ì¾A¥Î©ó¢±¢¯¢¯¢²ªºª©¥»¨Sª`·N¨ì¬O°w¹ï¤u§@ªí¤å¦r



¦^´_ 7# freeffly¤£¦n·N«ä
¢Ö¢¯¢¯¢¶¢¶ªº¨º½g¤å¸Ì¦³¢Û¢Ý¢Ò¢ã¢Ú¢Óªº«öÁä¸Ì­±¦³µ{¦¡½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD