|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
控件多了,有的时候对应到单元格会出错,借助Array写入,代码简化的同时也把出错率降低了。仅供参考!
Private Sub CmdOk_Click() '写入工作表
ar = Array("日期", "当日单号", "一级类目", "二级类目", "三级类目", "对方单位", "概要", "所属项目", "经办人", "付款人", "资金来源")
For i = 0 To UBound(ar)
If Me.Controls(ar(i)) = "" Then
MsgBox "请录入:" & ar(i), vbCritical, "友情提示"
Me.Controls(ar(i)).SetFocus
Exit Sub
End If
Next
Dim xrow As Long '定义变量xrow,用来保存要输入数据的工作表行号
xrow = Range("A4").CurrentRegion.Rows.Count + 3 '求工作表中第1条空行的行号
For i = 0 To UBound(ar)
Cells(xrow, i + 3) = Me.Controls(ar(i)).Value
Me.Controls(ar(i)).Value = ""
Next
End Sub
|
|