VB6在excel2003中查找的问题,菜鸟
有一EXCEL文件,D:\1.xls,sheet1的A列为名称ID号,B列为某些数据。建一VB工程,有控件TEXT1、TEXT2、TEXT3、COMMAND1,在TEXT...
有一EXCEL文件,D:\1.xls,sheet1的A列为名称ID号,B列为某些数据。建一VB工程,有控件TEXT1、
TEXT2、TEXT3、COMMAND1,在TEXT1里输入一个ID号,在TEXT2里输入一数,按COMMAND1,查找EXCEL文件中
所对应的ID号,比如说在A1单元格,提取这个ID号所在行的第二个单元格,也就是B1单元格中的数据再乘
以TEXT2的数据,将相乘的结果显示在TEXT3,完成。请问如何编写?谢谢!
能不能再具体些 展开
TEXT2、TEXT3、COMMAND1,在TEXT1里输入一个ID号,在TEXT2里输入一数,按COMMAND1,查找EXCEL文件中
所对应的ID号,比如说在A1单元格,提取这个ID号所在行的第二个单元格,也就是B1单元格中的数据再乘
以TEXT2的数据,将相乘的结果显示在TEXT3,完成。请问如何编写?谢谢!
能不能再具体些 展开
3个回答
展开全部
'首先通过VB的菜单[工程] -- [引用],勾选:Microsoft Excel 11.0 Object Library
'其中11.0是不一定的,要看你计算机安装的OFFICE版本而定
代码如下:可以复制使用
Option Explicit
Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Dim i As Long
Dim YesNo As Boolean
Set xlsApp = Excel.Application
With xlsApp
.Visible = False
.Workbooks.Open ("D:\1.xls") '这里打开
YesNo = False
i = 1
Do While .ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(i)).Value <> ""
If Trim(Text1.Text) = CStr(.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(i)).Value) Then
Text3.Text = CStr(Val(Text2.Text) * Val(.ActiveWorkbook.Sheets("Sheet1").Range("B" & CStr(i)).Value))
YesNo = True
Exit Do
End If
i = i + 1
Loop
End With
xlsApp.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
xlsApp.Quit
Set xlsApp = Nothing
If Not YesNo Then
MsgBox "找不到编号:" & Trim(Text1.Text)
End If
End Sub
'其中11.0是不一定的,要看你计算机安装的OFFICE版本而定
代码如下:可以复制使用
Option Explicit
Private Sub Command1_Click()
Dim xlsApp As Excel.Application
Dim i As Long
Dim YesNo As Boolean
Set xlsApp = Excel.Application
With xlsApp
.Visible = False
.Workbooks.Open ("D:\1.xls") '这里打开
YesNo = False
i = 1
Do While .ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(i)).Value <> ""
If Trim(Text1.Text) = CStr(.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(i)).Value) Then
Text3.Text = CStr(Val(Text2.Text) * Val(.ActiveWorkbook.Sheets("Sheet1").Range("B" & CStr(i)).Value))
YesNo = True
Exit Do
End If
i = i + 1
Loop
End With
xlsApp.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
xlsApp.Quit
Set xlsApp = Nothing
If Not YesNo Then
MsgBox "找不到编号:" & Trim(Text1.Text)
End If
End Sub
展开全部
不懂VB6。
命令按钮.click()
r=sheets("sheet1").range("A1:A65535").find(textbox1.value).row
num1=range("B" & r)
textbox3.value=num1*textbox2.value
end sub
大概这样吧,不知道会不会出错。
命令按钮.click()
r=sheets("sheet1").range("A1:A65535").find(textbox1.value).row
num1=range("B" & r)
textbox3.value=num1*textbox2.value
end sub
大概这样吧,不知道会不会出错。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-07-21
展开全部
不知道
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询