返回列表 上一主題 發帖

[發問] 價格刪除張數自動刪除

回復 10# samwang

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

TOP

回復 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

TOP

回復 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

TOP

回復  coafort

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


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

TOP

回復 14# coafort

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

TOP

回復  coafort

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


Image 001.png
2022-1-27 08:35


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

TOP

回復 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

TOP

回復  coafort

請測試看看,謝謝
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Targ ...
samwang 發表於 2022-1-27 09:42


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

TOP

回復 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

TOP

回復  coafort

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With  ...
samwang 發表於 2022-1-27 10:20


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

TOP

        靜思自在 : 唯其尊重自己的人,才更勇於縮小自己。
返回列表 上一主題