1、ALT + F11 2、工具——附加控件 勾选 Microsot Listciew Control,version 6.0 3、在工具箱窗体上点击刚才附加的Listview控件,在的设计窗体按需要画出表格大小 4、双击Listview1,根据需要写入代码
.Cells(EmptyRow, 6) = cbJSR.Text .Cells(EmptyRow, 7) = DTPicker1 .Cells(EmptyRow, 8) = cbJSTS.Text end with
“假如数据存放于a列, 在b1输入=counta(A:A)”代码 sub aa()a=sheet1.cells(1,2) 或用a=application.worksheetfunction.counta(sheet1.range("A:A"),这样 “”里的内容就不用了 sheet1.cells(a,1)=userform1.textbox1.value end sub 不错不错!如果数据量不大话,差异不会太明显,不必...
建议:添加一个辅助数据: Cells(i, 6) = DTPicker1.Value & ComboBox2.Text & ComboBox1.Text 用作索引字段 然后在写入工作表之前,增加一个判断:Dim rng as RangeSet rng = Columns(6).Find(DTPicker1.Value & ComboBox2.Text & ComboBox1.Text)If rng is not nothing then Msgbox ...
一种是选择你要录入数据的区域,再通过菜单“工具”->“记录单”,EXCEL就会弹出一个数据录入窗体。第二种方法是按“ALT+F11”进入VBA编辑器,在这里,你可以插入一个用户窗体,这个可能对没有接触过编程的人来说有些复杂,但功能确实比前一种方法要强劲得多了。答题不易,互相理解,您的采纳是我...
1、首先,在Excel表格中输入如图内容,以方便在VBA中进行读取和处理操作。2、进入VBA环境,可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”,从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”,右击“按钮”,从其扩展菜单中选择“属性”项。...
Private Sub CommandButton1_Click()With Sheets(1) Row = .Range("A65536").End(xlUp).Row If Row = 1 And .Range("A" & Row) = "" Then Row = 0 .Range("A" & Row + 1).Value = TextBox1.ValueEnd WithEnd Sub方法2:Dim N As LongPrivate Sub CommandButton1_Clic...
A1是: cells(1,1)=TextBox1.value A2是: cells(2,1)=TextBox2.value A3是: cells(3,1)=TextBox3.value A4是: cells(4,1)=TextBox4.value
select * from 库存 where 产品ID='" & me.产品ID & "'"if Not rs.BOF and Not rs.EOF then CurrentDB.execute " update 库存 set 库存量=rs("库存量")+me.入库数量 where 产品ID='" & me.产品ID & "'"end if
窗体上插入个textbox控件,就可以输入数据 弹出窗体,可以用代码实现,假设窗体名为userform1 则 Userform1.show