邢唷��;� E���€€������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry�������� �FNr迂F€\Workbook3��������葎SummaryInformation(���������DocumentSummaryInformation8����������������
!"#$%&'()*+,-./0123456789:;<�=>?@ABCD���VGHIJKLMNOPQRSTUW{XYZ[\]^_`abcdef|hijklmnopqrstuvwxyz������}�� ZO������\p YIBAN-XSC B�a�=��ThisWorkbook���=�`Kx-8X@�"��1��哘媅SO1��哘媅SO1��哘媅SO1��哘媅SO1���哘媅SO1��哘媅SO1��哘媅SO1���QArial1���哘媅SO1��哘媅SO1h>�哘媅SO1,>�哘媅SO1�>�哘媅SO1@��哘媅SO1��哘媅SO1���哘媅SO1��哘媅SO1���哘媅SO1���QArial1�Q�哘媅SO10�哘媅SO1��哘媅SO1��哘媅SO1��哘媅SO1��哘媅SO1�
�哘媅SO1�
�哘媅SO1�
�哘媅SO1��哘媅SO1@��哘媅SO1��哘媅SO1���哘媅SO1�
�哘媅SO10�哘媅SO1� �哘媅SO1�哘媅SO1@�哘媅SO10�哘媅SO10�哘媅SO1��哘媅SO1��哘媅SO1�
�哘媅SO1>�哘媅SO1��哘媅SO1��哘媅SO1� �哘媅SO1��哘媅SO1��哘媅SO1��哘媅SO1��哘媅SO1�4�哘媅SO1� �哘媅SO1��哘媅SO1�
�哘媅SO1�4�哘媅SO1�<��哘媅SO1�?�哘媅SO1�>�哘媅SO1��哘媅SO1��哘媅SO1@��媅SO1���媅SO"�"#,##0;"�"\-#,##0"�"#,##0;[Red]"�"\-#,##0"�"#,##0.00;"�"\-#,##0.00#"�"#,##0.00;[Red]"�"\-#,##0.007*2_ "�"* #,##0_ ;_ "�"* \-#,##0_ ;_ "�"* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ "�"* #,##0.00_ ;_ "�"* \-#,##0.00_ ;_ "�"* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)�"�"#,##0;\-"�"#,##0�"�"#,##0;[Red]\-"�"#,##0�"�"#,##0.00;\-"�"#,##0.00#�"�"#,##0.00;[Red]\-"�"#,##0.005�0_-"�"* #,##0_-;\-"�"* #,##0_-;_-"�"* "-"_-;_-@_-,�'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=�8_-"�"* #,##0.00_-;\-"�"* #,##0.00_-;_-"�"* "-"??_-;_-@_-4�/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-�"Yes";"Yes";"No"�"True";"True";"False"�"On";"On";"Off"]�,[$� -2]\ #,##0.00_);[Red]\([$� -2]\ #,##0.00\)�0_);[Red]\(0\)�0.00_);[Red]\(0.00\)�0_
�0.0_ ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� �� �-��� �-��� �-��� �-��� �-��� �-��� �-��� �-��� �-��� �-��� �-��� �-��� �.��� �.��� �.��� �.��� �.��� �.��� � ��� ���� ���P€� �+��P� �
�� €� �
��� �/��� �-�� ��� �-�� �-�� �-�� �-�� ��� � �� �� � �0��� �1��� �2��a�� ����� ����� �3����� �4�攆f��� �5��� �6��� �7��`� ����� ����� �8��� �9����� �:����� �;��� �.��� �.��� �.��� �.��� �.��� �.��� ���� ��@ @ � ��� ��@ @ � �� ��""@ @ � ��@ @ � ��@ @ � ��@ @ � �!�@ @ � ��""@ @ � ��� ��� �x@ @ � �1�� �1�� �1��� �1�� �1�@ @ � �1�� �1�� �1�� �x7 �1�@ �1�@ �1�@ @ � �1|7 �1�� ��@ @ � �-1��� �1�� �1��@ �1�� �1�@ @ � �-1��� �-1��� �-1��@ �-1��� �1�|7 �1�� ��@ @ � �1�@ @ � ��� �1��@ @ � �1�� ��� �1�� �1��@ @ � �x �)1�� �#1� �$1|@ �1� �1� �%1|@ @ 7 �1<@ @ � �1�@ @ � �&1�@ �(1��@ �*1�@ �1�� �,1�@ @ � �<�1�� �<�1� �=87 �>8� ||�'糍}(}
00_)}(}
00_)}(}
00_)}(}
00_)}(}
00_)}(}
00_)}<�}
00_)ef\([$}<�}
00_)ef \([$}(}
00_)}<�}
00_)蘈\([$}(}
00_)}(}
00_)}<�}
00_)蘈\([$}(}
00_)}(}
00_)}<�}
00_)23\([$}(}
00_)}(}
00_)}<�}
00_)23\([$}(}!
00_)}(}%�?00_)}<�}(
��00_)�俏�\([$}(})
00_)}(}+
00_)}(},
00_)}(}-
00_)}(}.
00_)}(}2
00_)}<�}3
a�00_)骑�\([$}(}4
00_)}x}7
鷠�00_)�\([$�#,## �
�}�}8
00_)ゥ�\([$???�#,##???� ???�
???�}(}9
�00_)}(}:
��00_)}<�};
鷠�00_)�€�\([$}<�}>
渆�00_)�霚�\([$}x}?
???�00_)???�\([$???�#,## ???�
???�}�}@
??v�00_)�虣�\([$�#,##� �
�}(}A
00_)}(}B
00_)}<�}C
00_)\([$}<�}D
00_)\([$}(}E
00_)}<�}F
00_)\([$}<�}G
00_) \([$}x}H���00_)膊�\([$膊�#,## 膊�
膊�}(}J
00_)}(}L
00_)}(}S
00_)}(}T
00_)}(}U
00_)}(}V
00_)}(}W
00_)}(}\
00_)}(}]
00_)}(}_
00_)}(}a
00_)}(}c
00_)}(}e
00_)}(}f
00_)}(}h
00_)}(}i
00_)}(}j
00_)}(}k
00_)}(}l
00_)}(}m
00_)}(}o
00_)}(}r
00_)}(}|
00_)}(}}
00_)}(}�
00_)�
20% - @wr� 1�6��
20% - @wr� 1��
20% - @wr� 2�6�"�
20% - @wr� 2��
20% - @wr� 3�6�&�
20% - @wr� 3��
20% - @wr� 4�6�*�
20% - @wr� 4��
20% - @wr� 5�B�.�
20% - @wr� 5ef陬���
20% - @wr� 6�B�2�
20% - @wr� 6 ef���
40% - @wr� 1�6��
40% - @wr� 1��
40% - @wr� 2�B�#�
40% - @wr� 2蘈娓���
40% - @wr� 3�6�'�
40% - @wr� 3��
40% - @wr� 4�6�+�
40% - @wr� 4��
40% - @wr� 5�B�/�
40% - @wr� 5蘈忿���
40% - @wr� 6�6�3�
40% - @wr� 6��
60% - @wr� 1�6� �
60% - @wr� 1�����
60% - @wr� 2�B�$�
60% - @wr� 223跂������
60% - @wr� 3�6�(�
60% - @wr� 3�����
60% - @wr� 4�6�,�
60% - @wr� 4�����
60% - @wr� 5�B�0�
60% - @wr� 523捦������!
60% - @wr� 6�6�4�
60% - @wr� 6�����"€����~vR詋� #h槝���h槝�
$h槝 1���h槝 1�
%h槝 2�,��h槝 2�?Э��
&h槝 3���h槝 3�
'h槝 4���h槝 4�(頬�0��頬��俏�����€��&��8^膲��)8^膲 12�,���8^膲 12��
*8^膲 2�+8^膲 2 2�.���8^膲 2 2��,8^膲 2 3�.���8^膲 2 3��-8^膲 2 4�.���8^膲 2 4��
.8^膲 3�*���8^膲 3��
/8^膲 4�08^膲 4 2�18^膲_hQ齎L�?e:SR鉔x�2€��(��厤䲠
���3}Y�0��}Y�骑��a�� 4Gl;`�&��Gl;`��5€����'�^�6€�� ��'�^[0]� 7梴�^��梴�鷠������� ���8纇錱USCQ�-N�2���-N��霚��渆�� ?搹鶴�^��搹鶴�???��???��???��???� �???�� @搹eQ�j��搹eQ��虣��??v������� ���A€ ��0� �騗繈顣剉厤䲠€€��
B@wr� 1�*��@wr� 1�����
C@wr� 2�6�!�@wr� 2繮M������
D@wr� 3�6�%�@wr� 3浕Y������
E@wr� 4�*�)�@wr� 4�����
F@wr� 5�6�-�@wr� 5K������
G@wr� 6�6�1�@wr� 6 鳀F������ H鑜蕬�^�
�鑜蕬�����膊��膊��膊� �膊��X��TableStyleMedium9PivotStyleLight16��8������������€€€€€€€€€览�€€€櫃��3f�����ff�€€f�烫�€������€€€€€���������櫶��櫶虣��虣3f�3烫櫶�����fff�枛�3f3檉333�3�3f33�333\琼�`� 甅貧!h,gN褃齎禰㏑f[褢
TUS�杗鉔xh垍珌曪嬦Oo`�����VV���!
=-Km諎@b g!h寶膲Rv^SbpS曪嬦Oo`���fvf餪餈GF@����€€€��N餏�|�MO�S���A咥�@臕@�
����z17sfzjh7
checkDiffName餠緰歔餠緰+R
T饄checkIDCardType珟齆翄鯪{|媁7usYE\l珟齆翄筫誰
T廭鱏/魦f
T饄{|媁
checkYesNo/f&TcheckGender'`+RsY'`+R7uN,傪V緰
N餠緰決榌翄隭uQ翄噀L€r^钀翄钀柣y�O翄櫃/nyr:Sgq/珟齆翄f硂钑yr:Sgq/珟齆翄f餝~nE\leg€_'YF�怢埩�僗Y8lENE\OO翄AgqB7b鉙剠vQ諲17覻
T7C 7applyListEntry
checkSfzjh7171yr+R餠緰 7f[gD崺Rh芉7zzbz7 checkTerm%fc[f[g藋c[f[g擽裇褢潣7yfje7瀃裇褢潣7sfje7裇>e錯g
createDate7sqlym7 checkSQLY 7xm7
checkNum1,6,073u鲖t1u7A 7B 7D 7E 7F 7G 7H 7sqly7Y鑜魦f7bzsm7P
kX橯D崺RD嵮憚v裇>e錯g�eKNMR剉鰁魰�S+TS_錯 ��鑜銐�齎禰㏑f[褢 cg裇>e�裇>e鰁魰kX橯:N,gf[g褢潣裇>e孾鰁魰0臺kXy楳!7checkDateNecessary7禰璣m愖S陙6q~p砙
禰璣m愖S亃裇aY婲鯪禰璣bXT郪媖緐
t^葟€砇≧齹汻1_臽礠
禰璣悇�1\f[P[sY儚Y禰璣bXT1YN禰璣 k:P
kX橯擽裇褢潣�俌 3000 臺kXy�7
kX橯瀃裇褢潣�俌 3000 臺kXy�7 checkZjlx7珟齆翄鯪{|媁7 checkZjlx7E\l珟齆翄7 checkZjlx決榌翄7隭uQ翄7噀L€r^钀翄7钀柣y�O翄7櫃/nyr:Sgq/珟齆翄f7硂钑yr:Sgq/珟齆翄f7餝~nE\leg€_'YF�怢埩�7僗Y8lENE\OO翄7A7gq7B77b鉙剠7Z7vQ諲7zjlx7珟齆翄鯪鱏7I 7鷁ch藌aS禰璣 7J 7NO軴 73u鲖t1u 75
kX橯3u鲖t1u,wQSO耂gq鉔xh�-N剉N蛓�婳俌 A �闟梜X橯W[蚹('Y\橯GW颯),颯Y �,
N颯蛻
Y搹eQ �臺kXy�27*
貧!h,gN褃齎禰㏑f[褢
TUS "'7鑜a�鲖�R宼e!jg剉7 checkName7FAILURE 7
4111010001
4144013656���=i>��>��>#?�@7�pA�RBy跜滵�珽�螰�瓽� 腎�擫�cc��B�������岣Q�(梌巵a亇薴燇
ZO�� bi
d褚MbP?_*+�€%z����&ffffff�?'ffffff�?(�?)�?M.Microsoft Print to PDF�P/ �4dXXA4����GIS4DINU"�$,?]{~�SMTJ�{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM�
p"��O4鎤M冾H�5佇L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity�" d��333333�?333333�?�&�<3c�A薝}U�}�}��}8�}8�}8�}��} ��}
��}��}3 �}4k �}ll�}mp �}qqq�}ru �}v� �}� � vmY�V
J�V��_
€V
�Vr8�W
�YmD�[z@�
�v�
yQ�
a'�
ir�
�s�
f:�
wG�
N8�
No ulUz�eej�
ff �
�m�
{`�
�l��gl|�eej�
ff �
W#�
|�
W�
V(�
f)�
f)�
k)�
V�
f f�
]9}�
]�
c-�
h2�
h4�
m6�
tC�
vE t�
ihdlX�
qo7�
^$�
~R�
be�
^,�
b1�
b3�
n5�
^;�
^D x�
Zt�
q�
Zu�
Zn�
ZO�
ZP�
sF�
Zk�
Zpl\����(:(������餽�鼀餤�( �
�饜�
�Lq
�餘€0鄔��X��������������?��� �]4L9@
鐙錍
C妉Ec�s5�
��<�kX橯f[u剉覻
T<��~饉�
�
��<�€@遷����C�C��@���],@x�9�
��$<� _薡纇錱<��~饉�
��
��<�€愡w����C�C��@����],�@�9�
��$<�_ 薡 纇 錱<�
�~饉�
�閕
��<�€x辸����C�C��@���E���],�5@0�9�
��$<�_ 薡 纇 錱<�L9admin>�@din��jn
� �7� Sheet1gg����Dh8hb�:S遅2_1
ZO��5 z瑎
d褚MbP?_*+�€%8����&ffffff�?'ffffff�?(�?)�?M�Foxit Reader PDF Printer�_�� �4dXXA4�" dXX333333�?333333�?�&�<3U}8K}�I}�I}�!I} J} J}J} J5�@ 88,888, 8
888
,888888888888,88888�
R
�
M�
M�
R
S�
J&�LLLL�
Tw�
NP�?O�?�
N�
Jy�
NP@P�
N�LPPL�
NP@�
O�
N�
NP�?�
O�
NP�LPPQ�
N P�?�
O*�
Q�
N
P@�
P�
Q�
NP@�
P�
Q�
NP@�
P�
Q�
LPPQ�
NP�?�
O �
Q�
NP@�
P�
Q�
NP@�
P�
Q�
NP@�
P�
Q�
NP@�
P�
Q�
NP@�
P�
Q�
NP@�
P�
Q�
NP @�
P�
Q�
NP"@�
P�
Q�
N�
P�
P�
Q�
N�
P �
P!�
Q�
N�
P%�
P"�
Q�LPPQ�
N.N�?�
d/�
N+�
N.N@�
d0�
N+�NPNN�
p8�
€j�
N<��
pH�
p8�
€j�
N=�
pI�D�lP N@<�<�
<�<�<�<�<�<�<�<�<�<�<�<�<�888<�<�8 8!8"8#8$8%8&8€T'8(8€T)8*8+8,8-8.8/80818283848�
p8�
€j�
N%�
pJ�
!p8�
!€j�
!N>�
!pK!r�
"p8�
"€j�
"N?�
"pL�
#p8�
#€j�
#N@�
#pM�
$p8�
$€j�
$NA�
$pN�
%p8�
%€j�
%NB�
%p"�
&p8�
&€j�
&Nf�
&Ng�
'p8�
'€j�
'Nh�
'Ni�(pqNN�
)NS)N�?�
)OT�
)Q�
*NU*N@�
*OV�
*Q�
+NU+N@�
+PW�
+Q�
,NU,N@�
,PX�
,Q�
-NU-N@�
-PY�
-Q�
.NU.N@�
.PZ�
.Q�
/NU/N@�
/P[�
/Q�
0NU0N @�
0P\�
0Q�
1NS1N"@�
1P]�
1Q�
2NU�
2N^�
2P_�
2Q�
3NU�
3N`�
3Pa�
3Q�
4NU�
4Nb�
4Pc�
4Q�.D�8B888888<�<�<�<�<�<�<�<�<�88�P餒 � �0�( �
� >�@��$$$� � 7� Sheet5gg����D
ZO�� 鐑
d褚MbP?_*+�€% ����&ffffff�?'ffffff�?(�?)�?�" �333333�?333333�?�&�<3U LLLLLLLLL��
�P餒0��0�( �
�>�@��� 7� Sheet6gg����D
������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
���
������������������ !"#$%&'()*+���-���/0123456789:;<�=>?@ABCDE���GHIJKLMNOPQRSTUVWXY���[\]^���`���bcde���g���i���k���mnopqrstuvwxyz{|}~€�
鄥燆鵒h珣+'迟0�@HTd|
���boboaMicrosoft Excel@€��&灼@i榢@������������������������������������������������������
胀諟.摋+,0�HPX`hp
x��高校本专科国家助学金名单代码表 错误信息工作表���������������������������������������������������������
����Microsoft Forms 2.0 FormEmbedded Object�9瞦�������������������������������VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm
Caption = "UserForm1"
ClientHeight = 3180
ClientLeft = 45
ClientTop = 375
ClientWidth = 4710
StartUpPosition = 1 '所有者中心
End
���������������������������������������������������������}t ����������������������������
����Microsoft Forms 2.0 FormEmbedded Object�9瞦�������������������������������VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm
Caption = "UserForm1"
ClientHeight = 3180
ClientLeft = 45
ClientTop = 375
ClientWidth = 4710
StartUpPosition = 1 '所有者中心
End
��������������������������������������������������������}t ���������������������������ThisWorkbookThisWorkbookSheet1Sheet1工具函数錧wQ齉pe声明餢f校验函数!h寶齉pe主程序;Nz廭ShowFormShowForm打印预览SbpS剺葔PrintFormPrintFormSheet5Sheet5Sheet6Sheet6������������ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisWorkbook/&H00000000
Document=Sheet1/&H00000000
Module=工具函数
Module=声明
Module=校验函数
Module=主程序
Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F}
BaseClass=ShowForm
Module=打印预览
BaseClass=PrintForm
Document=Sheet5/&H00000000
Document=Sheet6/&H00000000
HelpFile=""
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="A0A20C4A104A104E144E14"
DPB="5C5EF0B6106F2D6F2D90D3702DBFEC7143A4F311CF32B6B9A3864640536F15C585E961059CAC"
GC="181AB4C7B5C7B538"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=0, 0, 0, 0, C
Sheet1=0, 0, 0, 0, C
工具函数=0, 0, 0, 0, C
声明=0, 0, 0, 0, C
校验函数=0, 0, 0, 0, C
主程序=0, 0, 0, 0, C
ShowForm=0, 0, 0, 0, C, 32, 32, 1628, 709, C
打印预览=0, 0, 0, 0, C
PrintForm=0, 0, 0, 0, C, 64, 64, 1660, 741, C
Sheet5=0, 0, 0, 0, C
Sheet6=0, 0, 0, 0, C
��rU€€€ ��������@n��������������������������������������������������������������rU€€€€~| �q���
�)y00�0�0X00�0X0800�0$0�0€00���<:4�%D��X�%h�$
�h�
dD�)h�D�J�$�%��D��X�%h�$
�h�
dD�䴕��C)h�D�5�龝p�x�(�l�h�D��0
00�
����������������������������������������������������rU€€€ ��������,�`�������������//(�`������������0(�`������������08�`���������������////0!`��������������///0I`�������������///<�q`������������9��Y/////<��`�����������y����/////,�`�������������//(� `������������/0
`������������09`������������)A///,a`������������Y//8�
`��������������////,�`������������Y//8�`��������������////8`��������������////0)`�������������///(Q`������������/n����������������������������������rU€€€ x��!����Q4 a1���������������������������������������������������������������������������������������������������������������������������������`��������������������������������������������rU€€€
��������@n��������������������������������������������������������������rU€€€
�I�q����Q4 a1���������������������������������������������������������������������������������������������������������������������������������`��������������������������������������������rU€€€ ��������@n��������������������������������������������������������������rU€€€€~| ����k��������������������������������������������rU€€€ ��������$�`�����������n����������������������������L�����+梺n����������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SP����S����S����S�������0{BF83B7DA-5430-4F8F-A8CA-27871B9A6EDD}{315E361F-8805-4B39-BFC5-E42753F03C97}�����2@�����������������������������6���������������������������������€�������€��������%侢���������������������%��������@������������€��������@��������������������������������������������������������������)奸[�€
"���
�0€ ����€
8"�H�P�
X�h€ ��������x�取消����'� ��B@4��o��H�确定H�����@��������������������������������������������������������������������������������������������������������������������������������������������� 8'� ��B@4J����o����������R�Attribute VB_Name = "ShowForm"
鳥as|0{BF83B7DA-5430-4F8F-A8CA-27871B9A6EDD}{315E361F-8805-4B39-BFC5-E42753F03C97}
dGlobaBl奡pacoFalse奀re atablPr@edeclaI"d覶ru
BEx0pose0TemplateDeriv�Customiz婦'取`消
P€€ Sub CancelButton_Click()
notContinueBool員 Me.HidZEnd!
'确亩�,onf諒,9�-Fl€�;/���������������������������������������������������������rU€€€ �
y � � !1!�P��9�����74aq�������������` ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x瞩"l�
�"�
�
荥
�"滯
�"\�
'听'忑':\�l�L�:<�,���:忐荥烃:件滯岨:|�l�\風�:<�,⺗鋤6$l�L�,���忐荥烃滯岨l㘎﨤�,��u珲��
����$�Tl�L�,���忐荥烃滯岨l�\�L�,��忑听4X��������������������rU€€€ ��������@,`h����������#n�������rU€€€~| ������������������������������������������������������������������������������������������������������������������������������������
H����������������������������������������rU€€€ ��������0�`��������������///(�`������������/,�`�������������//(�`������������/(!`������������/,I`������������(q`������������/(�`������������/(�`������������/(� `������������/,
`������������//(9`������������/(a`������������/(�
`������������/(�`������������/(�`������������/,`�����������)9//,)`�����������)9//,Q`�����������)9//,y`�������������//,�`�������������//,�`�������������//, `�������������//(1`������������/(Y`������������/(�`������������/(�`������������/(�`������������/0�`�����������Q�///,!`�������������//(I`������������/,q`������������i//,� `�������������//n��������������������������������������������������������H�L����O�梺蕵����������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SP����S����S����S�������0{9B6C4397-73C9-4AB3-9958-6478A0BF3A2B}{F074A9FB-9064-427E-B202-C40F5275F58C}����p€�0��(����������%侢���������X��0��������%����������������������������������������0����������������������������������������������������`)奸[���������x����惆Attribute VB_Name = "PrintForm"
"
€Bas€0{9B6C4397-73C9-4AB3-9958-6478A0BF3A2B}{F074A9FB-9064-427E-B202-C40F5275F58C}
dGlob刟l婼paco False奀r@eatablP€redeclaDId訲ru
BE`xpose0TemplateDeriv�Cus tomiz婦������������������������������������������������t��6D
梺zL��#����������<���;4ShdC�劎,辣�F@涰?}鲉K皧�L�!������������x@涰?}鲉K皧�L�!;4ShdC�劎,辣��ME�������������(���������������������������������������������������������������������������������������������������������������������������������SL����S����S����6"�����������������
���������
����<,��<0��<4��<8��<<���<������N0{00020819-0000-0000-C000-000000000046}����`$����`��������听k@����h
�i�&��������`�cri�(������������€l€����������€��������%����凗����������������������%偁 ��������������������%����`����@�������������������������������������������������������������������������������������������������������������������������������������������.0,*24@�l����� @�\����� @�0L����� @�x<����� @�H,����� @�`����� @������� @������ @��忐���� @��荥���� @��烃���� @�8件���� @����� @� 滯���� @�P岨���� @��|���� @�hl���� @�€\���� @��L���� @��<���� @��,���� @������ @����� @�(���� @�@忑���� @�����荦���� @�����听���� �������������€����������������€��������������@lh�����������������������)奸[$*\Rffff*0R5f1b1313*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0L5f1b12f9*\R0*#2$*\Rffff*0<�5f1b12be�����4
"�����������
��€ �����€ ��������� �f�)您是否确认将要保存该excel,如保存,请点击�"$.�确定�"$.�,�
$.�&系统将要进行检查校验,如不保存,请点击�"$.�取消�"$.�? 0$,'* * 2�A@4d��P�'(k��@o��8����0����鼙Attribute VB_Name = "ThisWorkbook"
孊as�0{00020P819-0C$0046}�
|Global�Spac扚alsedCreatablPred恊claId�Tru
BExposeTemplateDeriv払ustomi6zD2P€€ Sub 厬_BeforeSave(@ByVal AsUI As Boolean, _
Can(cel�)�
is亖Button€kMsgBox("您是否确认将要保@存该ex€ ��,请点击" & €Chr(34)€�"确定 ,��10系统进行检查愋Q锳不�∠?", 0vbOKC6�3If L4� Then荁丏测试所有A规则�⒋蛴〈砦狊信息�
E聣gP€腜= fE nd If�
A€i
����������������������������������������������������������rU€€€ �y������Q4 a1蘟�� ��*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\WindowsApps\Microsoft.Office.Desktop_16051.11727.20244.0_x86__8wekyb3d8bbwe\VFS\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications�*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files\WindowsApps\Microsoft.Office.Desktop.Excel_16051.11727.20244.0_x86__8wekyb3d8bbwe\Office16\EXCEL.EXE#Microsoft Excel 16.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation�*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.8#0#C:\Program Files\WindowsApps\Microsoft.Office.Desktop_16051.11727.20244.0_x86__8wekyb3d8bbwe\VFS\ProgramFilesCommonX86\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library�*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Program Files\WindowsApps\Microsoft.Office.Desktop_16051.11727.20244.0_x86__8wekyb3d8bbwe\VFS\SystemX86\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{761A035C-7B2B-4AA4-8F03-99BCCA4AB261}#2.0#0#C:\Users\boboa\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library�.E
忇�.`孧�������)奸[�������������������� ��
��������������������梺ThisWorkbook0R5f1b1313��!ThisWorkbook��zLx���������&
��Sheet10M5f1b12f9��7Sheet1��逪���Sheet60P5f1b12f9��9Sheet6���0���SbpS剺葔0Q5f1b1313��:SbpS剺葔���H���錧wQ齉pe0N5f1b12f9��D錧wQ齉pe��艄`銛��餢f0L5f1b12f9��f餢f���&xF��!h寶齉pe0S5f1b1316���!h寶齉pe��~��hj��;Nz廭0<�5f1b12be���;Nz廭��Ux��������`�����;9��ShowForm095f1b12be��1ShowForm��n�1��Sheet50O5f1b12f9��;Sheet5��h�����PrintForm0;5f1b12be��=PrintForm��蕵��������������������������������������������H�����������������������������������������������������������������������������������������������������������������������������������������������������`�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x�������������������������������������������������������������0�������������������������,�#汚VG侲A閏����驢gc崾/MIo��
����鐱泶払蒊嶮wk藲����HJ��:D€瀣ezX钾����-屟�D沒茏,.h����軞�$bFぇ&白����鎈紈馋OE礠:柸匕.����#愰O8� @�瞩鹯����d缓棍廦E剸,刣锋����~Y劼wZL�
m峯�����#恣�#飧B�-夠九Z���������€20許!�8compareExcel€+`VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6�#`VBA7�#`
VBAProject究`stdole揱`Officeu`MSFormsC`ThisWorkbook|鉦 €�_Evaluate賎Workbook_BeforeSavel`SaveAsUI篪`Cancel駱`�(isSaveButton谩`MsgBox桼`ChrK~`
vbOKCancelx?`vbOK�%`�(测试所有校验规则并打印错误信息瓛`Sheet1�`Sheet6�`打印预览繶`�(Browse_Prints歚
Worksheets鉴`Visible队`PrintPreview讳`工具函数絗�(checkedRequiredStart齊`rowIndex6d`columnIndex錚` cellValue@砢ActiveSheet%N`Cells峘�(writeLog{u`content鎙`Sheets
`�(msgSheetName�'` �(curMsgRow�/`�(writeLogRedm`nLene,`
Charactersrg`FontU`
ColorIndex鱼`�(addCommentXQStart礢`
sheetIndex� ` errorInfo`
AddComment屟`Interior;鋊Color2F`CommentHs`�(clearCommentsXQStart7胉
ClearCommentsf萡sheet2RecordNum�`ffTotalNumColumn�`xlNone棼`�(getCellValueCountXQc骮colIndex嘸value銴`�(beginCheck_comment;D`checkMethodHd`�(errorMsg'|`�(removeSpaceFlag`�(cellContent娕`�(callFunctionXQStarttypeVal#`isValidateCount�8`�(isFord╜titleMsgh甡
�(startTitle頻` �(headIndex�`�(functionArgs8M`
�(checkMethodXQ緮`
�(checkRequired碽`�(hasErrorf譧
�(removeSpaceXQ�`�(checkStuNamec骮�(checkLeng痐functionArgsArr紑`Split�)`�(checkNumh糮 �(checkNLen鮜�(checkValK鋊�(checkInt癄`resZjlx0臽
�(IsIDNumber-*`�(checkSFZJLX�*`�(checkDMB粎`
�(setDMBCode竏` �(checkBankUw` �(checkYear�6`�(checkXn`
�(checkMonth嚐`
�(checkBirthday≮`�(checkNowNecessary拱`
�(checkPhoneNum埬`�(checkOption,躟
�(hasErrorIdNum舰` �(checkSqly韅aX`resultur`sj`md`i``ne`LCase:閌a1k\`A2l\`�(atLeaOneNNullCount欷`
�(checkMoneyi漙
�(totalMoney%篳baojiaoMoneyColumns`baojiaoMoneySumk餪huoshiMoneyColumn_礰huoshiMoneySumr`zhusuMoneyColumn_`
zhusuMoneySum>-`othersMoneyColumn撺`othersMoneySumH訿�(atLeaOneNullCount竊
�(atLeaError妦`�(regCheckFuncE鵣reg蝋regEX*㤘CreateObject鴬`Patterni衊
IgnoreCase0鵣Test4玚�(checkTheSameXQNew�`sheetIndex2n`�(rnaO蟕Range�`xlUp犵`Row壪`
ClearContents{躟cardID1[?`�(cardIDColumn-h`ja`cardID2\?`
�(hasTheSame僠�(GetRowOrColIndex穎`keyWord‵`kbn1╜cZ`Findn餪What酑`LookIn襊`xlValueso醏LookAt癘`xlWhole侍`Column爄`value1�`flag淊`Trim@颼rowData�1`Count0v`rowNummR`�(AreasheetIndex扝` �(deleteRow�` Unprotect?`Password鹞`Rows`Delete竫`�(setCellNumXQ`�(deleteRowNoPro`�(setCellValueXQ给` codeValue�`
�(columnPlus紓`length1S`length2T`Replacef`�(removeSpecialCharacter砢声明廼`�(!ValueColumType`
columnNamew籤�(sheetIndexValue1`
�(AreaSheetName繾�(readmeSheetName啂`
�(totalCount�-`�(rgold礰�(Target現`�(hasErrorInValidateU鮜�(dataRowStart硴`�(babyIDColumn�`isNullRowNum�8`�(cna`�(notContinueBoolt`�(genderColumn鄜`�(birthdayColumn0`校验函数&轥heckStuName~"` �(checkNameO籤�(checkBirthdayNecessary嚶`IDNumber4 `Wm`Tk` IsNumeric$*`Right
`�(checkSchCode逵`�(checkFamType睖`�(checkRXDate�*`regcheckNowNecessary2癭�(checkXJHF餪years檿`value2�`
�(compareDecN豟 maxIntLen1`maxDoubleLen煿` intLength�`intValue卄douValue郹
�(checkIsInt鵕`
�(checkIsNumberG`�(checkMoneyTJC巂�(checkPersonNum `�(checkIdNumLinkUz`IdNum�>`
isGenderRight�
`isBirthRight浛`genderValue骮genderValue1�1`
birthValue龻`birthValue1~`year6n`year1w昤month�`month1裳`day`day1;`arru`st(_`timeNowy` timePrint`Now%篳 �(checkBZSM笼`主程序矮`
rowDataNumn禶 typeValue嫭`bsTypet萡 valEntity軓`val葩`typeRow頯isNullRowArr/骮
sheetCountB譧Protect譮`Application�*`ScreenUpdating!`sysDifficultyGradeNameFlag`indentifyDateFlag�
`xlToLeftWY`Size铥`HorizontalAlignmentS@`xlLeft�9`NumberFormatLocal)訿rowType鱜
removeSpecial坖`Locked`
totalMoneySumZ哷pg`qh`�(checkTheSameg鑐myDic穙`myKey`varData`idNumDick`idNumDicData臂`cardNum‐`Exists僝`Add鱮`Keysq竊Resize@4`WorksheetFunction�&` Transpose桌`ShowForm殗`CancelButton_Click�`Hide9z`ConformButton_Clickwf`Flase祊`Sheet5�` PrintForm`Workbookk` Worksheet窿`€�_Defaultj耟!€���_B_var_sysDifficultyGradeNameFlag_€���_B_var_indentifyDateFlagE`€���_B_var_isNullRowNum;r`
_B_var_Chr\;`€���_B_var_i €���_B_var_isValidateCount"`€���_B_var_j
€���_B_var_rowType淂`€���_B_var_m
€���_B_var_n€���_B_var_value�`€���_B_var_removeSpecial&>`€���_B_var_titleMsg駞`€���_B_var_totalMoneySum鳼`€���_B_var_p€���_B_var_q
€�BeforeSave壑`���!
;
=
�������������������������������������������79;������������������������E��������������������
���������1g����������������������"�@€� `0(P7牪q€ YX�� €�J� � €��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
���
��� !"#$%&���()*+,-./012345678���:;<=>?@ABCDEFGHIJ���LMNOPQRSTUVWXYZ[\���^_`abcdefghijklmno���q��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������`��������������������������������������������rU€€€ ���������%�
n��������������������������������������������rU€€€€~| p������������������������������������������������������rU€€€ ��������$�`�����������$�`�����������n����������������������������������������������������rU€€€€~~{
������������
���� ���� A rowIndexcolumnIndexcontent
sheetIndex errorInfocolIndexcheckMethoderrorMsgtypeVarU€€€€~| Tq��� ����
1
)I�T����1� Qq���P Ii���!9Y� ���)����a0`\y������Q�� 9�)Iq��a9q�aX��� �)酤$
�
0l酤齣濑(濑]鸃�+'t�'旫'逮�:濑N轧轧
6轧逮旫t�;:宁%p�(濑%$
�
dp�)p�;:宁%p�(濑%$
�
dp� )p�;:宁%p�(濑%$
�
dp� )���������������������������������������������������������������������������������������������������������������w�����������������������p�;:宁%p�(濑%$
�
dp� )p�;p�:濑
%$
�
dp⺈逮裏䴓)p�5逮
�{
�z"�� $
�(濑`�(濑P�;p�:濑
%$
�
dp⺈逮裏䴓)p�5逮]匎撅��%:宁%p�(濑%$
�
dp氃��>逮�A旫Uz)p�6轧逮旫U溜��%'宁%:濑%$
�轧�p�p龵逮��"鋤)p�6轧逮1:匎Nt�t�(旫(逮(轧0�
6
轧逮旫t�0�(濑 �u珲��L:宁%p�(濑%$
�
dp氃��A逮�⺮�)p�5轧:濑 %l�C!(濑%l�C"
�q�C:宁%p�(濑%$
�
dp氃�q)p�濑蒿��%l�C#:濑$%l�C%
�qW�
轧
&'椠'0�:'Nt�t:濑(轧逮:宁)旫^��6轧逮旫t�0�T�;:宁%p�(濑%$
�
dp�)p�=(宁绎%p�(濑%$
�
dp⺈轧*�C+)p�5轧u��P+'t�'旫'逮�:濑,N轧轧
6轧逮旫t��z;:宁%p�(濑%$
�
dp�)p��zRp�(濑%$
�
dp⺈轧!:宁-逮`潺旫
./潺)p�6轧逮旫u��<( 札uD宁㭎待<(濑/(濑0(濑1 23:濑24(濑uz5�z6(旪uD宁㭎tM(宁%旪龘@p�(濑%$
�
dp氃��A逮7h�)p�5轧�z8h�:濑2]鸃p3�����:濑9N轧轧h�潺逮
:逮X�/潺5轧3�����:濑;N轧轧h�潺逮
:逮d�/潺5轧X��5I����,X��5I�L�iT�X��5I�齣宁㭎4 IT�@X�轧鼖�����:宁;N逮逮轧潺旫
:旫H�/潺6轧逮(濑%H�轧(�
札(��3� H(濑%H�轧鼖�����:<�N逮逮轧潺旫
:旫8�/潺6轧逮&8��5I�L齣$�8��5I�齣宁㭎 <$�@8�轧�q酤旪札(逮l酤旫
=-�6轧逮旫E札龘@旪龘@p�(濑%$
�
dp氃�瘘)p�瘘轧
>轧帱
帱�� D(宁%旪龘@p�(濑%$
�
dp氃�悬)p�K:濑?札轧:宁@逮旪旫:At�悬0�:匎B椠`36轧逮旫t�0��z[匎��%札龘@旪龘@p�(濑%$
�
dp氃��=逮C�CD)p�6轧逮3轧
.5轧$~�T~4�<u8���H(濑%X�轧鼖�����:<�N逮逮轧潺旫
:旫8�/潺6轧逮&8��5I�L齣$�8��5I�齣宁㭎包�<$�@8�轧�q酤旪札(逮l酤旫
=-�6轧逮旫E札龘@旪龘@p�(濑%$
�
dp氃�瘘)p�瘘轧
>轧帱
帱��D(宁%旪龘@p�(濑%$
�
dp氃�悬)p�K:濑?札轧:宁@逮旪旫:At�悬0�:匎B椠`36轧逮旫t�0��z[匎��%札龘@旪龘@p�(濑%$
�
dp氃��=逮C�CD)p�6轧逮3轧
.5轧$~包H
nd5I���Q(濑%d�(�
札(��3LH(濑%d�鼖�����:<�N逮逮轧潺旫
:旫8�/潺6轧逮&8��5I�L齣$�8��5I�齣宁㭎慄L<$�@8�轧�q酤旪札(逮l酤旫
=-�6轧逮旫E札龘@旪龘@p�(濑%$
�
dp氃�瘘)p�瘘轧
>轧帱
帱�?D(宁%旪龘@p�(濑%$
�
dp氃�悬)p�K:濑?札轧:宁@逮旪旫:At�悬0�:匎B椠`36轧逮旫t�0��z[匎��%札龘@旪龘@p�(濑%$
�
dp氃��=逮C�CD)p�6轧逮3轧
.5轧$~慄�nH(濑%X�轧鼖�����:<�N逮逮轧潺旫
:旫8�/潺6轧逮&8��5I�L齣$�8��5I�齣宁㭎p黱<$�@8�轧�q酤旪札(逮l酤旫
=-�6轧逮旫E札龘@旪龘@p�(濑%$
�
dp氃�瘘)p�瘘轧
>轧帱
帱�aD(宁%旪龘@p�(濑%$
�
dp氃�悬)p�K:濑?札轧:宁@逮旪旫:At�悬0�:匎B椠`36轧逮旫t�0��z[匎��%札龘@旪龘@p�(濑%$
�
dp氃��=逮C�CD)p�6轧逮3轧
.5轧$~pM黤匎%札龘@旪龘@p�(濑%$
�
dp氃��CE)p�5轧旪龹t�1"0(濑]�<轧0/�/逮�'旫�O7:濑?札轧:宁F逮4旫:Gt㤘36轧逮旫t��z3轧
.5轧(濑麛轧a`�1麛轧`�(濑]鹴/札U "�� �(濑麛轧 �&v
齣濑麥轧P黺
�i㭎0�Mv
齣濑麥轧%p�:宁
%$
�
dp殧﨟裏䴓I)p�5旫P~0v
齣濑麥轧�"{
u5z札龹待�( � �(濑麥轧㭎 "�漰z� �(濑]�3�z�M宁@(轧逮
J6轧逮�,kz�D濑 溤鰯�旫(逮t�
J6逮旫t� ~黌 �(濑]鹴7'0�'t�'旫�:濑K 镌�:宁L逮
6
轧逮旫t�0�u�+'t�'旫'逮�:濑MN轧轧
6轧逮旫t�=(宁%p�(濑%$
�
dp⺈轧*�C+)p�5轧1p�:濑
%$
�
dp楴)p�"�zO(轧逮
P6轧逮 uO��+'t�'旫'逮�:濑QN轧轧
6轧逮旫t�=(宁绎%p�(濑%$
�
dp⺈轧*�C+)p�5轧1:匎RNt�t�(旫(逮(轧0�
6
轧逮旫t�0� +'t�'旫'逮�:濑SN轧轧
6轧逮旫t�=(宁%p�(濑%$
�
dp⺈轧*�C+)p�5轧1p�:濑
%$
�
dp楴)p�;:宁%p�(濑%$
�
dp�)p�;:宁%p�(濑%$
�
dp�)p�;:宁%p�(濑%$
�
dp�)p�|����*�凝待匌t�D�4���傈包狘慄€�p�@�0���札旪P�瘘T�X�$�P�d� �悬帱`�h�`�H�8�(� ����4
�潺p�轧逮旫t�0�椠0 f��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������lisValidateCountregvaluesheetIndex2keyWordkbnvalue1flagrowNum AaSaveAsUICancelfunctionArgsIDNumberfunctionArgsArrvalue2IdNuma��������������������������<�jx�梺���#����������<���歽w倡u覭∮扔喜 �F
�簞餓@矑i貐袽�������������x
潛K*� ���� rU€€€~~~~~~~~"~~~~~~~~~~~~ �軫��4%M慾峤flck � ����儕a Q��������儕a Q������儕a Q������)� I������������A坅 I����������!Aq�� 9a���)Qy����a坅 �
������������� I���� ����!I!q!�!�!�!"9"Y"�"�"�"�" #)#Q#q#�#�#�#�#�� $)$I$q$�$�$�$ %)%Y%y%���坅 I����������
!����������������儕a
Q������������������� �A! �
VBAProjectThisWorkbookSheet1Sheet6打印预览工具函数声明校验函数主程序ShowFormSheet5 PrintForm��F'�C:\Program Files\WindowsApps\Microsoft.Office.Desktop_16051.11727.20244.0_x86__8wekyb3d8bbwe\VFS\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA
)���� Q�0�FuC:\Program Files\WindowsApps\Microsoft.Office.Desktop.Excel_16051.11727.20244.0_x86__8wekyb3d8bbwe\Office16\EXCEL.EXEExcel
���� 1)@0�FC:\Windows\SysWOW64\stdole2.tlbstdole
������ PL续-鶾藉�D轗'�C:\Program Files\WindowsApps\Microsoft.Office.Desktop_16051.11727.20244.0_x86__8wekyb3d8bbwe\VFS\ProgramFilesCommonX86\Microsoft Shared\OFFICE16\MSO.DLLOffice
y������`�.E
忇�.`孧�sC:\Program Files\WindowsApps\Microsoft.Office.Desktop_16051.11727.20244.0_x86__8wekyb3d8bbwe\VFS\SystemX86\FM20.DLLMSForms
aa�y p\v+{�櫦蔎瞐
1C:\Users\boboa\AppData\Local\Temp\VBE\MSForms.exd
� a
y €测试所有校验规则并打印错误信息checkTheSame
�F��Fi�������F0錧\Oh坧e顅
Ncknx�鲖N}�g癳!jgT�峇蹚L坉k!h寶1qazPasswordProtectUnprotect曪嬦Oo`鉔xh�魦f
,
00� $4DHLPd
CellsClearContents��FA65530
RangeEndRowIV5��F€E�=F咓!豊夗� �F騶霿匑墸胍峴L�D�F Worksheet
@F�FFAILUREcheckedRequiredStartwriteLogwriteLogRedaddCommentXQStartclearCommentsXQStartgetCellValueCountXQbeginCheck_commentcallFunctionXQStartregCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowsetCellNumXQdeleteRowNoProsetCellValueXQ
setDMBCode
removeSpaceXQremoveSpecialCharacterA9:IV65536Font媅SONameSize
&HorizontalAlignment@ "NumberFormatLocal4╜nx歔_薡纇錱T� 纇錱菑z-N�鲖�RsQ頃excel� &TR颯齹黐魜penc"N1Yb纇錱1Y%�)n衏:yTabColorIndex
" g錱~b0Rf[u酧o`�鄀誰蹚L�!h寶�-N曪嬦Oo`俌N�
value-:;,{R剉pency��VX[(Wyr妅W[&{�俌^ , ; ' <�> " ? zz�=PGU��"K�6�?�9�歽w倡u覭∮扔喜
�簞餓@矑i貐袽�Browse_Print��F;4ShdC�劎,辣�F@涰?}鲉K皧�L�!D�FWorkbookWorkbook_BeforeSavecheckInt
.╜/f&Tnx\亯軴X[鍕excel�俌軴X[�鲖筽鸔nx歔,&鹼邁\亯蹚L埨h錱!h寶�俌
N軴X[�鲖筽鸔諷坢?
checkRequiredcheckStuName checkName
checkBirthdaycheckBirthdayNecessary
IsIDNumbercheckSFZJLXcheckSchCodecheckFamTypecheckRXDate checkYear
checkMonthcheckXJH
checkPhoneNum checkBankcheckXncheckOptioncompare
compareDeccheckLencheckNum
checkIsInt
checkIsNumber
checkMoneycheckMoneyTJcheckPersonNumcheckIdNumLink checkNLencheckNowNecessary checkSqly checkBZSMM������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������簞餓@矑i貐袽麣yw倡u覭∮扔喜��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S����6"������N0{00020820-0000-0000-C000-000000000046}�����€�������(����������%����H凗�������`��������������%偁8���������������������%����`��������������������������������������������h8@tt����������������������0)奸[$*\Rffff*0P5f1b12f9�����4��������x����òAttribute VB_Name = "She@et6"
鐱ast0{000�20820- C$0046}
|Global!腟pac扚alsedCreatablPre declaId玊ru
BExposeTemplateDeriv$払ustomizD2��<�jx�梺h���#����������<���[醯�G晍�>�=P �FGU��"K�6�?�9�������������xGU��"K�6�?�9淸醯�G晍�>�=P��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S����6"������N0{00020820-0000-0000-C000-000000000046}�����€�������(����������%����H凗�������`��������������%偁:���������������������%����`��������������������������������������������h8@tt����������������������0)奸[$*\Rffff*0O5f1b12f9�����4��������x����òAttribute VB_Name = "She@et5"
鐱ast0{000�20820- C$0046}
|Global!腟pac扚alsedCreatablPre declaId玊ru
BExposeTemplateDeriv$払ustomizD2��<�jx�梺逪��#����������<���€E�=F咓!豊夗� �F騶霿匑墸胍峴������������x騶霿匑墸胍峴€E�=F咓!豊夗��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S����6"������N0{00020820-0000-0000-C000-000000000046}�����€�������(����������%����H凗�������`��������������%偁6���������������������%����`��������������������������������������������h8@tt����������������������0)奸[$*\Rffff*0M5f1b12f9�����4��������x����òAttribute VB_Name = "She@et1"
鐱ast0{000�20820- C$0046}
|Global!腟pac扚alsedCreatablPre declaId玊ru
BExposeTemplateDeriv$払ustomizD2������������梺��������������������������x��ME�������������������������������������������������������������������������������������������
bj梺~��������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6
����<��<��<�������������`������������@�����I僪����������`€CoI僅����������€€I僇��������������€`凩�����������0`������������������I儌��������������€@�������������`������������p�����I儌�����������€I儨��������������€@������������@`�����������������I儌��������������€@�������������`������������€����
�I儌��������������€@�����������+��`������������������i儛�����������i儉���������������`敀��������H��`�,��������H��`勜����������`勡����������`剶�����������(`������������������I儌��������������€@�������������`������������h�����I儌��������������€@������������`������������������I儌��������������€@������������� `������������X���� �I儌��������������€@劆�����������(
`�����������������
�I儌�����������€I儶��������������€@�������������`������������h�����I儌��������������€@������������`������������������I儌��������������€@�������������
`������������X����
�I儌��������������€@������������`������������������I儌��������������€@��������������`������������H�����I儌��������������€@�����������@劋����������� `������������������I�<�����������€I儲��������������€D� `������������X �����I�<����������x €I儲��������������€�
`������������� ����
�I�<����������� €I儲��������������€��
`������������X
�����I儌����������x
€I儨��������������€�`�������������
�����I儌�����������
€I儨��������������€��`������������X�����I儌����������x€I儨��������������€�`�����������������//�I儌�����������€I儨��������������€��`������������X�����I儌��������������€@�������������`����������������� �I儌��������������€�h
`������������0
�����I儌��������������€@�������������
`�������������
�����I儌��������������€@������������X`������������ �����I儌��������������€@������������H`�����������������##�I兙�����������€I僅�����������€I儉��������������€`劺����������`劼����������`刞����������`勀����������`勂����������`勅����������`勈����������@勌����������`勎����������@勑����������`勔����������@勗����������`勚����������@勜������������`�����������������--�I儌�����������€I儨��������������€��`�����������������I儌��������������€`勞����������`勡����������`勣����������@������������ `������������������I儌�����������€I冊��������������€@���������������� `������������`���� �I儌����������€€I儨��������������€�0����
������������������� �������X�h
���������� H���������������� �����������
����(���������(�
��@儓���������������������%����`!!�������������������� ����������������������������h����������������������������2�)奸[$*\Rffff*0S5f1b1316�G€ �€ �€ �B��€ �€�€ ��������� ���� € �(€ �€ �B�������€ ����€ �H(�p�€��������€ ��€ 0€ PB�h�p��€ �����&�������€��H�� �0�8�@�H�P€ �XB�������€€ � € ���Dx������������€ ��B�€€�����0�@�H�P�X�`€ ����€ nh€ �€ �B� €, €$H �p €� �H� �� �� �
€ �����
�"
�H
€ �����h
�€
��
�"�
��
��
�4�
�(€ €0€ �€ �B��€��4��0�@�H�P�X�`€ �h€
€ 0
B�H
€P
�X
�x
��
��
��
��
��
€ €�
€ 0€ PB�h€p�6x������������€ |�€ h€ �B��€��0����������€ x€ �€ �B����� ������ �(€0�8�X�h�p�x�€��€ x�€ € (B�@€H�P�p�€��������€ |�€ (€ HB�`€h�$p������������€ |�€ P€ pB��€��f����� �(�0€ |8€ �€ �B��€����(�0�8�@�H€ �P€ �€ B�€ €(�:0�p�€������������������€ ��€ �€ �B���������������� �(€ ����€ �0€ .�B���
�
� �0�8�@�H�P€ �X€ .�B�(�0�@�P�`�h�p�x�€€ ��B���0�8�&H�p�x�€���D��4��� � �(�H�h�p�x�€��€ ��B�� �8�@�&P�x�€����� ����(����"��� �D(�4p��� �������� � � � � € �( B�� �� �� �� �� �� �� � !� !�"(!�P!�X!�<�`!��!��!��!��!€ ��!B�p"€ ����€ ����€ �����x"��"��"�&�"��"��"��"��"€ ����€ �"�D#�X#�p#�x#� €#��#�"�#��#��#�$�#�"$�0$�@$�H$� P$�p$�€$��$��$��$��$�>�$� %�40%� h%� p%�x%�€%��%€ ����€ ��%€ &€ 8&B�P&€X&�`&�x&��&��&��&��&��&€ ��&€ @'€ `'B�x'�€'��'��'��'��'€ ��'€ @(€ `(B�x(€€(� �(��(��(��(��(��(��(€ ��(€ x)€ �)B��)€�)��)��)��)��)��)�*�*€ �*€ �*€ �*B��*€�*��*�+� +�(+�0+�8+�@+€ �H+€ �+€ ,B�0,€ &8,€ $`,€ �,€ �,€&�,€*�,€"-€$8-€`-€(€-€�-€�-€�-€.€.� .€ �����8.€ �����2P.��.�"�.��.��.€ ����€ ������.�/�(/�8@/�x/�€/€ ����€ ��/B�80�@0�X0�`0�&p0��0�$�0��0��0��0��0��0� �0�1�" 1�H1�P1�$X1�"€1��1��1��1� �1��1��1�2�$(2�P2�X2�`2�h2�p2�>�2� �2�4�2� 3�$03� X3� `3� h3�p3�x3�€3€ ����€ ��3B� 4€(4€04€84€@4��H4��4�5�5� 5�(5�05�@5�H5�P5�X5�`5€ ����€ �h5€ �5€ 6B�(6�06�H6�P6�X6€`6�h6�€6��6�
�6��6��6��6��6�7�(7�07�87�@7�
H7�
X7�h7�p7�x7�€7€ ��7€ 8€ 08B�H8�P8�&h8��8��8��8��8�����8��-----------------------------------------1 检查必填项,若有错误信息显示到 错误信息sheet中---------------------------------------� 空时返回0�
不为空时返回1��
单元格内容]�� H J h$>%P'L L���'�d���'�k���i�����-----------------------------------------2 校验学生姓名 要为汉字-------------------------------------------------------------�格式不正确返回false�格式正确返回true�� �$@���'�z��k��]��%^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$'�3修改:可以校验生僻字 �$��'�d����'�k��€i��x��-----------------------------------------2 校验学生姓名 要为汉字-------------------------------------------------------------�格式不正确返回false�格式正确返回true�0 ��,$�'��'��$����/如果为非必填项�'�z��Xk��P]���%^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$'�3修改:可以校验生僻字 �$��'�d���'�k���i����|-----------------------------------------3 校验出生日期格式为2012-05-09(允许为空)---------------------------------------�� �$@���'�z��0k��(]�(��reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"��reg = "^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$"�;^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$' �$��'�d��`�'�k��Pi��H�|-----------------------------------------3 校验出生日期格式为2012-05-09(不能为空)---------------------------------------�@]����^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$' �$��'�d��0�'�k�� i���h-----------------------------------------4 校验身份证号码---------------------------------------�符合规则返回true�不符合规则返回false��]�79058421637905842�8�0加权因子]�10X98765432�P�0校验码 �$@'�� 去除空格]�h�€�� € | ����6)如果幼儿身份证号为空,则设置为通过校验规则�'�z��€k��x ���Gzj ���$�$��Gzj ��*[0-9X]�Gzj� ����� � ��$�'� ���G�
'�j � � ��$� �'���� ��
'� ��$� , ���$��G�'�ji��P�z-----------------------------------------校验身份证件类型 -------------------------------------------------------------�格式不正确返回false�格式正确返回true��]��,^[\u4e00-\ue863·a-z|A-Z|0-9|()|()]{1,18}$' �$��'�d��0�'�k�� i����----------------------------------------5 -校验学校学校标识码 42位,最后一位为汉字或x-------------------------------------------------------------�格式不正确返回false�格式正确返回true�(]���^[1-9]\d{40}[\dx]$' �$��'�d����'�k���i����z----------------------------------------6 -校验户籍性质 -------------------------------------------------------------�格式不正确返回false�格式正确返回true��]��.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$' �$��'�d����'�k���i����u-----------------------------------------7 校验入学时间-------------------------------------------------------------�格式不正确返回false�格式正确返回true�]�x�'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$' �$��'�d��€�'�k��pi��h�q-----------------------------------------7 校验年份-------------------------------------------------------------�格式不正确返回false�格式正确返回true�� ��� ����,如果为非必填项�'�d����'�k���z���k���]��^((19\d{2})|(2\d{3}))$' �$��'�d����'�k��xi��p�q-----------------------------------------7 校验月份-------------------------------------------------------------�格式不正确返回false�格式正确返回true�(]���^((0[0-9])|(1[0-2]))$' �$��'�d��p�'�k��`i��X�v-----------------------------------------9 校验学籍号-------------------------------------------------------------�格式不正确返回false�格式正确返回true��]��^\d{4}[0-7]\d{3}[0-3]\d{7}$' �$��'�d��H
�'�k��8
i��0
�v-----------------------------------------10 校验电话号码-------------------------------------------------------------�格式不正确返回false�格式正确返回true�]�x�^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b' �$��'�d����'�k���i����v-----------------------------------------11 校验银行卡号-------------------------------------------------------------�格式不正确返回false�格式正确返回true��]���^[1-9]\d{14,20}$' �$��'�d���
�'�k���
i���
��-----------------------------------------checkXn 校验学年如(2012-2013)-------------------------------------------------------------�格式不正确返回false�格式正确返回true�]�h]�€�1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$' �$� ��-$�'��$��$����'�d��8 �'�k��( d�� �'�k�� i�� ��-----------------------------------------checkOption 校验备注如(长度小于value2)-------------------------------------------------------------�长度不小于200返回false�否则返回true�� <���'�z��k�� < �
��'�d����'�k���i�����------------------------------------------------------比较大小(小于等于返回true)----------------------------------------------------------------�'value1大于value2返回false 否则返回true� <X'< �X'� < �
��'Dd����'Dk���i�����------------------------------------------------------比较大小(小于等于返回true)-dec---------------------------------------------------------------�'value1大于value2返回false 否则返回true�� <$4'< �$4'� < �
��'�d����'�k��€i��x�}------------------------------------------------------校验长度---------------------------------------------------------------�
��,$�'��'� ����$����/如果为非必填项�'�k��€z��xk��p �����,-下标从0开始,其值为指定的数组维可用的最大下标 ��$�$4 ��$�$4��'�z���k���d�
说明是校验固定长度 ��$�$4��'�z���k��€k��xi��p�}------------------------------------------------------校验整数---------------------------------------------------------------��
��,$�'��'� ����$����/如果为非必填项�'�k��xz��pk��h �$���&如果不为数字z��@ ��.��e�+如果包含小数点z�� �$4�e�% 如果小于0z���k��� �����,-下标从0开始,其值为指定的数组维可用的最大下标 ��$�$4 ��$�$4��'�z��Hk��@d�
说明是校验固定长度 ��$�$4��'�z���k���k���i�����------------------------------------------------------校验数值范围---------------------------------------------------------------� ��,$�'��'� ����'�z��k�� �$���)如果不为数字z��� �$4�e�) 如果小于0z��� k��� �$4�$�$4 �$4�$�$4��'�z��P k��H i��@ ��------------------------------------------------------校验数字长度(Number,可以为整数也可以为小数,不小于0)---------------------------------------------------------------�� ��,$�'��'� ����$����/如果为非必填项�'�k�� z��k���新增:检验数字不可加符号�<�^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$' �$�z���k��€ �$���%如果不为数字z��X �$4� e�$ 如果小于0z��(k�� �$�'��+整数部分最大长度�$�'��.小数点最大位数 ��.�'��'��'� ����"说明没有小数点 �$4'� ��$�$4��'�z��Pk��Hd�如果有小数点 �� ��.��$�'��D单元格中数字的整数位 � ��.��$�'� ��$�$4 ��$�$4��'�z���k��€k��xi��p��-----------------------------------------checkIsInt 校验不小于0的整数-------------------------------------------------------------�格式不正确返回false�格式正确返回true�]�x�^0|[1-9]\d*$' �$��'�d��h�'�k��Xi��P��-----------------------------------------checkIsNumber 校验为Number类型-------------------------------------------------------------�格式不正确返回false�格式正确返回true���'� �$���'�k��Xi��P��-----------------------------------------checkMoney 校验金额0-9999,整数-------------------------------------------------------------�格式不正确返回false�格式正确返回true��]�P
�^(([1-9](\d{0,3})|0)|0)$' �$��'�d��8�'�k��(i�� ��-----------------------------------------checkMoneyTJ 校验金额0-9999小数点后一位-------------------------------------------------------------�格式不正确返回false�格式正确返回true�h
]��
�^([1-9]\d{0,7})$' �$��'�d���'�k���i�����-----------------------------------------checkPersonNum 校验幼儿园人数至少一个人------------------------------------------------------------�格式不正确返回false�格式正确返回true��
]�@�^(([1-9]\d{0,3}))$' �$��'�d����'�k���i�����-----------------------------------------checkIdNumLink 校验身份证号中性别和出生日期与用户填写的是否一致------------------------------------------------------------�格式不正确返回false�格式正确返回true�X� If colIndex = jhrIDColumn Then� checkIdNumLink = True� Exit Function� End If]���%性别和身份证号上是否对应]��$出生日期和身份证号上是否对应]�(�日期第一次出现的下标]�@�"性别,单元格之内的内容]�X�$身份号截取的内容]�p�!出生日期,单元格之内的内容]���"身份号截取的内容]�����#出生年份]�����%出生月份]��]�0 ���$�'� ���$�'� ��
���(倒数第二位为奇数,则为男性�男 H � l$V,Pd�倒数第二位为偶数,则为女性�女 H � l$V,Pk�� ���$�'� ���$�'� ���$�'� ��- ��- � H � l$V,P�'�i��x��------------------------------------------------------校验数字长度(Number,可以为整数也可以为小数,不小于0)---------------------------------------------------------------�H ��,$�'��'� ����$����/如果为非必填项 ��������checkLen0,1,33A@T�'�k�� k��z��k�� �$���%如果不为数字z��� �$4� e�$ 如果小于0z���k����$�'��+整数部分最大长度�$�'��.小数点最大位数 ��.�'��'��'� ����"说明没有小数点 �$4'� ��$�$4� ��������checkLen1,1,33A@T�'�k���z���k���d�如果有小数点 �� ��.��$�'��D单元格中数字的整数位 � ��.��$�'� ��$�$4 ��$�$4� ��������checkLen1,1,33A@T�'�k���z���k���k��€i��x��-----------------------------------------3 校验出生日期格式为2012-05-09,不能输入未来时间(不能为空)---------------------------------------��]�(]�@]�X]�p��^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$' ��yyyymmdd$�'� � �
��'�z���k��� �$��'�d����'�k���i�����-----------------------------------------2 校验申请理由 要为字母-------------------------------------------------------------�格式不正确返回false�格式正确返回true�� �$@���'�z���k���]��^[a-jA-J]{1,10}$' �$��'� �'�� ��� �� �$� ��$�'�� � �� �� �$� �$�'� � ���'��'�z���
k���
� ��� ���d���
�'�k��€
i��x
��-----------------------------------------2 校验学生姓名 要为汉字-------------------------------------------------------------�格式不正确返回false�格式正确返回true� ��,$�'��$����'如果为非必填项�'�z��` k��X i��P ����H ����-�Attribute VB_Name = "校�楹�"
'-%1 �觳楸靥钕�,若有错误信息显 示到 sh`eet中$�兛帐狈祷�0!不为1
Function checkRequired(bIndex, row coluDmn)
� '单元格�谌�Dim cellValu@e As S€弉g��= Work5s�8).C� s(�;If�2€咐" Then0並�g€蒄alse�E��妠Tru�nd If
濫€�牓�-2"羵学生姓�� 要为�8鹤�&
!格式不正确盗uf7'A�t�1憢wStu仺(vg聾p@QTrim�?�"蜵�0咲€R�7€ Exit H}D 丮丱�_羾re脙 ^([\u2E80-\uFE4Fo·]|[a-zA-Z]){1,20}$" '修改:可以丄U生僻字�[@2C�*A"(,� �9L喡{�3坽弲R=��5�G=�|%9連q>-連@€袯gB, f徜丄rgsd|8�Arr�6Split(�, ","�h"-a�現�6%C��8l(0)0�7 '如果为牵oa �:!鹐_U TTTT�&o篠O+_S跦3�$ak硛錾掌�!�为2012-05-09(允�:��); �-藼i纑thdayf怉�€?�怌哄oJ �;�;'鄤 "^((19)|(20))€\d{2}-(0?[13578] 1[02])&)��-9a[12][0�3[0&1��((46y11/'��0?2s)))$?@劇
�
�
�
p[1�
�
[|
|(3e
S
/H
�19|嚢��-2]|��-� |�|` >-�!��\uer)�\ckX!/3� ��#亸~爠]//o3醤3不能o3o3c3Necess靉r�3?K /-#-"�"�+"�*�,O "�'鹸"�g飠r2]��w0;y (hRo�餾4�P拡矸葜ず�<码��符篮瞎嬖蝰汣y8'不ID�%� IsIDNumbe衦(By嗟 �W都, �p築簵)�繠oolea��€Const W'qP79058428163�P椑'紑尤ㄒ蜃觭w�c�10X98�765432CA31洶新�{&= _�)€去除翱崭瘢!-sInteger,� i�T�0%v= babyID駽� A>�aSC呌锥�:,则设置梧üA�
��湇1_h砂!�
Len(<>8 18脦�p� Not� eric(Mid�, 1� 7)��f�5Like "*YAfX]�_ �
For�= 1 T皁 17CqT�齫W���臎]�1扮11sps( + ;i! *� TNext��s Mod 1��Right�立c, T����3pcC@炕�:�>件类型 ~� -9
'�袷讲徽贩祷豧al宻e*&tru$Function checkSFZJLX(val@ue)
D纈m reg = "^[\u4e00-\ue863·a-z|A-Z|0-9|()|()]{1,18}$�"9IfECdr(I, g Th糴n%p垁5T俁絹Ea���F僶End If
�
�n€|%�5�!�€-校验学€€标识码 42位,最后一位为€汉字或x9�-勊爸chCode爇1-9]\d{40}[\dx~]5e�^e� 縠V6坉户籍性��闰菷amTyp`](\u519c\u6751)|�3bf\u9�547�7ce�餰02)tdd=2�G?2_Y$7 d葊胙奔�8_`€�朢XDatr1凬owNe€cessary#孉%�(((19�020)) c2})(�(0[鄺]€1�2])�2e)憲�?�2�2+$d2年<份8�1�1YeDar銘, fD薃纑gsArr渖脸戮�#""�'億 喾��0� '如果为非必鹛钕铉茀��?�a�'�))iH3�d蘨aExit� 囄�E裔书A� �"^丵|(2�3}�'鄖�焥bz�鱛Qsk��'_sO"��'月�'��'煁貜@ckM餺nth焢崑O>O>點k��%�S 緻��_91鍜W裵p号O����(XJH�€,4}燭7眹�3�3�7O�/淎��-@�/#��?10cn电秽昂怕隣����Pho`neNum?<\俠燚(([38�l4[57m5`L35P犚n8}�05�0p2 “n-[J2B�*�[3�{�2}g)\b考�2��2���x_11银续锌�2O�Bank�
3[t�14,20鏮2_2_2ck���4oo�:n繧A⊙耆鐎(2012-@�3)_�pXn_U蕐饖s湣20€K�/st�019t9�9€
00颿_\2ASplit� ,0 "-"採],�If years (1) -�0) = 1 Then
checkXntTru鈋lEls`RFa
8End I>ftl2.Fu nctio�'-3%TOp6栃�验备注如(长度小于value2專�&)
'�'不�(200返回f|'否訸騺t�b 圠(褌A1, 僂)�ョ€袃�""愂�9塽= 嬓��Ex鴌t Hg��圠en�() >D)�"A#�蠈A��2訁€a硄比较 大小(羙等粲�l)�G
€$Co湸笈毩� 諉纎mpare讌刾CInt協噸�2焕媷2H旼�sc�� 瓁~7�虄焫趴--X5dec:3�5C
'y�$De騝6 C�(26�?6尦(0€6� �d6#�6$_,1A疉��:�.佈&�, fa拿ArgsH+�Arr�"Split�(�, ","h�@�(Eg v盽�
("�0B� '如果为非必鹛钕顙絻2�2����2犲�摶�乣UBound� ��2�
下标从0开始�渲滴付ǖ氖槲捎玫嗄最大�! 7p&癱=�/�1)X) A@B�<�s (2�弶�x8�� oq^]1l '说明是�.固定A.��������/"��
n�
[蠗�:�整数��
@鰋@�
��&�@@€疇�渙� 耑�@0.@@�b�+�+�R@��@
Not IsNum(eri磌)8J不粑獝>舟,��伭 InStrcp0€.") <> 塐包含小数斓鉶O� 6`Wsm=
�0�� �-p?P!8?P?P?P繰遦r@p圡>o?f?�?P��$?P�|O$���]?P?PI����?P�3P_2���
��
?P?P諭�1P数值范�>Н}PVa頻e7�"彁n駪恡LqPゴt(functionArgs, €",")
checkVal = FalsedIf valued"" The苙6zTrux@繣xit F?繣nd IfOoNot IsNu@meric(})y '如果瞼晃�7jf�-CDe!�(<= 0+小x于0�))揯 1>= 紸rr(�0)) A�G龗1€粊k��N 燽羈Gh'-2�Q閬f长度(pber,可以为整数也�小数籅\)sF
:
E- 翨@儗, 鏘]篮莢
�宖€桂Spli`�p�€�纼€ N€潜靥钕頖*�Br�:€
T�4A-q�'新增�杭�#;不可@加符号Greg�"^(([@1-9][0€*)|�0]\.\€d{1,2}|h�))|0{1}x)$"� �#€€
C雭挕;(€,脨仹�f�?�,婾&0���/�bmaxIn0tLen@+虴1) 'j部分�8畲罅mK"�Do衭ble2劦懔位数�"i"gth€In萐trEj".┢廆嗥饷dou4 1)_说明螟挥�#+b"€�
/埀s��(E) �_�~n�4=JPtE€J\� をMid�31, �5 - 罞单元格謷醒Y的�#位_镝 h�+p麩弍s乸羗乸q��嬔2痯�^�飶� ]R!5q昲馿t&k��
I鷖�> 駍tqC?
'格�讲徽贩p祷豧R5t?洉3t�C%4iu��`E说烂髅挥袚 ��r@����`��(%) <= B}�)�.3p?2s�?2��2 �21�2��3?/%��->�o�*醬侲� �裯'睟% -缊 '%$犘!8的.位邿!�%�+J幧 慡�!�<�!) A�€}���$�5�$���$�$K��$�$颳��wm�;疿烰?�%?�oO0'q鮳
�儻{3�僽緫�为2012-05-09,不能输入未€来时间(鹞誒儚蝸owNecessaryte�+Di貌m st As String
Dim ti爉eNow蠵�躵e� = "^((19)|(20))\d{2}(0[13578].1[0@2]))((-9[12][0�3[01' �46 11/e,02Q)))$"��= Format(t, "y�mmdd")�If value� >亼Then�A€恈heck€NecessaryAuFalse�Exit Functio�End 躀f�€-怌#J(,�6) �4 �5Tru�4E�9�K@�M
'-%2�> 校�樯昵肜碛� 要为�8帜�&
!格式不正确牱祷豧CS'A�t�=E.C;Sql膟(俰, anVPTrim�)A�"�T�0U�蝝8o�臤�寥mCsA^[a-jA-J]纚1,10}E氺z媱%莤s�Len�4C� i�1 T(o s�n�Mi€d(LCaseD�, i, 1�
Bj i + T mRjG W �m�)�(a
1� �)�) Ne皒t jbic�餥�6E �鏩縕Q学生姓名幔Z汉字慤$嚳Z ]盳BZSM#8, f剤ArgsG9P�Arr�-S`plit(�€�,Oa Q�(0ad0�: '如果�潜靥钕#0�aB=�
gS�(@�学生信息打印模板$>B@B��学生信息打印模板$>(@o����������偘Attribute VB_Name = "打�≡だ�"
Sub Browse_Print ()
Worksheets("学生信息l模板").Visibla楾rue"d^P@review2cEnd �
����������洿€0*� pH�d�
VBAProje坈t4@j
=
r )奸[�J<
r€stdole>stdo€le
h%^*\G{00€020430-C
0046}#2.0#0#C:\Windows\SysW OW64\e2.�������q輸梺艄�������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(6
��������L����L�����������F�`������������
@�����I僅����������`€rmI僇��������������€7`凩����������R�`������������
������i僒��������������€\X`������������
8���� �i僒��������������€f`������������
������I僪�����������€I僅�����������€I僇�����������€I僯��������������€t�`������������
X����
#�I僪����������x€I僅�����������€I僇��������������€~X`������������
�����-�I僪����������€I僅����������8€I儉��������������€�8`������������
�����2�I僪�����������€I儐�����������€I僅�����������€I僇����������€I儓��������������€�`������������
x������G�I儛�����������€I僪�����������€I僅�����������€I僇�����������€I儝��������������€�`������������
X����,�I�����������x€I儌��������������€`��������� �� `������������
����� :�I���������������€+&�
`������������
P����
Q�I僪����������p�I�(������������i�*���������������`�,�������� ���€`������������
����b�I儌����������(€I�<����������H€I�>��������������€@凚����������J`������������
�����€�I僪�����������€I僃��������������€T�
`������������
@����
��I僪����������`€I僅����������€€I儉�����������€I儌��������������€V@ `������������
������I僪���������� €I僃��������������€X
`��������
�k€ ������I僪��������� €I僅��������� €I儉��������� €I儌€ ��������€�`������������
@
������I儌����������`
€I僪����������€
€I僅�����������
€I儉��������������€@凚����������@刏����������@凩������������`������������
H������I僪����������h€I僅�����������€I儉��������������€`�<����������`刕����������`刞����������d����`������������
0���� ��I儌��������������€@���������������€�
8��X���������������@ �������������������������X僁������
��������������%��������� ����� ����� �����
������������������������������������������������������������������������������������������������������
�
�
@X����l������
�
������������>@�Hh��� �� @�0X����� @�`H����� @�����D��� �� @�x4����� @��$����� @���������� @���������� ����8������������������������������������������������������������������������������h)奸[$*\Rffff*0N5f1b12f9*\R1*#400*\R1*#13e*\R1*#132��€ ����€ �B��€ �€�€ ��������� ���� ����€ �B��������€ ��B�h�
p�€�2�����€ ����€ p�€ `B�x€ 8€�$��8��"�@€ pHB��€ 8��
��
�$0�
X�$`�
���€ ��B�(� 0�P€ ����€ xXB�����4��(0�*X�$�����€ 8��B�P�0h�!€�� � �( �0 € �8 € €� € �@
€ �
B��
��
€ ����€ �����€ ����€ �����4�$P�"x���"����
��.�� �8�0H�x���0������*
�0
�H
�.X
��
��
�.�
�
�
��
�0�
8�H�6`�
����6��
���. �
P�`�8x�
����6��
� �(8�
`�p�.��
�������€ ����€ f�€ X�x�����>��&��
€ X(�€����€ h���*0� `�€���j��&�
0�@�P�X�x€ `€������ � H(�(xp� H��(�0� H��(p� H��(��� h� &p�
�������€ n��H�X�p� x� 8��(��� 8��(��� x� &€�
�������€ n��X�p��� �� 8��(��� 8��(��� �� &��
�������€ b€ h������������&X �
€ € ,� �� �� �� € f� € X!�x!��!��!� �!� 8�!�(��!� 8�"�(��"� x#� &€#�
�#��#��#��#€ f�#�P$�(h$��$� T�$� &�$�
%�0%�8%� $P%� &x%�$|�%�$& &�$
H&�$X&� h&�p&� x&� �&�$t�&�$&'�$
0'� @'€ $�����H'�P'€ �����X'�x'€ ^€'��'�"�'� (�@((�&h(�
�(��(� �(��(��(��(€ b�(�`)�p)��)� t�)� &*�
8*€ �����H*�P*�p*€ bx*€ �*�+�+�(+��0+�&�+�
�+€ �+��+�,� ,€ ^(,€ �,��,��,��,�X�,�&8-�
`-�p-�x-��-€ ^�-€ .� .�0.�@.�XH.�&�.�
�.€ �.��.��.�/€ ^/€ p/��/��/��/�T�/�&0�
@0€ P0�X0�`0�€0€ n�0€ �0�1�01�"@1��h1�&�1�
2€ 02�82�@2�`2€ jh2€ �2� �2�3�"(3��P3�&�3�
4�(4�04�P4€ nX4€ �4��4�5�"5��@5�&�5�
�5€ �����6�6�(6€ P06�€6��6��6���6�&@7�
h7€ x7�€7��7��7€ R�7�8� 8�88�X@8�&�8�
�8€ �8��8��8�9€ b9�p9�$�9��9�@�9�&�9�
:�0:�$8:�`:�h:��:€ ^�:��:�";�0;�@8;�&x;�
�;��;�"�;��;��;�<�€ ^<��p<��&�<�€ ������<��@�<��&�<��
=�0=�&8=�`=�h=��=€ |�=�>�$(>�P>�(X>�@€>�&�>�
�>€ ������>�"?�(?�0?�P?€ |X?��?� �?�@�@@�&X@�
€@�怈� 楡�窣�繞�郂€ ����€ j鐯�XA�pA�圓�怉�F燗�鐰�@餉�0B�&8B�
`B�pB�0xB�˙�癇�蠦€ p谺�HC�(`C�
圕�楥�燙�窩�谻� 鐲�餋�
鳦�
D�D�(D�@D�HD�XD�pD�怐�楧�T燚�&鳧�
E€ �����0E�8E�XE€ t`E�谽�$餎�F�@ F�&`F�
團�楩�$燜�菷�蠪�餏€ N鳩�HG�.`G�怗�癎�窯�谿€ �����郍��鐶�&pH�
楬€ ℉�癏�窰�豀€ d郒�HI� `I�@€I�&繧�
鐸�鳬�2J�8J€ x@J�窲�6豃�.K�@K�PK�(XK�2hK�(xK�1圞�(楰�2↘�(窴�1菿�豄�郖�J鳮�HL�`L�hL�pL�xL€ f€LB�鐻€ 餖�<�鳯�8M€ XM�pM�$怣�$窶�郙�鐼€ ����€ �餗€ \楴€ ����B�鳱�,O€ 0HO�@xO�"窸€ ^郞€ 6@P�xP�怭�癙�蠵�0餚�H Q�hQ�圦�怮�楺�燪�≦€ �癚€ "PR€ xR€ .楻B�萊�
蠷€$郣�BS�PS�`S�pS�€S�圫�楽�燬�⊿€ �癝€ HT€ `T€ xT€ 楾B�癟�"窽�郥�鳷�U�U�U€U� U�8@U�xU�2€U�窾� 蠻�餟�V�V�V�
V�(V�FHV�怴�榁�燰�
╒€ *竀�鑆€ �餠€ 怶€ ╓B�繵�萕�*鑇€ 4X�PX€ pXXB����
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM���OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuv���x�z{|}~�萖�蠿� 餢�Y€ �Y€ 竃€ 衁B�鑉�*餣� Z€ �(ZB�竄�<�繸� J郱�[€ �[B�竅€ 繹� "豙� \�8 \�2X\�怽� ╘�萛�豛�郳�鑌�
餦�]�" ]�0H]� x]�(榏�繻�萞�&衇�鴀�
^�^€ �^B�╚€癪€V衈�(_€ 8H_� €_�
燺�:癬�4餩�$(`�P`�"h`�恅�榒�燻€ �╜B�8a€@a�6Ha�€a�恆�榓�燼�╝�癮����繿��-----------------------------------------校验校验必填项若有错误信息显示到 批注中-----------------------------------------------------------��
单元格内容]�€ H J N%P'L L���'Fd��(�'Fk��i����--------------------------------------------写日志 记录错误信息并显示到一个错误信息表中--------------------------------------------�� T Z� X$V,P Z�'Zi��X��--------------------------------------------写日志 记录错误信息并用红色字体显示到错误信息表中--------------------------------------------�� T'^ T Z� X$V,P�� ^ Z� X$V%P%`!b(d Z�'Zi��p�i--------------------------------------------添加批注(点击开始校验)-------------------------------------�errorInfo批注内容�X�1Worksheets(sheetIndex).Unprotect Password:="1qaz" j H J h$>%PB@l��� H J h$>%P!n(p�W添加黄色背景� H J h$>%P!r(@i���i--------------------------------------------删除批注(点击开始校验)-------------------------------------��1Worksheets(sheetIndex).Unprotect Password:="1qaz" H J h$>%PB@v H x J z�� H J h$>%P!n(dd��` | H J h$>%P!n(dk��0i��(��------------------------------------------------------ 获取指定的cell值-------------------------------------------------------------�� H € h$>%笔!�'~i��h�r---------------------------------------------点击开始校验 是否添加或删除批注调用的方法----------------------------�X ���如果校验失败 H J h$>%P!r���d判断批注为空 h H J �A@f�V添加批注方法d�"若不为空,则去除当前批注,重新添加 h H JA@t�N清除批注方法 h H J �A@fk����1 MsgBox "第" & rowIndex & "行数据项:" & errorMsgd�
:如果校验成功则判断是否有批注,若有则把校验失败时的批注去除 h H JA@t ���,#如果做了去除空格处理,则对其进行提示�第 H�行,第 J�列,您输入的字符�"$. ��"$.�"中包含了空格,系统已自动为您清除了A@Rd��`k��Xk��Pi��H��----------------------------------------------------------------------------------------------------------------------------------�y--------------------------------------------根据标识符,调用对应的方法(点击开始校验)-------------------------------------��----------------------------------------------------------------------------------------------------------------------------------�把错误信息写进错误列表�8 H J h$>%P'��'� � J h$>%P'��I获取该列表头的名称 ����如果为合并行的表头 �� J h$>%P'� H �e � J� h$>%P'�k����0'� �� checkLen*��)如果为整数长度校验 �� $�'��checkLen'� �� checkNum*e�-如果为Number长度校验 �� $�'��checkNum'� ��
checkNLen*e�.如果为Number长度校验 ��
$�'�� checkNLen'� �� checkVal*e�-如果为值的校验 �� $�'��checkVal'� �� checkInt*e�-如果为整数值的校验 �� $�'��checkInt'� ��
checkTerm1e�-如果"是、否"为必填�1'�� checkTerm'� ��checkYesNo1e�/如果"是、否"为必填�1'��
checkYesNo'� ��checkDiffName1e�2如果困难级别名称为必填�1'��
checkDiffName'� ��checkDiffCode1e�2如果困难级别编码为必填�1'��
checkDiffCode'� �� checkSQLYe�-如果申请理由为必填�1'�� checkSQLY'� ��checkIDCardType1e�4如果身份证件类型为必填�1'��checkIDCardType'� ��checkSqyyName1e�2如果申请原因名称为必填�1'��
checkSqyyName'� ��
checkYear1e�.如果年份校验�1'�� checkYear'� ��checkXXSHZT1e�0学校审核状态校验�1'��checkXXSHZT'�k��� ���_=================================类型1 执行的非空校验==========================================�把错误信息写进错误列表� checkNullKT h H J$�'� ���第 H�行的数据项: ��不能为空!请检查'��'��)整体校验时,如果有错误信息 �A@R�RMsgBox "第" & rgold.Row & "行的数据项:" & Chr(10) & titleMsg & "不能为空,请检查"k��x h � H J �A@��'��a=================================类型2 执行学生姓名校验==========================================� checkNameKT h H JA@��@调用去除空格的方法 H J h$>%笔!�'� �$�'� ���第 H�行的数据项: ��;填写不正确!必须为汉字,长度大于1,不能超过20个字符,请检查'��'��%整体校验时,如果有错误信息 �A@R ��'�k��� h � H J �A@��'��Z================================= 执行的长度校验==========================================�checkLenKT � �$�'� �� ��,$�'��$�� �����` 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��.填写不正确,该项可以为空。若填写,则长度必须为�$��
位!请检查'��$�� ���e�d 如果该项为非必填,并且为长度范围�第 H�行的数据项: ��4填写不正确,该项可以为空。若填写,则长度必须大于等于�$��位,且不超过�$��
位!请检查'��$�� ���e�d 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��&填写不正确,该项不能为空,且长度必须为�$��
位!请检查'��$�� ���e�d 如果该项为非必填,并且为长度范围�第 H�行的数据项: ��,填写不正确,该项不能为空,且长度必须大于等于�$��位,且不超过�$��
位!请检查'�k���
�'��0整体校验时,如果有错误信息 �A@Rk��P
h � H J �A@��'��h================================= 执行的长度校验(Number类型)==========================================�checkNumKT � �$�'� �� ��,$�'��$����@ 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��K填写不正确,该项可以为空,若填写,则必须为数字,大于等于0,整数位长度不超过�$��位,且小数位不超过�$��
位!请检查'��$��e�D 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��C填写不正确,该项不能为空,且必须为数字,大于等于0,整数位长度不超过�$��位,且小数位不超过�$��
位!请检查'�k��€�'��0整体校验时,如果有错误信息 �A@Rk��@ h � H J �A@��'��h================================= 执行的长度校验(Number类型)==========================================� checkNLenKT � �$�'� �� ��,$�'��$����@ 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��K填写不正确,该项可以为空,若填写,则必须为数字,大于等于0,整数位长度不超过�$��位,且小数位不超过�$��
位!请检查'��$��e�D 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��C填写不正确,该项不能为空,且必须为数字,大于等于0,整数位长度不超过�$��位,且小数位不超过�$��
位!请检查'�k��h�'��0整体校验时,如果有错误信息 �A@Rk��( h � H J �A@��'��[=================================执行值范围的校验==========================================�把错误信息写进错误列表�checkValKT � �$�'� �� ��,$�'��第 H�行的数据项: ��$填写不正确,该项必须为数字,大于等于�$��
,且不超过�$��!请检查'��'��-整体校验时,如果有错误信息 �A@R�& isValidateCount = isValidateCount + 1k��8 h � H J �A@��'��_=================================执行的为整数值的校验==========================================�把错误信息写进错误列表�checkIntKT � �$�'� �� ��,$�'��$����@ 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��8填写不正确,该项可以为空,若填写,则必须为整数,大于等于�$��,且长度不超过�$��
位!请检查'��$��e�D 如果该项为非必填,并且为固定长度�第 H�行的数据项: ��0填写不正确,该项不能为空,且必须为整数,大于等于�$��,且长度不超过�$��
位!请检查'�k��€"�'��0整体校验时,如果有错误信息 �A@Rk��@" h � H J �A@��'��`================================= 执行的身份证件号校验==========================================�
checkSfzjhKT h H�$~'��S获取填写内容 ����第 H�行的数据项: ��&填写不正确,因身份证件类型为空!请检查'��'��0整体校验时,如果有错误信息 �A@Rd��� ��
居民身份证� � J$�'��O身份证号校验 ���:如果不符合身份证校验规则�第 H�行的数据项: ��M填写不正确,该项必须为学生身份证号,并且最后一位如果为字母X的必须大写!请检查'��'��4整体校验时,如果有错误信息 �A@R ��'�k���d��� �$�'� ���第 H�行的数据项: ��E填写不正确,该项不能为空,且长度必须大于等于1位,且不超过18位!请检查'��'��4整体校验时,如果有错误信息 �A@Rk���k���k��� h � H J �A@��'��X================================= 执行身份证件类型校验==================================� checkZjlxKT� checkZjlx ��1$�'� ���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd��X� checkZjlx h H JA@�k��0 h � H J �A@��'��\================================= 执行学籍号的校验==========================================�checkXJHKT ��1, 1, 50$�'� ���第 H�行的数据项: ��E填写不正确,该项不能为空,且长度必须大于等于1位,且不超过50位!请检查'��'��0整体校验时,如果有错误信息 �A@Rk��� h � H J �A@��'��[=================================执行银行卡号校验==========================================�把错误信息写进错误列表� checkBankKT �$�'� ���第 H�行的数据项: ��$填写不正确,该项必须为数字,大于等于�$��
,且不超过�$��!请检查'��'��-整体校验时,如果有错误信息 �A@R�k�� h � H J �A@��'��W=================================执行年份校验==========================================�把错误信息写进错误列表� checkYearKT � �$�'� ���第 H�行的数据项: ��*填写不正确,该项格式如2012、2002等!请检查'��'��-整体校验时,如果有错误信息 �A@Rk��� h � H J �A@��'��W=================================执行学年校验==========================================�把错误信息写进错误列表�checkXnKT �$�'� ���第 H�行的数据项: ��)填写不正确,该项格式如2012-2013等!请检查'��'��-整体校验时,如果有错误信息 �A@R�k�� h � H J �A@��'��W=================================执行月份校验==========================================�把错误信息写进错误列表�
checkMonthKT �$�'� ���第 H�行的数据项: ��&填写不正确,该项格式如01、12等!请检查'��'��-整体校验时,如果有错误信息 �A@R�k��� h � H J �A@��'��g=================================类型3 执行的日期校验(非必填)==========================================�把错误信息写进错误列表� checkDateKT� �$�'� ���2如果出生日期校验失败�第 H�行的数据项: ��填写不正确!填写格式为�"$.�
xxxx-xx-xx�"$.� ,如2013-02-21,请检查'��'��-整体校验时,如果有错误信息 �A@R�k��� h � H J �A@��'��c=================================执行的日期校验(必填项)==========================================�把错误信息写进错误列表�checkDateNecessaryKT�& �$�'� ���2如果出生日期校验失败�第 H�行的数据项: ��填写不正确!填写格式为�"$.�xxxxxxxx�"$.�- ,如20131221,并且只能在系统时间之前,请检查'��'��-整体校验时,如果有错误信息 �A@Rk��� h � H J �A@��'��g=================================执行的出生日期校验(必填项)==========================================�把错误信息写进错误列表�
checkBirthdayKT�! �$�'� ���2如果出生日期校验失败�第 H�行的数据项: ��填写不正确!填写格式为�"$.�xxxxxxxx�"$.� ,如20131221,请检查'��'��-整体校验时,如果有错误信息 �A@Rk��� h � H J �A@��'��J=================================类型10 校验电话号码======================�
checkPhoneKT �$�'� ���第 H�行的数据项: ��填写不正确!填写格式为�"$.�区号-固定电话 或 手机号码�"$.� ,请检查'��'��%整体校验时,如果有错误信息 �A@R�k��x h � H J �A@��'��L=================================checkOption 校验备注 ======================�checkOptionKT ��B$�'� ���第 H�行的数据项: ��)填写不正确!长度不能超过200个字符,请检查'��'��%整体校验时,如果有错误信息 �A@R�k��
h � H J �A@��'��\================================= 执行认定困难级别名称校验==================================�
checkDiffNameKT�
checkDiffName � �$�'� ���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd����
checkDiffName h H JA@�k��� h � H J �A@��'��X================================= 执行学校审核状态校验==================================�checkXXSHZTKT�checkXXSHZT � �$�'� ���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd��H
�checkXXSHZT h H JA@�k��
h � H J �A@��'��X================================= 执行身份证件类型校验==================================�checkIDCardTypeKT�checkIDCardType � �$�'� ���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd����checkIDCardType h H JA@�k��� h � H J �A@��'��v=================================14 checkGender 执行内容是否为“男”“女”校验--==================================�checkGenderKT�checkGender ��1$�'� ���'��-性别有错,则无需校验身份证号�第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd���checkGender h H JA@�k��� h � H J �A@��'��u=================================14 checkYesNo 执行内容是否为“是”“否”校验--==================================�
checkYesNoKT�
checkYesNo � �$�'� ���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd��h�
checkYesNo h H JA@�k��@ h � H J �A@��'��d=================================14 checkSQLY 申请理由的校验--==================================� checkSQLYKT � �$�'� �� ����第 H�行的数据项: ��填写不可重复录入!请检查'�d���第 H�行的数据项: ��填写不正确!请检查'�k����'��(整体校验时,如果有错误信息 �A@Rd���� checkSQLY h H JA@��R 码表校验'k��P h � H J �A@��'��i=================================15 checkSqyyName 执行备注说明校验--==================================� checkBZSMKT h H�$~'��L获取填写内容 �'��'�� ��� �� �$� ��$�'� ��h��'�k��� ��� ����1,1,100'� � �$�'�d����0,1,100'� � �$�'�� H� h$V,Pk��h ���第 H�行的数据项: ��&填写不正确,字符长度最多为100位!请检查'��'��(整体校验时,如果有错误信息 �A@Rk��� h � H J �A@��'��n=================================14 checkSqyyName 执行内容申请理由校验--==================================�
checkSqyyNameKT�
checkSqyyName � �$�'� ���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rd��`E�
checkSqyyName h H JA@�k��0E h � H J �A@��'��G=================================申请理由描述校验======================�
checkSqyyDescKT H J� h$>%P!��其他� ��1, 1, 60$�'�d��HD ��0, 1, 60$�'�k�� D ���第 H�行的数据项: ��V填写不正确!当申请理由名称为“其他”时,该项必填,并且填写长度不能超过60个字符,请检查'��'��%整体校验时,如果有错误信息 �A@R�k��HC h � H J �A@��'��]=================================checkTerm 执行学期校验--==================================� checkTermKT� checkTerm � �$���第 H�行的数据项: ��填写不正确!请检查'��'��(整体校验时,如果有错误信息 �A@Rk��B h� checkTerm � �$� H J �A@��'��r=================================checkAtLeastOneNNull 执行至少一个金额为非空--==================================�checkAtLeastOneNNullKT ��'��A"执行 至少一个非空校验 的单元格数目 �$� ����=如果金额符合规则 � �'� J� �KTF � �'� �KTF � �'� �KTF � �'� �KTF � �'�n�� @d�金额不符合规则 ��'��F6执行 至少一个非空校验 的单元格中内容为不符合规则的数目 � �� '�k���?�'�n���?i��€?�_--------------------------------------------调用正则表达式-------------------------------------�]����VBSCRIPT.REGEXP$.�7RegEx为建立正则表达式� (��4设置全局可用�vba中\不用转义 (�.设置样式� (
�5设置是否区分大小写。 � %'�3执行搜索测试��.i��>��-----------------------------------------------------------新版 校验重复(说明已经没有格式错误)------------------------------------------------------------�V-----------------------------------------------------------1、无学籍幼儿表先在表内查重���(sheet学籍幼儿表 �A65535 $V%%�!'�*cna = getTotalColumnCount(sheetIndexValue) X$V!PB@�1&每次校验重复时时,把错误信息sheet清空,�'Z�错误信息记录开始行数�X==============================无学籍幼儿表先在表内查重==================================�0类似冒泡排序,每个元素和在它之前的所有行进行比较� �� �� � � $V%P'� � �� ��� $V%P'" "��.如果学籍号相同,说明是重复数据�第 �行的数据和第 ��行身份证号重复!请检查!!!!'� �A@R�*把错误信息输出�'$k��h:��`:��X:i��P:��-----------------------------------------------------------第一列中 根据值获取该值所在行------------------------------------------------------------�根据值,查找到值所在的行或列�keyWord 查找的关键字�'kbn 查找所在行或列 值为 “row”或非row��'&]���the find result object� (�0 4�2 8�6� A1:A65535 h$>%%.., ,�� *�row� ,!'&d��x8 ,!:'&k��`8k��X8i��P8��------------------------------------------------------ 执行码表内规则校验(允许为空)-------------------------------------------------------------�value 规则类型�value1 cell的内容�校验不正确返回false�校验正确返回true�� >�0��说明为非必填项 <$@���'�z���6k���6k���6]�h�'D�某一个规则的记录数 �A65535 H$V%%�!'F�B表行数�'� H ��row$&'B�=获取规则类型所在行� �� B F� �� H$V%P �� D�'Dd���5y���5k���5� ���� � B B D�� � H$V%PX <X ��L判断规则内容是否和cell中相等�'�y��`5k��X5� ���#此时count数目为该规则所有的内容数目i��5��------------------------------------------------------ 执行删除某一行操作(excel受保护的)-------------------------------------------------------------�sheetIndex 表名�rowNum 行号�€�1qaz�N h$>B@L F h$>%PB@R�/
把该行删除�- Worksheets(sheetIndex).Protect Password:=123i���3�j--------------------------------------------------------------------------校验资金说明--------------------��1qaz�N h$>B@L � H € h$>%P(�i���2��------------------------------------------------------ 执行删除某一行操作(excel没有保护)-------------------------------------------------------------�sheetIndex 表名�rowNum 行号�� F h$>%PB@R�/
把该行删除i���1��------------------------------------------------------ 向指定cell中设值-------------------------------------------------------------�@ �1qaz�N h$>B@L � H € h$>%P(�i���0��------------------------------------------------------ 根据代码表中的名称设置值(前提时,名称已经通过了校验)-------------------------------------------------------------�
]��
��
��
H € h$V%P!�X 'L�'D�某一个规则的记录数 �A65535 H$V%%�!'F�F表行数 H ��row$&'B�A获取规则类型所在行� �� B F� �� H$V%P �� D�'Dd�� /y��/k��/� ���� � B B D�� � H$V%P!�X '< < LX ��1判断规则内容是否和cell中相等 � H$V%笔!�'Z ZX H € \ h$V%P(�y��8.d��0.� H € \ h$V%P(�k��.� ��i���-��------------------------------------------------------ 去除cell中的空格-------------------------------------------------------------�]���单元格里面的内容]�����3Blength1表示cell中原来的长度,length2表示执行去除空格后的字符串长度�'��默认为没有去除空格�2 Worksheets(sheetIndex).Unprotect Password:="1qaz" H € h$>%笔!�'< <'^ ^��Gzj�*"如果单元格为空,则不需去除空格操作 <� �'`�%length2为空格第一次出现的位置 `���如果字符串包含空格 <� �$b'< <X H € h$>%P(��'�k��`+i��X+��------------------------------------------------------ 新增:去除特殊字符方法-------------------------------------------------------------��]�P�-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+' �$��'dd��`*�'dk��P*i��H*����@*����|�Attribute VB_Name = "工�吆�"
'-%校��必填项若有错误信息显示到 批�⒅�&�(
Function checkedRequiredStart(rowIndex, c olumn)
{ '单元@格内容Dim cellValue As rS唍g�= A€;veShePet.Cs�6If�-�" Then�*丗抇€綟al4seE�Tru�nd If
<
E€�)鄝[写日志 记�
�o矂o一个�表kq坢writeLog(co鄋tent荾刬X`s(msgB�)腫curMsgR纎w, 1)繨�CK
+ 1?D
D用红色白痔錍犊E 匛RedVFnLen7@�糒.Characters(1, �).F佮7.Color俵=31*SS
€添加垼ǖ慊 骺肌崳〨��`
errafo�唹addCHomm郠XQ#塻撫|", 矈,
�0€'Work �s(�).Unprotect Password€:="1qaz璒e��y�.A N(��
.�.I€trior#=€<65535 '�1黄舌尘懊>%��d/.Visibl佇臓_櫠?删�E�樘lear�s緾k螀"�連跙� ?+0+�5`�&[€!�*2Recp)Nu8m A�:Htff郥otal�`?纔�m��
� u\�4��&鵘E15llqXOO瑏.ExlNondu�(�u�?%- 获取指度ǖ腁喼�?��*get態B崁CountXQXH锾L�鐺�Q€髎�.v晑w颺��Y^ 是否2G騯=调用的p方法o�b eginCQc砠z颏Metho~d_r
_ �`濶ot脺�R1 '�绻i失败,%���+碒 Is �hing!$判断O为芸�/T瀗 'j齶 僟A�OA�9�舨粊,�蛉コ鼻皅,重新住�$
cWt_
€醃� '清_� ��a��w/!uA�<�' �"Box€ "第" &鱒& "行数距菹睿簯B{�'tt$成功詅�!�0有�Q衷虬褧&时的邞�
� �r�試�q�+remo0褉paceFla�(!�/做了Q空格处理,�蚨云浣嘈提示:�%笨�,)j@列,您输入的字符�Chr(34)K�慥Ct�& w"中包含了�
,系统�炎远蝥a%了<殨
A���]!�q哔?Lb-
'`%0�荼晔斗饔枚杂Φ姆椒�(点击开€始校验)"�,�%�+'B把错误信息写进�列表
Functio@n callXQStart(typeVal, sheetInd€ex, row�@columnis€idateCount)
value = Work$s(�').Cells.(�*"' isFor€,True
��titlPeMsg�s�;T , �5) '� 袢「�K头@的名称GIf "" Then '如果为合并行赖谋硗穱罝a/% - 1&GE8lse"P@:he黙dBe�#����!�eEnd IfBf揂rgs�!"0"�罦儞 Like "chec kLen*婱整朗ざ葋谿墑� �MidG9�&dX�%��'c�(Num, b鬳rn�m {�&N�&�k3�1�0?'ck���佱L'值的:aF�&弽&�
��Int��AM?�9eM- '7M Term1塦"�恰⒎�"为惐靥顭`"1 _���YesN䁖
2�? DiffName�困难鉴侗餉�?%I� �?}�� �xB�Co哾� � 编码� / !O� � ff�� � kSQLY�%申请理誉�/ / \�€- R��%臹IDCardTP`�身份证件类型�� � a�
�噊�(Sqyy�&岜原因�&"G_
_
�]
e?
?
kYearZ年穨�/Vf _ _ _ R:ar kXXSHZT6 学校蓘蠛俗刺� � :6�=攦�� 虉Select� CaseU4'�=�(1 执酇湻强誕??佛�3穳
� 硱N8ull�UR婱e纓hodXQ`岒Required槾煿2牊} � No婇�r�焴焴�焴�O
�� �鹍弢 弢$檹|驕弢?+�}?z}(Number类鹦停┋=�鑮�飣f飣€� 飣}F €摨〣_FX��|U3飣飣]�j�鍈飡飡@>�
�oQ�系系aw!z牡陒`版{数A放>0,勒槐Sg�橗?小���_@鬟5VsQR擾抇�_��oooo夕顈T�于��}䌷闡�钒A����OL�OVOVOV��OV
�� �dOVOV�漳OVOV��OVQOVOV銩#� Case "checkNLepn"
�0孧ethodXQ = f(value, functionArgs)�嶪f Not|�NThen2� aArr凷plit( , ","�~K�'(0)€(0 丒 '如果该项为非必填,并且为固蓝ǔざ�W5errorMsg€."第" & rowIndex"行的数@据项:�
title�& "填写不正确,丒可�晕眨魜
,则必须为数字,大于等于0,整��T不超L过-
x1) 蝷唬倚×�
2�
∏爰�查X娕=Else}昚1縔��縔匶踩荒軆Y且縒縒M:�End Ifa煛hasEA爛烼rue '整虁逍Q槭编H燶有错误�畔 writ鄀Log �-W�@beginC!廮comment 爏heet"c,�,Ffolumn盲�isFoA卆
'=执�兄捣段У災�$�把E)写进a列逼韐$H甐al飄� �D o��*�l剋€F 鍯煘 櫈1p睓婪@�=灒�楤?g?gc#遞��' is >ida爐eCou c=.x+ 1o�
€nc⺧Ey?7?7�!�6的为羓值�6��6`L�6�6I黱t�657@�7��峹7鄴����7��7�崯`���嵖�嵾5X�>��&�>���"鲘�?r(脤镝?O廵〡�(弻/�,龔宻�颌弻���>� ���⒈弻�6��希�s溃蟃��
仧W���疻��� �d�逽嬤S嬕老[�_TP cT身份乐ぜ舘��豏Sfzjh�Re
rresZjlx�?getCell`ku3kXQ(鶞5,, 8'获勅⊙*内容��)€LG""r�煴?4?4?4=4因E鹄嘈�"吝.���_,_,_,�_,_,�KO #� If resZjlx = "居民身�葜�" Then
�checkMethodXQ処sIDNumber(value, columnIndex) '汉判�验�漀ot d� '如果啦环�RP0规则T蟚r@rorMsgz��" & row俀"行的蕗菹睿簛
title�& "填写不�罚孟畋匦胛�m,并且最后一位丼为字�竂的大�矗∏爰觳勯"hasEX€VTrue '��x时,0有错误�畔�#(writ`eLog 臕�
isValidat纄Count€#M�+ 1�End罎巅 Else_M熉@SFZJLX儫)�謽�扞挷荒芪眨 页ざ�嬘趢等于1位�不超过18�@��?H!$e�>�搟/? �@beginCa沖 comme€]sh竐etB刞毄�,f�姖,焝 isFoBr
'= 执行銓件繶嘈蛠€�=�C郺se "Be峋t悋�烩DMB((�, d�"1"4m縦邍>$��� 煪煪� ﹥蹤set +菴od�2, IN逵�jLXY_[鐋�-�/_c?�bO-*B-学兰诺�-���-�-XJH-F
#�-@孡en%�"1�, 50_-6憮�繅O��.邍邍憠C輫?c须大?c50?c� �1��O2oガ�-�-��.j4�..��O.*乕银行|卡朝�pa癇彦澬唇�斜硐/�/Ban⺧�/O/@/�煉<?\郀緹.\鎜餸"?�?�?�;妒郑��-q筬unctionArgsArpr(0)12噿?r�(13飺��00�0� 焍/.j'���/0��/�/}�/�/?�t///+!/年�/]�.��.酘孻ear�.�.�.��E^�#蠇��/�/��/^/^/^/^项�袷饺�2012、2002�>认��+�+贸有错误信 息
writeLog e€rrorMsg粿End If>beginCheck_comment sheetI€ndex, cMethodXQ , rowolumn~isFor = Tru e
'=执行学年校溠�€,把厵写进�列�韹wCase "�iXn"巺妘€Y€(value)�蘄f Not曕 Then�殎€4"第" &啴"行的数@据项:�t0itle@x�填写不正确,该项格式如2012-3等!青爰觳橄8-phasEA巰 h '整体乛时溃绻��=F'譌�猟�份Z狹on黷h烾僕a�U�U�6�U�U閁01、1�2烾e烾擀c 擀e香烾未擢ck擢逗擢嫥类型3 亖娜掌趤V(非必填)+�攥�%痊Dat鴈" �'肰渌缾�Birthday?Y5Y '出陕失败嗚k�� 病伋参禖hr(34�)《x-xx@M a��-0�1瑹穛�0蟍o��L�0o�)��蟍�?�0o�0饑o哶� �0,�0(�0恦_�0�廫�0NecessarVyO1& 渼=�N|ow��1��/塜轖"墢1�1� �1煀裏奼湂��1o1B�3122@1并�抑荒茉谙低呈奔渲前�2�笙2� t�0��/框�0鱋,�0橙R1�11� 1e^�0bC�b犑b�00鋚�0>愼斜.��惑00& xc鎍s0蟖�~
�.�.�.��.?�[Ov��0���0���0�,睊10 !挼缁昂x怕��H-P餳one锖?]侕�Num黒 � If Not checkMethodXQ T`hen
�$errorMsg = "第" & rowIndex"行的蕗菹睿�6 titleZ& "填写不� 罚�格式为%Chr(34)@区��-固定电话 或 手@机号码' ,请检查�"asE��True '整体校验时,如果有错误信息� writeLo,g y�'�
End If�beginC確comment she詄t倿,�,�`olumn�FisForw
'=倈Option F备注
�2Case "o�衉B茠=6(value, 66)螱竣雹长�炔荒艹�200个字������#隟aL 执行认定困难级别名称3丮漇==隒鐽Di纅fName4睴0DMB(�, !dQfunc乣Ar黦s癛?S�j錿�r�� 酩{�邷Q€?潃 Els巈痸B€set�,鳦od鍍(-蓽et隁��
〢煩缳煩r��玐俔学校审篮俗刺�]k]XXSHZT�運鰟\d焅�3�O.焵��O.X蟺q~�蓘O.lO.縷縷LO.O O.yN.v/.e䎬/.��/.'/.�傠ev/.I1�,蠇��/.+-�".身份证件类型/.縗6処DCa鄏dTyp運s
運?p猤.��.�\3 �颋�00t00�00煬�000*� 00!0�0�*_0_0��_0G_0�_0_0�7_0��_0O,�14P�)GeP6r�q幠谌菔欠裎澳小薄芭虮2--o`t恩3o`P K冒哛 �1愦�1"1"/巶�/�/�GU)IdNu唌�s中员鸨�,则无需篑C号7�����4�
���4�*�4go
��6��q6F���5 G� beginCheck_comment sheetIndex, cdMethodXQ, rowA`olumnerrorMsg
�isFor€ = TrueBd'=14>zYesNo执�心谌菔欠裎笆恰薄胺瘛毙牐验--R=汙Case "1"€8a�DMB( , value, functionArgs)(If No倀� ThenB�?"第" &喡"行的数据项:羴
title艁
填写不正确!请检查s�hasE乹€j '整��W时,如果有错误信息�*wri@teLog [凟lsB偭�set褉XCodKh,
&End If�靠�;嵖<€%槊SQLY申请览碛傻木�!
縚XQ郆Sql詙(^a縗k籠�ca@1渁�'�-�b b可重笭绰既脒b [U镞�s�s� 筙�w�w �wc�wB鑧BL遷x '码表�!Z'硊?y����遶15 #絊qy`yName€'俦€缸⑺得�w嚸趪!戎BZSM止@resultdgetCellVa訡ountXQ(辂gT8) '粁袢c憊� 聅PLen(#@隨Pm€"
�A伷i0 ?o s��€npMid(L�, i, 1�€_ �"h"�烢��a晩�(伝Next iO
烸燦E? ja1p�"1,00���俌m夾uZ_��MV閫A20I�g�A2o&S%瘭sh)).1+s()9)q3��锺棷h 秼!�]椚�,字�ざ茸疃辔�100位�遞Y�O\O極榣O\�o� �)q�Q3蠏骺耈(柯I耪{�A�藪/V}緱�d 0鈀 '亹 穩瞎嬖蝮 僡
atotal�
@|�+Cg�Sel餰ct 鈚輿%�"baojia阰�C洛:?�c裆Sum�-�
佲 huoshi� ���H� � ��� zhusu� ��G� �� �� others�� �H� � ?�c*?%�亽 '亳2不3 �=pG�>6�>�>�>中泥谌菸獓A�@OK扙%埲+ F�+� " 螶b焋�淴o��F爛-调用�虮泶锸F給-
� 豶eg�(�剗壇DimaEX 繟s Obj€ISet�= Create("VBSCRIPT.REGEXP")a'RegEx梧�EX.GlobalpF偁�n'设置全局可用''vba�衆不用转义�Patte\rn��� R�綅Igno剅eB8= Fa`���是否�执笮⌒x础:�3�T8est昰GB.搜浪鞑馐�亐纇ing
�#$O 新版 �4重复(说明已经P没有pt紸福�� �1、无学籍幼儿表先在表内啦橹�
�-B}p裇ameXQN別w劁2) '捈Sw(na�S�2).Range("A65535").P(xlUpI�ow'cgxetT1€搘M(V巃嘘h6�msg�NP4�.Clea rCont萻 �'每次���把曆B
清空,�cu徇RowP
1 '�记�伎夹惺�/舘cJ��'类惗似冒泡排序,每个元素和在它之前的所有行进行比较
For i = startTitle + 2€ To rnaL\cardID1`Sheets(sIndex2).Cells(i, &ColuXmn)Etjtip - 10~S2�zj=�$IfP乧+Then '�绻Ъ畔嗤得魇侵馗`词�L)e€rrorMsg€N"第" & jA€"行的�
�
i
身份证号�+!茾爰觳�!"0writeLog �4'把错误信息输D出�has7Same@'True亾
End If�pNextGC�
Function
'-7第一列中 根�葜祷袢「弥邓谛续-€%�,� 檎业�的@行或列€k€eyWord �€墓丶謥bn�� �
�滴� “ro€w”或非
@ GetR0owOr阑B�(B yVal 嚻, CD�@As S€tring) €€Integer僛�@o-绕Dim c
Object 'the fi�8result Fo�G7Set= €kb﹚).Range("A1:A65535").F� (What:=FLook@In:=xl`uPes, !A@x纋Whole鑮mDNo�Is h]� 醠g膓k !=t "�*"��!c�.�.K Els癧r儞�€'I`Eb遌?U- 执行码�砟诠嬖蛐Q�(允许辔�)�8€V@value �
缊嘈�1 c 矤的内萡�'A不正确返p回fa�%�et[checkDHMB(�, �1�, flag�<@<摗`S"0c7 '仸为非必填项K,�Trim�#
1)�U>�`硸郋xit �79�8G罤乫燣Dat勠Count 0 '@某一个a(祤募锹际齝
1�Num`D轆r驤#鏤}�醸owP�A€�`|X|�2O9 粎s+Y{_8�o凪玑I1e i��_�p壋偁C@T(��爜3)�&��,)r
'判断aq2是否和乹3中相等�a5�)��^j�'此时c�(数目为笧冕1浢;Q
��._w/BcH删�.行操作(ex受眬;さ模﹐繥�1 表名�14行�艌sdelete驪\h�, �鬍蟡2@UnprotaoPassw`|:="�1qaz$攐b�(�.D� p敯该行!�'r岘).P123__�-醃棕式疳T�-幣 0 set狈 XQ缃"塸眔l��/��A)�//���s荔p�).�€Nr�?o倁--没�1--o-�-n舶 -No�"O��o-猟ow�)�>痒)/@ � 蛑付�l粥猩柚����>?,et���(�(悷疷?S2檀�1炛€呙菩刑(莁疤崾睜�0�丫ü~�>�)?�O�on setDMBCode(value, sheetIndex, row$col!$)
DimBData,
c刅俢ellV& = CS恡r(S蘳(mH).C7s(s.��zCountI0 '某一�龉嬖虻募`锹际�uJNum'lArea pRange("A65535").End(xlUp).Row 'p表行'乽€'GDet€OrC剨(墜,, X, "€@") '获取Q类型所�谛�RFor 蝘€)�.To獉[c窱f 攂沬0, 1)#�< Txhen��!泝+� 1�Else
`Exit )�
nd If�Nex豻 i�A5jN58t+ �-��(�/1 壨mC'E$�ex�""G�鄉廏j
�F@unctio燱'-0 去除�#9的空格� 8
removeSpace ��3包�珹5'錻�&Rep辧�Q��€�" ��+�~��xo�0裥tru萩="">=�6 新增�特殊1辐椒�=pecialCh€aracter�銉!9reg�p�"[\uFF00R-b6]�9�FF]|[\s,;'�""?^]+s/`�Check鼳E(�攤#i��8 �IZ[��",XVZ��@���� �� @�����酤���� @�濑���� @�0轧���� @�H宁���� @�`逮���� @�x���� @��旫���� @��匎���� @� t���� @�����p�� �� @��`����@�P����@�����@���� ��6€X*2@�0���� @~� ����@������ �P"@������`�x"@�P���� ��'@���������`h�'.0�R����@�����椠���� @�����潺���� @�����札����@�x凝���� �P>@��待��� x>��x����dJ@������@ ����旪����@�匌���� (�G@�ht��� €G@
����d����@�pT����@��D���� �hO@��4��� ��O@�����$����@������ �U@����� €�U@��������� @�P瘘����@����帱����@�P悬������c��e@��傈���� ��i@�包��� ��i�w@�(狘���� @~@�`慄��� P(~x(�@��€���� �`�@� p��� ������ �@����`����@8P����@�( @���� @ �@�� 0��� P ( �` ( �� x�@h ����@�� ���� � � �@�������� � � ������ ��$������������������������� ����������������������������������������������������������)奸[$*\Rffff*0<�5f1b12be*\R1*#400*\R1*#13e*\R1*#132*\R0*#17$*\Rffff*0L5f1b12f9*\R1*#12d*\R1*#43$*\Rffff*0M5f1b12f9*\R1*#13a*\R1*#29d$*\Rffff*0N5f1b12f9*\R0*#2*\R1*#12*\R0*#f*\R0*#1��€ h"�h€p€:x€.�€6�€" €"H€.p€�� )���� :+�� ;�8�@�;H�;h�;��>;��"
��:�
"P�,`�$��>;��,]�€ (€ ~@�$U��P1�� 8�X�x€ �����>L������
�€ �����"C��
�
"@�
h€ ����€ ����€ �����€Wp���;��� �(�.=0�
`�,+x���;������*��*R�@�X�%0p�%D��%��% ��%0��%( �%,H �%&x � � �#6M� �$J� �$"@
�(,3h
�(P3�
�(`�
€ (�����,L,H�4JI��<(�€ <������?
�D6H �D0&X�HB<���HE�€ "��G
�H
(
�M4D0
�N�Kh
�N&�
�N8[�N
P€ ,`�I�€ �����D��@��,
�€ ,�����0
��48H��40&�8 <�0�8EP€ "p�G��H
��M4D��N�K��N&p�N8[��N
�€ ,��I€ �����4�0 �)"(�<(P€ <������<0
x�H6H��H0&��PB<��PEX€ "x�G��H
��M4D��N�K��N&x�N8[��N
�€ ,��I€ �����H �<(�("0�,8HX�,0&��0 <���0E�€ "�G(�H
8�M4D@�N�Kx�N&�N8[(�N
`€ ,p�I�€ �����,��(��$��$M��
�€ <��� "0�(L7H�(&��(
��(�� ��)$�� � >�,X�,h€ (x�,&��40M��,
��,�,� �
�0�(8�`�p�*€���+$,����
����`7��X� `�4+h�=��1��������4 �€ $ �+H�=`�P1x���4+��=�1 �0� 8� ;@� ;`� ;€��€ x�"� €(€8�2H�$€�@��6�� �*0�:`������€ ������€ ���������,��(�0�8€ ��������H�a--------------------------------------------点击开始校验-----------------------------------------�]�@]�X�+某一类型的标识(包括行号和类型格式如3:1;2)]�p� 标识数组(默认标识还是自定义标识)]���(某一类型的标识数组(包括行号和类型格式)]���某一类型标识的具体值]���自定义标识类型所在行]������%把记录为空的行号放进该数组]� >!D'��"获取工作表数目 ����0工作表数目不正确,请下载最新模板后,再进行此校验A@,�1qaz�N�$>B@�|���k����1qaz�N�$>B@L�1qaz�N�$>B@L�1qaz�N�$>B@L X$V!PB@�-$每次开始检查时,把错误信息sheet清空,�'Z�错误信息记录开始行数�'��.该次校验中,记录是否有错误出现(幼儿信息表中)� �(��'��#默认认定困难级别名称未通过校验�'��默认认定日期未通过校验 X$V!PB@�-$每次开始检查时,把错误信息sheet清空, �A65530�$>%%�!'�获取列数方法�xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column �IV5 6%%�!:'€����FAILUREA@X�&+获取是否校验成功标志单元格,并把值初始化为0�'~�空记录数初始化为0 * 2��"
保存时执行d� 开始校验按钮事件时执行�
A9:IV65536�$>%!b��5新增:设置字体型号�宋体9�9q���
A9:IV65536�$>%� 9�,新增:设置左对齐�@9�'新增:设置文本格式q����.您确定开始检查吗? 检查过程中,请勿关闭excel,�
$.�否则可能导致数据丢失或检查失败 0�温馨提示$, 2�d���1qaz�N�$>B@�|���k���k����.�$>!b(d�)把页签设置为无色 ����"没有查找到学生信息,无法进行校验!A@,�'*�1qaz�N�$>B@�|��(k�� �'��该次校验中,记录是否有错误出现�$>!�中错误信息如下:A@R ��
�� �� �� ��'��<�"执行 至少一个非空校验 的单元格数目�'��;6执行 至少一个非空校验 的单元格中内容为不符合规则的数目�'��'��'��5"至少一个非空校验时,记录错误单元格�'��9是否为有效记录 �'x�C记录下校验改行前,是否已有错误�'��;记录性别或出生日期是否有错� �� €�� �$>%笔!�'��O第一行中标识的值�'��2=判断for循环中是否调用callFunctionXQStart 若没有则执行默认方法 ����<�如果标识符不为空 ��-$�'��G格式如1;4-3:2;5 ��:$�'
�H6格式如3:2;5将获取到的标识符进行拆分,拆分成行号和规则 �����DJ如果需要两种及其以上的类别需要校验(如默认校验规则和第三行自定义校验规则)� �� ��� ����Y&+1是因为数组中第一个元素为默认校验规则 �$��:$�'��V*将获取到的标识符进行拆分,拆分成行号和规则�$�'��S自定义标识类型所在行 � ���$��;$�'��c自定义标识类型的具体值� �� �� ����g对标识符进行遍历 �$�� � �A@��}根据标识符值,调用对应的方法 � �$>%P'��H新增:调用去除特殊字符的方法 �$d' � � �$>%P'��{获取该列表头的名称�第 ��行 �列的数据项: ��F存在特殊字符(如^ , ; ' <> " ? 空格 回车)或输入法为全角类型,请检查!'��'��^整体校验时,如果有错误信息��� � �$>%P!n(p�添加黄色背景 �A@R�N%isValidateCount = isValidateCount + 1k��h��`k��X� ��� ����$��;$�'��P将获取到的标识符进行拆分� �� �� ����W对标识符进行遍历 �$�� � �A@� � �$>%P'��H新增:调用去除特殊字符的方法 �$d' � � �$>%P'��{获取该列表头的名称�第 ��行 �列的数据项: ��F存在特殊字符(如^ , ; ' <> " ? 空格 回车)或输入法为全角类型,请检查!'��'��^整体校验时,如果有错误信息��� � �$>%P!n(p�添加黄色背景 �A@R�N%isValidateCount = isValidateCount + 1k������k���
��e�J格式如3:2;5�$
'��Q自定义标识类型所在行 � ���P如果标识符中的行数等于当前行数�$
�;$�'��e自定义标识类型的具体值� �� �� ����k对标识符进行遍历 �$�� � �A@���根据标识符值,调用对应的方法 � �$>%P'��H新增:调用去除特殊字符的方法 �$d' � � �$>%P'��{获取该列表头的名称�第 ��行 �列的数据项: ��F存在特殊字符(如^ , ; ' <> " ? 空格 回车)或输入法为全角类型,请检查!'��'��^整体校验时,如果有错误信息��� � �$>%P!n(p�添加黄色背景 �A@R�N%isValidateCount = isValidateCount + 1k������k���d�-只有默认校验规则格式如1;4�$��;$�'��H将获取到的标识符进行拆分� �� �� ����O对标识符进行遍历 �$�� � �A@� � �$>%P'��H新增:调用去除特殊字符的方法 �$d' � � �$>%P'��{获取该列表头的名称�第 ��行 �列的数据项: ��F存在特殊字符(如^ , ; ' <> " ? 空格 回车)或输入法为全角类型,请检查!'��'��^整体校验时,如果有错误信息��� � �$>%P!n(p�添加黄色背景 �A@R�N%isValidateCount = isValidateCount + 1k��X ��P k��H k��@ � � �$>%P(� ��� 6执行 至少一个非空校验 的单元格中内容为不符合规则的数目 �� � ���第 ��行的数据项: ��中至少有一个需填写正确!请检查'��'��8整体校验时,如果有错误信息 �A@R ��'�d�� �'�T每一行合计中的值k��� ��
��<�,一行中如果五个关键字段全部出错,则将该行删除 � ~+� ~�'~�,"将错误信息表中的该行错误信息删除掉� � Z � Z�� Z � X$V%PB@R�r
把改行删除� �� Z �'Z x'�k���� ���k���� �� ~���6
删除无效行 $�'� ��� �A@J�B
把改行删除d��X� � A@J�H
把改行删除k��(� �� ~�
��此次校验中删除了 ~�:行无效数据(姓名、身份证件号列校验都失败即改行为无效数据)A@,k��� ���*有错误信息,请查看“错误信息”表,进行修正A@,��$>!b(d X$VB@Hd��0�'$�A@ $��'%执行校验重复数据方法,如果没有重复数据�遍历看是否有需要删除的无效数据� 校验通过!A@,�.�$>!b(d����SUCCESSA@X�:+获取是否校验成功标志单元格,并把值初始化为0d��0�*有重复数据,请查看“错误信息”表,进行修正A@,��$>!b(d X$VB@Hk���k����1qaz�N�$>B@��1qaz�N�$>B@��1qaz�N�$>B@�o��X�q-------------------------------------------------查重复方法某一列------------------------------------------------� ]�`�x]���� �A65535 N%%�!'�2总行数��Scripting.Dictionary$.�O8�O N%!�' �>获取学生姓名列所有数据� "� ��%"对学生监护人身份证号列数据进行遍历 "�� " %$��-如果身份证号不存在 "� B@&�&#add方法,第一个为key,第二个为valuek��Xk��P��H !('�Sheet2$>��G:G7B@ �!,%. !D�G17,*q�����.o�������������Attribute VB_Name = "主�绦�"
'-(点击开� 夹Q�&l
Sub 测试所有:规�虿⒋蛴〈砦笮畔�()
Dim rowDataNum%typeValue '某一类型的标识(包括行号和格式��3:1;2)�?bsT€ '数组(默��还是自0定义�Cva€lEntity�8?�: 7,的@具体值媓R0ow '�>乢所在行isNullArr(500) As Integer '把记录� 盏膩伔�0进该丳� sheetCount嚸�俉orks.� '获�」ぷ鞅硎堼目�If H
<> 3 Then羗 MsgBox "G不�罚胂略刈钚履0搴螅€俳写藖�@犅�"(1).Protect Password€:="1qaz 罝Exit 罉�#繣nd If�KUnp�H2).h3_Sas(msgB佱).Cell繻learCo€tnts '�看瘟丶觳槔时,把蓚` 清空,C7cur€]翋= 1 'G� A�樾数
h€asError�=Fals`h该碆瘟/中,�� 欠裼�!出现(幼儿醨表 膆Application.ScreenUdpd�ng�
�
sysDifficultyGrad�Fla�0纀 o认定困�鸭侗鹈€莆赐ü�!!cinde€ofy� 乪O日期M�?,?,-, rna€薍Range("A65530").N(xlUp)..@1�俬拎/方法DcW 1:1�F€(What ]*", After:=[a1], S`DchOrBdAxlBy`
s1�Dir e�2:=xlPrevio剈s繩olum則�b$1.$IV5伷ToLeftks绬 T庐XQ 2,A8, "FA繧LURE"儏aG!7成功标�镜ピ瘢阎党跏蓟�0熋 茩阑 +繟空P�`x isSaveButtonvbOK鈳 喔€4媸敝碋�E耑耝`影磁事件)�鈱ith s:9:IV�:6�1@r
新�觯荷柚米€痔逍秃�'
� .�"宋藼瀣�.Siz另161g釗W � ����.Horiz@alAli榞nm鄃�xl�:羕蠖云腠�berForma@tLocal!
@�"�文本駏��3Y�1纁觓(€"您确定QA袽吗? ��虘H请勿关闭excel," & Chr(1@o& "否则可能导致数据@丢失或��О�3�!Can�0*温馨提鹗�")€�#� � �1#
r�!_h_h�[h=3 �舎�KTaBb衱lorI`OxA�
-4142複�城'为无色�
P肐startTitle >+``|yt`3 "没有查找@到学生A^薹�1ya< ̄�/vQ�8�<�8�/|/|�`9Qh}焞脽l條�Q1w€riteLog�6�<�&致p�如蟲拢�?�丣�>> �掱��6 i绵�2 Toqg��:eaOnefNa�#�= `U 至少一个非空� 的�覻O`��襙中内容蝷环像�的?�tot€alMoney�w�&e!嶱. "唢?�
祽"m橊i��ijspsi饝eH晰狜效1��5/淚nE '�下�� 狼埃颥Q已C0??9dsyd⒈性别阑虺錾鶴棻瘧}�-j�
1�,哙��g�=�9膊€(1, j).姓佮第一行譃畜盏誣is� = $判断for循环中!�
调用鄌lF坲nc碑XQSV� 若慡则�5零燴w
<> p&QZ '如果崃符不1�/�#潇= S0箃(+�€o-o'S�1��4-3槾:2;5
$rowType = Split(t0Value, ":") '€格式如3�将获取到的标识符进行拆分,
成行簚藕凸嬖�'€If UBound(bs�) <�> 0 Then '如果需要两种及其以上的类别校�椋ㄈ缒�x和第�凶远ㄒr鍏
)'H�盕Por m€濴媋+ 1 To峫'+1是因为�橹械谝桓鲈匚獕a獲魐alE`ntity苧T(|m)舝�o�慠蘯w"%(0罀e翈类型所曾谛�3;�{@€燓i�)E,仢�'@>�k誈A1羈;琳薆祤木咛逯��丷n�凴�)≦�'对gx遍��?�� callFunctionXQStart `(n`1, Pi, j�s爩i燿ateC€t鄬�#值,调用对应赖姆椒��#�u仢Worksheets(1).Cells()_
_
#'新增:!去�厥庾址�?(removeSpecial@>�Chara郼ter(��_$纅+g,`檒癳Msg��5sK蠺itl@誮€婣�该列表头赖拿�9A)error"€第" & i`("行AjA列的数据项:�F& "�嬖趨@≈^ , ; '凛"" ? 空格 �爻担┗蚴淙敕ㄎ莂ィ雬检查!"�嘷
hasE�
`Tr�1'整�!俿时,x有错误信息��oT8.InP+ior.Colv= 65535 '添加黄色背景��wri纓eLog uO�'iLO=� p僟End If
/�Next��5 _鶓 m���s= Fa鴏se2╫o郪鬣4�T�0�_楽疮��縹縹縹� 縸縸緘
��Rk€B遺遺遺�;s=� �遺�遺�姓o�遺蕰z取遺��遺遺遺囘z邕z�遺遺遺�
遺躾�有错误信 息
JWorksheets(1).Cells(i, j).Interior.Color = 65535 '添加黄色背景M峸riteLog er@rorMsgM`'isValida€teCountk�+ 1�:End If
3)Next��&奅ls@eIf UB€Dd(rowType) <> 0 Then '格�饺�3:2;5�2#t€Row^�(0) '�远ㄒ灞晔独嘈退岗行�{@Ci€(C+A如果�(�械男惺扔诘鼻幇�;蒵val�`Splitc€s, ";"N%的距咛逯悼)yjF€}n�L€) To匔�'对� 进行遍��+callFunctionXQStart `(n), 1, A敔寉'根��$4担饔枚杂Φ姆x椒�+�u>e %v╛_#'� 略觯�!去除特殊字符?(removeSpeciBP�Charac鮜�(�)�#€m+羗��(tit琹e试5sLTaa� '获取�昧斜硗返嗄名称��)%�"第" &D i`"行AjA羳屖菹睿篈&& "存在E (�鏭 , ; '!["" ? 空格 回车�┗蚴淙敕€ㄎ轻U,请检查�"_
_0hasEP
Tr�1'整体校姥槭保S煂��_8煂煂煂��煂彌_�煂 煂煂��煂邖�煄��€� '只有默菳蟩)规则脥1�pPp.9szbs1摪宔z将!1D到的拆�//蟲蟲蟲�蟰蟰�%?�bc�:�://� 飏飏�Kk= �飏��飏 嚎��飏怙r飏�O飏飏的飏s龷飏飏飏飏_�
?飏飏�2礍畔�
JWorksheets(1).Cells(i, j).Interior.Color = 65535 '添加黄� 尘癕峸riteLog e€rrorMsgM`'isValidateCount#k�+ 1�:En@d If
+)N鴈xt��!嗛
讍@LockedOF0alse_*�3 j� '执行 �辽僖桓龇强招Q� 的单元格中内容为不符合规则的数目If atLeaOneNull伱~<> 0 Ah
�=��Then�Ea叞@I"第" & i�"行伭,据项:M�E伝A中?�衼?需填写正确!请`检查"��has�
= Tru€e '整体�)时,如果€有错误衉�?%
�遱�K�n+ 5�E進�totalMoneySLum1�+ � '每一行簮霞浦@4值�ic€O�> 1 I罥 '�中!2�甯龉丶侄稳砍龃恚蚪眯猩境&齙�isAWRo wArr(�Nu鬽) !i r ��E��) `'将yeO表�-�%�礦艨i
F嘤p�cFua� - -.T紀 �� fSC�msg"Name$).s(x). Delet€p把芨腳9/猝p�"�� =��O�hEInu��3� ��)�?;� rq� 0 i/@!1 '�%无效�酗
� rowD榓ta,/�4q)�刻@?T_c��d�"锳,1,)'�#oR�Os- q� �����⺮�U睷tK�!zw ; 悽Box �"此次An肘R塘薘w笿& x�数据(姓名、身份证件号列�都失败家幢:为�╋wvnp�2���y�氩榭础"癊Q”睜`进佬行拚��+汿ab踊Ind鬳x016��烳怣鶶�(c槰%��0S繮0/�#checkdXQNew �€Not 3(0n 挕�馗偞�方法,as嗝挥兄D��0,遍历看�欠裼行枰rf呐����`通过!�� �灿�-4142c��set褡蠺u@eXQ 2,!8, "SUCCESS" '获��!�成功�曛荆保�把值初始嗷�0���€g(�o(o(����o(�o(o(�^7�Protect Password:="1qaz�2).�3� Sub
8
'-查!/c�骋涣�-,
Sub checkTheSame()
Dim myDic As Ob ject, Key VariantPH, va rData'rna = ActiveSheet.Range("A65535").End(xlUp).Row '� 苄惺�b Set idNum�= Create�("Scr€ipting.€tionary"=b I@O8", "O" & R).value '获取�彰愋所觻F据僄For Each carK In#哋4'对�监护人身份 证号羵 进@行遍历�$ If�"<> "4" €胣No噡.Exists
(<)� '如果�不存詥贕A.AddE, Null 'add方法�谝桓鑫惇key二?C�纇,�INe抶聝 Cmy翃j=�.�s�With Work趕A俿纏�2Gm�G:G@咰learContent��4�1@Resize(B�.Count)A沺pl(ica羷.FFunn.Tra鄋spos�
�'D専�4�'*瀮�= €a2h@�
�@�
�����������������������������������������������������������������������������������tlb#OLE Automation`僂OffDic凟Of€i�c侲鱻韤丒2DF8D04C-5BFA-10€1B-BDE5€E訟A€C4€2圗€�gram Files匧Apps\Microsoft.<.Desktop_16051.11727.20244.0_x86__8wekyb3d8bb€we\VFS\�..CommonX86�, Shared\OFFICE1€SO.DLL#�= � 16 .0 Obw L纈brary�;€@MSFo@rms>SF纈rm`s3评BiD452EE1-E�08FAFA-8-02608C4郉0BB4FdF纞temACFM20=3 缷�ec
ec
eo
銛�(艄k
€�声明G�;餢f6"a2foF o�&�校验徵!h寶�e�揺o
hjo
~鎘
!L主程序GbQ;Nz廭沚�2�o;9oBU�2ShowaxG�`6owf佰�3e2ro1€]�n�'(P^6�5]/5Y/5]/5_/B_6h盵/ A�Print#佱rin偵単j2o駃�┛0蕵����������������������������������� ������<
@梺�&��������������������������x��RR��������������������ME�����������������������������������������������������������������������������������������������������������������������������������������(@��h0��6
����<�������hh��������h€J0��geneh€j������GL陳n `H��������������陘r�����@��������蕵�HB��������������蕗�p����@��������蕗�4���� @��������陘��D����
@��������獉v�L���@��������代码表%错误信息���说明%陘�V����
@��������陘��Z����@��������陘x8\����
@��������陿z`B��������������陿XB��������������鈥~�€����@��������陘��`����@��������陘Z�t����@��������陘�x����@��������陘�|����@��������陿HHB�� ������������陘�(~����!@��������陿�PB��#������������僨���������������������%����陿l�B��������������陳XHpH��������������陳pp€H��������������蕗������@��������陘��$����@��������獉t8H��h@��������陘��P����
@��������陘*�T���� @��������陘$�X����@��������陘�^����@��������陿|0B��������������鈥�€�����@��������蕗��d����@��������陘€�z����@��������蕵� B��������������陿\phB��"������������陿�����B��$�������������X�� (p`���������������������p��� P�������������H€������8������������p�������������������������H�����0��������H8������%���������������������P��������������������������������������������������:x)奸[*\R1*#29d$*\Rffff*0L5f1b12f9(*\Rffff*0L5f1b12f9\0�66€ ����€€ ����€ €€ €0€8€ ����€ @€ �����`€ Dp��€ 8��� €0� P€0p€D�€�€0€8€4P€.�€ ����€.�€�€.€(8€(`€>�€"��$��$�(@€h€>�€R�€^ €F€€�€�€ ����€`��*X�$�€ �€�� ���� € ��������0��列索引号to^��列名称gene^�0p��@�定义一个结构,描述数据页u]$�騂�a�=Public Const sheetNameValueTJ As String = "附件2政策落实统计"]$�错误信息���2Public Const IntroSheetNam�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������e As String = "填表说明"]$�代码表�H]$�说明� ] �p� 记录总的校验数]$����记录表头所在行] �H�"执行 至少一个非空校验 的单元格数目] ���6执行 至少一个非空校验 的单元格中内容为不符合规则的数目] �p�每一行合计中的值] ���"至少一个非空校验时,记录错误单元格] ��错误信息] ���%---定义在模块中,记录从哪个单元格跳出] �8�---定义模块中,记录进入的单元格] ��� 长度校验时,存储方法参数的字符串] ���记录时关闭按钮] ��� 记录总的校验中是否有不符合规则的] �� 记录总的校验中是否有重复的] ���#记录总的校验中是否有重复的] ���%/记录遍历无效行前,保存表中是否有错误信息 的状态] �8�#保存校验方法的返回值]$���)遍历记录开始的行号]$��`�)学生学籍号开始位置]$��0�)学生身份证件号开始位置]駾X�记录为空的数目]���"/看该行是否为有效数据 统计 5个必填字段为空的个数] �€�"C记录去除空格操作的执行结果,如果去除了空格则返回true,否则返回false] ���Pcell中最原始的的内容,即系统没有进行自动化处理用户输入的错误数据之前,cell的内容] ���7上次写错误信息时,所在的行,应该项目初始化时初始化值一次] ���总行数] ���总列数] ���R在根据标识调用不同的方法时,判断是否是for循环 Cell_SelectionChange中需要用到该变量]$���记录省市县等记录所在的行]$�� �+代码表sheet的下表�是否继续] �H]$�h�(�)隐藏列的增加数]$��p�)
性别所在列]$��P�+出生日期所在列���������盏Attribute VB_Name = "声��"
Public Typ€alueCo8lum8p '列索引号c@nIndex As I@ntegerT酶� P�'S喣ngEndn
_ '定义一个结构,描述数0据页"onst shee蕋{V�1 �豴1
'/ATJ僁兏郊�2政策落蔪低臣苺�
m8sgS�8b错牢笮畔�8 €噐o填表说�
3Area習3氡韻K€dme�0tot€alCount塉乽记录总�男Q槭�
�$startT坕tl翄7 '表头所在行atLea€OneNNulD '执行 �辽倭t非空A 的单元栏袷肯�\中内容�环瞎`嬖虻腏�;Money�;Varia€>'每一行合计中的值K Error@�
-时,/A>A{C/�
e�Ms>gAD�厖� rgold�Rang@e '---A辉€谀?橹袆 幽母�跳出FTarge�n� 进入臯侓剄functi@onArgsh'0长度">@存储方法参数的字符串fisSav€eButton}CA时关闭按钮�has�(€}Boolean倇�'臠中是0否有�7 TheSa@擾兄�复的�IdN\um�]�n 卛da啷�胈槔�无效行前,保存表��>燶状态�checkMet鄅odXQ�AA1丄0的返回鑂冦�aRowS恿�0= `r��+锌祭x�!磰x纀abyID"篔8= 2 '学蓘Ъ裴0位置�ccard�3�身� 葜ぜ�)Di餸 is�A1�崧(为空ev�%.A矓看该新F螤行�!� a� 5个必填凶侄蝐
咐苀removeSp繿ceFla聇EB�去除空膏癫僮�侤枲蟺绻鸻$了�则�2tr@ue,否�f恆lse�ce�€唷寔中最�2�!2的a旲|聪犓没有进�凶远碛没武罣之AK�sc�ur`岪*�)Long '上磝涡�O!昦翅@,应该项目初始化时乻值一次&rna�%'总薫g`c�列Qb�isF0SI2在�荼晔兜€饔貌煌琍-C郋� 判断�?�莊or循环 C€_Sele bJCh馫中需要用到该变羨b)headdI倗= 0(�/蕗∈邢氐缺秕&
S製sv�9r0�v的下眴�0剳
继续�not�tinu~eQ$Aq0N�討PluBW�:104 @'隐藏拎g訦黾�wge�
rC�:�性别�
��
birthd$ay= 出@生日期�
��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
���� �FMicrosoft Excel 2003 工作表Biff8Excel.Sheet.8�9瞦�����������������������_VBA_PROJECT_CUR"ShowForm
CompObj���� aVBFrame������������o �����������f������������&PrintForm����CompObj
����aVBFrame������������o�����������f������������&PROJECTwm�������������PROJECT���������VBA��������__SRP_7#����,B__SRP_8��������.�__SRP_9��������F�__SRP_a��������Z__SRP_b��������_B__SRP_c��������a__SRP_d��������fB__SRP_e��������hT__SRP_f��������jgShowForm��������l�__SRP_10���������l__SRP_11���������y__SRP_12����������__SRP_13���� ������PrintForm����!������ThisWorkbook����"�����_VBA_PROJECT������������g�&__SRP_6$���������__SRP_5%���������__SRP_4&��������J__SRP_3'���������__SRP_2(��������~6__SRP_1)��������f__SRP_0*���������Sheet6+��������~Sheet5,��������'~Sheet1-��������9~!h寶齉pe
.���������眴SbpS剺葔
/��������Kv錧wQ齉pe
0���������嫒;Nz廭1��������N璔dir2��������]�餢f������������yCompObj������������pi