coafort

回復 10# samwang

謝謝大大
那請問大大，因為我1~6名稱是從第二個工作表開始
所以實際上位置是2~7
If .Worksheet.Index > 6 Then Exit Sub
那這行要怎麼改呢？
又再請教
如果除了第一個位置，比方27和41這兩個欄位也要這個功能要怎麼寫呢？
非常感謝大大

samwang

回復 11# coafort

那請問大大，因為我1~6名稱是從第二個工作表開始
所以實際上位置是2~7
If .Worksheet.Index > 6 Then Exit Sub
那這行要怎麼改呢？
>>  If .Worksheet.Index =1 Then Exit Sub
       If .Worksheet.Index >7 Then Exit Sub

coafort

回復 12# samwang

報告大大，我改成這樣，其他三個欄位都可以用了
有大大真好
回覆快速又能解決問題
再次感恩大大的鼎力協助: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

那請問大大，因為我1~6名稱是從第二個工作表開始
所以實際上位置是2~7
If .Workshee ...
samwang 發表於 2021-11-22 14:32

請問大大
如果P3到P24刪除，Q3到Q24也會刪除的話
要怎麼寫呢？
謝謝大大

samwang

回復 14# coafort

不好意思，看不太懂意思，請您提供附檔且說明一下條件規則，謝謝

coafort

回復  coafort

不好意思，看不太懂意思，請您提供附檔且說明一下條件規則，謝謝
samwang 發表於 2022-1-26 16:51

下載 (8.59 KB)

2022-1-27 08:35

報告大大，如圖，P這一欄從p3到P25
p3數值刪除Q3就會自動刪除
依此類推
謝謝大大

samwang

回復 16# 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 .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 Targ ...
samwang 發表於 2022-1-27 09:42

報告大大
我只需要p3到P25這幾列
P26以下的希望不影響
不知道這要怎麼改呢
謝謝大大

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 發表於 2022-1-27 10:20

非常感恩S大大
，有您真好:D