qmbl.net
当前位置:首页 >> vBA引用 工作簿 >>

vBA引用 工作簿

对单元格赋值: worksheets("工作表名称").cells(1,2)=123 引用单元格: Var=worksheets("工作表名称").cells(1,2).value

代码更改如下,试一下: Dim mypath$, wj$ '变量声明 $为文本型,&为整数型mypath = ThisWorkbook.Path & "\" '把文件路径定义给变量 '显示文本所在位置 目录下的名称wj = Dir(mypath & "*.xls") '依次找寻指定路径中的*.xls文件Application.Scr...

那个文件也要打开吧。其实都在打开状态下不要代码也可以,只需在 运行宏的窗口的位置改为想要的代码的文档即可

最后一句应该是引用对应名称工作簿吧。具体如下: Sub 引用() n = 1 '项目总数,即汇总表A列行数 For i = 1 To n shname = Sheets("汇总表").Range("A" & i).Value 'Ai的值,即工作簿名 Set ssh = Sheets(shname) '引用工作簿名对应工作簿 MsgBo...

Range("AA&i"). 应改为: Range("AA"& i). = "=RC[-3]/[wb1].sheets(""产量原始数据统计2"")!r[1]c[71]" 改为: = "=RC[-3]/[" & wb1.name & "]产量原始数据统计2!r[1]c[71]" 第二句自己参照着改吧(等号左边没问题)

Cells(str, 2) = Sheet2!Cells(I, 1)改成 Cells(str, 2) = Sheets("Sheet2").Cells(I, 1)

Sub Macro1() Dim rng1 As Range, rng2 As Range Set rng1 = Sheets(1).Range("B2:B206") Set rng2 = Sheets(1).Range("B2:B206") MsgBox WorksheetFunction.Correl(rng1, rng2)End Sub

sub nn() Workbooks.Open Filename:="C:\Documents and Settings\Excel\Example.xls " workbooks("Example.xls").worksheets(1) '对工作表1的引用就可以了 end sub 这些语句都不用去记,你通过录制宏就可以完全获得这种语句

亲,“数据的调用”这句话不太专业哦~~~看不懂 您能说明具体要求么,比方说从Sheet2的哪一列,按什么条件取什么数据,放在Sheet1的哪一列。要配上带行列标的截图。

此题是vba代码运用的问题。这里不想给出代码,而是给出方法,授人以渔。 excel的vba确实能给人方便,提高效率。但它的内置规则、控件引用确实挺考人记忆力。我们不是百科全书,如何不记忆代码规则实现编程? 答案是用excel的宏。你可以测试一下...

网站首页 | 网站地图
All rights reserved Powered by www.qmbl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com