www.5129.net > vBA代码中,如果引用一张已打开的工作薄,怎么写程...

vBA代码中,如果引用一张已打开的工作薄,怎么写程...

给你介绍两种方法:1、遍历所有工作簿,然后用工作簿名进行比较判断,代码如下For I = 1 To Workbooks.CountIf Workbooks(I).Name = "要比较的工作簿名称.xlsx" Then Exit ForNextIf I > Workbooks.Count Then Workbooks.Open ("带路径

示例如下: '激活工作簿book1,并选中sheet3工作表的b3单元格复制 windows("book1").activate sheets("sheet3").select range("b3").select selection.copy '激活工作簿book2,并将复制好的内容粘贴到当前表的b4单元格 windows("book2").activate range("b4").select activesheet.paste 注:这里的book1与book2都是事先打开了的,不然会报错. 类似这种语句,只要用录制宏的功能录制一下再看看代码就明白了 ^-^ goodluck!

如当前工作表A2等于第三表的A2:Range("A2") = Sheets(3).Range("A2")

Excel 技巧 53例 (一) 1、如何在已有的单元格中批量加入一段固定字符? 例如:在单位的人事资料,在excel中输入后,由于上级要求在原来的职称证书的号码全部再加两位,即要在每个人的证书号码前再添上两位数13,如果一个一个改的话

Excel中打开多个文档,在任务栏中应该对应多个窗口,但现在无论打开多少个文档,在任务栏中却只出现一个窗口.切换文档窗口很不方便.解决办法如下:Excel2003:在Excel里面的“工具”菜单上/“选项”/“视图”选项卡,“任务栏中的窗口”复选框前打上对勾即可.Excel2007:想让每个独立的文档显示在一个独立的Excel窗口中,可单击Office按钮,点Excel 选项按钮,切换到高级选项卡,在显示栏中选中“在任务栏中显示所有窗口”复选框,再点确定即可.

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 main for each s in sheets'以此循环遍历所有工作表 if s.name= "ABC" then'如果工作表的名称为“ABC” ..'则要执行的代码,此处省略,根据需要自行添加 exit for '找到工作表后,可以退出循环,提高效率 end if next end sub

最后一句应该是引用对应名称工作簿吧.具体如下:Sub 引用()n = 1 '项目总数,即汇总表A列行数For i = 1 To nshname = Sheets("汇总表").Range("A" & i).Value 'Ai的值,即工作簿名Set ssh = Sheets(shname) '引用工作簿名对应工作簿MsgBox ssh.Range("A1").Value, 0, "OK" '显示该对应工作簿A1的值,测试用,可删除'ssh里的其他操作NextEnd Sub

直接打开这个工作表,用c+w1内容命名,另存为表格就可以了.代码如下:sub change_the_filename() dim filename as string if len(thisworkbook.path) = 3 then filepath = thisworkbook.path & "c0000.xls" else filepath = thisworkbook.path & "\"

此题是vba代码运用的问题.这里不想给出代码,而是给出方法,授人以渔.excel的vba确实能给人方便,提高效率.但它的内置规则、控件引用确实挺考人记忆力.我们不是百科全书,如何不记忆代码规则实现编程?答案是用excel的宏.你可以测试一下,在工作簿1中录制宏,在a1乱打字,然后点击另外一个工作簿,在b1乱打字,结束录制.当打开这个宏的时候,是不是多了一段. Windows("***.xls").Activate Range("A1").Select …… 这个是不是满足你需要解决的问题.

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com