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

[µo°Ý] »ù®æ§R°£±i¼Æ¦Û°Ê§R°£

¦^´_  coafort

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


½Ð°Ý¤j¤j
¦pªG¦P¤@Äæ
3~23
27~40
»Ý­n³o­Ó¥\¯à
½Ð°Ý¸Ó«ç»ò§ï©O¡H
§Ú§ï¦¨¥H¤U¡A¥u¦³3~23¦³³o¥\¯à¡A27~40¨S¦³
ÁÂÁ¤j¤j
  If .Column = 16 Then
        If .Row < 3 Then Exit Sub
        If .Row > 23 Then Exit Sub
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If
    If .Column = 16 Then
        If .Row < 27 Then Exit Sub
        If .Row > 40 Then Exit Sub
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
        End If

TOP

½Ð°Ý¤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

TOP

If .Column = 16 Then
         If .Row < 3 Then Exit Sub
         If .Row > 40 Then Exit  ...
samwang µoªí©ó 2022-1-29 12:21


¤j¤j±z¦n
3~40·í¤¤
24~26³o¤T¦C¬O¤£»Ý­nªº
¤j¤jªº¤è¦¡¦n¹³¥u¦³26
ÁÙ¬O»¡¥t¥~24 25¤]¬O­n¿é¤J©O¡H
ÁÂÁ¤j¤j

TOP

¤j¤j±z¦n
3~40·í¤¤
24~26³o¤T¦C¬O¤£»Ý­nªº
¤j¤jªº¤è¦¡¦n¹³¥u¦³26
ÁÙ¬O»¡¥t¥~24 25¤]¬O­n¿é¤J©O¡H
...
coafort µoªí©ó 2022-1-29 12:44


If .Row >= 24 And .Row <= 26 Then Exit Sub

TOP

If .Row >= 24 And .Row
samwang µoªí©ó 2022-1-29 13:56


ÁÂÁ¤j¤j
²×©ó¥i¥H¤F
¦³¤j¤j¯u¦n
¯¬ºÖ¤j¤jªê¦~¦æ¤j¹B
·s¦~¤j§Ö¼Ö:D

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD