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

coafort

請教各位大大
a1是價格
a2是張數
兩個儲存格的數字都是要用手動輸入
請問有辦法設計成
a1如果刪除了
a2會自動刪除嗎？
謝謝

samwang

回復 1# coafort

請測試看看，謝謝
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = "" Then Range("a2").ClearContents
End If
End Sub

coafort

回復  coafort

請測試看看，謝謝
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.A ...
samwang 發表於 2021-11-22 09:51

謝謝大大
請問大大
因為我有好幾個工作表
然後每一個都好幾列
那這樣要怎寫呢
謝謝

samwang

謝謝大大
請問大大
因為我有好幾個工作表
然後每一個都好幾列
那這樣要怎寫呢
謝謝
coafort 發表於 2021-11-22 10:01

因為我有好幾個工作表 >> 可以將程式碼放在ThisWorkbook
然後每一個都好幾列 >> 不太瞭解意思，可以附檔加以說明，謝謝

coafort

因為我有好幾個工作表 >> 可以將程式碼放在ThisWorkbook
然後每一個都好幾列 >> 不太瞭解意思，可以附檔 ...
samwang 發表於 2021-11-22 10:28

就是這個資料不只有一行
而是有好幾百行以上
比方
謝謝大大

下載 (4.83 KB)

2021-11-22 10:51

samwang

回復 5# coafort

請測試看看，謝謝
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If .Column = 1 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 Targe ...
samwang 發表於 2021-11-22 11:26

請問大大~我有10個工作表
只有1~6需要這個功能
請問要怎改呢？
謝謝大大

samwang

請問大大~我有10個工作表
只有1~6需要這個功能
請問要怎改呢？
謝謝大大
coafort 發表於 2021-11-22 12:09

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If .Worksheet.Index > 6 Then Exit Sub
    If .Column = 1 Then
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1).ClearContents
    End If
End With
End Sub

coafort

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
    If ...
samwang 發表於 2021-11-22 13:00

謝謝大大，可以了:D
請問大大，所以只有1~6名稱的工作表才會有效果其他名稱工作表不會發生效果嗎？
謝謝大大

samwang

回復 9# coafort


    請問大大，所以只有1~6名稱的工作表才會有效果其他名稱工作表不會發生效果嗎？
>> 是前面1~6的工作表才會執行，謝謝