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

¦Û­q¥¨¶°ªº«ö¶s¬O§_¥i¥H§Ö³t±qA¹q¸£Âà´«¦ÜB¹q¸£

¦Û­q¥¨¶°ªº«ö¶s¬O§_¥i¥H§Ö³t±qA¹q¸£Âà´«¦ÜB¹q¸£

°ÝÃD: ¦bA¹q¸£¼g¤F¤@¨Ç¥¨¶°,¥B¤w³]©w¤F¤u¨ã¦Cªº«ö¶s,·Q±NA ³]©w¦nªº¥¨¶°¥i¥Hª½±µ®³¦ÜB¹q¸£¥Î¶Ü? ­Y¥i¥H­n¦p¦ó¥Î©O? ¸Ô²Ó¦p¹ÏÀÉ©Ò¥Ü

Snap1.jpg (33.18 KB)

Snap1.jpg

¥»©«³Ì«á¥Ñ mistery ©ó 2010-12-15 09:27 ½s¿è

¨ì VBE ±N¼Ò²Õ¶×¥X§Y¥i

1.GIF
2.GIF

TOP

¦^´_ 1# jntseng
±N¤U¦Cªºµ{¦¡½X½Æ»s¨ì¤@¯ë¼Ò²Õ¤º(Module)¦sÀÉ«á¨ì¥ô¤@PC³£¥i¥Î.(ª©¥»­n¬Û®eªº)
½Ð­×§ï Private Sub Test() ¬°§A³]©w¦nªº¥¨¶°
  1. Option Explicit
  2. Sub Auto_Open()
  3.     On Error Resume Next
  4.     Application.CommandBars("MyBar").Delete
  5.     With CommandBars.Add("MyBar", , , True)
  6.         With .Controls.Add(1)
  7.             .Caption = "¦Û­q«ü¥OA"
  8.                 .FaceId = 263
  9.                 .Style = 3
  10.                 .OnAction = "TEST"  '«ü©w³]©w¦nªº¥¨¶°¦WºÙ
  11.         End With
  12.         With .Controls.Add(1)
  13.             .Caption = "¦Û­q«ü¥OB"
  14.                 .FaceId = 331
  15.                 .Style = 3
  16.                 .OnAction = "TEST"   '«ü©w³]©w¦nªº¥¨¶°¦WºÙ
  17.         End With
  18.         .Visible = True
  19.     End With
  20. End Sub
  21. Private Sub Test()  '³]©w¦nªº¥¨¶°¦WºÙ
  22.     Dim S$
  23.     Select Case Val(Application.Version)
  24.         Case 12
  25.             S = "Excel 2007"
  26.         Case 11
  27.             S = "Excel 2003"
  28.         Case 10
  29.             S = "Excel 2002"
  30.         Case 9
  31.             S = "Excel 2000"
  32.         Case 8
  33.             S = "Excel 97"
  34.         Case 7
  35.             S = "Excel 95"
  36.         Case 5
  37.             S = "Excel 5.0"
  38.     End Select
  39.     With Application.CommandBars.ActionControl
  40.         MsgBox "¹q¸£¦WºÙ¡@ = " & Environ("ComputerName") & vbLf & _
  41.         "¨Ï¥ÎªÌ©m¦W = " & Environ("UserName") & vbLf & _
  42.         "Excel ª©¥»   = " & S, , .Caption
  43.         If .Caption = "¦Û­q«ü¥OA" Then
  44.             .FaceId = IIf(.FaceId = 263, 66, 263)
  45.         ElseIf .Caption = "¦Û­q«ü¥OB" Then
  46.             .FaceId = IIf(.FaceId = 343, 331, 343)
  47.         End If
  48.     End With
  49. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


    ·Q½Ð±Ð GBKEE ª©¥D...
    1.±z¼gªº¨º¬qVBAµ{¦¡½X»P¤â°Ê¶×¥X¦A¶×¤Jªºµ²ªG·|¬O¤@¼Ë¶Ü?
    2.¬O§_·|±N©Ò¦³¦Û­qªºVBA¤@¦¸¦Û°ÊÂà¤J¨ì·sPC?
    3.·|¥]§t·íªì¦Û­qVBA¥Îªº«ö¶s¹Ï®×¶Ü?

     ¥ý·PÁª©¥D...... (¤W­zªº¥\¯à§ÚÁÙº¡»Ý­nªº  ·íµM....³Ì¤jªº°Ê¾÷...ÁÙ¬O·Q¾Ç²ß)

TOP

