- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-24
|
¦^´_ 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´yz²M·¡§Aªº»Ý¨D¡A¥i¯à´NµL¯à¬°¤O¤F- Sub ex()
- Dim ob As OLEObject
- For Each ob In ActiveSheet.OLEObjects
- If ob.progID = "Forms.OptionButton.1" Then ob.Delete
- Next
- For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
- a.Offset([I1]).EntireRow.Insert
- For i = 1 To 5
- mystr = IIf(i = 1, "«D±`¤£«n", IIf(i = 2, "¤£«n", IIf(i = 3, "´¶³q", IIf(i = 4, "«n", "«D±`«n"))))
- With a.Offset([I1], i)
- Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
- Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
- ob.Object.Caption = mystr
- ob.Object.GroupName = "¸s²Õ " & n
- End With
- Next
- Next
- End Sub
½Æ»s¥N½X |
|