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

[µo°Ý] ¨â¼h¤U©Ô¦¡²M³æ°ÝÃD

[µo°Ý] ¨â¼h¤U©Ô¦¡²M³æ°ÝÃD

½Ð±Ð«e½ú¡A
§Ú¥Î¸ê®ÆÅçÃÒªº²M³æ¥H¤Î·f°tINDIRECT¨ç¼Æ¡A³]©w¦n¨â¼hªº¤U©Ô¦¡²M³æ¡C
¥H§Úªº½d¨Ò»¡©ú¡A·íAÄæ¿ï®ç¶é¥«¡ABÄ榳¤U©Ô¦¡²M³æ¥i¥H¿ï¤K¼w¥«¡A¥i¬O·í§ÚAÄæ§ï¿ï·s¥_¥«¡ABÄæÁÙ¦s¦b¸ê®Æ¤K¼w¥«¡AÁöµM¤U©Ô²M³æ¦³·s¥_¥«ªº¶mÂí¥i¥H¥¿½T¿ï¾Ü¡C
¦³Ô£¤è¦¡¥i¥H¨¾¤îBÄæ»~¥H¬°¦³¸ê®Æ¡A©Ò¥H´N¨S¦³­«·s¤U©Ô¿ï¾Ü¥¿½T¸ê°Tªº¤è¦¡¡C

¥»©«³Ì«á¥Ñ 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:
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   With Target ' ¤u§@ªí¤º¦³¸ê®ÆÅܧó
  3.     If .Column = 1 Then ' ·íAÄæ¸ê®ÆÅܧó®É
  4.       .Offset(, 1) = "" ' ²M°£BÄæ¸ê®Æ
  5.       .Offset(, 1).Select ' µJÂI²¾¨ìBÄæµ¥«ÝUser¿ï¾Ü¥¿½Tªº¶mÂí
  6.     End If
  7.   End With
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# luhpro
·PÁ«e½ú¸Ñ´b¡C

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD