Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 905|回复: 6

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

[复制链接]
发表于 2021-7-16 16:50 | 显示全部楼层 |阅读模式
本帖最后由 lkk0063 于 2021-7-20 11:47 编辑

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

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

这样行了吧

Test.zip

18.53 KB, 下载次数: 3

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-7-16 18:01 | 显示全部楼层
If Target.Address = [G1].Address And Len([G1]) < 5 Then

Test.zip

17.8 KB, 下载次数: 2

回复

使用道具 举报

 楼主| 发表于 2021-7-19 11:26 | 显示全部楼层
高 发表于 2021-7-16 18:01
If Target.Address = [G1].Address And Len([G1]) < 5 Then

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

回复

使用道具 举报

发表于 2021-7-19 12:24 | 显示全部楼层
提示后清空g1

Test.rar

17.92 KB, 下载次数: 2

回复

使用道具 举报

 楼主| 发表于 2021-7-19 13:30 | 显示全部楼层

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

回复

使用道具 举报

发表于 2021-7-19 19:29 | 显示全部楼层    本楼为最佳答案   
lkk0063 发表于 2021-7-19 13:30
你好
测试后只差一步了,我想要达成输入5码带入Range("O14").Value & Range("O16").Value 谢谢
G1值+O1 ...

这样行了吧

Test.rar

18.12 KB, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2021-7-20 11:47 | 显示全部楼层
本帖最后由 lkk0063 于 2021-7-20 11:48 编辑

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

  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.     Application.EnableEvents = True
  9. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2022-8-13 13:52 , Processed in 0.182551 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表