EXCEL中用VB如何实现根据单元格内容查找另一表单中某列数据

如果是VB中用ACCESS或者EXCEL我就会。EXCEL中用VB语法我会。但是这么操作我想应该和VB中调用EXCEL一样吧。

如果是VB中用ACCESS或者EXCEL我就会。EXCEL中用VB语法我会。但是这么操作我想应该和VB中调用EXCEL一样吧。

Set xlbook = xlApp.Workbooks.Open("e:\1.xls") '打开已经存在的EXCEL工件簿文件 e:\1.xls根据你的情况修改 xlApp.Visible = False '设置EXCEL对象可见（或不可见False）Set xlsheet = xlbook.worksheets("sheet1") '设置活动工作表 sheet1是工作表 你也修改 a=xlsheet.cells(i, j) ...

For i = 0 To 40 '做40个循环查看效果 myrange1.Offset(i, 2).Value2 = myrange2.Offset(i, 0).Value2 '将myrange2对应的下i行右0列的值 赋给myrange1对应下i行右2列单元格 Next '实际上myrange1.Offset(i, 2).Value2 可以用cells(i,3).value2代替。End Sub ...

在 Excel 中，您可以使用 VBA 编程来根据一个工作表的数据提取并汇总到另一个工作表。以下是一个简单的示例，从 Sheet1 汇总物料名称的数量，并将结果填入 Sheet2 中的对应日期和物料名称单元格：Sub SummarizeData()Dim ws1 As Worksheet, ws2 As Worksheet Dim lastRowWs1 As Long, lastRowWs2 ...

Private Sub CommandButton1_Click()Workbooks.Open Filename:="E:\1.xlsx" '打开目标文件Me.TextBox1.Value = ActiveWorkbook.Sheets(2).Range("A3") '给文本框1赋值ActiveWorkbook.Close No '关闭目标文件End Sub根据你的要求，供参考！

Dim cnn As Object Dim strPath, strTable, strSQL, Z As String, ss$, shtName As String Dim x%, i Set cnn = CreateObject("ADODB.Connection")x = [xfd1].End(xlToLeft).Column '取得第一行最右侧单元格对应的列号，计算要获取的工作簿数量 Rows("2:25").Clear '清空数据存放区域...

B1设置有效性-自定义：=A1=1 注：如果A1<>1，但原先B1已经有值了，则没有任何提示，只是在B1中不能输入数据。

Excel版本参考：2010 1、ALT+F11，进入VBE编辑去 2、双击Sheet1,粘贴如下代码：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" Then Sheets(Target.Value).Select End If End Sub 3、返回工作表，在A1单元格输入工作表名 4、回车，查看效果 ...

Private Sub Form_Load()Dim oexcel, oworkbooks, newbook, newsheet, s As String Set oexcel = CreateObject("Excel.application")Set oworkbooks = oexcel.workbooks Set newbook = oworkbooks.open("c:\Allsales.xls")Set newsheet = newbook.worksheets(1)s = newsheet.cells(1, 1)MsgB...