如何输入数值直接返回对应数据

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

楼主 breezy	Q:如果在一列中输入数值序号，回车直接返回序号对应数据？ A：代码如下： Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 3 And IsNumeric(Target) And Target > 0 Then Target = Range("K" & 2 + Target) End If End Sub 00.rar
2楼 gvntw	可以是编号没有规律（不是刚好1、2、3……），并且可以选定多个单元格同时录入数据（不相邻的单元格也可以）： Private Sub Worksheet_Change(ByVal Target As Range) Dim cs As Range, c As Range Set cs = Application.Intersect(Target, Range("C:C")) '取改变的单元格与C列交集 If cs Is Nothing Then Exit Sub '如果交集不存在就退出 Application.EnableEvents = False '禁止触发连锁事件 On Error Resume Next Set c = Range("J3:J17").Find(Target, LookIn:=xlValues, lookat:=xlWhole)(1, 2) '在"J3:J17"精确查找数值并返回到对应的K列单元格 cs = c.Value '为交集赋值 Application.EnableEvents = True End Sub
3楼 lanye205	真是个学习的好网站

免责声明

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

评论列表