最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 29522|回复: 219

[插件及其他] 身份证录入校验插件(支持wps最新版)

    [复制链接]

69

主题

4

听众

2095

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

签到天数: 3 天

[LV.2]偶尔看看I

金币
232
威望
4111
帖子
1146
精华
0

WPS粉丝团 测试体验团

发表于 2014-10-19 15:25 |显示全部楼层
分享到: 新浪微博 腾讯微博
鉴于大家在大量录入身份证号码时,由于号码相当长,容易出错,特别以此插件供大家使用。可以批量检测,也可以边录入边检测,功能简单实用。
  i' j; m* k% G: L
1 W$ s% S, P$ c8 ?8 f6 }9 vDESpace身份证检验插件1.0功能简介:  J6 a# |1 i! V
1.检验选定区域7 X9 ^4 b8 m4 M. k7 Q* X% r
首先用鼠标或键盘选定要检验的身份证号码区域,点选菜单后不符合的身份证号码将显示红色。
7 V% o) w6 E& z: j2.开启与关闭输入检查
/ i) l4 x- E. H: `4 b1 M 开启时,每当在单元格中输入数据时,都将以身份证格式进行验证,若错误则显示为红色,正确显示为黑色。) U$ l& E7 ^6 }/ f* k/ E
3.开启与关闭语音报错$ A7 S: U8 B/ W& ?' y0 I9 D8 \5 {) ^
开启时,每当在单元格中输入的数据不符合身份证号码规则时,将语音报错。此项功能必须开启输入检查后才有用。; Y$ G9 f3 x: Q
5 o5 E, b% F: [" [6 p% m  T/ u
Vista/win7/win8需要手动安装。xp系统在解压后,运行“注册.bat”就行了。1 a1 `: Z8 `) D% e3 C
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! R, x$ h: [# V4 J" X. S- x, z1.解压到一个文件夹。- o( m. O: ^8 @- U; H
2.开始菜单-所有程序-附件,右键单击“命令提示符”,选使用管理员身份运行,点是。6 w" r& \+ n9 ~/ Y& A
3.在弹出的窗口中通过命令进入解压目录,如目录为d:\devoice,则命令如下:. Z# B7 q: L2 H4 E4 ^8 h, e
  d:
% p- L) q* V# D0 _5 v  cd devoice
/ F1 Y+ o! `6 t6 y) x  注册.bat3 ]4 ^" a# Y; U$ {0 i6 H
单击所有的确定后,则安装成功。
0 c* O! E( ~8 ^+ [~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
) h# ?. _7 w7 J5 U4 a) E( Y
游客,如果您要查看本帖隐藏内容请回复
3 H5 J' H, N& V/ g
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ C5 \1 a+ D7 S3 Z以下是VBA操作方法:
3 }5 @; u. r! S% E: T. f8 J

日常生活中,常常将身份证号码输入错误,本例通过vba监控,及时校验身份证号码的正确性(若输入成别人的身份证号码无法识别),将错误号码显示为红色并发音提示。
% `& C, X1 b. v% T$ `- @) q, q

最终效果

打开Excel或wps表格,切换到VBA编辑器:/ }: s( _% }& m) g

* s# X, I5 `$ ]( v$ A1 H. ]7 v2 H双击左侧的sheet1(如是其它表名请自行选择),把以下代码复制到右侧弹出的窗口:


5 S4 u4 G0 \( m  `+ ^) A, _3 G, B1 Y

* ~- Q6 m/ g8 e'代码开始* s# e) _4 G0 \) s8 \
Private Sub Worksheet_Change(ByVal Target As Range)

+ T6 ~' F: X7 z5 W    On Error Resume Next2 r9 d  ^( J" \- J. n
    If Target.Column = 4 Then '要输入身份证号码的列,根据你要输入的列修改
1 Y0 E! \2 l& R" D& y: v0 k8 N        St = Target.Value% S, k( N- i. [3 u  @+ l" R3 i) v$ Z
        Su = 0
; B6 H! o2 Z+ `$ a3 s        For i = 17 To 1 Step -1
4 w7 R! D! i) B: D: Z7 b            Su = Su + Mid(St, i, 1) * ((2 ^ (18 - i)) Mod 11)" r! ?2 s% d7 T& t
        Next
  h* k& Z& C, T, |" Y        If UCase(Right(St, 1)) <> Mid("10X98765432", (Su Mod 11) + 1, 1) Then
; e/ j) d6 n4 b+ l            Target.Font.Color = vbRed
  [! Z+ p3 F% q/ K; T       Else
! k/ \& |: J/ M6 h* c' p$ C            Target.Font.Color = vbBlack
  @7 y0 Z) i  s" h; F' |        End If
4 u3 l6 J# t! \* _# [+ P6 H2 C/ v    End If$ g) x! g1 q- f8 ?7 r
End Sub
! ], t/ R& a3 _'代码结束
/ F4 |! r0 ^" ~  d/ e% E1 I$ S) p* I, y+ y% ]4 Q8 _9 J
调整好以后,回到表格,在D列输入身份证号码,如果正确就会显示黑色,错误显示红色。
& o; y6 S9 ~$ R0 o5 x* U" ~/ m5 t2 x" F
除红色提醒以外,还可语音提醒。在VBA编辑器界面,单击工具菜单-引用,找到Microsoft Speech Object Library,并在前面的框中打上勾,然后点确定。
, M, x1 x' |; Z, U
4 I" n+ M. B5 b, _% I3 z" [代码做如下修改:: a! |/ i% o5 [) [/ z, e

* {1 M$ B) y/ ?, K/ P'代码开始
( n- C9 x5 `3 e4 G
Public LD As SpVoice
2 z$ A+ w& v+ X/ f; N1 Z" rPrivate Sub Worksheet_Change(ByVal Target As Range)
- |& X% _: m5 B1 ~    On Error Resume Next/ v, q2 x- @% C  B  }2 J
    If Target.Column = 4 Then '要输入身份证号码的列
3 w( Z8 K  }5 h9 R; a1 S# m9 B        St = Target.Value: Q0 Y  t( z& j! e8 `, t
        Su = 0
, w2 _8 r7 Q8 T6 U, g. l        For i = 17 To 1 Step -1$ [8 u- y: ^, p* J; V; ]
            Su = Su + Mid(St, i, 1) * ((2 ^ (18 - i)) Mod 11)
( B1 f( U, G6 \# b, r6 J        Next
! @) ^: R5 s2 G3 }! u        If UCase(Right(St, 1)) <> Mid("10X98765432", (Su Mod 11) + 1, 1) Then
& E$ W4 B( F+ c% j! X            Target.Font.Color = vbRed
5 |) V1 p% S' q6 ~; O1 e            If LD Is Nothing Then, E+ K7 ~# t: u; y# I; [) y$ X& H
                Set LD = New SpVoice
# m# R" S$ w$ [6 E            End If- \$ t$ [3 z. T0 Z# A
            LD.Volume = 100
% i! a2 n0 \( k. U            LD.Speak "错误", SVSFlagsAsync* @1 e; W+ V1 N, L( O1 i! ^
        Else+ E( q% R8 V9 D, Z) \, ~
            Target.Font.Color = vbBlack, q* J; g; N8 f, H0 G$ }
        End If8 u7 Y. q2 \+ U! a$ p
    End If
8 U$ c4 z9 h3 |+ Y& F* i7 qEnd Sub
" k$ [9 [  a1 t9 c7 m6 `‘代码结束
# A1 T4 X; K% o: b7 I7 Q% Z/ p3 e: f: h
切换回表格界面,输入错误的身份证号码,便可语音提示错误。当然,你可以改成其它的提示语音。
' s$ A1 g5 X0 f2 }8 ~
vba操作方式转自http://www.despace.cn/bencandy.php?fid=44&id=4

) ^9 @* N6 ~  ?2 I
% b8 f8 {+ n/ b* D* @4 v5 O
3 w& N; @0 A3 n# _

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 2 人评分威望 金币 收起 理由
Gossip BOY + 2 WPS有你更精彩!
轩少 + 24 这么好的教程贴,我和我的小伙伴们都惊呆了.

总评分: 威望 + 24  金币 + 2   查看全部评分

欢迎访问 嘀噫空间-DESpace:www.xx10.cn
百度DE空间团队邀您一起帮助他人

53

主题

59

听众

6715

积分

版主

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

签到天数: 126 天

[LV.7]常住居民III

金币
634
威望
13773
帖子
3973
精华
2

WPS粉丝团 技术分享团 乐于助人奖 技巧教程分享达人 优秀会员奖 活跃会员奖 测试体验团 版主勋章 勤奋版主奖 最佳教程奖 测试体验官 优秀模板奖

发表于 2014-10-19 16:29 |显示全部楼层
感谢分享好东西!!!果断收藏

点击了解最新动态:【轩少】__实用教程索引(2015-9-6更新)
http://bbs.wps.cn/forum.php?mod= ... amp;fromuid=2404273
回复

使用道具 举报

1

主题

0

听众

101

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
2
威望
251
帖子
28
精华
0
发表于 2014-10-19 17:57 |显示全部楼层

& C7 C1 q- a. J2 d' p+ {* ?好帖子,来支持了!
回复

使用道具 举报

10

主题

2

听众

769

积分

超级版主

Rank: 22Rank: 22Rank: 22Rank: 22Rank: 22Rank: 22

签到天数: 3 天

[LV.2]偶尔看看I

金币
274
威望
410
帖子
76
精华
0

活动策划团 重阳节勋章

发表于 2014-10-20 09:21 |显示全部楼层
腻害!期待楼主更多教程~
WPS广州用户群122412804
回复

使用道具 举报

2

主题

0

听众

348

积分

LV.4

Rank: 4

签到天数: 53 天

[LV.5]常住居民I

金币
51
威望
822
帖子
171
精华
0
发表于 2014-10-21 09:09 |显示全部楼层
牛逼,还有语音提示
回复

使用道具 举报

23

主题

1

听众

168

积分

LV.3

Rank: 3Rank: 3

签到天数: 1 天

[LV.1]初来乍到

金币
2
威望
279
帖子
94
精华
0
发表于 2014-10-21 16:01 |显示全部楼层
  K) u8 A4 P* {$ Q
感谢分享,支持楼主
回复

使用道具 举报

1

主题

0

听众

319

积分

LV.4

Rank: 4

签到天数: 47 天

[LV.5]常住居民I

金币
57
威望
819
帖子
126
精华
0
发表于 2014-10-21 22:10 |显示全部楼层
回复

使用道具 举报

0

主题

1

听众

67

积分

LV.2

Rank: 2

签到天数: 4 天

[LV.2]偶尔看看I

金币
8
威望
92
帖子
72
精华
0
发表于 2014-10-22 10:05 |显示全部楼层
回复一下试试看
回复

使用道具 举报

0

主题

0

听众

10

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
21
帖子
4
精华
0
发表于 2014-10-22 10:19 |显示全部楼层
求!!!!!!!
回复

使用道具 举报

0

主题

0

听众

10

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
21
帖子
4
精华
0
发表于 2014-10-22 10:29 |显示全部楼层
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-18 14:39

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部