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

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

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 : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD