excel宏代码-打开记录单

在新模块中输入以下代码：

Sub OpenRecordForm()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
    End If
    ws.ShowDataForm
End Sub

这段代码首先检查当前活动工作表是否处于筛选模式，如果是则关闭筛选模式，然后使用“ShowDataForm”方法打开记录单。