¦h¿ïCheckBoxªºVBA«ç»ò¼g¡H
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-6-9
- ³Ì«áµn¿ý
- 2021-7-3
|
¦h¿ïCheckBoxªºVBA«ç»ò¼g¡H
¦b¤@ÓÀx¦s®æ¸Ì©ñµÛCheckBox©Ò¿ï¨úªº¶µ¥Ø¡A¨Ã¥Î , ¹j¶}¡A½Ð°Ý³o¬qVBA¬O«ç»ò¼g¡HÁÂÁ¡I
CheckBox.rar (14.15 KB)
|
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 2# Hsieh
¤£¦n·N«ä , ·Q½Ð±Ð¤@¤U
Me.OLEObjects ¬O¤£¬O«ü¸Ó¤u§@ªíªº©Ò¦³ActiveX±±¨î¶µ? ¤£§tªí³æ±±¨î¶µ?
ÁÙ¦³ Ct.progID = "Forms.CheckBox.1"
±±¨î¶µªºprogIDn«ç»ò±oª¾ ? ".1" ¦³¯S§O·N¸q¶Ü?
¨ä¥Lªº±±¨î¶µ¤]¬O¦P¼Ë®æ¦¡¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 4# Hsieh
ÁÂÁª©¤j¶}¥Ü~ |
|
|
|
|
|
|
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2011-6-9
- ³Ì«áµn¿ý
- 2021-7-3
|
¦^´_ maikoyuki
Hsieh µoªí©ó 2012-11-21 19:46
ÁÂÁ¤jô¸Ñµª¡A¶¶«K½Ð°Ý¤@¤U¡A¦pªG¤u§@ªí¤¤¦³«Ü¦hÓForms.CheckBox.1¡BForms.TextBox.1¡BForms.OptionButton.1¡BForms.ListBox.1¡BForms.ComboBox.1µ¥n§â¥¦Ì¥þÅܦ¨ªÅÈ¡A¥N½XÀ³¸Ó¦p¦ó²³æªº¼g¡HÁÂÁ¡I |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 4# Hsieh
½Ð°Ý Hsieh ª©¤j¡A ªí³æ±±¨î¶µ¥u¯à³]©w¦b UserForm ¤º¶Ü¡H- Private Sub UserForm_Click()
- Dim Ct As Control, mystr As String
-
- For Each Ct In Me.Controls
- If TypeName(Ct) = "CheckBox" Then
- If Ct.Value = True Then mystr = IIf(mystr = "", Ct.Caption, mystr & "," & Ct.Caption)
- End If
- Next
- Sheet1.[B12] = mystr
- End Sub
½Æ»s¥N½X ¦pªG±N¥H¤W»yªkÀ³¥Î¦b ¤u§@ªí³æ Sheet1 ¥»¨¤ºªº¸Ü¡A ¥L·|¥X²{ "§ä¤£¨ì¤èªk©Î¸ê®Æ¦¨û"¡A
½Ð±z½ç±Ð¡AÁÂÁ¡I |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
|
|
|
|
|
|