如何仅在指定的单元格区域内实现自动替换？

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

楼主
omnw

Q:如何仅在指定的单元格区域内实现自动替换？
A:首先维护好对照表，然后利用VBA首先将已经选定的区域做为实现自动替换的区域。最后利用Worksheet_Change事件实现自动替换。
工作表相应代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, rng1 As Range
Application.EnableEvents = False '禁用事件
If Target.Count = 1 Then '如果仅操作一个单元格
Set rng = Application.Intersect(Target, RngS) '当前单元格是否位于确定的数据区域内。
If Not rng Is Nothing Then
Set rng1 = Worksheets("对照").Range("A:A").Find(Target) '在对照表中查询数据
If Not rng1 Is Nothing Then Target = rng1.Offset(0, 1) '将当前单元格赋值对照数据。
End If
End If
Application.EnableEvents = True
End Sub

模块代码如下：

Public RngS As Range '定义全局变量
Sub MySelection()
Set RngS = Selection '将选定的数据区域保存起来。
End Sub

工作簿1.rar

2楼
0Mouse

系统自带的“自动更正”功能作用范围为整个工作簿，而此代码可指定具体的作用区域，且随时可变，替换内容也可修改、更新，非常棒的代码案例！

免责声明

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

评论列表