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

[µo°Ý] ¦p¦óÅý¸ê®Æ¶ñ¤J«ü©w¤é´ÁªºÀx¦s®æ¤º?

[µo°Ý] ¦p¦óÅý¸ê®Æ¶ñ¤J«ü©w¤é´ÁªºÀx¦s®æ¤º?

·Q½Ð±Ð¤@¤U¦U¦ì¥ý¶i

­n¦p¦ó¨Ï¥Î¥¨¶°±Nªí³æ1ªº¤º®e¡A¶ñ¤Jªí³æ2«ü©w¤é´ÁªºÀx¦s®æ¤º

¶µ¥Ø¦@¦³A©MB¨â¼Ë¡A·Q«ö¤U¥¨¶°«áªí³æ1ªº¥Ø«e¤é´Á´N·|±a¤J¨ìªí³æ2ªº«ü©w¤é´ÁªºÀx¦s®æ

¸Ô²Ó¦pªþ¥ó¡A¦A³Â·Ð«e½úÀ°¦£~~~ «D±`·PÁ Book.zip (8.91 KB)

¦³«e½ú¯àÀ°¦£¸Ñ¨M¶Ü¡H

«D±`»Ý­n³o­Ó¥\¯à¥H«K¤u§@¤W¨Ï¥Î~~~

¦A³Â·Ð¤F¡AÁÂÁÂ

TOP

Private Sub CommandButton1_Click()
Dim xF As Range
Set xF = [ªí³æ2!2:2].Find([D1].Value, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "§ä¤£¨ì²Å¦X¤é´Á!": Exit Sub
xF(3, 1).Resize(3) = [B3:B5].Value
End Sub


Private Sub CommandButton2_Click()
Dim xF As Range
Set xF = [ªí³æ2!2:2].Find([D8].Value, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "§ä¤£¨ì²Å¦X¤é´Á!": Exit Sub
xF(3, 2).Resize(3) = [B10:B12].Value
End Sub

TOP

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