GBKEE

¦^´_ 3# q1a2z5
UserFormµ{¦¡½X

1. Dim MyOp() As New Class1
   
2. Private Sub UserForm_Initialize()
   
3.     Dim E As MSForms.Control, OP As MSForms.OptionButton, i%
   
4.     For Each E In Controls
   
5.         If E.Name Like "Frame*" Then
   
6.             For Each OP In E.Controls
   
7.                 ReDim Preserve MyOp(i)
   
8.                 Set MyOp(i).OP = OP
   
9.                 i = i + 1
   
10.             Next
    
11.         End If
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

¨Ï¥Îª«¥óÃþ§O¼Ò²Õ

1. Option Explicit
   
2. Public WithEvents OP As MSForms.OptionButton
   
3. Private Sub OP_Click()
   
4.     Dim R As Range, C%
   
5.     C = Right(OP.Parent.Name, 1)
   
6.     With ActiveSheet
   
7.         Set R = IIf(.Cells(1, C) = "", .Cells(1, C), .Cells(Rows.Count, C).End(3)(2, 1))
   
8.             R = OP.Caption
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

¦p¹Ï

¤U¸ü (30.98 KB)

2011-5-5 16:21

GBKEE

¦^´_ 5# q1a2z5

1. Option Explicit
   
2. Public WithEvents OP As MSForms.OptionButton
   
3. Private Sub OP_Click()
   
4.     Dim R As Range, C%
   
5.     C = Right(OP.Parent.Name, 1) + 1
   
6.     With ActiveSheet
   
7.         Set R = IIf(.Cells(1, C) = "", .Cells(1, C), .Cells(Rows.Count, C).End(3)(2, 1))
   
8.             R = OP.Caption
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# dechiuan999
Dim MyOp() As New Class1    ->·sªº Class1(ª«¥óÃþ§O¼Ò²Õ)
MyOp() ¬°°ÊºA°}¦C
ReDim Preserve MyOp(i)  ->°}¦Cºû¼Æ¤U­­·s¼W¨ìi  
              Preserve  -> ¤£§ïÅÜ°}¦C­ì¦³¤º®e
Set MyOp(i).OP = OP  -> ·s¼Wªº MyOp(i).OP=OP
   
OP.Parent.Name   ->¤÷¼h  Frame