返回列表 上一主題 發帖

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

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

請問大大
如果同一欄
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

If .Column = 16 Then
         If .Row < 3 Then Exit Sub
         If .Row > 40 Then Exit  ...
samwang 發表於 2022-1-29 12:21


大大您好
3~40當中
24~26這三列是不需要的
大大的方式好像只有26
還是說另外24 25也是要輸入呢?
謝謝大大

TOP

大大您好
3~40當中
24~26這三列是不需要的
大大的方式好像只有26
還是說另外24 25也是要輸入呢?
...
coafort 發表於 2022-1-29 12:44


If .Row >= 24 And .Row <= 26 Then Exit Sub

TOP

If .Row >= 24 And .Row
samwang 發表於 2022-1-29 13:56


謝謝大大
終於可以了
有大大真好
祝福大大虎年行大運
新年大快樂:D

TOP

        靜思自在 : 生氣,就是拿別人的過錯來懲罰自己。
返回列表 上一主題