Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 大灰狼1976

[分享] 【VBA冷门方法整理&不完全研究】

[复制链接]
 楼主| 发表于 2021-10-30 16:12 | 显示全部楼层
10、跟踪引用单元格
    可以判断某个公式中引用了哪些单元格区域,包括其他工作表单元格区域及外部文件区域。也可以直接操作各引用单元格,当然如果引用了外部工作簿数据时,在外部工作簿未打开时无法操作引用单元格。
附件内有说明。

NavigateArrowExample.zip

27.13 KB, 下载次数: 43

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

 楼主| 发表于 2021-10-30 16:13 | 显示全部楼层
11、指定列显示在最左边和指定行显示在最下方
格式:ActiveWindow.ScrollColumn = N
        ActiveWindow.ScrollRow = N
注意:N为自然数(大于0的整数),当然不能大于最大行数或列数,也不能是列号的字母表示。
通过上面两句代码单独或组合使用,来跳转到工作表的指定位置,但只能将目标位置显示在最左或最下或最左下,不能固定显示到左上角,略有不便。
Application.Goto与其相比,有以下优点:
1、Application.Goto不限定只能在当前窗口跳转;
2、Application.Goto可以将目标位置显示在左上角;
附件内有简单说明。
补充说明:ActiveWindow.Scroll只是将画面跳转到目标位置,
但是活动单元格保持不变,这也是跟Application.Goto的区别。

ScrollClmRowExample.zip

13.74 KB, 下载次数: 44

回复

使用道具 举报

 楼主| 发表于 2021-10-30 16:14 | 显示全部楼层
12、自定义函数除了可以获取值,还可以赋值
    这个不多作说明,多说多错,见附件简单示例。
附件内有说明。

UDFSpecialExample.zip

14.73 KB, 下载次数: 52

回复

使用道具 举报

发表于 2021-10-30 18:54 | 显示全部楼层
大写的赞
回复

使用道具 举报

发表于 2021-10-30 22:03 | 显示全部楼层
非常实用的技能
回复

使用道具 举报

发表于 2022-1-12 18:32 | 显示全部楼层
大灰狼1976 发表于 2021-10-30 16:11
8、复制工作表区域到其他工作表的同一个位置
    格式:Sheets(Array(1, 2, 3)).FillAcrossSheets Sheets( ...

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).FillAcrossSheets Worksheets("Sheet1").Range("A1:C5")'
应该是这样
回复

使用道具 举报

 楼主| 发表于 2022-1-12 19:41 | 显示全部楼层
lrtq 发表于 2022-1-12 18:32
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).FillAcrossSheets Worksheets("Sheet1").Range("A1:C5")'
...

如果你测试过附件的话,就会发现,使用工作表序号和工作表名都可以,甚至可以混用。
回复

使用道具 举报

发表于 2022-1-20 01:01 | 显示全部楼层
大灰狼1976 发表于 2022-1-12 19:41
如果你测试过附件的话,就会发现,使用工作表序号和工作表名都可以,甚至可以混用。

测试过 才这么说的  当然你要把表格命名为 1 2 3...   倒是可以
回复

使用道具 举报

 楼主| 发表于 2022-1-20 14:48 | 显示全部楼层
本帖最后由 大灰狼1976 于 2022-1-20 14:50 编辑
lrtq 发表于 2022-1-20 01:01
测试过 才这么说的  当然你要把表格命名为 1 2 3...   倒是可以


难道是版本的差异?我测试了2007版32位和365版64位,都没问题,混搭也没问题,我的工作表名也不是1 2 3。你可以把出错的附件发上来供测试。
回复

使用道具 举报

 楼主| 发表于 2022-1-20 15:30 | 显示全部楼层
还有一个出错的可能就是,输入的序号大于总工作表数
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 05:35 , Processed in 0.402911 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表