关于窗口录入

comedly · 发表于 2020-2-26 19:35

本帖最后由 comedly 于 2020-2-26 22:13 编辑

本人VBA小白，想求助大神们做过窗口录入的小程序

附件已上传

周周猪 · 发表于 2020-2-26 20:08

不是很明白你的意思，在明细表里具体怎么样填零钱，是填张数还是填金额？

xuwuwx · 发表于 2020-2-26 20:30

本帖最后由 xuwuwx 于 2020-2-26 20:33 编辑

试试，看看是不是你想要的

xuwuwx · 发表于 2020-2-26 20:33

试试，看看是不是你想要的

鄂龙蒙 · 发表于 2020-2-26 20:54

请测试：

填写后保存.rar (25.29 KB, 下载次数: 15)

comedly · 发表于 2020-2-26 21:04

周周猪发表于 2020-2-26 20:08
不是很明白你的意思，在明细表里具体怎么样填零钱，是填张数还是填金额？

纸票填张数零钱填金额

comedly · 发表于 2020-2-26 21:07

鄂龙蒙发表于 2020-2-26 20:54
请测试：

是这个意思的，谢谢

刚开始学VBA，谢谢大家指教

comedly · 发表于 2020-2-26 21:12

xuwuwx 发表于 2020-2-26 20:33
试试，看看是不是你想要的

不知道为什么测试错误，是不是版本的问题

3190496160 · 发表于 2020-2-26 21:23

Sub baocun()
With Sheets("录入核对")
ar = .Range("c2:c12")
If Trim(.[c2]) = "" Then MsgBox "请输入班级": Exit Sub
If Trim(.[c3]) = "" Then MsgBox "请输入缴费人": Exit Sub
.Range("c2:c10") = emoty
.[c12] = ""
End With
With Sheets("流水详单")
ws = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ws, 2).Resize(1, 12) = Application.Transpose(ar)
.Cells(ws, 1) = ws - 1
.Cells(ws, 13) = Now()
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2020-2-26 21:24

自动计算金额，自动写入序号，自动写入日期

工作簿1.rar (21 KB, 下载次数: 19)

		自动登录	找回密码
密码			免费注册

[已解决] 关于窗口录入

最新热点 /1