GBKEE

¦^´_ 1# dafa

1. Private Sub UserForm_Initialize()
   
2.     Dim E As Control
   
3.     For Each E In Me.Controls
   
4.         If InStr(E.Name, "TextBox") Then E.Locked = True
   
5.     Next
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# dafa
VBA ¤¤¥[¤Jª«¥óÃþ§O¼Ò²Õ ¦p¹Ï

¤U¸ü (66.98 KB)

2011-11-16 17:50

UserFormªºµ{¦¡½X

1. Option Explicit
   
2. Dim ButtonClass() As New TheButton
   
3. 'ButtonClassÅܼƳ]©w¬° New TheButtonª«¥óÃþ§O¼Ò²Õ
   
4. Private Sub UserForm_Initialize()
   
5.     Dim E As Control, i As Integer
   
6.     For Each E In Me.Controls
   
7.         If InStr(E.Name, "CommandButton") Then
   
8.             i = i + 1
   
9.             ReDim Preserve ButtonClass(1 To i)
   
10.             Set ButtonClass(i).Button = E     '«ü©w TheButton.Button(i) ªºª«¥ó
    
11.         End If
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õªºµ{¦¡½X

1. Option Explicit
   
2. Public WithEvents Button As MSForms.CommandButton
   
3. Private Sub Button_Click()
   
4.     Dim A As Integer
   
5.     'UserForm ¤¤  CommandButton.Name                ¦WºÙ      '¨Ì§Ç¬°CommandButton1,CommandButton2...
   
6.     A = Replace(Button.Name, "CommandButton", "")
   
7.     '''''''''''©ÎªÌ¦p¦¹¤]¦æ''''''''''''''''''''''''''''''''''''''''''
   
8.     'UserForm ¤¤  CommandButton.Caption ¦bª«¥ó¤Wªº­×¹¢¤å¦r  '¦p¨Ì§Ç¬° «ö¶s1,«ö¶s2...
   
9.     'A = Replace(Button.Caption, "«ö¶s", "")
   
10.     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
11.     Sheets(1).Cells(A, "A") = Sheets(1).Cells(A, "A") + 1
    
12. 
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# dafa
ReDim Preserve °}¦C( 1 To i )    ­«·s°t¸m°ÊºA°}¦CÅÜ¼Æ ªººû¼Æ ¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r

ReDim ³¯­z¦¡:  ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡
Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C