我想做一个EXCEL窗体窗体里可以选择日期、项目、金额并有确定、取消按钮
实现该功能,需要使用VBA编写代码来创建窗体和处理按钮事件。以下是实现步骤:
- 打开Excel并按下ALT + F11键,打开VBA编辑器。
- 在VBA编辑器中,右键单击工程名,并选择插入->用户窗体。
- 在窗体设计器中,添加三个标签分别命名为“日期”,“项目”和“金额”,并添加对应的组合框和文本框控件。
- 添加确定和取消按钮,并设置对应的事件处理程序。
- 在窗体代码模块中,编写以下VBA代码:
Private Sub UserForm_Initialize() '初始化窗体 '设置日期控件格式 Me.cboDate.Format = "yyyy-mm-dd" '添加项目选项 Me.cboProject.AddItem "项目A" Me.cboProject.AddItem "项目B" End Sub
Private Sub btnOK_Click() '确定按钮事件处理程序 '获取选择的日期、项目和金额 Dim selDate As Date Dim selProject As String Dim selAmount As Double
selDate = Me.cboDate.Value
selProject = Me.cboProject.Value
selAmount = CDbl(Me.txtAmount.Value)
'在当前工作表中添加数据
With ActiveSheet
.Range("A1").End(xlDown).Offset(1, 0).Value = selDate
.Range("B1").End(xlDown).Offset(1, 0).Value = selProject
.Range("C1").End(xlDown).Offset(1, 0).Value = selAmount
End With
'关闭窗体
Me.Hide
End Sub
Private Sub btnCancel_Click() '取消按钮事件处理程序 '关闭窗体 Me.Hide End Sub
- 在Excel中打开要添加数据的工作表,并按下ALT + F8键,打开宏窗口。
- 在宏窗口中,添加名为“ShowForm”的宏,代码如下:
Sub ShowForm() '显示窗体 frmDataEntry.Show End Sub
- 关闭VBA编辑器和宏窗口。
- 在Excel中添加一个按钮或菜单项,将其链接到“ShowForm”宏。
- 单击按钮或菜单项,显示窗体,选择日期、项目和金额,单击确定按钮将数据添加到当前工作表中
原文地址: https://www.cveoy.top/t/topic/e1XI 著作权归作者所有。请勿转载和采集!