- ©«¤l
- 15
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 34
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-9
- ³Ì«áµn¿ý
- 2018-7-15
|
¦^´_ 8# lpk187
¨º¼Ëקï«á¡A¤S¥i¥H¥¿±`°õ¦æ¤F
¦ý¥[¤J§Úªºµ{¦¡«á¤S¤£¦æ¤F
µM«á¤S¥X²{¤£¦Pªº¿ù»~
- Private Sub UserForm_Initialize()
- i = Sheets(1).Cells(1, 1).End(xlToRight).Column
- h = 336
-
- If i > 14 Then
- ReDim X_OB(15 To i)
- Dim myC As Control
- For a = 1 To i - 14
- Set myC = Controls.Add(bstrprogid:="Forms.optionButton.1")
- With myC
- .Caption = " " & Sheets(1).Cells(1, a + 14).Value
- .font.Name = "·L³n¥¿¶ÂÅé"
- .font.Size = 12
- .font.Bold = True
- .ForeColor = &HFFFFFF
- .BackColor = &HFFE66F
- .Height = 21.75
- .Width = 144.75
- .Left = -12
- h = h + 24
- .Top = h
- Sheets(2).ScrollHeight = h + 24
-
- End With
- Set X_OB(a).OB = Controls(myC.Name)
- Next a
- End If
- End Sub
½Æ»s¥N½X |
|