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

UserForm1¸Ìªº¬d¸ß¼g¤J

¦^´_ 1# man65boy
¸Õ¸Õ¬Ý
  1. Private Sub CommandButton1_Click()   '¼g¤J
  2.     Dim k As Integer
  3.     k = 2
  4.     Label5 = ""
  5.     With Sheets("¶i³f¸ê®Æ")
  6.         Do While .Cells(k, "A") <> ""
  7.             If .Cells(k, "A") & .Cells(k, "B") = TextBox1 & TextBox2 Then
  8.                 Label5 = .Cells(k, "D")
  9.                 Exit Do
  10.             End If
  11.             k = k + 1
  12.         Loop
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# man65boy
  1. Private Sub TextBox2_Change()
  2.     Dim k As Integer
  3.     k = 2
  4.     Label5 = ""
  5.     With Sheets("¶i³f¸ê®Æ")
  6.         Do While .Cells(k, "A") <> ""
  7.             If .Cells(k, "A") & .Cells(k, "B") = TextBox1 & TextBox2 Then
  8.                 Label5 = .Cells(k, "D")
  9.                 Exit Do
  10.             End If
  11.             k = k + 1
  12.         Loop
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD