邢唷 > # '
! " ~ % & ( Y W * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V X Z c [ \ ] ^ _ ` a b e f g h i j k l m n o q r s t u v w x y z { | } R o o t E n t r y F 霚鹭$ 5 W o r k b o o k /@ E T E x t D a t a _ V B A _ P R O J E C T _ C U R " 臏鹭臏鹭
羳 \ p a d m i n B a = T h i s W o r k b o o k = p:/8 Y@ " 1 媅SO1 媅SO1 媅SO1 媅SO1 媅SO1 媅SO1 褳SO1 褳SO1
媅SO1 . T i m e s N e w R o m a n 1 媅SO1 媅SO1 媅SO1 > 媅SO1 媅SO1 媅SO1 媅SO1 $ 媅SO1 6 媅SO1
媅SO1 h 6 媅SO1 媅SO1 , 6 媅SO1 6 媅SO1 ? 媅SO1 4 媅SO1 媅SO1 4 媅SO1 媅SO1 媅SO1 < 媅SO + " " # , # # 0 ; " " \ - # , # # 0 5 " " # , # # 0 ; [ R e d ] " " \ - # , # # 0 7 " " # , # # 0 . 0 0 ; " " \ - # , # # 0 . 0 0 A " " # , # # 0 . 0 0 ; [ R e d ] " " \ - # , # # 0 . 0 0 i * 2 _ " " * # , # # 0 _ ; _ " " * \ - # , # # 0 _ ; _ " " * " - " _ ; _ @ _ W ) ) _ * # , # # 0 _ ; _ * \ - # , # # 0 _ ; _ * " - " _ ; _ @ _ y , : _ " " * # , # # 0 . 0 0 _ ; _ " " * \ - # , # # 0 . 0 0 _ ; _ " " * " - " ? ? _ ; _ @ _ g + 1 _ * # , # # 0 . 0 0 _ ; _ * \ - # , # # 0 . 0 0 _ ; _ * " - " ? ? _ ; _ @ _ / \ $ # , # # 0 _ ) ; \ ( \ $ # , # # 0 \ ) 9 \ $ # , # # 0 _ ) ; [ R e d ] \ ( \ $ # , # # 0 \ ) ; \ $ # , # # 0 . 0 0 _ ) ; \ ( \ $ # , # # 0 . 0 0 \ ) E \ $ # , # # 0 . 0 0 _ ) ; [ R e d ] \ ( \ $ # , # # 0 . 0 0 \ ) w 9 _ " " * # , # # 0 . 0 0 _ ; _ " " * \ - # , # # 0 . 0 0 _ ; _ " " * \ - ? ? _ ; _ @ _ g 1 _ " " * # , # # 0 _ ; _ " " * \ - # , # # 0 _ ; _ " " * \ - _ ; _ @ _ - 0 . 0 0 _ ) ; [ R e d ] \ ( 0 . 0 0 \ )
/ )
- +
/ @ @ , @ @ + 攆f 7
* 5 `@ @ a@ * +
1
,
/
/ 7 3
+ >
, 1 9
+ 9 ! ( " 1 1 1 1 1 ! < 8 1 8@ @ 8 @ 1 <@ @ x@ @ 1 |@ @ " 8@ @
<@ @ <@ @ 1 <@ @ 8@ @ 8 @ 1 <@ @ 8@ @ <@ @ 8@ @ 8 @ 8 @ 1 <@ @ 8@ @ <@ @ 8@ @ 8@ @ 1 <@ @ 8 @ <@ @ 8 @ 8 @ 8 1 < @ 8 @ 8 8 @ 8@ 8@ 8 1 <@ 8@ 8 8@ ( 1 " 1 1 1 < <@ @ 1 " <@ @ 1 |@ @ 1 " <@ @ 1 8 @ < @ 8 @ 8 @ 8@ 8 8^膲 ! 2 0 % - :_寚eW[湗r 3 2 & 2 0 % - :_寚eW[湗r 3 搹eQ 搹eQ ! 4 0 % - :_寚eW[湗r 3 2 ' 4 0 % - :_寚eW[湗r 3 頬 頬 ! 6 0 % - :_寚eW[湗r 3 2 ( 6 0 % - :_寚eW[湗r 3 鑜蕬
鑜蕬 ! 6 0 % - :_寚eW[湗r 2 2 $ 6 0 % - :_寚eW[湗r 2
h槝 4 h槝 4
f婮T噀,g f婮T噀,g h槝 h槝 ! 銐蕬'`噀,g 5 銐蕬'`噀,g
" h槝 1 h槝 1
# h槝 2 h槝 2 ! $ 6 0 % - :_寚eW[湗r 1 2 6 0 % - :_寚eW[湗r 1
% h槝 3 h槝 3 ! & 6 0 % - :_寚eW[湗r 4 2 , 6 0 % - :_寚eW[湗r 4 ' 搹鶴 搹鶴 ( 梴 梴 ) 纇錱USCQ 4 0 % - :_寚eW[湗r 6 2 3 4 0 % - :_寚eW[湗r 6 ! ? 6 0 % - :_寚eW[湗r 6 2 4 6 0 % - :_寚eW[湗r 6 c c X T a b l e S t y l e M e d i u m 2 P i v o t S t y l e L i g h t 1 6 ` % S h e e t 1 V V 4 , + VnWSw1YN軴i柭S軴篘XT_≧臽礠h !jg噀鯪 鲖
N亯彇a鬴9e @ < d r
?
N臺搹eQ @尩x @尩x D Il蟚 檮銼蟚 轛蟚 蠀蟚 魚>T\蟚 讉蟚 ]_蟚 頧蟚 ^漁蟚 g湝蟚 醤蟚 桹蟚 vt蟚 }v蟚 W禰蟚 萒<\蟚 萒(凨Q蟚 蟚 螢蟚 圥圥蟚 dO蟚 ru蟚 貧q\蟚 蒪\y蟚 4l蟚 NaN蟚 硚壪e of嚇蟚 飃\KQ\[蟚 W蟚 緩\蟚 隢lO蟚 蟚 ^g蟚 抎蒪蟚 踜WS蟚 酦lO蟚 !/O蟚 ? f蟚 nfs|蟚 TX TKQ蟚 `蟚 LN\[+RKQ蟚 腛W痚蟚 )nKQ蟚 穇f蟚 軴塠蟚 請鶹蟚 琋蟚 TXTX\蟚 靣櫉蟚 &O%f蟚 k嶒T蟚 钑鬩蟚 辳鬩蟚 鶺鷭蟚 YM|篘隭 7 7u sY G篘XT癳耂軴 篘XT韣軴 鶴齎歔E\ 葉bk砇≧T T 珗瀼 瀼L 篘XT耂決 篘XT
Nf[ 篘XT珗$RR6e裿gbLb珗砇≧Ye{Q 篘XT1Y* O 衏MR O {k U ' ^棞QN7b鉙蜽G 淨N7b鉙淨Qg e ' ^棞QN7b鉙蜽G 淨N7b鉙淨Qg a /ZS隭xvz u Ux隭xvz u 'Yf[,g褃 'Yf[N褃 -NI{N褃 LN貧-N b錧f[!h R-Nf[ \f[ vQ諲 d篘XT癳耂軴 篘XT韣軴 鶴齎歔E\ 銐d柍R≧T T 珗瀼 瀼L 篘XT耂決 篘XT
Nf[ 砇9e砇Ye 篘XT1Y* O 衏MR O {k (WL篘XTl忷Q (WL篘XTl廵Q 篘XT-N璭49 邁y{:SYl廵Q b鷁6Rl廵Q b鷁6Rl忷Q g g D S h e e t 1
! " # $ % & ' ( ) * + , - . / 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V X Y Z \ ] ^ _ ` a b c d e f g h i j k l m n p r s u v w x y z { | } ~ "笐 . 罙
瞼 0* pH d
VBAProje坈t 4 @j
=
r 憼璏 J<
rstdole> s t d o l e
h %^ *\G{00020430- C
004 6}#2.0#0 #C:\WIND OWS\syst em32\e2. tlb#OLE Automati on ` 僂OffDic凟O f i c侲瀫攢丒 2DF8D04C -5BFA-101B-BDE5E訟AC42圗 gram Fil es\CommonMicros oft SV B A 臏鹭臏鹭 d i r S h e e t 1 ) s[ S h e e t 2 har ed\OFFIC E11\MSO.0DLL#僊 1@5.0 Ob伭 Library KE 傇 V 偍ThisW orkbookG T玦 s W硆 k bUo 2 Q HB1Bx煱 B,!╥N"B+BB|Sheet1G
S@#e@Xt 1 H2N颕TCh222I2
fB9 4 < V f # x ME w 镮 V Ch # < C"0毴mM顼_F疯 F W 麑{矼㏕2囱v x W 麑{矼㏕2囱vC"0毴mM顼_F疯 ME , [L S S 88 >" L <0 <4 <8 << < N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } 4X ` |鷎 @ L )6 ` % `:t `<p ''`> h Work`凘h ` yVal`"\ ''`凚T `凞L 3 As@刞铁 m sE@刡贱 @刣 s Lo,X `
H @ @ i僱 i凗 ( `刵 `刾 `剅 `則 `刡 x P % X 凗 % 偁( % ( 0 @
H 6x % ` @p < (*&LN R @ 8 @( (
@@ @X @ @ 棹 " @ 佝 ( @ 叁 . @ 羹 @` : @ @ @ 旫 F @0 匎 L @H t R @ d X @x T ^ @ D d @ 4 j @ $ p @P v @p | @ @ 瘕 @8 帻 @ 旋 @h 例 @ 褒 @ 狚 @ 慅 @ @ | P X^h, @@ l @( \ @X L @ < @ , @H ( @ @ @ @ 椟 @ 攸 x @0 赛 @` 更 @ @h @x 旤 @ 匋 @ t @ d @ T @8 D @ 4 @ $ @P @ @ 酐 @瘥 @ 帑 @ 宣 @ 利 @(
胞 @ 狖 @
慃 @@
@X
p @p
` @
P @
@ @
0 @ @
@ @T 瘊 @禚 @V茭 @f 滫 @p 岤 H @| p p 0 P X P @ PH 憼璏 * \ R 1 * # 1 c 8 $ * \ R f f f f * 0 5 5 d 0 b b b 7 f * \ R 0 * # f * \ R 0 * # 1 3 * \ R 0 * # 1 2 * \ R 0 * # 2 1 * \ R 0 * # 1 9 * \ R 0 * # 1 4 4 T " ( @ X x * ( 0 H . ` ( & H ( 0 8 h B B P < * < 2 K K ( H "m $p H :h ( H P X x 8 2 2 " , @ N p " 4
X
x
:
H
H 8 * . 0 < @ h B @
P
, `
N
" 4 @ x : H @ H X * . 0 0 < ` h B ` p , N 0 " 8 4 ` : H ` H x * . 0 P < h ( B 8 , N 8 P " X 4 : H 8 H . * @ 4 p @ t ` J p > O 4 O H 3 8 < P 2 p 3 $ @ $ S C $ S @ h 2 p 2 2 0 @ P p
6 0 0 ( X 4 h 0 : 4 H 4 ` 6 : , (! X! p! ! ! ! ! ! ! J M ! "
" 4 J 0" h" p" @ x" " " h " 2 0 @# x# # 2 # # < 1 # # # $ $ $ $ ($ 0$ 8$ < @$ P$ B X$ `$ $ $ @ $ * $ % % (% L 0% R % % % % % & &
@& & P& x&
&
&
& " & &
& '
' " @' h'
p' 6 x' $ ' @ '
( (( 2 H( ( (
( ( ( ( , ( ( ) ) . () X) `) p) * ) B ) * * * * (* 自动计算失业保险个人应缴- ] h
当前选中行]
当前选中列] ! 个人缴费比例 '']
个人应缴款] ] ] FP 6! H' : 6! J' < 鷡j紅揾?' > 个人缴费比例 : 第6行开始，才有个人情况 | k 计算个人应缴费总额 IndividualPay = 0 ' IndividualPay = Sheet1.Cells(Rowsel, 7) ! Sheet1.Cells(Rowsel, 13) = "0.00" If Val(IndividualPay) <> 0 Then A Sheet1.Cells(Rowsel, 8) = Format(IndividualPay / 100, "0.00") End If ) 若选中第9列且不为统计行，则计算个人应缴费 <
: (% * $ & 异动前参保人数 : (% * $ & 异动后参保人数 : (% * $ & 失业保险专管员签名 : (% * $ L : (, * K 半角空格 : (% * $ L : (, * K 全角空格 : (% * $ N : (% * 农业户口（农村） :
(, * d : (% * $ & : (% * $ & MsgBox CDate(Left(Sheet1.Cells(Rowsel, 11), 4) & "-" & Mid(Sheet1.Cells(Rowsel, 11), 5, 2) & "-" & Right(Sheet1.Cells(Rowsel, 11), 2)) d : (% * $ - : (% * $ - : (% * $ R X 2015-2-28 X $ P d : (% * $ - : (% * $ - : (% * $ R X 2016-5-1X $ P
y&1瑋?' > 2 个人缴费比例 d : (% * $ - : (% * $ - : (% * $ R X 2016-4-30 X $ P d : (% * $ - : (% * $ - : (% * $ R X
2016-12-31X $ P
e {瓽醶t?' > 2 个人缴费比例 d : (% * $ - : (% * $ - : (% * $ R X
2016-12-31X $ P e 鷡j紅揾?' > 2 个人缴费比例d {瓽醶?' > 1 个人缴费比例k d 鷡j紅揾?' > . 个人缴费比例k : (% * > 0.00$ :
(, * d @ :
(, * k k d :
(, * k k Format(Now(), "yyyy-MM-dd") & 若选中第11列且为统计行，则计算补退金额 H If ColSel = 13 And Trim(Sheet1.Cells(Rowsel, 1)) = "异动后参保人数" Then bsje = 0 tsje = 0 For i = 6 To Rowsel - 3 . If Trim(Sheet1.Cells(i, 17)) = "" Then Exit For End If 4 If CDbl(Trim(Sheet1.Cells(i, 17))) >= 0 Then A bsje = bsje + CDbl(Trim(Sheet1.Cells(i, 17))) '补收 Else A tsje = tsje + CDbl(Trim(Sheet1.Cells(i, 17))) '退收 End If Next # Sheet1.Cells(Rowsel, 17) = tsje ' Sheet1.Cells(Rowsel - 1, 17) = bsje * Sheet1.Cells(Rowsel, 13) = bsje + tsje 6 If IsNumeric(Sheet1.Cells(Rowsel, 12)) = True Then b Sheet1.Cells(Rowsel, 14) = CDbl(Sheet1.Cells(Rowsel, 12)) + CDbl(Sheet1.Cells(Rowsel, 13)) Else ; Sheet1.Cells(Rowsel, 14) = Sheet1.Cells(Rowsel, 13)
End If End If & 若选中第12列且为统计行，则计算补退金额 H If ColSel = 14 And Trim(Sheet1.Cells(Rowsel, 1)) = "异动后参保人数" Then bsje = 0 tsje = 0 For i = 6 To Rowsel - 3 . If Trim(Sheet1.Cells(i, 17)) = "" Then Exit For End If 4 If CDbl(Trim(Sheet1.Cells(i, 17))) >= 0 Then A bsje = bsje + CDbl(Trim(Sheet1.Cells(i, 17))) '补收 Else A tsje = tsje + CDbl(Trim(Sheet1.Cells(i, 17))) '退收 End If Next # Sheet1.Cells(Rowsel, 17) = tsje ' Sheet1.Cells(Rowsel - 1, 17) = bsje * Sheet1.Cells(Rowsel, 13) = bsje + tsje 6 If IsNumeric(Sheet1.Cells(Rowsel, 12)) = True Then b Sheet1.Cells(Rowsel, 14) = CDbl(Sheet1.Cells(Rowsel, 12)) + CDbl(Sheet1.Cells(Rowsel, 13)) Else ; Sheet1.Cells(Rowsel, 14) = Sheet1.Cells(Rowsel, 13)
End If End If & 若选中第15列且为统计行，则计算补退金额 H If ColSel = 17 And Trim(Sheet1.Cells(Rowsel, 1)) = "异动后参保人数" Then bsje = 0 tsje = 0 For i = 6 To Rowsel - 3 . If Trim(Sheet1.Cells(i, 17)) = "" Then Exit For End If 4 If CDbl(Trim(Sheet1.Cells(i, 17))) >= 0 Then A bsje = bsje + CDbl(Trim(Sheet1.Cells(i, 17))) '补收 Else A tsje = tsje + CDbl(Trim(Sheet1.Cells(i, 17))) '退收 End If Next # Sheet1.Cells(Rowsel, 17) = tsje ' Sheet1.Cells(Rowsel - 1, 17) = bsje * Sheet1.Cells(Rowsel, 13) = bsje + tsje 6 If IsNumeric(Sheet1.Cells(Rowsel, 12)) = True Then b Sheet1.Cells(Rowsel, 14) = CDbl(Sheet1.Cells(Rowsel, 12)) + CDbl(Sheet1.Cells(Rowsel, 13)) Else ; Sheet1.Cells(Rowsel, 14) = Sheet1.Cells(Rowsel, 13)
End If End If & 若选中第15列且为统计行，则计算补退金额 H If ColSel = 17 And Trim(Sheet1.Cells(Rowsel, 1)) = "异动前参保人数" Then bsje = 0 tsje = 0 For i = 6 To Rowsel - 2 . If Trim(Sheet1.Cells(i, 17)) = "" Then Exit For End If 4 If CDbl(Trim(Sheet1.Cells(i, 17))) >= 0 Then A bsje = bsje + CDbl(Trim(Sheet1.Cells(i, 17))) '补收 Else A tsje = tsje + CDbl(Trim(Sheet1.Cells(i, 17))) '退收 End If Next ' Sheet1.Cells(Rowsel + 1, 17) = tsje # Sheet1.Cells(Rowsel, 17) = bsje . Sheet1.Cells(Rowsel + 1, 13) = bsje + tsje : If IsNumeric(Sheet1.Cells(Rowsel + 1, 12)) = True Then n Sheet1.Cells(Rowsel + 1, 14) = CDbl(Sheet1.Cells(Rowsel + 1, 12)) + CDbl(Sheet1.Cells(Rowsel + 1, 13)) Else C Sheet1.Cells(Rowsel + 1, 14) = Sheet1.Cells(Rowsel + 1, 13)
End If End If 得到性别 ' T :' " " (% * $ $ N : (% * $ & 异动前参保人数 : (% * $ & 异动后参保人数 : (% * $ & 失业保险专管员签名 " (% * $ X ' V V V$ N V $ R X ^ " (% * ! Z( \ V " (, * V " (% * e " (, * d p V " (, * k P MsgBox Len(Sheet1.Cells(i, 4)) " (% * " (% * $ ' T " (% * e " (% * $ ' T d
未说明性别 " (, * k h T
女 " (, * T
e 男 " (, * k k '得到视同缴费月数 nd = 0 yf = 0 stjf = 0 'Sheet1.Cells(I, 11) = ""
I = Rowsel If IsNumeric(Mid(Sheet1.Cells(I, 6), 1, 4)) = True And Mid(Sheet1.Cells(I, 9), 1, 4) = "2001" And Trim(Sheet1.Cells(Rowsel, 1)) <> "上月在职人数" And Trim(Sheet1.Cells(Rowsel, 1)) <> "本月在职人数" And Trim(Sheet1.Cells(Rowsel, 1)) <> "失业保险专管员签名" Then '判断参保日期的月份 / If Mid(Sheet1.Cells(I, 9), 7, 1) = "-" Then * yf = Mid(Sheet1.Cells(I, 9), 6, 1) Else * yf = Mid(Sheet1.Cells(I, 9), 6, 2)
End If - If CStr(yf) = "5" Or CStr(yf) = "05" Then * nd = Mid(Sheet1.Cells(I, 6), 1, 4) 3 If Mid(Sheet1.Cells(I, 6), 7, 1) = "-" Then . yf = Mid(Sheet1.Cells(I, 6), 6, 1) Else . yf = Mid(Sheet1.Cells(I, 6), 6, 2) End If 0 If (nd * 12 + yf) < (2001 * 12 + 5) Then 3 stjf = (2001 * 12 + 5) - (nd * 12 + yf) & Sheet1.Cells(I, 11) = stjf End If
End If End If ] ] ( ] @ ' b ' d : < (% * $ & 检查人员数据重复 A (以下由经办机构填写) : b d b b (% * $ & (以下由经办机构填写) x d b (% * $ & b (% * $ & ' ` f b f (% * $ & b (% * $ & f (% * $ & b (% * $ & ` 与第 fX 行的人员信息重复； ' ` k x ` b (, * d X & 人员的身份证号码和人员的姓名不能为空。 b (, * k d ' d b ' b k k k | F h! jA@, o X 身份证号码升位和校验函数 输入15位号码返回18位新号码 : 输入18位号码计算是否正确，如果正确返回原号码否则返回"错误" $ 如果号码长度不等于15或18位返回"错误" ] ] 1 0 X 9 8 7 6 5 4 3 2 D ' n
D ' p ] ] ] 8 l 判断15位身份证号码的有效性 -------1、必须全部为数字 l$ N 错误:15位身份证号码必须为数字 ' X z k x -------2、月份不能大于12 l
$ $ R
错误:出生年月不能大于12月 ' X z k -------3、日期不能大于31 l $ $ R
错误:出生日期不能大于31日 ' X z d
/ strTemp = Left(sfID, 6) & "19" & Right(sfID, 9)
For k = 0 To Len(strTemp) - 1
: intTemp = intTemp + Mid(strTemp, k + 1, 1) * intQuan(k) Next intTemp = intTemp Mod 11 , getCheckCode = strTemp & strJiaoYan(intTemp) l' Xz p k h l e l $ ' r d 8 # 错误:身份证号码位数只能为15位和18位 ' X z k b r t r b $ b$ p ' t t
' t r t$ n ' X l t$ n l $ R . 错误:身份证号码最后一位校验码错误,校验位应为： t$ n ' X d l' Xk i 叩 Attribut e VB_Nam e = "She@et1"
鐱ast0{00020820- C $0046}
|Global!腟pac扚alse dCreatabl Pre decla Id 玊ru
BExpose Temp lateDeriv$払ustom izD2
P Sub Works仈_S election Change(B yVal Tar get As R
)
'自 扑闶б 当Ｏ崭鋈 擞-Di m RowselLong ' 当前选中行
Col 6IndividualR丼Q >Dou '7缴费比繤(PayCurrency i'款 i b竤jeACtA6On Erro@r GoToTXrap;=凧.9
8umn
L6= 0.X003O5@
fR< 6 ThenAR 6行开始@，才有AB 榭
@ Exit羣
En癲 If''k儊
AA费总禓Bo薓 #'円.@Cells(;, 7纻BR13)O醽7佬Cf @(
) <> 07
R8Format / 100, "
g '若第9 星也晃 臣菩校騅#.F710 AA )Trim(s )"异动前 参保人数" 后乮, 1d
卬专 茉鼻┟"O'c(1Re鄦c&e`( " ")6半角空&窨
'
TIf Is∟um牂cS9 縛i坤 a@ 5 农业户口 （农村）疘%a %00 E偧!e 7C ["1e= ' e 'Msg@Box CD捆(Left4=1), 4) & "-"" Mid5, 2gRigh
2)$p aS !Diff("d燚鄃3A ,"2015-2-28"70J@
eoR oR 琓
te(痢
6-5-1
跿= 鱓聈#h7渦!= q0/a&;+e &k,6-p4-30/%/e瀕D#1/, ///&12-3O飋Op5OQ: O6t1++6餌OOx66-~<6睅螧
Z e.01%v 鍐 .詽}?焞-抣d 9) * 箶 鲬Of" IONu 惿dNHow(@b"y -繫M-dd"4i0艩11褷綘补蚳私'`N3O澥!{0鐟9潱,'r"垛 "沏 @ Y i0毨緊タ- 3 /噄87鈶謫1 R涟 x'CDbl() >
錀
b +P=O@肍 '补收矔?)b /凧(5 '退收
' End I耭Next (4 Sheet1.C ells(Row sel, 17) = tsjeJ - 1RbR %&3O% + VIf IsNumerHic(2):T rue Then/4.CDbl'+ 3))q2Els7E3$繀 0若选 中第12列 且为统计 行，则计 算补退金 额 慍olS別l14 A%0Trimo倴" 於蟛伪溃人数"INa= 0@5義 ADFor i6 To 剙z3D妨 @$O i聜_" Exit Fニ耭) >@/蛡@6x '补 蓩{@G軥^凞 違nn*n)`n.n`M
n脼駈5{n鏽7n 7nn n nn`.仸n_j n 摔) nn阆eF\yn'7j"n葭輒湏]n7;nA0 憗O7Fn717茻n鮪7寠鱪前n_P )n!nl V2"裄'7鐤An n矘&3n鮼 7(_
F 7镪7/(*7W Π=ぁ : 1_U7rN喀XΡ 1 0l4?8q4剰8/' 得到性@别
xb!l"L
褵C=
ZMLidkО 4)郤,< 6鐐 F<> );__S壄__ "失业 Ｏ兆ü茉 鼻┟%
Aascardg etCheckC鴒deq裂 =a "倎%Q癋a啶Right(觽) aX1 b.Font. 堭= vbR ed
, 2012C1攩
= 咴e0 " ' 1 4削 'MsgBox 8Len, 4%15Z +?)}5 8鲝7%
bH"未说明6 7 Modt 2 0O "\女0&1ざn
She et1.Cell s(i, 3) @= "男"E nd If,
<''得 绞油煞 言率
' b= 0 yf 擰stj'
轎0, 11p n'I .Rowsel < If IsNum eric(Mid(
86) <, 4)?True A y)9) _"2001"*Trim*> +)<> " 上月在职惾耸本 失业保险 专管员签名" The'佈'判断 伪Ｈ掌诘嗄月份 悂 掜x7cx-%偹
6
Else髣
2)
b岯/(CStr(yfz5" Or I0H;A= Q(}%A
A4 B CD E-(* 12 + 丟< (仹 |5)I亖 覯
- HA
撦a 厈6
Dim cf_msgcBk E
k M6c爟 7
梜C olSel" 觳槿嗽笔葜馗碈U '(以下 由经办机拦固钚磤K` 胻 - 1 >8= 7$a Do While k <= ` 2~kA^係舋aE纗it DoC飪D 2鋵u 苛汚懙A C2@/"劧冨 For L6 To" '憆L, a= :`Aa瘡宄m璬 m+ "`与第"`fL) "行的!I愋畔!I；t! %ZM
Next绯#Jh19aF/3A! "的 矸葜ず怕牒#姓名 不能为空０E >E`#61羥kLo|opu 0Sub`?rrTrap:MsgBo x Err.De scriptio發
Pub lic Func getChe ckCode(B yVal sfI D As Str癷ng) C' 升位和校把楹1'T朗淙15 返回18位<新 @!计 算是否正 确，如果 a原否詡蜓 "错误'a长度 坏扔15>騫#S st rJiaoYan佈
Varian'AintQu h= Array ("1", "0UA XA 9A 8A 7UA 6A 5A 4A 3yA 2"Ue0s9 Q0, 5, 8' 柊? , q3,r 2d
T8emp $
In爐egerk嘮 ILen( y615黕覒1 !祤挠行 - 1、必 须全部为惺' p(ЧFa@, J+麪6R!:s~;鈉0YU6sQ '1 2、仩慉大
@'290Righ纓(Left 0`2) >駟oW Q.:出生娜暝聎月 慇 3、槐珽3*J 2 31D {障 爷 MT '7,= 6 ) & "19"莁 c#, 9D1&6'亁盬0亁R-tr)翆 A槹9- +b眃,纜+ :1)0 馚(k昹'/m'= 豈od柏;'\&8H(L衆
0]#u!篅8
17 +y
;7D位数煮bw!=和]# .S `U t
oi 堪 = strTemp &怞ia oYan(int!)
If Len(sfID) 18 And <> RightV, 1)` Then getCheckCode "错 误:身份 ず怕胱詈 笠晃恍Ｑ(槁 ,
位应为："ヰElsei
BE 艻f
F@unctio V
( SL S S <8 N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } 4 @ )6` % h % X h h 憼璏 " o p h 蟀 Attribut e VB_Nam e = "She@et2"
鐱ast0{00020820- C $0046}
|Global!腟pac扚alse dCreatabl Pre decla Id 玊ru
BExpose Temp lateDeriv$払ustom宨zD2
P Sub Works亾_Sel ectionCh ange(ByV al Targe@t As R
)
End
_ _ S R P _ 0
0 _ _ S R P _ 1 W _ _ S R P _ 2 [ _ _ S R P _ 3 o y 揔*y rU ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~> V
E.炰洶^ 儕a i 儕a
) )
VBAProject ThisWorkbook Sheet1 Sheet2 F / C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL VBA
A i 0 F 4 C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE Excel
9 a @ 0 F C:\WINDOWS\system32\stdole2.tlb stdole F F
I q P L续-鶾藉 D轗 ? C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL Office
a ` F 甂,[.昁繋擥昣 F tVM皃x叩x D F Workbook Workbook_BeforeSave
@ F C"0毴mM顼_F疯 F W 麑{矼㏕2囱v D F Worksheet Worksheet_SelectionChange getCheckCode ( 錘 N1u蟸濺:g刧kX橯) N,{ L垊v珟齆翄鱏x蛻
Y;
f a l s e 2 噀鯪-NX[(W珟齆翄鱏x鴙 T剉YL埌婾_ 鲖頞ck鍕曪
鎷苸酧o`鲖耂,{S R剉纇錱魦f0 噀鯪纇錱衏:y VBE6.DLL
S _≧MR耂軴篘pe _≧T耂軴篘pe 1YN軴iNXT~{
T 0 淨N7b鉙淨Qg d - 2 0 1 5 - 2 - 2 8 2 0 1 6 - 5 - 1 2 0 1 6 - 4 - 3 0 2 0 1 6 - 1 2 - 3 1 0 . 0 0 X F o n t
C o l o r
*g魦f'`+R sY 7u 纇錱篘XTpenc蛻
Y L垊v篘XT酧o`蛻
Y & 篘XT剉珟齆翄鱏x孴篘XT剉覻
T
N齹:Nzz0 竑膜烮粁 8<
1 0
i P
x p
k
+ rU ~ ~ ~y
! SaveAsUI Cancel q ( Target sfID[ rU p 9
1 q q
# 4 ! a I ` Cp Cx Ct
ql Kll齣T%(4 %d $
d
:酤 ]鸃d6 P Kll齣T%(4 %d $
d
:酤 ]鸃d6 ; 2ll齣T%(4 %:酤 %d $
d d Dll齣T%(4 %d $
d
`1xd6 hll d烃; Llh齣T%(4 %d $
d
lxF酤]3d6 / 抣l齣堽%(h %ll齣T%(4 %d $
d
:酤 麛濑lhF件麛:轧 麛滯%橚 $
橚 ) d橚6 濑件滯 Cp
hf烃I ll 猶l $
lp = <'件'濑:T N
*#D *F
/D6 濑件 80 x t p 0 D d 橚 濑 件 滯 4 X rU @ , ` T # n rU @ , ` L , A `I 0 n 蘟y * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P R O G R A ~ 1 \ C O M M O N ~ 1 \ M I C R O S ~ 1 \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F _ _ S R P _ 4 d j _ _ S R P _ 5 q T h i s W o r k b o o k
p d _ V B A _ P R O J E C T t rU ( 9
I y ) y q Y A Y
Y
I
1 1 q i 9
! I 4 q ` W l x K xa< "qt5< xa< "qp5< ~j紅揾?th lt U 鬺p
驱t齣(%( %8 $
8< 棹
棹:佝 ]<叁'lt齣旫%(t % $
D
D:4 ]<$'t齣 %(帻 % $
⒗ 褒
褒:狚 ]<慅') 86 <棹羹T﨑例褒 妉t齣(%( %8 $
8< 鼖lt齣佝%(旫 % <| F棹% $
/|) 86 <棹 妉t齣(%( %8 $
8< 鼖lt齣佝%(旫 %
<| F棹% $
/|) 86 <棹 禚F棹茭/|85< O茭:( ]<<茭 讫'棹 茭叁
叁: ]<'T6 叁
H霖 %l\齣(%( %8 $
8< =棹 C 86 <棹 3l\齣(%( %茭龘 @8 $
8 8 1 9茭l\齣(%( %8 $
8< 385<
2l\齣(%( %:佝 %8 $
8 8 1 3l\齣(%( %茭龘 @8 $
8 8 @l\齣(%( %8 $
8< 棹(佝 ]385< Sl\齣(%( %8 $
8< 鼖(棹 <叁
叁瘊86 <棹 @l\齣(%( %8 $
8< 棹(佝 ]385< _ Sl\齣(%( %8 $
8< 鼖(棹 <叁
叁瘊86 <棹 2l\齣(%( %:佝 %8 $
8 8 瘊(( <( ]3 2l\齣(%( %:佝 %8 $
8 8 . 瘊(( <( ]3 . 2l\齣(%( %:佝 %8 $
8 8 (( 贱 (( Mlt齣(%lp齣%8 $
8< 棹
棹:佝 ]386 <棹 lt
贱鸐 J贱龘 @( %8 $
8< 棹
棹:! ]386 <棹 贱龘 @( %8 $
8< 棹
棹: ]<叁贱龘 @(羹 % $
ⅷ T
T:匎 ]|鼺<
' 86 <棹叁 H 0 岤 | 贱 滫 茭 铁 x 瘊 ' | 禚 8 ( 瘥 < 棹 叁 T D $ 例 褒 慅 \ L , 攸 赛 T 4 $ 酐 狖 慃 ` @ 0 mm7>0 X 4 P g u V iN # < 甂,[.昁繋擥昣 F tVM皃x叩x x tVM皃x叩x蕻K,[.昁繋擥昣 ME , SL S S 6" " L <0 <4 <8 << < N 0 { 0 0 0 2 0 8 1 9 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } ` D @ T " " 4 i ` i ` x efor` t lean` p sgBo`"l `$` h ing % 凗 X % 偁 % @ p H ` 8 0 P (&.02, @ d @x T @ D @ 4 @ $ @ @ @ 酤 @ 濑 @ 轧 @` 玄 x 8 @烃 ` ` @ 件 @ @滯 @橚 @ 堽 @ x @0 h @H X @H ` @D p ` 0 @ XT ( 憼璏 $ * \ R f f f f * 0 4 5 d 0 b b b 7 f $ * \ R f f f f * 0 5 5 d 0 b b b 7 f * \ R 1 * # e 4 * \ R 1 * # 1 c 8 * \ R 0 * # f * \ R 0 * # e * \ R 0 * # 1 * \ R 0 * # 1 4 4 4 V & ( ( 0 X ` p : x " 8 ` h B 4 * P 4 6 $ j t ( ( H ` x h $ D r > " ( 0 @ H P
X 4 K ` K 2 D ( L L 0 V
< ( ''Dim HlCBar As CommandBarButton- '' ! ''Private Sub Workbook_Activate() '' ''End Sub '' 3 Private Sub Workbook_BeforeClose(Cancel As Boolean) 'MsgBox "test" Dim sAac002 As String Dim sAac003 As String Dim sErr As String Dim i As Long, j As Long
sErr = "" sAac002 = "" sAac003 = "" i = 6 < While Trim(Sheet1.Cells(i, 1)) <> "(以下由经办机构填写)" . If Trim(Sheet1.Cells(i, 4)) <> "" Then $ Sheet1.Cells(i, 18) = "" . sAac002 = Trim(Sheet1.Cells(i, 4)) / 'sAac003 = Trim(Sheet1.Cells(i, 2)) For j = 6 To i - 1 d If Trim(Sheet1.Cells(j, 4)) = sAac002 Then 'Trim(Sheet1.Cells(j, 2)) = sAac003 And n Sheet1.Cells(i, 18) = Trim(Sheet1.Cells(i, 18)) + "与第" + CStr(j) + "行的身份证号码重复;" " sErr = "false" End If Next End If i = i + 1 Wend If sErr <> "" Then MsgBox "文件中存在身份证号码相同的多行记录，请修正该错误，" + vbCrLf + "详细信息请参考第T列的检查说明。", vbCritical + vbOKOnly, "文件检查提示" Cancel = True
End If End Sub '' ''Private Sub Workbook_Open() > '' Application.CommandBars.Add(Name:="HLInfo").Visible = True l '' Set HlCBar = Application.CommandBars("HLInfo").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=1) '' ''End Sub '' 8 ''Private Sub Workbook_SheetActivate(ByVal Sh As Object) '' ''End Sub ] ] ] ] ' ' ' ' " " (% * $ & (以下由经办机构填写) " (% * $ & " (, * " (% * $ & ' " sAac003 = Trim(Sheet1.Cells(i, 2)) $ " $ (% * $ & ; & Trim(Sheet1.Cells(j, 2)) = sAac003 And " (% * $ & 与第 $X 行的身份证号码重复; " (, * false ' k k " ' " 2 文件中存在身份证号码相同的多行记录，请修正该错误， . 详细信息请参考第S列的检查说明。 0 2 文件检查提示A@, ' k @ o 8 0 链 Attribut e VB_Nam e = "Thi sWorkbook"
孊as0{00020P819- 0C $0046}
|GlobalSpac扚alse dCreatabl Pred恊cla Id Tru
BExpose Templ ateDeriv払ustomizD2'''Di m HlCBar As CommandButt皁n
P .A 2 Sub Activ
()qEndBeforeCl j(Cancel>Boolean% 'MsgBox "test ' ) 乆sAacK貋S鵱g
3YEr9
i L纎ng, j齽s
罀A! 3A淓 i 6Whi乀rim (Sheet1. Cells(i, 1)) <> "(以下由 经办机构`填写) If 4" TY ,Yaeq Y o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 8 1 3 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 1 . 5 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O F F I C E 1 1 \ E X C E L . E X E # M i c r o s o f t E x c e l 1 1 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 2 . 0 # 0 # C : \ W I N D O W S \ s y s t e m 3 2 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n (* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 3 # 0 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ O F F I C E 1 1 \ M S O . D L L # M i c r o s o f t O f f i c e 1 5 . 0 O b j e c t L i b r a r y
憼璏 V T h i s W o r k b o o k 0 4 5 d 0 b b b 7 f T h i s W o r k b o o k iN S h e e t 1 0 5 5 d 0 b b b 7 f ) S h e e t 1 Ch 颕 S h e e t 2 0 3 5 d 0 b b a e 5 w S h e e t 2 f 0 P 0 .*鞿锟O l塆 裠"菴宛X芵 彯k值?@A矎\b謠 0 HI . Excel+` VBA麾` Win16羱` Win32` Mac巢` VBA6#`
VBAProject究` stdole揱` Officeu` ThisWorkbook|鉦 _evalsuate賎 Workbook_BeforeSave l` SaveAsUI篪` Cancel駱` sAac002 ` sAac003 ` sErro錪 i`` ja` Trim@颼 Sheet1` Cells峘 MsgBox桼` vbCrLf`
vbCritical+}` vbOKOnly醪` Worksheet_SelectionChange4` Target現` Range ` Rowsel賘` ColSel腯` IndividualRate<砢
IndividualPay檭` bsje_` tsje遏` ErrTrap阑` Row壪` Column爄` Replacef` IsNumeric$*` DateDiff￡` Right
` xb蟔` scards鎌 getCheckCode颼 FontU` Color2F` vbRedG/` cf_msgj蔪 kb` E\` Lc` Erro奰 Description ` sfIDm閌
strJiaoYanxB` intQuan禕` strTempM` intTemp?` Sheet2` Workbookk` Worksheet窿`
BeforeSave壑` SelectionChange鉵` _Defaultj耟 _B_var_TrimmT` _B_var_LeftQ醏
_B_var_Mid韕` _B_var_Right9賎
_B_var_Format酀` _B_var_xbw鬬 _B_var_scard`猔 _B_var_L ` ) w 6 P R O J E C T P R O J E C T w m S S u m m a r y I n f o r m a t i o n ( p D o c u m e n t S u m m a r y I n f o r m a t i o n 8 ID="{7E1BB9C9-3E38-48A2-9ABA-83E93B87BC5A}"
Document=ThisWorkbook/&H00000000
Document=Sheet1/&H00000000
Document=Sheet2/&H00000000
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="C2C0DB01B705B705B705B705"
DPB="9A9883695A6A5A6A5A"
GC="72706B5142524252BD"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=44, 44, 492, 411, C
Sheet1=154, 154, 341, 506, Z
Sheet2=66, 66, 936, 544, C
ThisWorkbook T h i s W o r k b o o k Sheet1 S h e e t 1 Sheet2 S h e e t 2 鄥燆鵒h珣 +'迟0 @
8 s j y a d m i n 1 @ 跏碞`@ .鹭@ (f蘦 M i c r o s o f t E x c e l 胀諟.摋 +,D 胀諟.摋 +,<
p x
VnWS軓of酧o`齆 gP杔Q鳶 0 8 @ L X d p |
$ 0 < H t
I V I D 4 1 2 5 1 1 E 1
I V I D 1 4 5 0 1 2 D 5
I V I D 3 A 3 7 1 D E 6 I V I D F 7 F 1 5 E 5
I V I D 1 D 6 6 1 2 0 7
I V I D 1 C 4 4 1 4 F F
I V I D 4 4 2 1 1 3 0 1 I V I D C E 7 1 8 4 1
I V I D 3 C 3 F 1 6 F 5
I V I D 2 A 3 0 1 7 D 0
I V I D 1 E 2 9 1 8 E 2
I V I D 3 D 1 F 1 0 E 2
I V I D 1 7 7 A 1 8 F 7
I V I D 2 E 4 5 1 7 F 9
I V I D 4 1 2 D 1 B E 1
I V I D 3 5 4 E 1 3 E 3
I V I D 2 9 0 F 1 6 0 5
I V I D 2 F 6 8 1 8 0 3 I V I D A 1 D 1 5 F 8
I V I D 2 8 5 2 5 2 3 5
I V I D 3 8 7 7 1 6 F E
I V I D 2 C B 5 D 9 9 F K S O P r o d u c t B u i l d V e r I C V 2 0 5 2 - 1 1 . 1 . 0 . 1 2 5 9 8 ! A 9 C A 2 7 F 2 5 A D A 4 6 3 A B 3 C 0 F 6 7 0 8 6 3 7 E 5 C A