Hsieh

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

Hsieh

¦^´_ 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

Hsieh

¦^´_ 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

Hsieh

¦^´_ 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

Hsieh

¦^´_ 15# caichen3

¤£ª¾©Ò¤ª¡A¬Æ»ò¥s°µb¬O´¡¤Jªº¦C?
¤W¶ÇÀÉ®×»¡©ú´¡¤J«e«áªºª¬ªp

Hsieh

¦^´_ 17# caichen3

§Aªºµ{¦¡½X¨Ó¬Ý
¦bb¦C´¡¤J·sªº¤@¦C¡A»P·s¼W±±¨î¶µ¦³¦óÃö«Y?
¦A²q¤@¦¸¬Ý¬Ý¡A¥i¯à¬O¦b¤U²¾I1¦Cªº¦ì¸m´¡¤J±±¨î¶µ§a
¦AµLªk´y­z²M·¡§Aªº»Ý¨D¡A¥i¯à´NµL¯à¬°¤O¤F

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. a.Offset([I1]).EntireRow.Insert
   
8.    For i = 1 To 5
   
9.    mystr = IIf(i = 1, "«D±`¤£­«­n", IIf(i = 2, "¤£­«­n", IIf(i = 3, "´¶³q", IIf(i = 4, "­«­n", "«D±`­«­n"))))
   
10.    With a.Offset([I1], 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. Next
    
18. 
    
19. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 21# caichen3

1. Sub Add_Opt()
   
2. Dim ob As OLEObject, Rng As Range, A As Range, B As Range
   
3. n = 0
   
4. For Each ob In ActiveSheet.OLEObjects
   
5. Set A = ob.TopLeftCell
   
6.     If Rng Is Nothing Then
   
7.       Set Rng = ob.TopLeftCell.EntireRow
   
8.       n = 1
   
9.       ElseIf Intersect(Rng, ob.TopLeftCell) Is Nothing Then
   
10.       Set Rng = Union(Rng, ob.TopLeftCell.EntireRow)
    
11.       n = n + 1
    
12.     End If
    
13. Next
    
14. For Each A In Range("A:A").SpecialCells(xlCellTypeConstants)
    
15. Set B = Nothing
    
16. If Not Rng Is Nothing Then Set B = Intersect(A, Rng)
    
17. If B Is Nothing Then
    
18.    n = n + 1
    
19.    mystr = "OB" & n & "-"
    
20.    For i = 1 To 5
    
21.    cap = mystr & i
    
22.    With A.Offset(, i + 1)
    
23.       Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
    
24.          Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
    
25.          ob.Object.Caption = cap
    
26.          ob.Object.GroupName = "¸s²Õ " & n
    
27.    End With
    
28.    Next
    
29. End If
    
30. Next
    
31. End Sub

½Æ»s¥N½X