¦Ûq¥¨¶°ªº«ö¶s¬O§_¥i¥H§Ö³t±qA¹q¸£Âà´«¦ÜB¹q¸£
- ©«¤l
- 38
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- na
- µù¥U®É¶¡
- 2010-7-31
- ³Ì«áµn¿ý
- 2024-5-13
|
¦Û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¥Hn¦p¦ó¥Î©O? ¸Ô²Ó¦p¹ÏÀÉ©Ò¥Ü |
-
-
Snap1.jpg
(33.18 KB)
|
|
|
|
|
|
- ©«¤l
- 82
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 115
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taipei
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-4-18
|
|
|
|
|
|
|
- ©«¤l
- 82
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 115
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taipei
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-4-18
|
¦^´_ 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...... (¤Wzªº¥\¯à§ÚÁÙº¡»Ýnªº ·íµM....³Ì¤jªº°Ê¾÷...ÁÙ¬O·Q¾Ç²ß) |
|
|
|
|
|
|
- ©«¤l
- 82
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 115
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taipei
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-4-18
|
§Ú¥»¨Ó¥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ªºµ{¦¡) |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- na
- µù¥U®É¶¡
- 2010-7-31
- ³Ì«áµn¿ý
- 2024-5-13
|
¦^´_ 3# GBKEE
Dear GBKEE :
ÁÂÁ§A´£¨Ñªºµ{¦¡,´ú¸Õµ²ªG¥i¦æ,¦ý¦³¥H¤U´X¦U°ÝÃD½Ð±Ð:
[1] §Úª½±µ¨Ï¥Î«e¥b¬qªºµ{¦¡½X§Y¥i¥H°õ¦æ§Ú·Qnªºµ²ª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)
-
-
Snap4.jpg
(40.95 KB)
-
-
Snap5.jpg
(42.74 KB)
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ 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)
|
|
|
|
|
|
|