¹Ï®×«ü©w¥¨¶°

jesscc

´¡¤J¤@­Ó¹Ï®×«á¡A¥i¥H«ü©w¥¦ªº°õ¦æ¥¨¶°¡A¦ý¦n¹³¥u¯à«ü©w Module ¸Ìªº Sub
¦pªG§Ú­n«ü©w¤u§@ªí¤¤ªº Private Sub °µ¬°¹Ï®×ªº¥¨¶°¡A¤£ª¾¸Ó¦p¦ó«ü©w?
¨Ò¦p
Private Sub CommandButton1_Click()
Columns("G:J").EntireColumn.Hidden = False
OptionButton1 = False
OptionButton2 = False
OptionButton3 = False
Module1.test
End Sub
§Ú·Q¥Î¤@­Ó¹Ï®×¡A§â CommandButton1 ´À´«±¼¡A³o­Ó¹Ï®×ªº¥¨¶°¸Ó¦p¦ó«ü©w?

GBKEE

¦^´_ 1# jesscc
OnAction : «ü©w¥¨¶°
¤@¯ëModule ¼Ò²Õ¤¤¸Ìªº Sub  ¤£¥²«ü©ú Module(¼Ò²Õ)  ¦ý Private   »Pª«¥ó¼Ò²Õ¤¤ ªºµ{§Ç,  ¬Ò»Ý«ü©ú

Sub Ex()
    Sheet1.Shapes(1).OnAction = "Sheet1.CommandButton1_Click"
End Sub

jesscc

ÁÂÁÂG¤j!
³o­Ó¹Ï®×ªº¦WºÙ¥s "¶ê¨¤¯x§Î1"¡AÀ³¸ÓµL©Ò¿×§a!¥¦­Ì³£¬OÄÝ©ó Shapes §a?
¦pªG¦³«Ü¦hShapes
Sub Ex()
    Sheet1.Shapes(1).OnAction = "Sheet1.CommandButton1_Click"
    Sheet1.Shapes(2).OnAction = "Sheet1.CommandButton2_Click"
    Sheet2.Shapes(3).OnAction = "Sheet2.CommandButton3_Click"
End Sub
§â©Ò¦³ªºShapes³£«ü©w¨ìEx³o­Ó¥¨¶°
¥i¥H³o¼Ë¼g¶Ü?

GBKEE

¦^´_ 3# jesscc
¬Oªº

1. Sub Ex()
   
2.     Dim i As Integer
   
3.     With Sheet1
   
4.         For i = 1 To .Shapes.Count
   
5.             .Shapes(i).OnAction = .Name & ".CommandButton" & i & "_Click""
   
6.         Next
   
7.     End With
   
8. End Sub

½Æ»s¥N½X

jesscc

¦^´_ 4# GBKEE


    ÁÂÁÂG¤j¡AÁÙ¦³¤@­Ó¤pºÃ°Ý¡C³o¨Ç Shapes ªºÄݩʦWºÙ¦n¹³¥u¦³¦b«ü©w¥¨¶°ªº®É­Ô¤~¬Ýªº¨ì¡A¥­±`¦pªG­n§ï¦WºÙ¤£ª¾±q¦ó³B§ï?
¨Ò¦p¡A§Ú­n§â¦WºÙ"¶ê¨¤¯x§Î1"§ï¦¨"³sµ²1"

oobird

¿ï¤¤Shapes¡A¥ª¤W¨¤ªº¦WºÙ¤è¶ô¤º¿é¤J·sªº¦WºÙ¡C

GBKEE

¦^´_ 5# jesscc

¤U¸ü (26.95 KB)

2011-11-18 09:26

jesscc

­ü!§Ú¯u¬O¤j²´·ú¡C
ÁÂÁÂO¤j©MG¤j!