如何在指定区域内输入限定字符时进行跳转和提示?

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

楼主
liuguansky

在指定的區域內，輸入數字跳轉對應的文本；

1、I5:I500區域內

　　輸入：　1　　　　2　　　
3　　　
4
5
9　---這個數字最大到20.

　　跳轉：　校版　　出稿　　短單　　預留1　　預留2　　　是否其它

　輸入不是以上指定數字的所有內容，保留輸入內容。

---------------------------------------------------------

2、M5:M500區域內

　　輸入：1，跳轉：是

　輸入不是1的所有內容，清空，並彈出提示：此單元格只允許輸入：1或保留空值。

　點擊彈出的確定後，光標定位到此單元格。

A:用如下事件代码可以实现:

Private Sub Worksheet_Change(ByVal Target As Range) '工作表更改时触发事件
'If Target.Column = 28 And Target.Count = 1 Then Sheets("attached list").Cells.Find("規則01").Offset(15, 0) = Target
If Target.Cells.Count = 1 Then '判断单一单元格变化
      If Not Intersect(Target, [i5:i500]) Is Nothing Then '判断变更区域位置
         Dim i%, d
         Set d = CreateObject("scripting.dictionary") '创建字典项目
         For i = 1 To 9 '对跳转对应关系进行设置
            d.Add i, "预留" & i
         Next i
         If d.exists(Target.Value) Then '判断是否存在跳转关系
            Application.EnableEvents = False '关闭事件,防止跳转激活事件
            Target.Value = d(Target.Value) '存在则进行跳转
            Application.EnableEvents = True
         End If
         Set d = Nothing
         ElseIf Not Intersect(Target, [m5:m500]) Is Nothing Then
            Application.EnableEvents = False
            If Target.Value <> 1 Then '如果输入值非限定值 ,则进行清除并提示
                  Target.ClearContents
                  If MsgBox("此單元格只允許輸入：1或保留空值。", vbOKOnly) = vbOK Then Target.Select
                  Else
                  Target.Value = "是"
            End If
            Application.EnableEvents = True
         Else
      End If
End If
End Sub

2楼
opelwang

呵呵，支持下。
这是我发的贴，让叶版采纳了。

免责声明

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

评论列表