窗体上插入个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 他是要纠正错误,而非查出错误