VBA—调用sheet2中数据给出sheet1计算结果

需求：根据sheet1中的信息去sheet2查找相应数据，计算并在sheet1中给出结果。

方法1：for each 遍历：

Option ExplicitSub Calculation()Dim m, n As Integer
Dim i, j As Integer
Dim q As Single
Dim mysheet1 As Worksheet
Dim mysheet2 As Worksheet
Dim mycell As ObjectConst pi = 3.14Set mysheet1 = ActiveWorkbook.Worksheets("information")
Set mysheet2 = ActiveWorkbook.Worksheets("test")
'注：此处不能用sheet1，sheet2作为sheet名称识别。
'原因：CSDN:sheet1是一个专有名词，不是任何对象的属性，只能单独使用，
'特指代码所在工作簿的那个sheet1(和顺序无关，是固定的一个表，sheets(1)则和顺序有关)。m = mysheet2.Range("A1").End(xlDown).Row
Debug.Print mmysheet2.Activate   '注:选中单元格区域前须先激活数据表。
mysheet2.Range(Cells(2, 5), Cells(m, 5)).Select
Selection.ClearContentsOn Error Resume Next
For i = 2 To mIf mysheet2.Cells(i, 2) = "3M3E1" ThenFor Each mycell In mysheet1.Range("C3:G3")If mycell = mysheet2.Cells(i, 4) Thenq = mysheet2.Cells(i, 3) / 3600mysheet2.Cells(i, 5) = q / (mycell.Offset(1, 0).Value - 2 * mycell.Offset(2, 0)) ^ 2 / (pi / 4) * 100000'单元格直接可赋值。数值也可使用value，文本也可用format。Debug.Print mycell.Offset(1, 0).ValueDebug.Print mycell.Offset(2, 0).ValueEnd IfNext'其他等级此处增加。End If
NextEnd Sub

方法2：Vlookup 待更新。

另：

1. 选中已用行数或列数：

利用End属性获取数据区域的最后一行行号（从最后一行向上选中）

FinalRow = Range("A1048576").End(xlUp).Row

利用End属性获取数据区域的最前一行行号（从第一行向下选中）

FirstRow = Range("A1").End(xlDown).Row

利用End属性获取数据区域的最后一列列标（从最后一列向左选中）

FinalColumn = Range("XFD2").End(xlToLeft).Column

利用End属性获取数据区域的最前一列列标（从第一列向右选中）

FirstColumn = Range("A2").End(xlToRight).Column

2. 设置sheet对象时，不能使用VBA project中显示的对象sheet1，sheet2.

原因：

参考以下链接：

VBA编程中的 sheet1 与 sheets(1)的区别_weixin_33893473的博客-CSDN博客

周日快乐。

VBA—调用sheet2中数据给出sheet1计算结果相关推荐

wps2019数据分析加载项_WPS 2019表格中数据透视表插入计算字段操作教程
电脑越来越普及了,而大家都能熟练的操作电脑,但你知道如何在WPS表格中数据透视表插入计算字段吗?不知道了吧,其实软件操作非常简单,大家只需要按照小编下述所说的方法操作就可以了,下面小编就给大家分享这篇 ...
awx,micaps,hdf,nc,radar,多普勒雷达,grib等各种数据解析,出图,计算等,有需要,欢迎联系.
awx,micaps,hdf,nc,radar,多普勒雷达,grib等各种数据解析,出图,计算等,有需要,欢迎联系. 常见卫星,雷达解析,出图. 有需要交流的,也欢迎联系. 从事开发近10年,准备推出 ...
excel vba 调用java_excel中vba调用java程序并获取返回值
在工作中,为提高excel处理效率会写一些vba宏,有时还需要调用外部java程序(比如访问webservice接口的java程序),下面的事例可做参考一.编写简单的java调试程序 public ...
1.VBA实现EXCEL中Sheet1的甲列相同数值的行对应的乙列的数的和作为Sheet2中丙列中与Sheet1中甲列相同的行对应的丁列的值...
今天有一同学,喊我帮忙处理EXCEL中数据的问题,题目表述太含糊,简单说,分3步工作: 1)找出SHEET1的"甲列"中相同的行, 2)把相同的行对应的"乙列" ...
vba调用python代码_Python替代Excel Vba系列（终）：vba中调用Python
点击上方"数据大宇宙",设为星标,干货资料,第一时间送到! 系列文章前言有小伙伴向我反映到,本系列前面的章节主要还是在讲 pandas ,几乎与 xlwings 没有啥关系. ...
关于VB调用Access的Rnd函数随机返回表中数据的解决方法
论坛上问这个问题的人蛮多,最近正好也在写一个小东西遇上了这个问题,在网上搜索了下没找到解决办法.最后在Access版的老大们帮助下解决了,有兴趣的可以交流一下. SQL server数据库有个NewI ...
WPS表格使用VBA往SQLServer中写入数据
WPS表格使用VBA往SQLServer中写入数据此代码在WPS表格中运行正常,office Excel中没有测试过,用的都是WPS所以- 需要提前安装WPS VBA插件否则无法运行. A1处如果去 ...
已知2个整形数据a,b.不使用if,?:以及其他任何条件判断的语法，找出a跟b中数据的大者。
已知2个整形数据a,b.不使用if,?:以及其他任何条件判断的语法,找出a跟b中数据的大者. 答案: int max(int a,int b) { return (a+b+abs(a-b))/2; } ...
phpcms中调用外部网站数据
1.在phpcms后台模块->模块管理->数据源->外部数据源中添加外部数据源 2.在phpcms前台模板中,使用get标签获取数据源中数据.{pc:get sql=" ...

VBA—调用sheet2中数据给出sheet1计算结果

VBA—调用sheet2中数据给出sheet1计算结果相关推荐

最新文章

热门文章