- ©«¤l
- 66
- ¥DÃD
- 16
- ºëµØ
- 0
- ¿n¤À
- 99
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-8-12
- ³Ì«áµn¿ý
- 2023-10-26
|
¦^´_ 2# GBKEE
GBKEE¤j¤j¡A±z¦n¡G
µ{¦¡½X§ï¦¨¡GIf sp.Name Like "ToggleButton*" Then Controls.Remove (sp.Name)¡A½T¹ê¥i°õ¦æ§R°£¡A
¦A½Ð±Ð¤@Ó°ÝÃD¡An¦p¦óÅý¦Û°Ê²£¥ÍToggleButton«ö¶sÂIÀ»®É¡AÅý«ö¤U¥hªºToggleButton«ö¶s¦rÅéÅܦ¨²ÊÅé¦r©Î¬O§ïÅÜI´ºÃC¦â?
¸ò³oÓ¬ÛÃöªºÆ[©ÀÀ³¸Ó¬O±±¥ó¦Û°Ê¥[¤Jµ{¦¡½X¡A§Ú¸Õ¹L¤U±ªº¤èªk- da = Val(Day(day2))
- For i = 1 To da
- With UserForm1.Frame2.CodeModule
- X = .CountOfLines
- .InsertLines X + 1, "Private Sub ToggleButton" & i & "_Click()"
- .InsertLines X + 2, " msgbox ToggleButton & i "
- .InsertLines X + 3, "End Sub"
- End With
- Next i
½Æ»s¥N½X ¥i¬O«o¨S¿ìªk°õ¦æ¡A³oÓÆ[©À¤@ª½·d¤£À´¡AÁٽФj¤j«ü¾É¤@¤U¡A·P®¦~ |
|