Excel精英培训网

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

[已解决]弹框提示

[复制链接]
发表于 2021-2-8 09:25 | 显示全部楼层 |阅读模式
本帖最后由 guolianjd 于 2021-2-17 08:45 编辑

微信图片编辑_20210217084246.jpg
12.3.rar (170.88 KB, 下载次数: 11)
发表于 2021-2-14 11:37 | 显示全部楼层
1. 你附件中的“数据”里身份证号,有很多都是数字而不是文本输入,最后3位都自动变成“0”了,需要重新输入。
2. 既然你在“自动查找”中“I”列里采用公式查找,又何来“有填充信息时”的区别,公式也是该单元的信息呀!
回复

使用道具 举报

 楼主| 发表于 2021-2-17 08:48 | 显示全部楼层
zjdh 发表于 2021-2-14 11:37
1. 你附件中的“数据”里身份证号,有很多都是数字而不是文本输入,最后3位都自动变成“0”了,需要重新输 ...

附件重新上传
已经有同名弹框提示。一次输入一个姓名,如有同名会有弹框;一次粘贴多个姓名,如有同名无弹框,没有解决。


回复

使用道具 举报

发表于 2021-2-20 19:58 | 显示全部楼层
是这样吗?
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.    Application.EnableEvents = False
  3.       If Target.Row > 1 And Target.Column = 1 Then
  4.         Dim rng As Range
  5.         For Each rng In Target
  6.            len_a = Len(rng.Offset(, 8))
  7.           If len_a > 0 Then
  8.              MsgBox "同名,请注意区分相关信息", 64, "提示"
  9.              Exit For
  10.           End If
  11.         Next rng
  12.       End If
  13.    Application.EnableEvents = True
  14. End Sub
复制代码
回复

使用道具 举报

发表于 2021-2-21 10:28 | 显示全部楼层
本帖最后由 zjdh 于 2021-2-21 10:30 编辑

复制代码
回复

使用道具 举报

发表于 2021-2-21 10:30 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Row > 1 And Target.Column = 1 Then
  3.         For Each RN In Target
  4.             If RN.Offset(, 8).Value <> "" Then
  5.                 MsgBox "第" & RN.Row & "行同名,请注意区分相关信息", 64, "提示"
  6.             End If
  7.         Next
  8.     End If
  9. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2021-2-23 18:58 | 显示全部楼层

代码威武,谢谢版主
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 02:52 , Processed in 0.540306 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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