價格刪除張數自動刪除 - Excelㄧ般區

1 23

返回列表下一主題上一主題發帖

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

coafort

中學生 Rank: 2

帖子: 53
主題: 12
精華: 0
積分: 113
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2022-4-23

21^# 跳轉到 »

發表於 2022-1-29 08:56 | 只看該作者

回復 coafort

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

請問大大
如果同一欄
3~23
27~40
需要這個功能
請問該怎麼改呢？
我改成以下，只有3~23有這功能，27~40沒有
謝謝大大
  If .Column = 16 Then
      If .Row < 3 Then Exit Sub
      If .Row > 23 Then Exit Sub
      If .Count > 1 Then Exit Sub
      If .Value = "" Then .Offset(, 1).ClearContents
      End If
If .Column = 16 Then
      If .Row < 27 Then Exit Sub
      If .Row > 40 Then Exit Sub
      If .Count > 1 Then Exit Sub
      If .Value = "" Then .Offset(, 1).ClearContents
      End If

TOP

samwang

高中生 Rank: 3 Rank: 3

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

22^#

發表於 2022-1-29 12:21 | 只看該作者

請問大大
如果同一欄
3~23
27~40
需要這個功能
請問該怎麼改呢？
我改成以下，只有3~23有這功能， ...
coafort 發表於 2022-1-29 08:56

   If .Column = 16 Then
      If .Row < 3 Then Exit Sub
      If .Row > 40 Then Exit Sub
      If .Row = 26 Then Exit Sub
      If .Count > 1 Then Exit Sub
      If .Value = "" Then .Offset(, 1).ClearContents
   End If

TOP

coafort