snrg.net
当前位置:首页 >> vBA窗体设计数据输入 >>

vBA窗体设计数据输入

窗体上插入个textbox控件,就可以输入数据 弹出窗体,可以用代码实现,假设窗体名为userform1 则 Userform1.show

这不用vba代码,公式就可以搞定.在任意单元格输入="xxxxxxxxxx"&text(row(a1)-1,"0000000")&"1"&right(10-mod(row(a1)-1,10)) 公式向下复制就可以了.

private sub command1_click() dim a(几个?) as string dim i as integer for i=0 to ubound(a) a(i)=inputbox("输入数据") next end sub

Sheets("工作月报").Range("A6:A100") = ("需要输入的数据")Sheets("工作月报").Range("B6:B100") = ("需要输入的数据")如果每次的数据不同,则可以遍历每个单元格:dim i %for i =6 to 100Sheets("工作月报").Range("A"&i) =("需要输入的数据")Sheets("工作月报").Range("B"&i) =("需要输入的数据")next

加入一个按钮,然后在按钮事件中写入赋值语句就可以了,如cells(1,1)=textbox1.text需要保存数据时,就点击一下按钮.诸如此类吧.

设置一下子窗体,窗体的位置(top,left)、大小(height,width). 希望对你有所帮助!!

1、ALT + F112、工具附加控件 勾选 Microsot Listciew Control,version 6.03、在工具箱窗体上点击刚才附加的Listview控件,在的设计窗体按需要画出表格大小4、双击Listview1,根据需要写入代码

1.你可以在do loop循环中加入判断语句 Do i = i + 1 if Cells(i, 2) = DTPicker1.Value _and '日期 Cells(i, 3) = ComboBox2.Text _and '时间 Cells(i, 4) = ComboBox1.Text _and '人员 Cells(i, 5) = TextBox1.Text then '事项 msgbox "已存在!" exit do

直接用VBA代码控制操作方法:步骤1:插入文本框后,右击文本框>>>查看代码(或双击文本框),就会自动打开VBA编辑器的代码窗口,并自动输入了下面的代码:Private Sub TextBox1_Change()End Sub步骤2:在代码中间添加一句[a1] = TextBox1.Value最终代码如下Private Sub TextBox1_Change()[a1] = TextBox1.ValueEnd Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then TextBox1 = Format(Replace(TextBox1, ".", "."), "0.00") [Sheet2].Range("A1").Value = TextBox1 End If End Sub 他是要纠正错误,而非查出错误

rjps.net | eonnetwork.net | kcjf.net | lhxq.net | bestwu.net | 网站首页 | 网站地图
All rights reserved Powered by www.snrg.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com