[已解决]Worksheet_Change(ByVal Target As Range)问题

lkk0063

VBA 是否可在 G1 栏位限制输入字元, 限使用者只能输入5码

最佳答案

月排行榜 / 总排行榜

高

2021-7-19 19:29

lkk0063 发表于 2021-7-19 13:30
你好
测试后只差一步了，我想要达成输入5码带入Range("O14").Value & Range("O16").Value 谢谢
G1值+O1 ...

这样行了吧

跳转到最佳答案楼层

高

If Target.Address = [G1].Address And Len([G1]) < 5 Then

lkk0063

高 发表于 2021-7-16 18:01
If Target.Address = [G1].Address And Len([G1]) < 5 Then

你好
是否可以达成G1栏位限制输入5码，不等于5码跳出消息通知用户

高

提示后清空g1

lkk0063

高 发表于 2021-7-19 12:24
提示后清空g1

你好
测试后只差一步了，我想要达成输入5码带入Range("O14").Value & Range("O16").Value 谢谢
G1值+O14+O16

高

lkk0063 发表于 2021-7-19 13:30
你好
测试后只差一步了，我想要达成输入5码带入Range("O14").Value & Range("O16").Value 谢谢
G1值+O1 ...

这样行了吧

lkk0063

高 发表于 2021-7-19 19:29
这样行了吧

你好
我有修改程序码如下，谢谢帮忙

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. If Target.Address = [G1].Address And Len([G1]) <> 5 Then
   
4. Target.Value = ""
   
5. Else
   
6. If Target.Address = [G1].Address And Len([G1]) = 5 Then Target.Value = Target.Value & Range("O14").Value & Range("O16").Value
   
7. End If
   
8. 
   
9.     Application.EnableEvents = True
   
10. End Sub
    

复制代码