1234
返回列表 上一主題 發帖

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

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
11# 跳轉到 »
發表於 2021-11-22 13:34 | 只看該作者
回復 10# samwang

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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
12#
發表於 2021-11-22 14:32 | 只看該作者
回復 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

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
13#
發表於 2021-11-22 14:36 | 只看該作者
回復 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

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
14#
發表於 2022-1-26 15:02 | 只看該作者
回復  coafort

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


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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
15#
發表於 2022-1-26 16:51 | 只看該作者
回復 14# coafort

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

TOP

coafort

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
16#
發表於 2022-1-27 08:36 | 只看該作者
回復  coafort

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




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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
17#
發表於 2022-1-27 09:42 | 只看該作者
回復 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

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
18#
發表於 2022-1-27 09:57 | 只看該作者
回復  coafort

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


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

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
19#
發表於 2022-1-27 10:20 | 只看該作者
回復 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

帖子
162 
主題
33 
精華
0 
積分
243 
點名
0  
作業系統
win7 
軟體版本
excel 2003 
閱讀權限
20 
註冊時間
2018-1-5 
最後登錄
2024-10-22 
20#
發表於 2022-1-27 13:36 | 只看該作者
回復  coafort

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


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

TOP

        靜思自在 : 多做多得。少做多失。
1234
返回列表 上一主題