6.5-删除问题

本节功能就比较简单了，根据用户输入的ID号，将数据库中对应的那一行信息删除即可，再重新显示数据库的信息，即调用上一节的过程即可。

代码如下

Sub delProblem()
    Set sht = ThisWorkbook.Worksheets("问题管理")
    questionID = sht.Range("E16")
    maxRow = sht.Cells(Rows.Count, "Q").End(xlUp).Row
    
    For i = 3 To maxRow Step 1
        existsID = sht.Cells(i, "J")
        If existsID = questionID Then
            sht.Range("J" & i & ":X" & i).Select
            Selection.Delete Shift:=xlUp
        End If
    Next
    
    Call showAllProblem
End Sub

关于删除某一行区域核心代码如下，分为两步：选中拟删除区域，执行删除。具体代码也是先录入宏，然后稍作修改即可。

            sht.Range("J" & i & ":X" & i).Select
            Selection.Delete Shift:=xlUp