如何利用窗体实现指定项目数据的输入？

作者：绿色风分类：时间：2022-08-17 浏览：126

楼主
omnw

Q：如何利用窗体实现指定项目数据的输入？
A：
打开“输入数据”窗体，在窗体的组合框中会自动添加项目的名称，具体代码如下：

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Range("IV1").End(xlToLeft).Column'将第二行的项目名称逐个添加到组合框中。
Me.ComboBox1.AddItem Cells(1, i)
Next i
Me.ComboBox1.Value = Me.ComboBox1.List(1)'设置组合框的默认值
End Sub

选择正确的项目名称，并输入正确的数值后，点击“添加”，会自动将数值添加到项目下方的单元格中。代码如下：

Private Sub CommandButton1_Click()
Dim rng As Range
On Error Resume Next
Set rng = Rows(1).Find(Me.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole) '获取当前项目所在的单元格。
If Not rng Is Nothing Then
If Me.TextBox1.Value <> "" Then '输入非空值，则正确赋值
rng.Offset(1, 0) = Me.TextBox1.Value '将输入的值填充到项目名称下方的单元格中。
Me.TextBox1.Value = ""
Else
MsgBox "未输入数值，请检查！"
End If
Else
MsgBox "项目名称不正确，请重新选择！"
End If
End Sub

a.rar

2楼
纵鹤擒龙水中月

学习了

3楼
初学者2012

学习了**！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表