¦p¦óÅýa=a+1²Ö¥[

av8d

¤@¯ëUserForm1¤º·|¦³³\¦h¤¸¥ó~³Ì±`¨£ªº´N¬OCommandButton1«ö¶s
¦p¦ó«ö¤UCtrl+Enter«á¡A¥i¥HÀ°§Ú«ö¤UCommandButton1«ö¶s

av8d

¦^´_ 2# GBKEE


    test.rar (442.97 KB)

¤U¸ü¦¸¼Æ: 7

2013-11-15 11:30

¨S¦³§@¥Î~¦A¦¸·PÁÂ!

av8d

Sub CommandButton1_Click()
    '²Î­p¸ê®Æ¼Æ
        Dim Label23 As Integer
        Label23 = Label23 + 1
End Sub

av8d

¦^´_ 6# GBKEE


    GBKEE¤j¤j±z¦n~
¥Ø«e§Ú¬O¦bUserForm¤º«Ø¥ßªº~

«ö¤U«ö¶sCommandButton«á~

·|¥X²{ «¬ºA¤£²Å¦X ªº¿ù»~          Label23 = Label23 + 1

¥\¯à¦b©ó¨C«ö¤U¤@¦¸CommandButton~«h·|À°§Úµù°O¤@¦¸

av8d

¦^´_ 8# GBKEE

½Ð¹L¥Ø
123.rar (30.54 KB)

¤U¸ü¦¸¼Æ: 4

2013-11-19 13:04

-----------------------------
§ä¨ì°ÝÃDÂI¤F~§Ú¨S+Caption©M¹w³]­È

av8d

¦^´_ 10# GBKEE

1. '²Î­p¸ê®Æ¼Æ
   
2.     TextBox23.Text = TextBox23.Text + 1
   
3.     If TextBox23.Text >= 10 Then
   
4.         TextBox23.ForeColor = &HC0&
   
5.         If TextBox23.Text >= 20 Then
   
6.             TextBox23.ForeColor = &HC0&
   
7.         End If
   
8.     End If

½Æ»s¥N½X

¦pªG§ÚªºIF±q10~100¦U¦³¤£¦PªºÃC¦â~¬O§_¦³Â²²¤¼gªk?¦A¦¸·PÁ¡I

av8d

¦^´_ 12# GBKEE


    §¹¥þ¬O§Ú·Q­nªºµª®×~¾Ç²ß¤F~ÁÂÁÂ