samwang

¦^´_ 1# coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "" Then Range("a2").ClearContents
End If
End Sub

samwang

ÁÂÁ¤j¤j
½Ð°Ý¤j¤j
¦]¬°§Ú¦³¦n´X­Ó¤u§@ªí
µM«á¨C¤@­Ó³£¦n´X¦C
¨º³o¼Ë­n«ç¼g©O
ÁÂÁÂ
coafort µoªí©ó 2021-11-22 10:01

¦]¬°§Ú¦³¦n´X­Ó¤u§@ªí >> ¥i¥H±Nµ{¦¡½X©ñ¦bThisWorkbook
µM«á¨C¤@­Ó³£¦n´X¦C >> ¤£¤ÓÁA¸Ñ·N«ä¡A¥i¥HªþÀÉ¥[¥H»¡©ú¡AÁÂÁÂ

samwang

¦^´_ 5# coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If .Column = 1 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
    End If
End With
End Sub

samwang

½Ð°Ý¤j¤j~§Ú¦³10­Ó¤u§@ªí
¥u¦³1~6»Ý­n³o­Ó¥\¯à
½Ð°Ý­n«ç§ï©O¡H
ÁÂÁ¤j¤j
coafort µoªí©ó 2021-11-22 12:09

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If .Worksheet.Index > 6 Then Exit Sub
    If .Column = 1 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
    End If
End With
End Sub

samwang

¦^´_ 9# coafort


    ½Ð°Ý¤j¤j¡A©Ò¥H¥u¦³1~6¦WºÙªº¤u§@ªí¤~·|¦³®ÄªG¨ä¥L¦WºÙ¤u§@ªí¤£·|µo¥Í®ÄªG¶Ü¡H
>> ¬O«e­±1~6ªº¤u§@ªí¤~·|°õ¦æ¡AÁÂÁÂ

samwang

¦^´_ 11# coafort

¨º½Ð°Ý¤j¤j¡A¦]¬°§Ú1~6¦WºÙ¬O±q²Ä¤G­Ó¤u§@ªí¶}©l
©Ò¥H¹ê»Ú¤W¦ì¸m¬O2~7
If .Worksheet.Index > 6 Then Exit Sub
¨º³o¦æ­n«ç»ò§ï©O¡H
>>  If .Worksheet.Index =1 Then Exit Sub
       If .Worksheet.Index >7 Then Exit Sub

samwang

¦^´_ 14# coafort

¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´·N«ä¡A½Ð±z´£¨ÑªþÀÉ¥B»¡©ú¤@¤U±ø¥ó³W«h¡AÁÂÁÂ

samwang

¦^´_ 16# coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
     If .Worksheet.Index = 1 Then Exit Sub
     If .Worksheet.Index > 7 Then Exit Sub
     If .Column = 16 Then
         If .Count > 1 Then Exit Sub
         If .Value = "" Then .Offset(, 1).ClearContents
     End If
End With
End Sub

samwang

¦^´_ 18# coafort

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
     If .Worksheet.Index = 1 Then Exit Sub
     If .Worksheet.Index > 7 Then Exit Sub
     If .Column = 16 Then
         If .Row < 3 Then Exit Sub
         If .Row > 25 Then Exit Sub
         If .Count > 1 Then Exit Sub
         If .Value = "" Then .Offset(, 1).ClearContents
     End If
End With
End Sub

samwang

½Ð°Ý¤j¤j
¦pªG¦P¤@Äæ
3~23
27~40
»Ý­n³o­Ó¥\¯à
½Ð°Ý¸Ó«ç»ò§ï©O¡H
§Ú§ï¦¨¥H¤U¡A¥u¦³3~23¦³³o¥\¯à¡A ...
coafort µoªí©ó 2022-1-29 08:56

      If .Column = 16 Then
         If .Row < 3 Then Exit Sub
         If .Row > 40 Then Exit Sub
         If .Row = 26 Then Exit Sub
         If .Count > 1 Then Exit Sub
         If .Value = "" Then .Offset(, 1).ClearContents
      End If