返回列表 上一主題 發帖

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

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

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

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

TOP

回復  coafort

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


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

TOP

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

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

TOP

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


就是這個資料不只有一行
而是有好幾百行以上
比方
謝謝大大
123..png
6 天前 10:51

TOP

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

TOP

回復  coafort

請測試看看,謝謝
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Targe ...
samwang 發表於 2021-11-22 11:26


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

TOP

請問大大~我有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

TOP

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


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

TOP

回復 9# coafort


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

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題