如何用函数或VBA调用(引用)另外一个工作表的数据

Posted 2023-04-11

如何用函数或VBA调用(引用)另外一个工作表的数据比如说.我做个宏.要求是让他自己寻找sheet2中的指定位置到sheet1中的指定位置.请问如何用函数写或者如何用VBA写.

1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。

2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。

3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。

4、在打开的“属性”面板中对“按钮”和“标签”进行相关设置，其中包括“名称”和“标题”。

5、双击“获取Excel数据”按钮，输入以下代码：Private Sub GetDate_Click() Dim i As Integer Dim j As String For i = 2 To 8 '数据位于2至8行 j = j & Chr(10) & Chr(13) & Sheets(1).Cells(i, 1) & " 。

6、 & Sheets(1).Cells(i, 2) '读取每行数据 '格式化输出 Next i Label1.Caption = Label1.Caption & jEnd Sub。

7、双击“Sheet1”工作表，在弹出的代码编辑窗口中输入如下代码：Private Sub  Worksheet

-Activate()UserForm1.ShowEnd Sub。

8、返回Excel表格，激活Sheet1工作表，就可以看到窗口弹出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。

参考技术A Sub rename()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Cells(1, 1).Value
Next
End Sub
假设每张sheet都以A1单元格内容命名

Sub Rename()
For i = 1 To 100
Sheets(i).Name = Cells(i, 1)
Next
End Sub
假设每张sheet都以sheet1的第一列依次命名 参考技术B 假如你要引用sheet2中的B5单元格的内容，直接写成：=Sheet2!B5就可以了没必要那么复杂 参考技术C Sub rename()
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Cells(1, 1).Value
Next
End Sub
假设每张sheet都以A1单元格内容命名

Sub Rename()
For i = 1 To 100
Sheets(i).Name = Cells(i, 1)
Next
End Sub
假设每张sheet都以sheet1的第一列依次命名

VBA研究VBA中如何用求和函数SUM求和

作者：iamlaosong

SUM是Excel的函数，在VBA中调用需要加上Application.WorksheetFunction.Sum()，但是，Excel写法却不能用。

比如，excel单元格中可以写成=sum(d2:d100)，VBA中是不能这么写的，即使加上引号写成Application.WorksheetFunction.Sum(“d2:d100”)，语法上倒是没什么问题，却得不到正确的结果。

正确的写法是：Application.WorksheetFunction.Sum(range(“d2:d100”))，如果用变量，写法如下：

        maxrow = [D65536].End(xlUp).Row             '行数，出库单号数量
        shuliang = Application.WorksheetFunction.Sum(Range("d2:d" & maxrow))

其中：

Application表示当前的EXCEL运行的程序。
WorksheetFunction表示调用当前EXCEL程序里的公式。
后面出现的SUM就是EXCEL里的默认公式。

Excel求和函数很多，如下：

SUM、SUMIF、SUMIFS、SUMPRODUCT、DSUM