代码运行结果:
![VBA案例精选 切换Excel引用模式](https://p6-tt.byteimg.com/origin/pgc-image/1e227eedc0d045b2b0e2a17e05c4c450.png?from=pc)
代码截图:
![VBA案例精选 切换Excel引用模式](https://p3-tt.byteimg.com/origin/pgc-image/73dd2f9c90fd420293f793d191319618.png?from=pc)
代码文本:
Public Sub 切换Excel引用模式()
Application.ReferenceStyle = xlA1 'A1引用样式
MsgBox "已经切换为A1引用样式"
Application.ReferenceStyle = xlR1C1 'R1C1引用样式
MsgBox "已经切换为R1C1引用样式"
End Sub
注释:
1. public sub: 表示所有模块的所有其它过程都可访问这个 Sub 过程。
2. 此处可根据个人需求,删除代码中的一种,由此可自动切换为A1引用样式,或者R1C1引用样式。
VBA编辑神器放送
VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度,降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐 VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接:http://excel880.com/blog/archives/11297