ML089

¦^´_ 4# GBKEE


½Ð°Ý¥Î2#§@¥X¨Ó ®Ö¨ú¤è¶ô ¥i¥H²Î­p¤Ä¿ï¼Æ¶q

­Y¥Î¤H¤u´¡¤Jªº ®Ö¨ú¤è¶ô ¬°¦óµLªk²Î­p¤Ä¿ï¼Æ¶q¡A»Ý­n¦b³]©w¬Æ»ò

ML089

¦^´_ 6# GBKEE


    ­ì¨Ó CheckBox »P ®Ö¨ú¤è¶ô¤£¦P¡AÁÂÁ§A¸Ô²Óªº¸Ñ»¡

   ³o¨â­Ó¨Ï¥Î¤W¦³¦ó®t§O?

ML089

¦^´_ 8# GBKEE
¦^´_ 9# oobird

§Ú¥Î±±¨î¤u¨ã½c´¡¤JCheckBox1«á¡A¥H¥kÁä¿ï¥Î¥X²{ªº¬O¡uÀ˵øµ{¦¡½X¡v
§Ú¥Îoobird¤j9#ªºµ{¦¡´¡¤JCheckBoxes«á¡A¥H¥kÁä¿ï¥Î¥X²{ªº¬O¡u«ü©w¥¨¶°¡v
³o¬O¤£¤@¼Ëªºª«¥ó¶Ü?

¡uÀ˵øµ{¦¡½X¡v»P¡u«ü©w¥¨¶°¡vªº¨Ï¥Î¤è¦¡¤£¤@¼Ë¡A½Ð¦U¦ì°ª¤â¦³¨S¦³²ßºD©Ê¥Î¨º¤@ºØ¤ñ¸û¦n¥Î¡C

¤U¸ü (161.11 KB)

2013-9-5 23:28

ML089

¦^´_ 9# oobird
¦^´_ 2# oobird

§Ú¥Îoobird¶Wª©2#ªºµ{¦¡½X¥[¤WLinkedCellÄݩʤ]¥i¥H¥Î¨Ó­pºâ¡A¦ý«ö¥kÁä¿ï¶µ¤¤¡u«ü©w¥¨¶°¡v´NÅܦ¨¦Ç¦â¤£¯à¿ï¥Î¡C
OLEObjects.Add¬O§_¤ñCheckBoxes.Add¨Ï¥Î¤W§ó¦³¼u©Ê?

1. Sub ¿ï¨ú®æ_FormsCheckBox()
   
2.     For Each C In Selection.Cells.SpecialCells(2)
   
3.         Set b = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
   
4.                                            Left:=C.Left, Top:=C.Top, Width:=C.Width, Height:=C.Height)
   
5.         b.Object.Caption = C.Value
   
6.         b.LinkedCell = C.Address '³sµ²¸Ó¦ì¸m¥HTRUE¡BFALSEªí¥Ü¡A¥H§Q«áÄò²Î­p
   
7.         'C.Value = False '°_©l­È³]©w
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

ML089

¦^´_ 13# GBKEE
ÁÂÁ§A¡A¯u¬O¤@¹Ï³Ó¦Ê¨¥¡A¸Ñ»¡¸ÔºÉ

¦^´_ 14# stillfish00
ÁÂÁ§A¡A§A³o¾ã²zªº¸ê®Æ¥i¯uÄ_¶Q¡A¬Q¤Ñ¦bºô¸ô¨S¬d¸ß¨ì¸ê®Æ(À³¸Ó¬OÃöÁä¦r¨S¥Î¹ï)