ªð¦^¦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 : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD