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

[µo°Ý] ·í«ö¤U«ö¶s°õ¦æµL»~¡A¦ý¬O³z¹LÂà´«¡A«o¥X²{¤£¦Pªºµ²ªG¡C

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-22 13:20 ½s¿è

¦^´_ 20# av8d
¸Õ¸Õ¬Ý





Sheet1ªºCommandButton1_Click()

DSC00220.JPG.rar (20.54 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 21# GBKEE


    Test10.rar (30.39 KB)
·í±K½X¥X²{¿ù»~®É¡A·|¸õµ¡Åý¨Ï¥ÎªÌ¦b¿é¤J¤@¦¸¡A¿é¤J¥H«á¤S·|¸õ¦^­ì¨ÓªºUserForm1µ¡¡A¦A¦¸µn¤J´ú¸Õ

¬O§_¦³¿ìªkÅý¥L¤£­n¸õ¦^­ì¨ÓªºUserForm1µ¡~ª½±µ¦A¦¸µn¤J´ú¸Õ¡H

TOP

¦^´_ 22# av8d
¸Õ¸Õ¬Ý ¬O³o¼Ë¶Ü?
  1. Private Sub CommandButton1_Click()
  2.     Dim CB As String, TB As String, ER As String, I As Integer
  3.     CB = ComboBox1
  4.     TB = TextBox1
  5.     For I = 1 To 3
  6.         If ½T»{±K½X(CB, TB) = "±K½X¥¿½T" Then
  7.             GoTo MS
  8.         Else
  9.             TextBox1 = InputBox("±K½X¿ù»~! " & I & "¦¸", "ĵ§i¡I", "½Ð¿é¤J¥¿½T±K½X¡I")
  10.             TB = TextBox1
  11.         End If
  12.     Next
  13.     MsgBox "±K½X¿ù»~! 3¦¸ Ãö³¬ Excel"
  14.     Application.Quit
  15.     Exit Sub
  16. MS:
  17.     MsgBox "±K½X¥¿½T"
  18.     Username = ComboBox1
  19.     Unload Me
  20. End Sub
  21. Private Function ½T»{±K½X(CB As String, TB As String) As String
  22.     Dim I As Integer
  23.     ½T»{±K½X = "±K½X¿ù»~"
  24.     With Sheets("»\´Ö³Q¯Â²á¤Ñ¨t²Î")
  25.         For I = 3 To 5
  26.             If CB = .Range("N" & I) And TB = .Range("O" & I) Then
  27.                 ½T»{±K½X = "±K½X¥¿½T"
  28.                 Exit For
  29.             End If
  30.         Next
  31.   End With
  32. End Function
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD