如何演示相对引用及绝对引用交替使用的不同效果？

作者：绿色风分类：时间：2022-08-17 浏览：70

楼主
悟空师弟

Q：如何演示相对引用及绝对引用交替使用的不同效果？
如下：

A：VBA代码如下：

Sub kk()
Range("F1").Select
Dim rg As Range
For Each rg In Range("F1:I10")
Set rg1 = rg.Offset(0, -5)
[F12] = Cells(13 + [i12], 1)
[F14] = Cells(13 + [i12], 5)
If [i12] = 1 Then
rg = "=" & rg1.Address(0, 0)
ElseIf [i12] = 2 Then
rg = "=$A$1"
ElseIf [i12] = 3 Then
rg = "=" & Mid(rg1.Address, 2, 1) & "$1"
ElseIf [i12] = 4 Then
rg = "=$A" & rg1.Row
End If
Next rg
End Sub

效果如图：

详见附件：

演示相对引用及绝对引用交替使用的不同效果.rar

2楼
悟空师弟

奇怪，帖子里的动画效果怎么不动啊？是不是附件太大的原因？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表