- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 3# q1a2z5
UserFormµ{¦¡½X- Dim MyOp() As New Class1
- Private Sub UserForm_Initialize()
- Dim E As MSForms.Control, OP As MSForms.OptionButton, i%
- For Each E In Controls
- If E.Name Like "Frame*" Then
- For Each OP In E.Controls
- ReDim Preserve MyOp(i)
- Set MyOp(i).OP = OP
- i = i + 1
- Next
- End If
- Next
- End Sub
½Æ»s¥N½X ¨Ï¥Îª«¥óÃþ§O¼Ò²Õ- Option Explicit
- Public WithEvents OP As MSForms.OptionButton
- Private Sub OP_Click()
- Dim R As Range, C%
- C = Right(OP.Parent.Name, 1)
- With ActiveSheet
- Set R = IIf(.Cells(1, C) = "", .Cells(1, C), .Cells(Rows.Count, C).End(3)(2, 1))
- R = OP.Caption
- End With
- End Sub
½Æ»s¥N½X ¦p¹Ï
|
|