¦^´_ 4# mistery
1.¶×¤J¼Ò²Õªº«áÁÙ­n ¦sÀÉ«á¦A¶}ÀÉ ©Î °õ¦æ¥¨¶°©Î ¤â°Ê ¤~·|¹F¨ì¼Ó¥Dªº®ÄªG
2.¤£¬O¦Û°ÊÂà¤J¨ì·sPC,   ¬OÀHªÌÀɮ׶].
3.·|¥]§t·íªì¦Û­qVBA¥Îªº«ö¶s¹Ï®×¶Ü? . ¿é¤J¦Û©w FaceId No .´N¦æ¤F
¬õ¦â¼Æ¦r¬O«ö¶s¹Ï®×ªº¥N¸¹
µ{¦¡½X  -> FaceId = 263

TOP

§Ú¥»¨Ó¥H¬° jntseng °Ýªº¬O ...«D°w¹ï¤@¯S©w¤w¦s¦bªºÀÉ®×
¦Ó¬O¤@Á{®É¤£¯S©wªºÀÉ®×   ¥¨¶°¥i¥Hª½±µ¤â°Ê°õ¦æ (¤£µMÀ³¸Ó´N¤£·|³]¦Û­q«ö¶s¤F)
(¦pªG¬O¯S©wÀÉ®×  ¥¨¶°¿ý»s®É´N·|¿ï¾Ü¦s¦b"²{¥Î¬¡­¶Ã¯"¤¤)

·PÁ GBKEEª©¥Dªº»¡©ú...(­nªá®É¶¡¨Ó¦n¦n¬ã¨s¤@¤Uª©¥Dªºµ{¦¡)

TOP

¦^´_ 3# GBKEE
Dear GBKEE :

                  ÁÂÁ§A´£¨Ñªºµ{¦¡,´ú¸Õµ²ªG¥i¦æ,¦ý¦³¥H¤U´X¦U°ÝÃD½Ð±Ð:
[1] §Úª½±µ¨Ï¥Î«e¥b¬qªºµ{¦¡½X§Y¥i¥H°õ¦æ§Ú·Q­nªºµ²ªG,(«e¥b¬qªºµ{¦¡½X¦p²Ä1¹Ï©Ò¥Ü),©Ò¥H«á­± Private Sub Test()  ¥Øªº¬°¦ó©O?,¨S¦³¦¹µ{¦¡½X¦b¤°»ò±ø¥ó¤U·|¦³°ÝÃD©O?(«á¬qµ{¦¡½X¦p²Ä2¹Ï¤ù©Ò¥Ü)
[2] faceid ¼Æ¦rªº½d³ò¬O¦h¤Ö©O? §Ú­n¦p¦óª¾¹D§Ú¦³­þ¨Ç¼Æ¦r¥i¥H¿ï¾Ü©O?
[3]²Ä3¹Ï¤ù¬õ¦â®Ø®Øªº¦a¤è¤£À´  ,iff(a,b,c)»yªk¤£¬O ·í²Å¦Xa±ø¥ó®É,·|Åã¥Üb,­Y¤£²Å¦Xa®É,·|Åã¥Üc  ¶Ü? ©Ò¥H
     .faceid=iff(.faceid=263,66,263 ) ¿ï¾Ü¬O¤°»ò©O? ¬O²Ä1­Ó263 ? ÁÙ¬O66? ©ÎªÌ¬O²Ä2­Ó 263?

Snap3.jpg (29.7 KB)

Snap3.jpg

Snap4.jpg (40.95 KB)

Snap4.jpg

Snap5.jpg (42.74 KB)

Snap5.jpg

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-18 10:56 ½s¿è

¦^´_ 7# jntseng
    With CommandBars.Add("MyBar", , , True)  '³o¬O·s¼W¥[¤@­Ó¤u¨ã¦C   
        With .Controls.Add(1)                         '·s¼W¥[¤@­Ó¤u¨ã¦C-> ·s¼W«ü¥O«ö¶s
               .Caption = "¦Û­q«ü¥OA"               '«ö¶s¦WºÙ
                .FaceId = 263                             '«ö¶s¼ÐÃD
                .Style = 3                                   '«ö¶s§Î¦¡
                §A©Ò°Ýªº->   "¦bA¹q¸£¼g¤F¤@¨Ç¥¨¶°,¥B¤w³]©w¤F¤u¨ã¦Cªº«ö¶s,·Q±NA ³]©w¦nªº¥¨¶°  ¥i¥Hª½±µ®³¦ÜB¹q¸£¥Î¶Ü"
                                   "TEST¬O¥Ü½dµ¹§A¬Ýªº " ­×§ïTEST¬°§A¦bA¹q¸£¼g¤F¤@¨Ç¥¨¶°¦WºÙ "
                                   "¦sÀÉ«á ¥i¥Hª½±µ®³¨ì¨ä¥Lªº¹q¸£¥Î
                .OnAction = "TEST"                     '«ö¤U«ö¶s«á©Ò°õ¦æªºªº¥¨¶°¦WºÙ
              End With
        End With
        .Visible = True
    End With
End Sub
Private Sub Test()  '«ö¤U«ö¶s«á©Ò°õ¦æªºªº¥¨¶°   
    Dim S$
     '
     '
    With Application.CommandBars.ActionControl    ' ¨Ï¥Î¤¤ªº±±¨î¶µ(«ö¶s)
        MsgBox "¹q¸£¦WºÙ¡@ = " & Environ("ComputerName") & vbLf & _
        "¨Ï¥ÎªÌ©m¦W = " & Environ("UserName") & vbLf & _
        "Excel ª©¥»   = " & S, , .Caption
        If .Caption = "¦Û­q«ü¥OA" Then
            .FaceId = IIf(.FaceId = 263, 66, 263)
          '  .FaceId ¬°±±¨î¶µ(«ö¶s)«ö¶s¹Ï¥Üªº ID ¼Æ­È-> IIf ( ¨Ï¥Î¤¤ªº±±¨î¶µ(«ö¶s)  ·íID=263,¶Ç¦^66 ,¤£¬°263¶Ç¦^263)
        ElseIf .Caption = "¦Û­q«ü¥OB" Then
            .FaceId = IIf(.FaceId = 343, 331, 343)
        End If
    End With
End Sub
FaceIdªºID ¼Æ­È ½Ð¬ÝªþÀɬOºô¸ô§ì¤U¨Óªº
RE.rar (29.66 KB)

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD