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

[µo°Ý] ½Ð°Ý¦³Ãö¹ï·Ó±a¤J¡A§ä´M«Ü¤[¤£ª¾¹D«ç»ò°µ¡A·P®¦

¤½¦¡·fVBA¡G
Sub TEST()
With [D1:S1].Offset([U3], 0)
¡@¡@.Formula = "=IF(ISNA(MATCH(D$1,$A:$A,)),"""",VLOOKUP(D$1,$A:$B,2,))"
¡@¡@.Value = .Value
End With
End Sub

­n«O¯d«e­È¡A¶È¥Î¤½¦¡®É¡A¥²¶·¤â°Ê¶K¦¨¡e­È¡f¡A¨Ï¥ÎVBA¥i¤@®ð¨þ¦¨¡I
¡@

TOP

§¹¾ã¨Ç¡AÁ×§K¾Þ§@¿ù»~±N¤§«eªº¸ê®ÆÂл\¤F¡G
¡@
Sub TEST()
If Val([U3]) <= 0 Then Exit Sub
With [D1:S1].Offset([U3], 0)
¡@¡@¡@If Application.CountA(.Cells) > 0 Then
¡@¡@¡@¡@¡@If MsgBox("«ü©w¤é´Á¤w¦³¸ê®Æ¡A¬O§_§ó·s¼Æ¾Ú¡H¡@", 0 + 4 + 256) = vbNo Then Exit Sub
¡@¡@¡@End If
¡@¡@¡@.Formula = "=IF(ISNA(MATCH(D$1,$A:$A,)),"""",VLOOKUP(D$1,$A:$B,2,))"
¡@¡@¡@.Value = .Value
End With
End Sub

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD