- ©«¤l
- 2843
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2899
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2025-7-11
|
§¹¾ã¨Ç¡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 |
|