如何在一列中的任意位置提示输入连续序号？

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

楼主领风飞翔	Q：如何在一列中的任意位置输入连续序号？如图所示，在A2：A15单元格中任意一个单元格点击，都提示用户应该输入多少序号。在A5单元格输入1，如果选中A11获得自动提醒并输入2，选中A3获得自动提醒并输入3。如果输入的与提示的不一致则禁止输入。 A：可使用下列代码实现上述功能： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row < 16 Then i = WorksheetFunction.Max(Range("a2:a15")) + 1 With Selection.Validation .Delete .Add Type:=xlValidateWholeNumber, _ Operator:=xlEqual, Formula1:=i .InputMessage = "输入" & i & "！" End With Else Exit Sub End If End Sub 连续序号随机位置输入提示.rar
2楼罗刚君	完成这个需求不需要用到VBA 仅仅用一个公式写入有效性即可试试.rar
3楼领风飞翔	但这个没有提示信息

免责声明

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

评论列表

楼主领风飞翔	Q：如何在一列中的任意位置输入连续序号？如图所示，在A2：A15单元格中任意一个单元格点击，都提示用户应该输入多少序号。在A5单元格输入1，如果选中A11获得自动提醒并输入2，选中A3获得自动提醒并输入3。如果输入的与提示的不一致则禁止输入。 A：可使用下列代码实现上述功能： Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Row < 16 Then i = WorksheetFunction.Max(Range("a2:a15")) + 1 With Selection.Validation .Delete .Add Type:=xlValidateWholeNumber, _ Operator:=xlEqual, Formula1:=i .InputMessage = "输入" & i & "！" End With Else Exit Sub End If End Sub 连续序号随机位置输入提示.rar
2楼罗刚君	完成这个需求不需要用到VBA 仅仅用一个公式写入有效性即可试试.rar
3楼领风飞翔	但这个没有提示信息