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

¦Û°Ê¶ñº¡¿ï¶µ«ö¶s

¦Û°Ê¶ñº¡¿ï¶µ«ö¶s

½Ð°Ý
A1¿é¤J¸ê®ÆªºÄæ¦ì¡AB1¡GF1¦³¤­­Ó¿ï¶µ«ö¶s¡A­Y§Ú·Q¦bAÄ椤¦³³Q¿é¤J¸ê®ÆªºÀx¦s®æ¤¤(A1¡GAx)¡AB1¡GBx©MC1¡GCx©MD1¡GDx©ME1¡GEx©MF1¡GFx¦Û°Ê·|¥X²{¿ï¶µ«ö¶s¸Ó¦p¦ó¡H¡HÁÂÁ¡I
Ä_Ä_

  1. Sub ex()
  2. ActiveSheet.OLEObjects.Delete
  3. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  4.    For i = 1 To 5
  5.    With a.Offset(, i)
  6.       ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
  7.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
  8.    End With
  9.    Next
  10. Next
  11. End Sub
½Æ»s¥N½X
¦^´_ 1# caichen3
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ caichen3 ©ó 2012-3-16 21:34 ½s¿è

«D±`·PÁÂHsieh³á:)
¦pªG§Æ±æ¯à¥H5­Óoptionbutton°µ¬°¤@­Ó¸s²Õ©O¡H¡H
Ä_Ä_

TOP

¦^´_ 3# caichen3
  1. Sub ex()
  2. ActiveSheet.OLEObjects.Delete
  3. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  4.    s = 0
  5.    For i = 1 To 5
  6.    With a.Offset(, i)
  7.       Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
  8.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
  9.          ob.Object.GroupName = "¸s²Õ " & n
  10.    End With
  11.    Next
  12.   n = n + 1
  13. Next
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

«D±`·PÁÂ
Ä_Ä_

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-3-19 15:11 ½s¿è

¦^´_ 4# Hsieh


    H¤j¤j³o¤@©Û¦n~  ¥H«e¨S·Q¹L~  ¤w«á¥i¥H¬Ù«Ü¦h®É¶¡¦b³]©wButtonªº®É¶¡~
   ·P®¦­ò~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

§Ú¦b¤u§@ªí·s¼W¤@­Ó«ö¶s¡A¦b«ö¶s¸Ì¿é¤JH¤j¤jªºµ{¦¡½X¡A°õ¦æ«á«ö¶s«K®ø¥¢¡A¬O¤£¬O¨Ï¥ÎOLEObject¤èªk«KµLªk¥H¤â°Ê¤è¦¡»s§@«ö¶s©O¡H¡H
Ä_Ä_

TOP

¦^´_ 7# caichen3


    ctiveSheet.OLEObjects.Delete
´N¤w¸g±N©Ò¦³±±¨î¶µ§R°£
¥Øªº¦b©È­«½Æ°õ¦æµ{¦¡¡A³y¦¨±±¨î¶µ­«½Æ·s¼W
  1. Sub ex()
  2. Dim ob As OLEObject
  3. For Each ob In ActiveSheet.OLEObjects
  4.    If ob.progID = "Forms.OptionButton.1" Then ob.Delete
  5. Next
  6. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  7.    s = 0
  8.    For i = 1 To 5
  9.    With a.Offset(, i)
  10.       Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
  11.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
  12.          ob.Object.GroupName = "¸s²Õ " & n
  13.    End With
  14.    Next
  15.   n = n + 1
  16. Next
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ caichen3 ©ó 2012-3-20 18:35 ½s¿è

·PÁÂH¤j¤jªº¦^ÂСI¡IÁÙ¦³¤@­Ó°ÝÃD½Ð±Ð§A¡A
OLEobjects¤èªk¼W¥[ªºoptionbutton,¨C­Ó³£¦³½s¸¹¡A¨C¦¸°õ¦æ«ö¶sªº½s¸¹¨Ã¤£¬O¨Ì§Ç±Æ¦C¡A
¦]¬°§Ú­n³]©w¨C­Ó«ö¶sªº¼ÐÃD¤å¦r¡A­n¦p¦ó¥HÅܼÆI¨Ó±±¨î¨Ã³]©w³o¢´­Ó«ö¶sªº¼ÐÃD¤å¦r¡H¡H
Ä_Ä_

TOP

¦^´_ 9# caichen3
  1. Sub ex()
  2. Dim ob As OLEObject
  3. For Each ob In ActiveSheet.OLEObjects
  4.    If ob.progID = "Forms.OptionButton.1" Then ob.Delete
  5. Next
  6. n = 0
  7. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  8.    For i = 1 To 5
  9.    mystr = "¿ï¶µ" & n & "-" & i
  10.    With a.Offset(, i)
  11.       Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
  12.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
  13.          ob.Object.Caption = mystr
  14.          ob.Object.GroupName = "¸s²Õ " & n
  15.    End With
  16.    Next
  17.   n = n + 1
  18. Next
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD