是否可以限制行选择？

Question

我试图用vba做一个按钮来删除Excel表中的一行，但当我按下按钮并选择不止一行或许多单元格时，我想限制从E到I的选择（和行的数量无关）这里是我的代码，非常感谢，希望你能帮助我，我还没有找到任何类似的东西。

Sub delete_a_row()
Dim variable As Range


 On Error GoTo local_err
     CONFIRM = MsgBox("do you wanna delete a row?", vbYesNo + vbExclamation, "delete row")
        If (CONFIRM = vbYes) Then

                Set variable = Application.InputBox("select a row", "delete row", , , , , , 8)
                Range(variable.Address).Select
                Selection.Delete Shift:=xlUp

        End If
local_err:
End Sub

Answer 1

e到 i列的 选择的 第一个范围（如果不连续）的第一个 行。
• 我所说的first range的意思是，如果选择一个以6行开始的范围，并按Ctrl并选择另一个以2行开始的范围，则将删除第6行（请参见range.areace).

代码

Option Explicit

Sub delete_a_row()
    Dim Confirm
    On Error GoTo local_err
    Confirm = MsgBox("do you wanna delete a row?", _
                     vbYesNo + vbExclamation, "delete row")
    If (Confirm = vbYes) Then
        Dim variable As Range
        On Error Resume Next
        Set variable = Application.InputBox("select a row", _
                                            "delete row", , , , , , 8)
        If Err.Number = 0 Then
            On Error GoTo local_err
            With variable
                Range(Cells(.Row, "E"), Cells(.Row, "I")).Delete Shift:=xlUp
            End With
        Else
            On Error GoTo local_err
            MsgBox "User cancelled."
        End If
    Else
        MsgBox "User selected No."
    End If
local_err:
End Sub