2016 - 2024

感恩一路有你

使用VBA进行Excel表格的数据录入

浏览量:1891 时间:2024-01-27 22:54:38 作者:采采

在Excel表格中,我们经常需要在一个工作表里面录入信息,并且希望在另一个工作表中记录所录入的信息。这时候,我们可以使用VBA程序来完成这个任务。

打开VBA编辑器并插入模块

首先,在Excel的菜单栏上点击【开发工具】,再点击【Visual Basic】,以打开VBA编辑器。然后,在VBA编辑器的菜单栏上点击【插入】,再点击【模块】,以插入一个新的模块。

在新的模块中,输入以下代码:

Sub MatchInput()
    Dim i, j, m, k As Long
    Dim msg, style, title, ans
    On Error Resume Next
    Set mysheet1  ("Sheet1")
    Set mysheet2  ("Sheet2")
    msg  "该用户信息已经存在,是否替换?"
    style  vbYesNoCancel
    title  "温馨提示"
    m  (mysheet1.Cells(2, 2), mysheet2.Range("A1:A1000"), 0)
    ' 计算单元格所在的位置
    If m > 1 Then
        ' 如果数据表里面已经存在,则弹出提示窗口,然后进行选择
        ans  MsgBox(msg, style, title)
        If ans  vbYes Then
            ' 如果选择“是”,则原来表格里面的数据将会被替换
            For j  1 To 4
                ' 填充该单元格所在位置的1-4列
                mysheet2.Cells(m, j)  mysheet1.Cells(j, 2)
            Next
        End If
        If ans  vbNo Then
            ' 如果选择“否”,则在原来表格里面找到空白的单元格写入
            For k  2 To 1000
                If mysheet2.Cells(k, 1)  "" Then
                    For j  1 To 4
                        mysheet2.Cells(k, j)  mysheet1.Cells(j, 2)
                    Next
                    Exit For
                End If
            Next
        End If
    Else
        ' 如果不存在,则在原来数据表格里面找到一行空白进行填充
        For k  2 To 1000
            If mysheet2.Cells(k, 1)  "" Then
                For j  1 To 4
                    mysheet2.Cells(k, j)  mysheet1.Cells(j, 2)
                Next
                Exit For
            End If
        Next
    End If
End Sub

在表格中插入矩形并指定宏

回到Sheet1工作表界面,在菜单栏上点击【插入】,选择“矩形”插入到表格中,并填充所需的颜色和文字。

然后,右击已经绘制的矩形图形,在弹出菜单中选择“指定宏”。在“指定宏”对话框中,选择之前编写的VBA名称(例如:MatchInput)。

录入信息并执行操作

现在,您可以在要录入信息的区域输入相关信息,并点击“录入”按钮,即可将信息录入到工作表中。

如果录入的信息(姓名)在原来的表格中已经存在,则会弹出提示信息,然后进行选择。如果选择“是”,则会替换原来的信息;如果选择“否”,则会新增一行信息;如果选择“取消”,则不会录入信息。

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。