求助VBA设计一个数据录入窗口，记录到EXCEL表中。

bigqq88237

如题，求助各位大神，我想做一个数据录入的表，选择员工姓名，选择业绩项目，输入业绩数值，选择营销日期后，点击按钮，就会在该员工的表格中，找到业绩行，日期列，录入数据。具体见附件。求助大家，不胜感谢！！！！

bigqq88237

跪谢，顶起。。

zpy2

点击按钮，就会在该员工的表格中

建议看看数据透视表的数据结构，把所有员工记录在一张表比较好处理。

iρ记得笑

点击附件文件名添加到帖子内容中

bigqq88237

iρ记得笑 发表于 2024-1-28 15:57
点击附件文件名添加到帖子内容中

您的是什么版本？我的2016怎么打不开？WPS倒是可以，但要充值。

3190496160

Private Sub CommandButton1_Click() ''录入
yg = ComboBox1.Text
xm = ComboBox2.Text
rq = ComboBox3.Text
sl = TextBox1.Text
rr = Array(yg, xm, rq, sl)
For i = 0 To UBound(rr)
    If rr(i) = "" Then
        m = m + 1
    End If
Next i
If m <> "" Then MsgBox "请把信息录入完整！": Exit Sub
Dim rn As Range
With Sheets(yg)
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    Set rn = .Range("b3:c" & r).Find(xm, , , , , , 1)
    If rn Is Nothing Then MsgBox yg & "中找不到" & xm & "！": Exit Sub
    w = rn.Row
    lh = Val(rq) + 3
    .Cells(w, lh) = sl
End With
ComboBox2.Text = ""
MsgBox "录入成功！"
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Index > 1 Then
        d(sh.Name) = ""
    End If
Next sh
ComboBox1.List = d.keys
With Sheet2
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b3:b" & r)
End With
ComboBox2.List = ar
ComboBox3.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)
End Sub

3190496160

求助.rar (103.57 KB, 下载次数: 53)

2024-1-29 07:51 上传

点击文件名下载附件

iρ记得笑

bigqq88237 发表于 2024-1-28 18:14
您的是什么版本？我的2016怎么打不开？WPS倒是可以，但要充值。

wps最新版本，网上找个vba插件安装vba即可。

bigqq88237

iρ记得笑 发表于 2024-1-29 08:35
wps最新版本，网上找个vba插件安装vba即可。

受我一拜，位享庙堂解决我大问题了！！！