| ©«¤l835 ¥DÃD6 ºëµØ0 ¿n¤À915 ÂI¦W1  §@·~¨t²ÎWin 10,7 ³nÅ骩¥»2019,2013,2003 ¾\ŪÅv50 ©Ê§O¨k µù¥U®É¶¡2010-5-3 ³Ì«áµn¿ý2025-7-5 
 | 
                
| ¥»©«³Ì«á¥Ñ 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:
 ½Æ»s¥N½XPrivate 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
    | 
 |