[µo°Ý] ¦p¦ó²Ä¤@±i¤u§@ªí°õ¦æ¥¨¶°«á¡A²Ä¤G±i¤u§@ªí¤]¤@°_°õ¦æ

onoff

¦³2­ÓModule, Module1 and 2¡A¦³2±i¤u§@ªí

¤u§@ªí1ªº¤@­Ó«ö¶s³]¤F¤@­Ó¥¨¶°¡A·í«ö¤U¥h«á°õ¦æModule1ªºµ{¦¡¡A¦P®É§Æ±æ§ó·s¤u§@ªí2ªºB1Äæ¦ì¡A

³o®É¦]¤u§@ªí2³]©w¡A­Y¤u§@ªí2¦³¥ô¦óÅܧó¡A§Y°õ¦æ¤u§@ªí2ªºµ{¦¡¡C
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
    ...
    ...
§Ú·Q¨ìªº¤è¦¡¬O
Sheets("¤u§@ªí1").Select
Range("A2").Select
Set myRng = Range("A2")
...
...
Sheets("¤u§@ªí1").Select '°õ¦æ§¹«á±N"A2"²MªÅ«áA3ªº©¹¤W¤@®æ¨ìA2
    Range("A2").Select
    Selection.Delete Shift:=xlUp
-------------------------------------------------
Sheets("¤u§@ªí2").Select
Range("B1").Select
¦ý¤£ª¾¦p¦óÅܧó¤u§@ªí2ªº"B1"Äæ¦ìµ¥©ó¤u§@ªí1ªº"A2"
«á¤S°õ¦æ¤u§@ªí2¤ºªºµ{¦¡¡C

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then