【AI+Excel操作实例】我用DeepSeek制作了一个表单录入工具，让Excel像网页一样！

本文链接：https://blog.csdn.net/Gaga246/article/details/147784727

前言

前期测试发现DeepSeek在代码编写能力上十分优异，因此DeepSeek已经成为了作者在工作中不可或缺的搭档。

本期我们利用DeepSeek制作了一个实用小功能：【表单录入工具】。对销售数据、出入库数据的可视化录入、数据源的保护具有极大的优势。功能实现的效果如下图：

即使你是一个纯新手，也可以根据DeepSeek的指令完成这个功能的设计。当然，你也可以跟着本文的步骤进行，你会发现有AI的助力，很多操作真的很简单。

01、步骤一：设计数据结构

依据需求，我用sheet1作为录入界面，sheet2作为数据库。希望实现的效果是：普通销售人员仅可以使通过Sheet1的表单工具录入输入数据，无权查看数据源（sheet2直接隐藏）；而数据库维护者或者管理人员可以查看和编辑sheet2全部的数据（如下图）。

这样一方面可以做到数据保密，另一方面也可以确保数据源不会被误修改或误删除。

02、用DeepSeek生成代码

然后我在DeepSeek中输入如下指令即可：

DeepSeek就会帮我生成一个VBA代码，并附上了详细的操作步骤。

' 在ThisWorkbook对象中添加以下代码（双击ThisWorkbook打开代码窗口）Private Sub Workbook_Open()    With ThisWorkbook        .Sheets("Sheet2").Visible = xlSheetVeryHidden        .Sheets("Sheet2").Protect Password:="admin123", UserInterfaceOnly:=True        .Sheets("Sheet1").Activate    End WithEnd Sub
' 在标准模块中添加以下代码（按Alt+F11，插入->模块）Option Explicit
Sub AddData()    Dim ws1 As Worksheet, ws2 As Worksheet    Set ws1 = ThisWorkbook.Sheets("Sheet1")    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    ' 解除保护以便写入数据    ws2.Unprotect "admin123"
    Dim inputRange As Range    Set inputRange = ws1.Range("E11:J35")
    Dim lastRow As Long    lastRow = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1
    Dim dataAdded As Boolean    dataAdded = False
    Dim currentRow As Range    For Each currentRow In inputRange.Rows        If Application.CountA(currentRow) > 0 Then            Dim rowData As Variant            rowData = currentRow.Value
            ' 验证编码            If Len(CStr(rowData(1, 3))) <> 9 Or Not IsNumeric(rowData(1, 3)) Then                MsgBox "第" & currentRow.Row & "行编码错误：必须为9位数字！", vbCritical                ws2.Protect "admin123"                Exit Sub            End If
            ' 处理日期            If IsEmpty(rowData(1, 1)) Then rowData(1, 1) = Date
            ' 写入数据            With ws2                .Cells(lastRow, 1).Resize(1, 6).Value = rowData                lastRow = lastRow + 1            End With            dataAdded = True        End If    Next
    ' 重新保护Sheet2    ws2.Protect "admin123", UserInterfaceOnly:=True
    If dataAdded Then        inputRange.ClearContents        MsgBox "数据添加成功！", vbInformation    Else        MsgBox "未检测到有效数据！", vbExclamation    End IfEnd Sub
Sub CancelInput()    ThisWorkbook.Sheets("Sheet1").Range("E11:J35").ClearContents    MsgBox "录入内容已清空！", vbInformationEnd Sub
Sub ShowSheet2()    Dim pwd As String    pwd = InputBox("请输入管理员密码：", "权限验证")
    If pwd = "admin123" Then        Application.ScreenUpdating = False        With ThisWorkbook.Sheets("Sheet2")            .Unprotect "admin123"            .Visible = xlSheetVisible            .Activate        End With        Application.ScreenUpdating = True    Else        MsgBox "密码错误，访问被拒绝！", vbCritical    End IfEnd Sub