- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-4-15
|
À³¬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 |
|