coafort

¦^´_ 10# samwang

ÁÂÁ¤j¤j
¨º½Ð°Ý¤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
¤S¦A½Ð±Ð
¦pªG°£¤F²Ä¤@­Ó¦ì¸m¡A¤ñ¤è27©M41³o¨â­ÓÄæ¦ì¤]­n³o­Ó¥\¯à­n«ç»ò¼g©O¡H
«D±`·PÁ¤j¤j

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

coafort

¦^´_ 12# samwang

³ø§i¤j¤j¡A§Ú§ï¦¨³o¼Ë¡A¨ä¥L¤T­ÓÄæ¦ì³£¥i¥H¥Î¤F
¦³¤j¤j¯u¦n
¦^ÂЧֳt¤S¯à¸Ñ¨M°ÝÃD
¦A¦¸·P®¦¤j¤jªº¹©¤O¨ó§U:loveliness:

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 = 41 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
    If .Column = 27 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
    If .Column = 1 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
End With
End Sub

coafort

¦^´_  coafort

¨º½Ð°Ý¤j¤j¡A¦]¬°§Ú1~6¦WºÙ¬O±q²Ä¤G­Ó¤u§@ªí¶}©l
©Ò¥H¹ê»Ú¤W¦ì¸m¬O2~7
If .Workshee ...
samwang µoªí©ó 2021-11-22 14:32

½Ð°Ý¤j¤j
¦pªGP3¨ìP24§R°£¡AQ3¨ìQ24¤]·|§R°£ªº¸Ü
­n«ç»ò¼g©O¡H
ÁÂÁ¤j¤j

samwang

¦^´_ 14# coafort

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

coafort

¦^´_  coafort

¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´·N«ä¡A½Ð±z´£¨ÑªþÀÉ¥B»¡©ú¤@¤U±ø¥ó³W«h¡AÁÂÁÂ
samwang µoªí©ó 2022-1-26 16:51

¤U¸ü (8.59 KB)

2022-1-27 08:35

³ø§i¤j¤j¡A¦p¹Ï¡AP³o¤@Äæ±qp3¨ìP25
p3¼Æ­È§R°£Q3´N·|¦Û°Ê§R°£
¨Ì¦¹Ãþ±À
ÁÂÁ¤j¤j

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

coafort

¦^´_  coafort

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Targ ...
samwang µoªí©ó 2022-1-27 09:42

³ø§i¤j¤j
§Ú¥u»Ý­np3¨ìP25³o´X¦C
P26¥H¤Uªº§Æ±æ¤£¼vÅT
¤£ª¾¹D³o­n«ç»ò§ï©O
ÁÂÁ¤j¤j

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

coafort

¦^´_  coafort

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With  ...
samwang µoªí©ó 2022-1-27 10:20

«D±`·P®¦S¤j¤j
¡A¦³±z¯u¦n:D