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

¬d¸ßaÄæ¸ê®Æ¶ñ¤J¥N¸¹

¦^´_ 1# ÅQ®ð¨«¥þ¨­
  1. Private Sub CommandButton1_Click()
  2. For Each aa In Range([A2], [A2].End(xlDown))
  3. If aa = TextBox1.Text Then
  4. aa.Offset(, 4) = TextBox2.Text
  5. End If
  6. Next
  7. End Sub
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

¦^´_ 3# ÅQ®ð¨«¥þ¨­


    §ï¦¨For¤ñ¸û¾A¥Î
  1. Private Sub CommandButton1_Click()
  2. For i = 1 To Application.CountA(Range("A:A"))
  3. If Cells(i, 1) = TextBox1.Text Then Cells(i, 5) = TextBox2.Text: Exit For
  4. If i = Application.CountA(Range("A:A")) Then MsgBox ("¬dµL¦¹¸ê®Æ")
  5. Next
  6. End Sub
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD