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

[µo°Ý] Äæ¦ì½Æ»s°ÝÃD ³Â·Ð敎§Ú¤@¤U ÁÂÁÂ!

¦^´_ 1# lorlcool
  1. Private Sub CommandButton1_Click()
  2.     With Sheet1.[a1]
  3.         If .Value = 123 Then
  4.             Sheet2.[a1] = .Value
  5.         ElseIf .Value = 456 Then
  6.             Sheet2.[a2] = .Value
  7.         End If
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD