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

[µo°Ý] ¤£¦PSheetÄæ¦ì¸ê®Æ¦P¨B²¾°£

[µo°Ý] ¤£¦PSheetÄæ¦ì¸ê®Æ¦P¨B²¾°£

§Ú¦³¨â±i¤u§@ªí(Sheet1¡BSheet2)

§Ú·Q­n¦bSheet1§R°£¾ãÄ檺®É­Ô

Sheet2¤]§â¸ÓÄæ§R°£

¥Ø«e¬O·Q¨ì¥ÎPrivate Sub Worksheet_Change(ByVal Target As Range)¨Ó§PÂ_Target.Row

¥i¬OUSER¦pªG¦bSheet1¤@¦¸§R°£¦hÄæ(¿ïROW1~ROW3«á§R°£) Target.Row¥u·|§ì¨ìROW1

³o¼Ë§Ú¨S¿ìªk§i¶DSheet2¤]»Ý­n§R°£ROW2~ROW3

µù:
1. USERªº§R°£¦æ¬°·|¬O¾ãÄæ§R°£¡A¤£·|¥u§R°£¬Y­ÓCELL
2. Sheet1&Sheet2Äæ¦ì¹ïÀ³¡A¦ý¸ê®Æ¤£§¹¥þ¬Û¦P
3. Sheet1&Sheet2¤£¶·§PÂ_¸ê®Æ¤º®e¡A¥u­nSheet1§R°£¡ASheet2¤]¸òµÛ§R°£¹ïÀ³ªºROW§Y¥i

¦A½Ð¦U¦ì«ü±Ð

ÁÂÁÂ !

RemoveSheetData.zip (3.97 KB)
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

change ¥i¥H§PÂ_§R°£ÁÙ¬O§ó·s¼Æ¾Ú¶Ü???
¥i¦Ò¼{¥Î[«ö¶s]°õ¦æ§R°£

TOP

¦^´_ 2# ­ã´£³¡ªL

§Ú¥Îchange·Q»¡Sheet1¸òSheet2ªºÁ`Äæ¦ì¨Ó¤ñ
(¥i¯à¥Î=COUNTA(A:A)¨Óºâ)

¦pªGSheet1¤ñSheet2ªºÄæ¦ì¤Ö ´N¬OUSER¦³§R°£

¨º§Ú´N§ìTarget.row¨Ó§RSheet2ªºÄæ¦ì
(¥i¬O²{¦b§R¦hÄæTarget.row§ì¤£¨ì)

¥Ø«e§Æ±æÅýUSERª½Ä±ªº¤è¦¡¨Óª½±µ§R°£

¤£¥Î¦AÂI¿ï«ö¶s¨ÓIJµo±ø¥ó

ÁÙ¬O±z¦³«Øijªº«ö¶s¾Þ§@¤è¦¡

¦A½Ð«ü±Ð

ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

À³¬O [¾ã¦C] §R°£§a~~

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRng As Range
On Error Resume Next
Set xRng = Sheets("Sheet1").Range("XXXX") 'ÀË´ú©w¸q¦WºÙ(Sheet1)¬O§_¦³®Ä  
If Not xRng Is Nothing Then Exit Sub '­YXXXX©w¸q¦WºÙÁÙ¦³®Ä, ªí¥Ü¤£¬O§R°£, ¸õ¥X
Set xRng = Sheets("Sheet2").Range("YYYY") 'ÀË´ú©w¸q¦WºÙ(Sheet2)¬O§_¦³®Ä
On Error GoTo 0
If Not xRng Is Nothing Then xRng.EntireRow.Delete '¦P¨B§R°£Sheet2ªºYYYY¦ì§}¦C
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ThisWorkbook.Names("XXXX").Delete '§R°£©w¸q¦WºÙ
ThisWorkbook.Names("YYYY").Delete '§R°£©w¸q¦WºÙ
On Error GoTo 0
With Target
     If .Columns.Count <> Columns.Count Then Exit Sub '«D¿ï¨ú[¾ã¦C]¸õ¥X
     .Cells.Name = "XXXX" '©w¸q¦WºÙ(Sheet1)
     Sheets("Sheet2").Range(.Address).Name = "YYYY" '©w¸q¦WºÙ(Sheet2)
End With
End Sub

TOP

¦^´_ 4# ­ã´£³¡ªL

·PÁ­㴣³¡ªL´£¿ô

µ§»~... À³¬O§R°£"¦C" !

¤èªk¥i¦æ

¶W¯« !!!

µù¸Ñ¸ÔºÉ

¦Ó¥BÁÙ¦³ÀË´ú¾÷¨î


·PÁª©¥D¨ó§U !

¾Ç²ß¤F !
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

­ì¨Ó©w¸q¦WºÙÁٯ঳³o¥Î³~,¾Ç¨ì¤F.

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD