- ©«¤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# boyao
¨Ï¥Îª«¥óÃþ§O¼Ò²Õ ¸Õ¸Õ¬Ý
¦bVBA¤¤´¡¤Jª«¥óÃþ§O¼Ò²Õ, ¹w³]¦WºÙ¬° Class1.
UserFormªºµ{¦¡½X- Dim User_«ö¶s As New Class1 'UserForm «Å§i ÅܼƬ°·sªºª«¥óÃþ§O¼Ò²Õ
- Private Sub UserForm_Initialize()
- Set User_«ö¶s.ª«¥ó_CommandButton = CommandButton1
- '·sªºª«¥óÃþ§O¼Ò²Õ ÅܼÆ( ª«¥ó_CommandButton )= ³]©w ¬° CommandButton1
- End Sub
½Æ»s¥N½X ª«¥óÃþ§O¼Ò²Õªºµ{¦¡½X- Option Explicit
- Public WithEvents ª«¥ó_CommandButton As MSForms.CommandButton
- Private Sub ª«¥ó_CommandButton_Click()
- Dim i As Integer
- For i = 1 To 100
- Sheet1.Range("A" & i) = (i * 50)
- Next i '
- End Sub
½Æ»s¥N½X |
|