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

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

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

    [复制链接]

69

主题

4

听众

2095

积分

测试体验团员

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

签到天数: 3 天

[LV.2]偶尔看看I

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

WPS粉丝团 测试体验团

发表于 2014-10-19 15:25 |显示全部楼层
分享到: 新浪微博 腾讯微博
鉴于大家在大量录入身份证号码时,由于号码相当长,容易出错,特别以此插件供大家使用。可以批量检测,也可以边录入边检测,功能简单实用。
0 w- L* m( e+ G) P
6 D# {. p9 w5 D; jDESpace身份证检验插件1.0功能简介:
; ?( K7 Z5 g7 K1.检验选定区域
) A2 {7 L1 g& K* Q7 ], Z 首先用鼠标或键盘选定要检验的身份证号码区域,点选菜单后不符合的身份证号码将显示红色。; {- T' A+ y: e  n  R
2.开启与关闭输入检查: ~2 n$ K! u# g8 ?" t
开启时,每当在单元格中输入数据时,都将以身份证格式进行验证,若错误则显示为红色,正确显示为黑色。
  J) P- W* k8 p! F# ~* D/ |( B% a. ]3.开启与关闭语音报错& c8 R, k% L& l
开启时,每当在单元格中输入的数据不符合身份证号码规则时,将语音报错。此项功能必须开启输入检查后才有用。
% h2 [; u$ t! s1 f7 {. P1 E
' a, k" n, M+ YVista/win7/win8需要手动安装。xp系统在解压后,运行“注册.bat”就行了。, V- }8 v- s, r. I2 }! a! l
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
) S! y" q: k" A& R1.解压到一个文件夹。
  M$ u1 z9 F; q0 j  G) M2.开始菜单-所有程序-附件,右键单击“命令提示符”,选使用管理员身份运行,点是。, q* I# W$ I- O9 L# a$ Y' u
3.在弹出的窗口中通过命令进入解压目录,如目录为d:\devoice,则命令如下:
' w8 h8 j! p" D8 l; Z  d:
) C7 e0 S" M6 q; D) r$ p  cd devoice: S" ^: N* Q% u4 ^; f/ i' J$ W
  注册.bat
0 A( N  H' v5 y# k! ~单击所有的确定后,则安装成功。  i# |$ j  H+ N, \4 Y7 f1 F9 e
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~8 O1 x, D* R. x  ~9 t6 T' m4 ^
游客,如果您要查看本帖隐藏内容请回复

, z# k$ v* {9 ^9 N! F  ]' ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~# f. N, }  m) @+ h% e# _
以下是VBA操作方法:
3 Q4 c3 v4 w* k- r. x7 }

日常生活中,常常将身份证号码输入错误,本例通过vba监控,及时校验身份证号码的正确性(若输入成别人的身份证号码无法识别),将错误号码显示为红色并发音提示。
# ]* \5 j9 ]0 W; T, N# j

最终效果

打开Excel或wps表格,切换到VBA编辑器:
. t  \' ]* ^$ M" h
$ B) s% U6 u( o$ g6 K/ @+ y双击左侧的sheet1(如是其它表名请自行选择),把以下代码复制到右侧弹出的窗口:


% ]5 b+ t3 J# t* ^) J; P+ P$ O8 V

5 q7 C. g, x' {'代码开始
4 U* h4 N7 J# dPrivate Sub Worksheet_Change(ByVal Target As Range)

9 i1 w4 ^2 c8 p* C    On Error Resume Next
$ e, C/ M0 C4 Q& b2 Q0 G% t! {7 V    If Target.Column = 4 Then '要输入身份证号码的列,根据你要输入的列修改6 l8 C% [! r: I8 Z( g1 s2 q
        St = Target.Value0 W$ P8 h7 u+ q1 ^" p
        Su = 07 @, U& T- x2 k/ |9 R6 d& [
        For i = 17 To 1 Step -14 m6 z# o  ~4 n$ L
            Su = Su + Mid(St, i, 1) * ((2 ^ (18 - i)) Mod 11): r3 t* H& I6 t- \
        Next$ u7 R1 M& N3 W: v+ W. v4 t
        If UCase(Right(St, 1)) <> Mid("10X98765432", (Su Mod 11) + 1, 1) Then: n* a1 [( q, {  M( g0 ^$ K  U; q
            Target.Font.Color = vbRed% _0 c  R8 |1 m, r
       Else
) L3 V& E- k+ i9 I: k9 l            Target.Font.Color = vbBlack
9 S3 b" ]" q, n7 Q- Y* P8 t' x7 `        End If
9 L- V& ~2 u& V8 ~    End If: g. X' N( p  }
End Sub
$ T. O0 Y$ U7 L. x, A) X0 |'代码结束
8 e) n1 r9 ^) [, \
/ y3 s- O& c- K: N7 c调整好以后,回到表格,在D列输入身份证号码,如果正确就会显示黑色,错误显示红色。, [/ C* h; O3 g2 ~
6 b1 p* l# {" j; ^* H. x$ [
除红色提醒以外,还可语音提醒。在VBA编辑器界面,单击工具菜单-引用,找到Microsoft Speech Object Library,并在前面的框中打上勾,然后点确定。2 ?- o) w9 L" R8 G2 k

: o9 w1 ^6 N) \/ l代码做如下修改:$ h' z6 N9 C3 j2 Y: |$ O

% S6 r2 P  M) r'代码开始; T' {. ]6 q7 H! \( _; k( I0 S
Public LD As SpVoice8 Z9 z" Q# {6 ~1 D3 M
Private Sub Worksheet_Change(ByVal Target As Range)) a, ~* ]9 p& O5 s( x5 u- }
    On Error Resume Next, U! O2 o& U8 x) N0 T
    If Target.Column = 4 Then '要输入身份证号码的列
; A/ `: ~$ h5 _1 z8 c        St = Target.Value& k% E4 t) @" g0 Q% Z( M
        Su = 0
( ?8 I8 P5 n8 n" ^1 G        For i = 17 To 1 Step -1
+ |; z7 }$ R/ b  Q5 T1 t( L            Su = Su + Mid(St, i, 1) * ((2 ^ (18 - i)) Mod 11)  i0 {! E+ X& B8 o$ [$ {
        Next
- i* P( d4 a' _        If UCase(Right(St, 1)) <> Mid("10X98765432", (Su Mod 11) + 1, 1) Then0 H: N8 e3 T1 V4 n" R
            Target.Font.Color = vbRed( {! D6 R) |3 J9 t6 l) w6 m' d
            If LD Is Nothing Then( b5 l% l! d8 N( Z5 o- g
                Set LD = New SpVoice
. i0 o: X- y2 b            End If
5 _) X" `3 s& c7 ?            LD.Volume = 1008 Z1 Q& J1 M/ f8 Y5 N/ Q
            LD.Speak "错误", SVSFlagsAsync
5 Q( Q6 I* v% Q- i% h) K0 C( H        Else  S- h' E7 w& d9 q0 d4 O
            Target.Font.Color = vbBlack8 o" |) m! w5 l5 ~" \1 E$ s1 B
        End If
! o& P( f. p- P+ S% ?    End If( j4 y* c- F! X3 h# g- [
End Sub/ P, }4 a8 ^' A% N1 d
‘代码结束8 ~$ ?# G7 n+ Y6 P  p" z5 m

5 Y3 ~* V  i6 i切换回表格界面,输入错误的身份证号码,便可语音提示错误。当然,你可以改成其它的提示语音。
% ^6 ~7 x, P6 g) {9 O
vba操作方式转自http://www.despace.cn/bencandy.php?fid=44&id=4

+ e+ x, a  H; G9 f* _& u6 ~1 r4 a4 C' q7 K9 p+ m: g" q$ A
3 c4 k& g6 d/ l- D% g/ i

本帖子中包含更多资源

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

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

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

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

53

主题

60

听众

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

# I; J1 ^8 k. `, L, F; A# S, w好帖子,来支持了!
回复

使用道具 举报

11

主题

4

听众

782

积分

超级版主

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

签到天数: 3 天

[LV.2]偶尔看看I

金币
274
威望
413
帖子
78
精华
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 |显示全部楼层
9 x! v' ?  x' z+ R- ^$ ], j
感谢分享,支持楼主
回复

使用道具 举报

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官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-19 17:51

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部