coafort

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-11-22 09:08 | 只看該作者

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

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

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

2^#

發表於 2021-11-22 09:51 | 只看該作者

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

中學生 Rank: 2

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

3^#

發表於 2021-11-22 10:01 | 只看該作者

回復 coafort

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-11-22 10:28 | 只看該作者

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

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

TOP

coafort

中學生 Rank: 2

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

5^#

發表於 2021-11-22 10:51 | 只看該作者

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

6^#

發表於 2021-11-22 11:26 | 只看該作者

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

中學生 Rank: 2

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

7^#

發表於 2021-11-22 12:09 | 只看該作者

回復 coafort

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

8^#

發表於 2021-11-22 13:00 | 只看該作者

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

coafort