当前页面位置: » 丰搜网 » 文档中心 » 详细内容
用excel组件简化vb编程的一种方法
使用编辑器步骤如下：进入excel97后，用鼠标点击菜单栏中的“工具”按钮，选择“宏”，再选择“vb编辑器”。即出现类似于vb的标准窗口。
由于“vb编辑器”的编辑界面非常类似于“visual basic”的界面。所以我们可以从它的控件“工程资源管理器”中插入需要的“添加用户窗体、添加模块、添加类模块”，并且从“属性窗口”中加入属性。
例如，我们可以制定一个表格处理定位的窗体，通过程序来实现数据定位和循环调用过程。
public decide as boolean
private sub commandbutton1_click()
exchange
if decide then
unload me
else
textbox1.text = ""
end if
end sub
sub exchange()
if not decideday(textbox1.text) then goto error
decide = true
dim sql as string
dim db as database
dim rs as recordset
sql = "select * from 数据表"
sql = sql + " where (((数据表.日期)=#" + textbox1.text
+ "#))"
set db = opendatabase(application.thisworkbook.path
+ "gl.mdb")
set rs = db.openrecordset(sql, dbopendynaset)
if rs.eof then
msgbox ("此日期无数据")
exit sub
end if
daima1 = rs.fields("代码")
（以下为数据在表格中的定位及调用）
sheet1.range("e5").value = rs.fields("日期")
sheet1.range("f7").value = rs.fields("数据表记录")
sheet1.range("d12").value = rs.fields("实数100")
sheet1.range("d14").value = rs.fields("实数50")
sheet1.range("d16").value = rs.fields("实数10")
sheet1.range("d18").value = rs.fields("实数5")
sheet1.range("d20").value = rs.fields("实数2")
sheet1.range("d22").value = rs.fields("实数1")
sheet1.range("h12").value = rs.fields("其他100")
sheet1.range("h14").value = rs.fields("其他50")
sheet1.range("h16").value = rs.fields("其他10")
sheet1.range("h18").value = rs.fields("其他5")
sheet1.range("h20").value = rs.fields("其他2")
sheet1.range("h22").value = rs.fields("其他1")
sheet1.range("d38").value = sheet1.range("d12").value *
100 + sheet1.range("d14").value * 50 +
sheet1.range("d16").value * 10 +
sheet1.range("d18").value * 5 +
sheet1.range("d20").value * 2 +
sheet1.range("d22").value
sheet1.range("h38").value = sheet1.range("h12").value *
100 + sheet1.range("h14").value * 50 +
sheet1.range("h16").value * 10 +
sheet1.range("h18").value * 5 +
sheet1.range("h20").value * 2 +
sheet1.range("h22").value
dim sql1 as string
dim db1 as database
dim rs1 as recordset
sql1 = "select * from 代码字典"
sql1 = sql1 + " where (((代码字典.代码)=" & daima1 & "))"
set db1 = opendatabase(application.thisworkbook.path +
"gl.mdb")
set rs1 = db1.openrecordset(sql1, dbopendynaset)
sheet1.range("h41").value = rs1.fields("代码字典名称")
exit sub
error:
msgbox ("日期输入错误")
decide = false
end sub
private sub textbox1_change()
end sub
private sub userform_activate()
dyaaa.top = 30
dybbb.left = 230
end sub |
