- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 16
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-14
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2024-9-6 22:34 ½s¿è
½Ð±Ð«e½ú¡A
§Ú¥Î¸ê®ÆÅçÃÒªº²M³æ¥H¤Î·f°tINDIRECT¨ç¼Æ¡A³]©w¦n¨â¼hªº¤U©Ô¦¡²M³æ¡C
¥H§Úªº½d¨Ò»¡©ú¡A·íAÄæ¿ï ...
pointchi µoªí©ó 2024-9-4 09:02
¾Ú§Ú©Òª¾Excel©ó¨Ï¥Î¸ê®ÆÅçÃÒ²M³æªº¤è¦¡¤¤,
¨Ã¤£·|¦]¬°¨Ó·½(AÄæ)¤º®eªºÅܧó¦Ó¦Û°ÊÅܧó²M³æ(BÄæ)ªº¸ê®Æ,
¦Ó¬O©óÅܧóBÄæ®É¤~·|µo°ÊÀˬd¾÷¨î.
¤£¹L, ³oÓ°ÝÃD¦b Excel VBA ¤W´N¯à°÷«Ü®e©ö¸Ñ¨M,
§A¥u»Ýn±N©³¤Uªºµ{¦¡½X©ñ¨ì¸Ó¤u§@ªíªºµ{¦¡°Ï¶ô¤º´N¥i¥H¤F:- Private Sub Worksheet_Change(ByVal Target As Range)
- With Target ' ¤u§@ªí¤º¦³¸ê®ÆÅܧó
- If .Column = 1 Then ' ·íAÄæ¸ê®ÆÅܧó®É
- .Offset(, 1) = "" ' ²M°£BÄæ¸ê®Æ
- .Offset(, 1).Select ' µJÂI²¾¨ìBÄæµ¥«ÝUser¿ï¾Ü¥¿½Tªº¶mÂí
- End If
- End With
- End Sub
½Æ»s¥N½X
|
|