ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§R°£±±¨î¶µ

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-3-26 16:04 ½s¿è

¦^´_ 3# caichen3


    ¥H§Aªº¹Ï¤ù¤W©ÒÅã¥Üªº«ö¶s¼ÐÃD¦r¦ê³W«h¥i§Q¥ÎÃD¸¹¨Ó°Ï§O
  1. Sub Del_Opt()
  2. Dim k%
  3. k = InputBox("±ý§R°£ªº¸s²Õ", , 4)
  4. For Each ob In ActiveSheet.OLEObjects
  5. If ob.progID = "Forms.OptionButton.1" Then
  6.    If Val(ob.Object.Caption) = k Then ob.Delete 'ÃD¸¹»Pk­È¬Û¦P´N§R°£
  7. End If
  8. Next
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# caichen3

ob.Object.GroupName = k
¦ý¬O§A¦b«Ø¥ß¿ï¶µ«ö¶s®Éµ¹¥LªºGroupName¬O¥u¦³¼Æ¦r¶Ü?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# caichen3
§âÀɮתþ¤W¤~¯à¤F¸Ñ°ÝÃD©Ò¦b
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# caichen3
§A­n§R°£ªº¬O¿ï¨úÀx¦s®æ¨º¤@¦Cªº¸s²Õ¶Ü?
For Each ob In ActiveSheet.OLEObjects
  If ob.Name Like "OptionButton*" Then
    If ob.TopLeftCell.Row = gyou Then ob.Delete
  End If
Next
Cells(gyou, 1).Resize(, 8).Delete xlShiftUp
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# caichen3

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 17# caichen3

¬Oªº¡A¥H¿ï¶µ«ö¯Ã¦ì¸m°µ§PÂ_
©Ò¥H§A»¡·|¦³­«½Æ§R°£ªºª¬ªp¡A§Ú´N¤£ª¾¹D§A¬O«ç»ò°µªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 19# caichen3
¬Ý°Êµe
«ö¶s©ñ¦b²Ä4¦C´N¬O4
²Ä5¦C´N¬O5
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD