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

 找回密码
 
查看: 27997|回复: 206

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

    [复制链接]

69

主题

2

听众

2095

积分

测试体验团员

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

签到天数: 3 天

[LV.2]偶尔看看I

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

WPS粉丝团 测试体验团

发表于 2014-10-19 15:25 |显示全部楼层
分享到: 新浪微博 腾讯微博
鉴于大家在大量录入身份证号码时,由于号码相当长,容易出错,特别以此插件供大家使用。可以批量检测,也可以边录入边检测,功能简单实用。
& k8 l8 Z& B4 |; S" J
$ ?, q! p/ j4 I+ b2 bDESpace身份证检验插件1.0功能简介:/ C' h$ O. a7 a! |4 j# m
1.检验选定区域7 A# B! t: [* h' ~: Q, Y
首先用鼠标或键盘选定要检验的身份证号码区域,点选菜单后不符合的身份证号码将显示红色。
3 i" z/ b, Z7 U2 W4 J7 `4 ]2.开启与关闭输入检查
) G8 F% X+ h, H+ m/ ? 开启时,每当在单元格中输入数据时,都将以身份证格式进行验证,若错误则显示为红色,正确显示为黑色。
5 |: E+ Z( G$ j/ [) U4 J' g" N3.开启与关闭语音报错: V2 Q9 `3 P9 L
开启时,每当在单元格中输入的数据不符合身份证号码规则时,将语音报错。此项功能必须开启输入检查后才有用。
0 k3 N& S& L6 j! p
8 R9 W" c  n0 v7 I$ N5 G& SVista/win7/win8需要手动安装。xp系统在解压后,运行“注册.bat”就行了。
$ ^1 g- k& ?$ Z# @+ c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
& x# m4 h& D' E& X/ i8 E0 m! \1.解压到一个文件夹。
  X5 H" _! l2 b' n* }" X2.开始菜单-所有程序-附件,右键单击“命令提示符”,选使用管理员身份运行,点是。5 U/ [0 f9 f, z; X' `
3.在弹出的窗口中通过命令进入解压目录,如目录为d:\devoice,则命令如下:
3 b+ v8 m/ D" ?, U1 V' C) e* r  d:! x  d* Q/ d# f" n/ M% O
  cd devoice
7 c" B9 b4 p) |) H: i/ x; v1 g3 u  注册.bat& ]/ g- W& r9 d( c3 J) l7 ]  i
单击所有的确定后,则安装成功。
$ Q: v/ p* W# q, s( ?~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! Z, d7 u3 ~# b/ L$ N' {1 d
游客,如果您要查看本帖隐藏内容请回复
! w* P4 r  i2 G: E$ P/ z2 @
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+ z, |2 f% V  X% r. S) E
以下是VBA操作方法:
! Y) j( S2 y2 ]% D5 q" ^( ?+ |. K

日常生活中,常常将身份证号码输入错误,本例通过vba监控,及时校验身份证号码的正确性(若输入成别人的身份证号码无法识别),将错误号码显示为红色并发音提示。
) M6 e5 f5 ?  f- M, v. w! a3 m1 P

最终效果

打开Excel或wps表格,切换到VBA编辑器:
7 q6 h1 D& A3 n/ A" T
" n/ _# T3 t7 _- O( t2 ~双击左侧的sheet1(如是其它表名请自行选择),把以下代码复制到右侧弹出的窗口:

, i; Y# e* W& X% u! i+ f
& i; ]4 Q1 F) z- O  L( ?
'代码开始
3 `5 U6 L. G) x" e9 M4 e$ \% aPrivate Sub Worksheet_Change(ByVal Target As Range)
7 \/ K4 u% @  B. u, w0 o$ X
    On Error Resume Next
$ A$ z7 |' F: b1 T1 v    If Target.Column = 4 Then '要输入身份证号码的列,根据你要输入的列修改
+ U: y' g. W3 U- u: B1 a$ J! S) A        St = Target.Value
4 {+ P8 Z# S$ k7 w' U1 Q5 j        Su = 0
# p) G4 ~3 n+ [( E% N        For i = 17 To 1 Step -1- P0 v* p) J7 _4 b
            Su = Su + Mid(St, i, 1) * ((2 ^ (18 - i)) Mod 11)! q, e% ?/ v! D1 z8 X8 u: F. w9 r4 m
        Next
3 G6 r2 G: g7 N5 g  A" u/ o        If UCase(Right(St, 1)) <> Mid("10X98765432", (Su Mod 11) + 1, 1) Then
# ?% ^: M  S: [! K: [! }            Target.Font.Color = vbRed
9 X. W/ W$ `6 _       Else
- L# o* h% x& F, @6 n8 q0 A            Target.Font.Color = vbBlack
* v3 T( Z9 h% y! i; l! Z/ [        End If
' W# U6 k7 i; r) |+ F0 U8 \! e    End If  O) f4 t' d# R+ V  v4 h5 b
End Sub
' m/ t: n: V4 Z; b$ M'代码结束
0 g1 k- r. |( G2 S, D, F2 |- P# [$ i; M, L) ^2 p
调整好以后,回到表格,在D列输入身份证号码,如果正确就会显示黑色,错误显示红色。* Q5 t' i- X7 O) N$ @
. s& e* s7 ^; i. x
除红色提醒以外,还可语音提醒。在VBA编辑器界面,单击工具菜单-引用,找到Microsoft Speech Object Library,并在前面的框中打上勾,然后点确定。
7 y8 _  S5 d/ p9 O
2 I: E& ?* p' I/ D9 y代码做如下修改:
$ C' Z! O$ S( S: d2 z( L* C2 e$ ^7 Z/ b# ~9 g
'代码开始3 ^+ m& @: G3 W
Public LD As SpVoice7 y1 y1 ]9 D. x$ _1 `  c
Private Sub Worksheet_Change(ByVal Target As Range)) H2 ~& u9 W) ]8 Y6 }
    On Error Resume Next
5 V  x% \+ l3 ^8 U7 `9 W4 N    If Target.Column = 4 Then '要输入身份证号码的列
' {6 K) ~3 F; M. p* I  P! U        St = Target.Value
" t7 J  O& |  }& ]$ @        Su = 0
* n! e8 A  T, V* W7 w8 _# `- R        For i = 17 To 1 Step -16 W3 {. Q; v; w4 M$ N) h
            Su = Su + Mid(St, i, 1) * ((2 ^ (18 - i)) Mod 11)
" f+ P* _0 C3 H; v! R        Next7 E2 p7 `* Z+ m1 g4 ^2 T
        If UCase(Right(St, 1)) <> Mid("10X98765432", (Su Mod 11) + 1, 1) Then+ T* X& d; T/ F2 a4 T
            Target.Font.Color = vbRed6 A8 w- E' X% i$ @; u2 }
            If LD Is Nothing Then
. k. g( T/ Y% \3 Y                Set LD = New SpVoice: }" b1 Q* b; D" J# w
            End If3 _% }# c. R, s) z. c) F/ |+ r
            LD.Volume = 100/ N' l7 R, o. D( `4 _
            LD.Speak "错误", SVSFlagsAsync
7 A/ V! O% F, L/ G        Else
5 h7 |- H) u0 P: R" ]" x            Target.Font.Color = vbBlack7 q, C. \2 K1 n; j* P$ v3 z
        End If; u/ x  n8 k% ~  b3 k6 X& N0 u
    End If% m5 P+ U. _6 u
End Sub
& P# b! J" ^2 n. T# @6 ^& e‘代码结束8 |1 ~* ?5 M5 p+ p& M
  `& I! U, X8 h& }1 d& q
切换回表格界面,输入错误的身份证号码,便可语音提示错误。当然,你可以改成其它的提示语音。
4 q8 b; M: L/ `
vba操作方式转自http://www.despace.cn/bencandy.php?fid=44&id=4
0 v% k# b7 h( A. C/ S, {4 b

9 N) b  ]* o) `- P
1 Q0 \+ z/ x* j. S7 |3 x

本帖子中包含更多资源

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

已有 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 |显示全部楼层

/ j6 K7 }$ x, s1 x8 F好帖子,来支持了!
回复

使用道具 举报

10

主题

2

听众

758

积分

超级版主

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 |显示全部楼层
+ w: L2 G/ X/ k, T
感谢分享,支持楼主
回复

使用道具 举报

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-9-22 01:32

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部