ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ÅçÃÒ¿ù»~°j°é°ÝÃD(¤T¦¸)

[µo°Ý] ÅçÃÒ¿ù»~°j°é°ÝÃD(¤T¦¸)

¦U¦ì¤j¤j ³Ìªñ§ï¬°¬ã¨s ªí³æÅçÃÒ³¡¤À
¥H¤U¬O§Ú²³æ¼gªº°j°é = =¦ý»Ý­nÅçÃÒ¤T¦¸¿ù»~«áÂ÷¶}EXCEL ½ÐÀ°§Ú­×¥¿¤@¤U  ·PÁ¦U¦ì°ª¤H
  1. Private Sub CmdLogin_Click()
  2. '¦pªG¬°ªÅ¥Õ
  3. If BoxUser.Value = "" Then MsgBox "½Ð¿é¤J¸³¨Æªø©m¦W¡I": Exit Sub
  4. '¦pªG¿é¤J¿ù»~
  5. no = 1
  6. If BoxUser.Value <> "­s§µºû" Then
  7.    MsgBox "¿é¤J¿ù»~¡I": no = no + 1
  8.    If no = 3 Then
  9.        MsgBox "©êºp¡I±z¨S¦³¨Ï¥ÎÅv­­¡I"
  10.         Exit Sub
  11.         ThisWorkbook.Close SaveChanges:=False
  12.    End If
  13.    BoxUser.SetFocus: Exit Sub
  14. End If
  15. Unload Me
  16. End Sub
½Æ»s¥N½X
¶¶«K¤@°Ý~~~~½Õ¾ãªí³æ¤º¦rÅé¤j¤p«ç»ò½Õ¾ã= =?
¬°¤°»ò¥´¶i¥hªº¦r³£¦n¤p.......

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2012-11-23 18:50 ½s¿è

¦^´_ 1# die78325
1.  §A¼gªº¤£¬O°j°éªü , ¥[­Ó Do ...Loop/For...Next §a
2.  ÂI¸Ó±±¨î¶µ , ¥´¶}Äݩʵøµ¡ , ¨ìFontÄݩʤº­×§ï

TOP

³Â·Ð¤j¤j­Ì¬O§_¥i¥HÀ°§Ú­×§ï©O?

TOP

¦^´_ 3# die78325
¥t¦bvba¤¤´¡¤J[¤@¯ëModule] ªº¼Ò²Õ
  1. Option Explicit
  2. Public no As Integer  '«Å§i ¿ù»~¦¸¼Æ¬°[¤@¯ëModule]ªº¤½¥ÎÅܼÆ
½Æ»s¥N½X
  1. Option Explicit
  2. Private Sub UserForm_Initialize()
  3.     BoxUser.Font.Size = 16
  4. End Sub
  5. Private Sub CmdLogin_Click()
  6.     With BoxUser
  7.         If .Value = "" Then MsgBox "½Ð¿é¤J¸³¨Æªø©m¦W¡I": Exit Sub '¦pªG¬°ªÅ¥Õ
  8.         If .Value <> "­s§µºû" Then      '¦pªG¿é¤J¿ù»~
  9.             MsgBox "¿é¤J¿ù»~¡I": Module1.no = Module1.no + 1
  10.             If Module1.no = 3 Then
  11.                 MsgBox "©êºp¡I±z¨S¦³¨Ï¥ÎÅv­­¡I"
  12.               '  ThisWorkbook.Close SaveChanges:=False
  13.                 Application.DisplayAlerts = False
  14.                 Application.Quit        'Ãö³¬Excel
  15.             End If
  16.         Else
  17.             Module1.no = 0                      '¿ù»~¦¸¼Æ Âk¹s
  18.         End If
  19.     End With
  20.     Unload Me
  21. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    thx GBKEE¤j
   ÁÂÁ±оǠ ¬O³oºØ´X¦¸´N°õ¦æ¥t¤@­Óµ{¦¡ªº³£­n³o¼Ë¼g¶Ü¡H
   ¦³¨Ç¯S§Oªº»yªk«ÜÃø²z¸Ñ¤°¼¯®É­Ô¤~¸Ó¥Î   ¦ý§Ú³£¦³¬ö¿ý°_¨Ó¤F¡s¡Ä¡s
   §Ú¤H¦b¥~­±¦^¥h¦b¸Õ¸Õ¤j¤j±Ð¾Çªº¤è¦¡¶¶«K¾Ç²ß°_¨Ó¡s¡s

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2012-11-26 14:37): ½Ð¤W¶ÇÀÉ®×

¦^´_ 4# GBKEE


   
¿ù»~«ü¥O.jpg
2012-11-26 13:55

¥X²{³o­Ó...

TOP

¦^´_ 4# GBKEE

­ì¥»¤£ª¾¹D¬°¦ó·|µL­­¹B¦æ,«á¨Ó¬ã¨s¤ù¨è«á¤w¸Ñ¨M!@@"
ÁÂÁ¦U¦ì¤j¤j¦^´_~~
  1. Sub CmdLogin_Click()

  2.     With BoxUser
  3.         If .Value = "" Then MsgBox "½Ð¿é¤J¸³¨Æªø©m¦W¡I": Exit Sub '¦pªG¬°ªÅ¥Õ
  4.         If .Value <> "­s§µºû" Then      '¦pªG¿é¤J¿ù»~
  5.             MsgBox "¿é¤J¿ù»~¡I": Module1.no = Module1.no + 1
  6.             If Module1.no = 3 Then
  7.                 MsgBox "©êºp¡I±z¨S¦³¨Ï¥ÎÅv­­¡I"
  8.               '  ThisWorkbook.Close SaveChanges:=False
  9.                 Application.DisplayAlerts = False
  10.                 Application.Quit        'Ãö³¬Excel
  11.             End If
  12.             [color=Red]Exit Sub[/color]
  13.         Else
  14.             Module1.no = 0        '¿ù»~¦¸¼Æ Âk¹s
  15.         End If
  16.     End With
  17.     Unload Me
  18. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD