邢唷��;� 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� 5 ef陬� �� 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� 2 23跂� ����� 60% - @wr� 3�6�(� 60% - @wr� 3 ����� 60% - @wr� 4�6�,� 60% - @wr� 4 ����� 60% - @wr� 5�B�0� 60% - @wr� 5 23捦� �����! 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�1 8^膲_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� 5 K� ����� 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咥�@臕@�  ����z1 7sfzjh 7 checkDiffName餠緰歔餠緰+R T饄checkIDCardType珟齆翄鯪{|媁7usYE\l珟齆翄筫誰 T廭鱏/魦f T饄{|媁 checkYesNo/f&T checkGender'`+RsY'`+R7uN,傪V緰 N餠緰決榌翄隭uQ翄噀L€r^钀翄钀柣y�O翄 櫃/nyr:Sgq/珟齆翄f 硂钑yr:Sgq/珟齆翄f 餝~nE\leg€_'YF�怢埩�僗Y8lENE\OO翄AgqB7b鉙剠vQ諲1 7覻 T 7C 7applyListEntry checkSfzjh 71 71yr+R餠緰 7f[gD崺Rh芉 7zzbz 7 checkTerm%fc[f[g藋c[f[g擽裇褢潣 7yfje 7瀃裇褢潣 7sfje 7裇>e錯g createDate 7 sqlym 7 checkSQLY 7xm 7 checkNum1,6,0 73u鲖t1u 7A 7B 7D 7E 7F 7G 7H 7sqly 7Y鑜魦f 7 bzsm 7P kX橯D崺RD嵮憚v裇>e錯g �eKNMR剉鰁魰�S+TS_錯 � �鑜銐�齎禰㏑f[褢 cg裇>e �裇>e鰁魰kX橯:N,gf[g褢潣裇>e孾鰁魰0臺kXy楳! 7checkDateNecessary 7禰璣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 checkZjlx 7珟齆翄鯪{|媁 7 checkZjlx 7E\l珟齆翄 7 checkZjlx決榌翄 7隭uQ翄 7噀L€r^钀翄 7钀柣y�O翄 7 櫃/nyr:Sgq/珟齆翄f 7 硂钑yr:Sgq/珟齆翄f 7 餝~nE\leg€_'YF�怢埩� 7僗Y8lENE\OO翄 7A 7gq 7B 77b鉙剠 7Z 7vQ諲 7zjlx 7珟齆翄鯪鱏 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�2 7*  貧!h,gN褃齎禰㏑f[褢 TUS "' 7鑜a�鲖�R宼e!jg剉 7 checkName 7FAILURE 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 8 8 8 ,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� N P@� P� Q� N P@� 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�HP X`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主程序;N z廭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� � �  � )y0   0 �  0 �  0 X  0   0 �  0 X  0 8  0   0 �  0 $  0 �  0 €  0   0 �  ��<:4�%D��X�%h�$ �h� dD�)h�D�J�$�%��D��X�%h�$ �h� dD�䴕��C)h�D�5�龝p�x�(�l�h�D��0    0    0 �        ����������������������������������������������������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扚alse dCreatablPred恊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��7 Sheet1��逪��� Sheet60P5f1b12f9��9 Sheet6���0���SbpS剺葔0Q5f1b1313��:SbpS剺葔���H���錧wQ齉pe0N5f1b12f9��D錧wQ齉pe��艄`銛��餢f0L5f1b12f9��f餢f���&xF��!h寶齉pe0S5f1b1316���!h寶齉pe��~��hj��;N z廭0<�5f1b12be���;N z廭��Ux��������`�����;9��ShowForm095f1b12be��1ShowForm��n�1�� Sheet50O5f1b12f9��; Sheet5��h�����PrintForm0;5f1b12be��=PrintForm��蕵��������������������������������������������H�����������������������������������������������������������������������������������������������������������������������������������������������������`�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x�������������������������������������������������������������0�������������������������,�#汚VG侲A閏����驢gc崾/MIo�� ����鐱泶払蒊嶮wk 藲����HJ��:D€瀣ezX钾����-屟� D沒茏,.h����軞�$bFぇ&白����鎈紈馋OE礠:柸匕.����#愰O8� @�瞩鹯����d缓棍廦E剸,刣锋����~Y劼wZL� m峯�����#恣�#飧B�-夠九Z���������€20許!�8compare Excel€+` VBA麾`Win16羱`Win32`Win64x`Mac巢`VBA6�#`VBA7�#` VBAProject究`stdole揱`Officeu`MSFormsC` ThisWorkbook|鉦 €�_Evaluate賎Workbook_BeforeSave l`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娕`�(callFunctionXQStart typeVal#`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;`arr u`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 rowIndex columnIndexcontent sheetIndex errorInfocolIndex checkMethoderrorMsgtypeVarU€€€€~| 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% �qW� 轧 &'椠'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 23 :濑24 (濑uz5�z6(旪uD宁㭎tM(宁%旪龘 @p�(濑%$ � dp氃� �A逮7h�)p�5轧�z8h�:濑2]鸃p3�����:濑9N轧轧h�潺逮 :逮X�/潺5轧3�����:濑;N轧轧h�潺逮 :逮d�/潺5轧X��5I���� ,X��5I�L�iT�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:濑?札轧:宁@逮旪旫:At�悬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:濑?札轧:宁@逮旪旫:At�悬0�:匎B椠`36 轧逮旫t�0��z[匎��%札龘 @旪龘 @p�(濑%$ � dp氃� �=逮C�CD)p�6轧逮3轧 .5轧 $~包H nd5I���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:濑?札轧:宁@逮旪旫:At�悬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:濑?札轧:宁@逮旪旫:At�悬0�:匎B椠`36 轧逮旫t�0��z[匎��%札龘 @旪龘 @p�(濑%$ � dp氃� �=逮C�CD)p�6轧逮3轧 .5轧 $~pM黤匎%札龘 @旪龘 @p�(濑%$ � dp氃� �CE)p�5轧 旪龹t�1"0(濑]�<轧0/�/逮�'旫�O7:濑?札轧:宁F逮4旫:Gt㤘36轧逮旫t��z3轧 .5轧(濑麛轧a`�1麛轧`�(濑]鹴/札U "�� �(濑麛轧 �&v 齣濑麥轧P黺 �i㭎0�Mv 齣濑麥轧%p�:宁 %$ � dp殧﨟裏䴓I)p�5旫 P~0v 齣濑麥轧�"{ u5z 札龹待�( � �(濑麥轧㭎 "�漰z� �(濑]�3�z�M宁@(轧逮 J 6轧逮�,kz�D濑 溤鰯�旫(逮t� J 6逮旫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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������lisValidateCountregvalue sheetIndex2keyWordkbnvalue1flagrowNum AaSaveAsUICancel functionArgsIDNumberfunctionArgsArrvalue2IdNuma��������������������������<�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! �  VBAProject ThisWorkbookSheet1Sheet6打印预览工具函数声明校验函数主程序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 � ������F 0錧\Oh坧e顅 Ncknx �鲖 N}�g癳!jgT �峇蹚L坉k!h寶 1qazPasswordProtectUnprotect 曪嬦Oo` 鉔xh� 魦f , 00� $4DHLPd CellsClearContents��F A65530 RangeEndRow IV5��F€E�=F咓!豊夗� �F騶霿匑墸胍峴 L�D�F Worksheet @F�F FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartgetCellValueCountXQbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRow setCellNumXQdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter A9:IV65536Font 媅SONameSize &HorizontalAlignment @ "NumberFormatLocal 4╜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[ �鲖筽鸔 諷坢 ? checkRequired checkStuName checkName checkBirthdaycheckBirthdayNecessary IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLink 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扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2��<�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扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2��<�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扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2������������梺��������������������������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>�aSC呌锥�:,则设置梧üA� ��湇1_h砂!� Len(<>8 18脦�p� N ot� 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>ft l2.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 If OoNot 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%4iu��`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(�€�,Oa 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��&鵘E15l lqXOO瑏 .ExlNondu�(�u�?%- 获取指度ǖ腁喼�?��*get態B崁CountXQXH锾L�鐺�Q€髎�.v晑w颺� �Y^ 是否2G騯=调用的p方法o�b eginCQc砠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哔?Lb- '`%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*婱整朗ざ葋谿墑� �MidG9�& 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� �%臹IDCar dTP`�身份证件类型�� � 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�橗?小���_@鬟5 VsQR擾抇�_� �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�65 7@�7��峹7鄴����7��7�崯`���嵖�嵾5X�>��&�>���"鲘�?r(脤镝?O廵〡�(弻/�,龔宻�颌弻���>� ���⒈弻�6��希�s溃蟃�� 仧W���疻��� �d�逽嬤S嬕老[�_T P 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须大?c50?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^�0b C�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�NP 4�.Clea rCont萻 �'每次��� 把曆B 清空,�cu徇RowP 1 '�记�伎夹惺�/舘cJ��'类惗似冒泡排序,每个元素和在它之前的所有行进行比较  For i = startTitle + 2€ To rnaL\cardID1`Sheets(s Index2).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中相等�a 5�)��^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 '某一�龉嬖虻募`锹际�uJN um'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=�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�%0 p�%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�H 2).h 3_ Sas(m sgB佱).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 isSaveButtonvbOK鈳 喔€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,请检查�"_ _ 0hasEP 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�hEInu��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羷.FFunn.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"a2fo F o �&�校验徵!h寶�e�揺o hjo ~鎘 !L主程序GbQ;N z廭沚�2�o ;9o BU�2ShowaxG�`6owf佰�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�66€ ����€€ ����€ €€ €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�8 b错牢笮畔�8 €噐o填表 说� 3Area習3氡韻K€dme�0tot€alCount塉乽记录总�男Q槭�  �$startT坕tl翄7 ' 表头所在行 atLea€OneNNulD '执行 �辽倭t非空A 的单元栏袷肯�\中内容�环瞎`嬖虻腏�;Money�;Varia€>'每一行合计中的值K Err or@� -时,/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�討P luBW�: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���������嫒;N z廭1��������N璔dir2��������]�餢f������������yCompObj������������pi