��ࡱ�;�� _��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� T8������\pY�Q(u7b B�a�=�� ThisWorkbook���=ZKx-8X@�"��1����[SO1����[SO1����[SO1����[SO1�����[SO1����[SO1����[SO1���Arial1�����[SO1����[SO1h>���[SO1,>���[SO1�>���[SO1@����[SO1����[SO1�����[SO1����[SO1�����[SO1���Arial1�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�4���[SO1�*���[SO1����[SO1� ���[SO1�4���[SO1�<���[SO1�?���[SO1�>���[SO1����[SO1����[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���a�� ������ ������ �2���� � � �3���ff��� �4���� �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� �?87 �@8� �A87 �B8� ||��ǹq}(} 00_)}(} 00_)}(} 00_)}(} 00_)}(} 00_)}(} 00_)}<} 00_)ef\([$}<} 00_)ef \([$}(} 00_)}<} 00_)�L\([$}(} 00_)}(} 00_)}<} 00_)�L\([$}(} 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_)���\([$}<}> �e�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_)}(}� 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 �L渷� �� 40% - @wr� 3�6�'� 40% - @wr� 3 �� 40% - @wr� 4�6�+� 40% - @wr� 4 �� 40% - @wr� 5�B�/� 40% - @wr� 5 �L���� �� 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�k� #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�VL�?e:SR�Nx�2���(�������c  ���3}Y�0��}Y ����� �a�� 4Gl;`�&��Gl;` ��5�����'�^�6��� ��'�^[0]� 7���{�^�����{ ��}������� ���8�h�gUSCQ�-N�2���-N ���� ��e�� ?���Q�^�����Q �???��???��???��???� �???�� @��eQ�j����eQ ��̙� �??v������� ���A� ��0� ��]��v�����c  ���� B@wr� 1�*��@wr� 1 ����� C@wr� 2�6�!�@wr� 2 �PM� ����� 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�lʑ�^� ��lʑ �������������������� ������X��TableStyleMedium9PivotStyleLight16��8�������������������������������3f������ff���f����������������������������������̙��̙3f�3���������fff����3f3�f333�3�3f33�333\���`� �N ؚ!h,gN�y�V�[�Rf[ё TUS��q�Nxh��Ʉ���Oo`�����VV�����!  =- KmՋ@b g!h��ĉRv^SbpS���Oo`���fnf�X�8FE@���������N�F�|�MO�S ���A�A�@�A@�  ����|1 7sfzjh 7 checkDiffName�V�����[�V���~+R T�ycheckIDCardType���N���N{|�W7usYE\l���N���e�l T�^�S/�f T�y{|�W checkYesNo/f&T checkGender'`+RsY'`+R7uN,��V�� N�V���Q�[���XuQ���eL�r^������y�O�� ��/nyr:S�bgq/���N��f �o�yr:S�bgq/���N��f �S~nE\leg�_'YF��L����XY8lENE\OO��A�bgqB7b�S��vQ�N1 7�Y T 7C 7applyListEntry checkSfzjh 71 71yr+R�V�� 7f[gD��Rh�Q 7zzbz 7 checkTerm%fc[f[g�yc[f[g�^�Sё�� 7yfje 7�[�Sё�� 7sfje 7�S>e�eg createDate 7 sqlym 7 checkSQLY 7xm 7 checkNum1,6,0 73u��t1u 7A 7B 7D 7E 7F 7G 7H 7sqly 7Y�l�f 7 bzsm 7P kX�QD��RD�ё�v�S>e�eg �eKNMR�v�e���S+TS_�e � ��l���V�[�Rf[ё cg�S>e ��S>e�e��kX�Q:N,gf[gё���S>e�[�e��0�_kXy�M! 7checkDateNecessary 7�[�^m��S�6q~p�[ �[�^m��S�z�SaY�N�N�[�^bXT�V�k�u t^ȏ ��R�R���R1_�`�Q �[�^���1\f[P[sY��Y�[�^bXT1YN�[�^ k:P kX�Q�^�Sё�� ��Y 3000 �_kXy� 7 kX�Q�[�Sё�� ��Y 3000 �_kXy� 7 checkZjlx 7���N���N{|�W 7 checkZjlx 7E\l���N�� 7 checkZjlx�Q�[�� 7�XuQ�� 7�eL�r^��� 7���y�O�� 7 ��/nyr:S�bgq/���N��f 7 �o�yr:S�bgq/���N��f 7 �S~nE\leg�_'YF��L��� 7�XY8lENE\OO�� 7A 7�bgq 7B 77b�S�� 7Z 7vQ�N 7zjlx 7���N���N�S 7I 7�^ch�zaS�[�^ 7J 7NO�O 73u��t1u 75 kX�Q3u��t1u,wQSO�Sgq�Nxh�-N�vN�y ��O�Y A ��S�kX�QW[�k('Y\�QGW�S),�SY �, N�S͑ Y��eQ ��_kXy�2 7*  ؚ!h,gN�y�V�[�Rf[ё TUS "' 7�la����R�te!jg�v 7 checkName 7�FAILURE 7*� 4134011306 4134013338 4134010878���> y?��?� @#�@� A7�A��B�bCy�D�E��F��G��H� �J� �M�cc��B��������~-z4n�A�_)k:~yw T8��  �l  d����MbP?_*+��%{����&ffffff�?'ffffff�?(�?)�?M.Microsoft Print to PDF�P/ � 4dXXA4����GIS4DINU"�$,?]{~�SMTJ�{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM� p"��O4�wM��H�5��L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity�" d��333333�?333333�?�&�<3�cA�U} `�} �} ��} @�} @�} @�} ��}  ��} ��} � �} 3 �} 4k �} ll �} mp �} qq��} ru �} v� �} � � vmY�V J�V��_ �V �Vr�W �YmD�[{@� �w� yQ� a'� is� �t� 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� Zu� r� Zv� Zn� ZO� ZP� sF� Zk� Zpl\����(:(�������r��y�Z�( � ��� �Lq � �N��=���X��������������?���  �]4L9@ 狦F�C C�lEc�s5� ��<kX�Qf[u�v�Y T<�~�~� � � �<�0D�����C�C��@���],@2c�9� ��$< _�Y�h�g<�~�~� �� � �<�p@�����C�C��@����],�@��9� ��$<_ �Y �h �g< �~�~� ��i � �<��D�����C�C��@���F���],�5@��9� ��$<_ �Y �h �g<L9admin>�@din��jn��7� Sheet1gg����Dh8hb�:S�W2_1 T8�� 5D}Ѓ  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?M�Foxit Reader PDF Printer�_�� � 4dXXA4�" dXX333333�?333333�?�&�<3U} @K} �I} �I} �!I}  J}  J}  J}  J5�@ ,,,,,,, , , , , ,,,,,,,,,,,,,,,� R � M � M � R S� J&�LLLL� Tx� NP�?O�?� N� J{� 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 !"#$%&�T'(,�T),*,+,,,-,.,/,0,1,2,3,4,� 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�H � �0�( � � >�@��$$$� 7� Sheet5gg����D T8��  �  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?�"�333333�?333333�?�&�<3U LLLLLLLLL�� �P�H0��0�( � �>�@��� 7� Sheet6gg����D ���������������������������K*� ����  rU��@@~~~~~~~~~2~ ~~~~~ ~ ~~ ~~F"Q������dC� �4ͣi^ � �������� ��a���������A0�����a��������������a �������������aa ����������������/����aa �����������������Q���1q��1a��Aq�� A ��!�a��������������������Q� a �����������������!2A2q2�2�23A3q3�3�34A4q4�4�45!5Q5q5�5�5616a6�6�6�6!7Q7�7�78A8��q�aa ����������������� 1 ������������������������������a ������������������������������������Q�!  VBAProject ThisWorkbookSheet1Sheet6��ӡԤ�����ߺ�������У�麯��������ShowFormSheet5 PrintForm��F6C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A�������� q�P�F  D:\office2013\Office15\EXCEL.EXEExcel ����������1p0�FC:\Windows\System32\stdole2.tlbstdole ���������a�L��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOfficeMSForms ��������A���.E ���.`�M �C:\Windows\system32\FM20.DLL �������4/jJ��|��ۘ /C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd � �� ����������У����򲢴�ӡ������Ϣ checkTheSame �F��F� � ��������&m� ��F&m�  0�]\Oh�pe�v Ncknx ��� N}�g�e!jgT ��QۏL�dk!h��VBE7.DLLUnprotect���������S �@(~ 1qaz.�� PasswordProtect ���Oo` �Nxh� �f , JJ�  8Phpx�� CellsClearContents��F&t ! A65530 RangeEndRow IV5��F\�ȕ&Z�M������nQ �F�B�,K�{L3a���D�F Worksheet x:��F�F @ FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartgetCellValueCountXQbeginCheck_commentcallFunctionXQStart regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRow setCellNumXQdeleteRowNoProsetCellValueXQ setDMBCode removeSpaceXQremoveSpecialCharacter A9:IV65536Font �[SONameSize &HorizontalAlignment "NumberFormatLocal 4�`nx�[_�Y�h�gT� �h�gǏ z-N ����RsQ�excel ����������` $� Delete dk!k!h��-N Rd��ND�F a &TR�S���[�penc"N1Yb�h�g1Y%� )n���c:yTabColorIndex "�l g�g~b0Rf[u�Oo` ��e�lۏL�!h��� -N���Oo`�Y N�  value -���������� ( -N�\ gN*N�kX�Qcknx����h�g(~ : ; ,{ L� R�vpency�� VX[(Wyr�kW[&{��Y^ , ; ' <> " ? zz�{�=�@��<�9}��YT��@���Ɣ���Aά�A��ÝP�� Browse_Print��F|�ۅ��N�29�~\�F��̂���L�AE�r� �WorkbookWorkbook_BeforeSave .�`/f&Tnx��\���OX[�excel ��Y�OX[ ����p�Q nx�[ , &�|�~\��ۏL��h�g!h�� ��Y N�OX[ ����p�Q �S�m ? checkRequired checkStuName checkName checkBirthdaycheckBirthdayNecessary IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNum checkBankcheckXn checkOptioncompare compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLink checkNLencheckNowNecessary checkSqly checkBZSMr�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ������ ����&��������������������������x��RR��������������������ME�����������������������������������������������������������������������������������������������������������������������������������������(@��n0��6 ����<��������n��������h�P0��h�p�������t0�����H���������������x`������@��������ʀ������ ��@�����������8���� ��@��������ꀎ�h������ @����������| x����� @��������%������Ϣ�����������%ꀨ������ �� @���������������� �� @��������ꀤ������ ��@��������ꘂ����B�������������� @�������@��������ꀐp����� ��@���������`��������@��������ꀆ��������@��������ʘ�����B��������������ꀈ0����� ��!@��������ꘊ`����B��#������������˵��%����h����������B���r����B���������������^Hp����H���������������vx�����H��������������ʘ������B��������������ʀ� ���� ��@��������ʀP���� �� @����������z8p����h @��������ꀢP������� @���������0�������� @���������*������ �� @���������~������ �� @��������ꘀ ����B���������������$P����B��������������‘��������@��������ʀ������� ��@�����������������@��������ꀚ����� ��@���������N@����B�� �������������bph����B��"������������ꘌ��������B��$������������PP�00p ��������������������@x���`��������������@����������������������������������������������H����` ������p��8��l�������������������������������P%���������������������`��������������������x�����������������������������:�)��[*\R1*#278$*\Rffff*0=5c7c053a(*\Rffff*0=5c7c053a\0�6��6� ������ ����� �� �0�8� ����� @� �����`� Dp��� 8��� �0� P�0p�D����0�8�4P�.�� �����.����.�(8�(`�>��"��$��$�(@�h�>��R��^ �F������ �����`��*X�$�� ���� ���� � ��������0����������^��������^�0p��@�����һ���ṹ����������ҳ]$��H��=Public Const sheetNameValueTJ As String = "����2������ʵͳ��"]$�������Ϣ��2Public Const IntroSheetName As String = "���˵��"]$�������H]$�˵���0] �x� ��¼�ܵ�У����]$��`���¼��ͷ������] ���"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ] ���6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ] ���ÿһ�кϼ��е�ֵ] ���"����һ���ǿ�У��ʱ����¼����Ԫ��] ��������Ϣ] ���%---������ģ���У���¼���ĸ���Ԫ������] �8�---����ģ���У���¼����ĵ�Ԫ��] � � ����У��ʱ���洢�����������ַ���] �P���¼ʱ�رհ�ť] ��� ��¼�ܵ�У�����Ƿ��в����Ϲ����] ��� ��¼�ܵ�У�����Ƿ����ظ���] ���#��¼�ܵ�У�����Ƿ����ظ���] ���%/��¼������Ч��ǰ����������Ƿ��д�����Ϣ ��״̬] ���#����У�鷽���ķ���ֵ]$����)������¼��ʼ���к�]$�� �)ѧ��ѧ���ſ�ʼλ��]$���)ѧ�����֤���ſ�ʼλ��]�DP���¼Ϊ�յ���Ŀ]�@�"/�������Ƿ�Ϊ��Ч���� ͳ�� 5�������ֶ�Ϊ�յĸ���] ���"C��¼ȥ���ո������ִ�н�������ȥ���˿ո��򷵻�true�����򷵻�false] �p�Pcell����ԭʼ�ĵ����ݣ���ϵͳû�н����Զ��������û�����Ĵ�������֮ǰ��cell������] ���7�ϴ�д������Ϣʱ�����ڵ���,Ӧ����Ŀ��ʼ��ʱ��ʼ��ֵһ��] ���������] ���������] ���R�ڸ��ݱ�ʶ���ò�ͬ�ķ���ʱ���ж��Ƿ���forѭ�� Cell_SelectionChange����Ҫ�õ��ñ���]$�����¼ʡ���صȼ�¼���ڵ���]$���+�����sheet���±���Ƿ����] �@]$�h�0�)�����е�������]$��p�) �Ա�������]$��`�+�����������������������յAttribute VB_Name = "����" Public Typ�alueCo8lum8p '��������c@nIndex As I@ntegerTø��� P�'S��ngEndn _ '����һ���ṹ��������0��ҳ"�Const shee�t{V�1 ��p1 '/ATJ�D�����2�������`�ͳ�ƀ� m8sgS�8 b�������Ϣ��8 ��ro��� ˵� 3Area��3����K�dme�0tot�alCount�J�u��¼�ܵ�У����  �$startT�itl��7 ' ��ͷ������ atLea�OneNNulD 'ִ�� �����t�ǿ�A �ĵ�Ԫ�����Ŀ��\�������������Ϲ`����J�;Money�;Varia�>'ÿһ�кϼ�����ֵK Err or@� -ʱ��/A>A{C/� e� Ms>gAD���� rgold�Rang@e '---A�Ԁ�ģ���Є ��ĸ�����FTarge�n� �����V��qfuncti@onArgsh'0����">@���������������ַ���fisSav�eButton}CAʱ�ر���ť�has�(�}Boolean�{�'�L����0���Щ7 TheSa@�_������ĮIdN\um�]�n �idaै�_�����Ч��ǰ��������>�\״̬�checkMet�hodXQ�AA1�A0�ķ����R��aRowS�q���0= `r��+п�ʼ�x�!��x�babyID"�J8= 2 'ѧɀ�ѧ�����0λ�æccard�3��� �֤��)Di�m is���A1���(Ϊ��ev�%.A��������FΠ���Ч!� a� 5��������ֶ�c ���fremoveSp�aceFla�tEB�ȥ���ո������@��π������a$�ˡ���2tr@ue����f�alse� ce��ࡌ������2�!2��a�@|����û�н����Զ��������û����w�G֮AK�sc� ur`�@*�)Long '�ϴx�дO!�a��@,Ӧ����Ŀ��ʼ��ʱ�sֵһ��&rna�%'���`g`c���Qb�isF0SI2�ڸ��ݱ�ʶ����ò�ͬP-C�E� �жϱ?��forѭ�� C�_Sele bJCh�Q����Ҫ�õ������wb)headdI��= 0(�/ʀ����صȱ��& S�usv�9r0�v���±��0�� �����not�tinu~eQ$Aq0N�ӑP luBW�:104 @'������g�H���wge� rC�:��Ա�� ��w� birthd$ay= ��@�����ڵ �����������������������������������������������������������������������������������������������������������������������������������������������rU@@@@~xUa � Q��"�!'AQ%Q1!. ����������1�Q@���� � !1!a!�!��!�%Q"!%�%�%&q&����&P ���&�'a)�)�)�)�)!*�*1+a+�+�'�+a#�#,�,-�A-q-�-`&�$ggD�0����8����Z���8����`�0���l����@����8���g�@��������\�gL�p������������������I��������(������������p���g\������h��������8����Z���8������h�����8���h���g{gg\������h��������8����Z���8������h�����8���h���g\������h��������8����Z���8������h�����8���h���g\������h��������8����Z���8������h�����8���h���g^�h��������8����Z�p�8������h�����������8���h��������g��g p�g4p� �8����Z�8�8������8���g�����P���g�����8���g^�h��������8����Z�p�8������h�����������8���h��������g����������������h��������8����Z���8������h��������������������8���h���������������g�����������8������������� Z!� �8��������V"�h����h������������#�8���h�����������gV�����$Ip����p���������������������(� �����������p������g���������g�%��?���gg|�����&�h��������8����Z���8������h������������'H���������������8���h�������g����(������)g���� ������*g������gn�����&�h��������8����Z���8������h�������H���������������8���h���g��������������+g����,������-g������g�� �������������������.Ip����p��������/����O���������0O�����(�?� �����������p�������������gg\������h��������8����Z���8������h�����8���h���g{gggd��������h��������8����Z���8������h�������1�2�8���h�������g�x>��gL�p������������������3I��������(������������p���g p�%g\������h��������8����Z���8������h�����8���h���g{gg p�g��h��������8����Z���8������h�������)�����4O����` ���������������8���h���������������g�x��dg(����� �x����k�����H���dg�����5g�����6g�����7g�89g����8:g�����0���g��;g p�<g(����������#k����������gz���������� @�h��������8����Z���8������h������������=������8���h�������g p�>g���������8�\�TgV����������?I������������a���������� (�������������������gV����������@I������������a���������� (�������������������g"�������qn�P��gF�������qm��l����������������qnl���������Hgv������ @��������������������@I�������������a���������� (�����������������������g$������������������g�x��������K�,gv������������������������AI�������������a���������� (�����������������������g>�������qml�����p����������qnl�����@���,gj�p���� @�����E���8����0����0��������x���������0�������� 0�8���������������gl�x���� @����� @�h��������8����Z���8������h������������8���h���g$�������� ��������g����l�gl���������� @�h��������8����Z���8������h�������������8���h���g~����B�x���O��������CO��������O���������DOp��������O��������EO����`�9� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������F�G�8���h�����������g�9��������gg�p����@���d gg����������� g�>p>��gv������������������������AI�������������a���������� (�����������������������g>�������qml�����p����������qnl����������gj�p���� @�����E���8����0����0��������x���������0�������� 0�8���������������gl�x���� @����� @�h��������8����Z���8������h������������8���h���g$�������� ��������g����l��gl���������� @�h��������8����Z���8������h�������������8���h���g~����B�x���O��������CO��������O���������DOp��������O��������EO����`�9� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������F�G�8���h�����������g�9��������gg�p��������g�Ng"�������qn�P��g$������������������g�x��������K��gv������������������������AI�������������a���������� (�����������������������g>�������qml�����p����������qnl����������gj�p���� @�����E���8����0����0��������x���������0�������� 0�8���������������gl�x���� @����� @�h��������8����Z���8������h������������8���h���g$�������� ��������g����l��gl���������� @�h��������8����Z���8������h�������������8���h���g~����B�x���O��������CO��������O���������DOp��������O��������EO����`�9� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������F�G�8���h�����������g�9��������gg�p���������g�Nggv������������������������AI�������������a���������� (�����������������������g>�������qml�����p����������qnl�����X���Ngj�p���� @�����E���8����0����0��������x���������0�������� 0�8���������������gl�x���� @����� @�h��������8����Z���8������h������������8���h���g$�������� ��������g����l�2gl���������� @�h��������8����Z���8������h�������������8���h���g~����B�x���O��������CO��������O���������DOp��������O��������EO����`�9� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������F�G�8���h�����������g�9��������gg�p����X����gggx������x���� @����� @�h��������8����Z���8������h��������H�8���h�������g���������D g6�6�����T����6�5C����7����l��gZ����B�x���O��������IO�����:O���������JOp���`�9������������p���g����g�9��������g �0������������0�����gg�@����7�����@���gg�0����������Hg�x�����������`���Ag ������������������g>�l����0��������(������l���������gx�l����0��������h���������8����Z�p�8������h��������K��L�8���h��������g�(���������g"�l����0���������g�;�gg�x����H���� gg2�����������������������������g�������`���!�����g����������K�g4����������@��������� ���������dggN�����k����������������������������p��� ���������p���gg�����������g�������������g^�����p�������������M�����O��������NO�����(� �����������p������gg��!gL�p������������������OI��������(������������p���gd������h��������8����Z���8������h�������1�2�8���h�������gN�h��������8����Z�p�8������h����P�8���h����v#gg p�Qg&��������� ��������g�Q �l"gL�p������������������RI��������(������������p���gd��������h��������8����Z���8������h�������1�2�8���h�������gV�����SIp����p���������������������(� �����������p�������p#ggL�p������������������TI��������(������������p���gd������h��������8����Z���8������h�������1�2�8���h�������gN�h��������8����Z�p�8������h����P�8���h���ggg\������h��������8����Z���8������h�����8���h���g\������h��������8����Z���8������h�����8���h���g\������h��������8����Z���8������h�����8���h���g{P�$xR*��������`���H������������������X���@�������������������p���X������������������x������8���@��������������p���(������������������@�������0���P�������������������`�����P 8�������8���h��������������p����������Hi@ aS �S�������������������������������������������������������������������������������������������������������������������������a�� �*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications�*\G{00020813-0000-0000-C000-000000000046}#1.8#0#D:\office2013\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library�*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{34FC7FC0-6A2F-4A08-B602-807CF6FDDB98}#2.0#0#C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library�.E ���.`�M � ������)��[��  ������������������������������������������ ThisWorkbook0C5c7c0744��'ThisWorkbook��zLx���������\ �� Sheet10>5c7c053a��= Sheet1���H��� Sheet60A5c7c053a��? Sheet6���0���SbpS��ȉ0B5c7c055b��@SbpS��ȉ���H���]wQ�Qpe0?5c7c053a��J�]wQ�Qpe����`�����Xf0=5c7c053a��l�Xf���&x���!h���Qpe0D5c7c0747���!h���Qpe��~���m��;N z�^0<5c7c04eb���;N z�^��Ux��������`������9��ShowForm095c7c04eb��7ShowForm��n�w�� Sheet50@5c7c053a��A Sheet5��h�����PrintForm0;5c7c04eb��CPrintForm��ʘ�����������������������������������������������������������������������������������������������������H����������������������������������������������������������������������������������������������������������������������������������0�����������������������������������������������������������������`����������������������������x��������������������������������������������������������������������������������������������������������������������������������������������������������������e��J"L�ь��{R�����V� � L�s������������g�?pD�]1{�k����w�5b�c�J�th �������K ���H���b�������q�gVnB� o�Z����L�w7��2F�\/�Ȗ�����32�l��D��qĔ�������W��'L��*�Q^�����L��@��Z6Y<�.����%s�c�1�L��y >z������������50]!�8compare Excel�+` VBA��`Win16�~`Win32`Win64x`Mac��`VBA6�#`VBA7�#` VBAProject��`stdole�``Officeu`MSFormsC` ThisWorkbook|�` ��_Evaluate�`Workbook_BeforeSave l`SaveAsUI��`Cancel�` �(isSaveButtoná`MsgBox�R`ChrK~` vbOKCancelx?`vbOK�%`�(��������У����򲢴�ӡ������Ϣ��` Sheet1�` Sheet6�` ��ӡԤ���X` �(Browse_Prints�` Worksheets��`Visible��` PrintPreview��` ���ߺ����`�(checkedRequiredStart�R`rowIndex6d` columnIndex�P` cellValue@�` ActiveSheet%N`Cells�`�(writeLog{u`content�l`Sheets ` �(msgSheetName�'` �(curMsgRow�/` �(writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex��`�(addCommentXQStart�S` sheetIndex� ` errorInfo` AddComment��`Interior;�`Color2F`CommentHs`�(clearCommentsXQStart7�` ClearCommentsf�`sheet2RecordNum�`ffTotalNumColumn�`xlNone��`�(getCellValueCountXQc�`colIndex�`value�K`�(beginCheck_comment;D` checkMethodHd`�(errorMsg'|`�(removeSpaceFlag��` �(cellContent��`�(callFunctionXQStart �`typeVal#`isValidateCount�8`�(isFord�`titleMsgh�` �(startTitle�l` �(headIndex�` �(functionArgs8M` �(checkMethodXQ��` �(checkRequired�b`�(hasErrorf�` �(removeSpaceXQ�` �(checkStuNamec�`�(checkLeng�`functionArgsArr��`Split�)`�(checkNumh�` �(checkNLen�`�(checkValK�`�(checkInt��`resZjlx0�` �(IsIDNumber-*` �(checkSFZJLX�*`�(checkDMB��` �(setDMBCode�d` �(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�f`keyWord�F`kbn1�`cZ`Findn�`What�C`LookIn�P`xlValueso�`LookAt�O`xlWhole��`Column�i`value1�`flag��`Trim@�`rowData�1`Count0v`rowNummR`�(AreasheetIndex�H` �(deleteRow�` Unprotect?`Password��`Rows�U`Delete�x` �(setCellNumXQ��`�(deleteRowNoPro`�(setCellValueXQ��` codeValue�` �(columnPlus��`length1S`length2T`Replacef`�(removeSpecialCharacter�` �����i`�(!ValueColumType��` columnNamew�`�(sheetIndexValue1` �(AreaSheetName�`�(readmeSheetName��` �(totalCount�-`�(rgold�`�(Target�F`�(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�R` �(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�f` Application�*`ScreenUpdating! `sysDifficultyGradeNameFlag��`indentifyDateFlag� `xlToLeftWY`Size��`HorizontalAlignmentS@`xlLeft�9`NumberFormatLocal)�`rowType�` removeSpecial�j`Locked ` totalMoneySumZ�`pg`qh` �(checkTheSameg�`myDic�o`myKey��`varData��`idNumDick` idNumDicData��`cardNum�\`Exists�]`Add�r`Keysq�`Resize@4`WorksheetFunction�&` Transpose��` ShowForm��`CancelButton_Click�`Hide9z`ConformButton_Clickwf`Flase�p` 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�Y`����_B_var_p�`����_B_var_q�` ��BeforeSave��`���A  ��"��$��' C �������������������������������������������=?A������������������������K�����������������������������7m����������������"�@�� `0(P7��q� YX�� ��J� � ����������� �(������9��U�������������������������x��ME������������������������������������������������������������������������������������������������������������������������������������������������6 ���������L����L��������� ����L���������"����L��������� ��������������������������` :@`��������@����k�������������P����������������@�������������� ��@�������������� ��@�������������� ��@�������������� ��@��X�������� �� ������`������� ��@������@������� �� ����`������������ ������������`������������� ��`� ������������ ��`�2������������ ��`�"������������ ����������@����������8��������������%x����������@ � ����( p���x``�@����(����x����������������������������������������������@ �����D2^\`��@���8������� �� @������0��������� @��X������� �� @��p������� �� @����������� �� @����������� �� @����������� �� @����������� �� @��0�������� �� @��`p������� �� @������h������� �� @�P������� ��@(8������� ��@������ ������� �� �<�^08 @��H������� �� @���������� ��@����������� �� ��"@������������`��"@����������� �� �'@����������������`�'H46�X���@�������������� �� @���������������� @�����x������� ��@���`������� �� ��>@��(H������ �� @�>0~����jP@�0������� ��@&����������� ��@��P������� �� h(G@���������� �� �PG@������������ ��@���������� ��@����������� �� ��O@��������� �� (�O@�����p������� ��@��8X������� �� PU@���@������ �� �8U@������8��������� @������0��������� @��������� ��@����������� ��@���������� ���8c�e@�� �������� �� 8�i@��X������� �� H ip w@����������� �� �X~@���������� �� ��~���@���p������� �� ���@��X X������ ��  �� ��p P�@����@������� ��@x(������� ��@��� ������� �� � X �@��� ������� �� � � �� � �� ��@��������� ��@�� �������� �� � �@������������� �� 0  ����� ��*�������������������������@���������������������������������������������������������)��[$*\Rffff*0<5c7c04eb*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0=5c7c053a*\R1*#11c*\R1*#42$*\Rffff*0>5c7c053a*\R1*#129*\R1*#278$*\Rffff*0?5c7c053a*\R0*#2*\R1*#11*\R0*#f*\R0*#1����� h"�h�p�:x�.��6��" �"H�.p��� D�� �� :L�� \�8�@�\H�\h�\��>^��"��: � 4P�,`�$��>^��,��� (� ~@�$���PV�� 8�X� x� �����>|�� �� ���� �����"n��  � "@�h� ����� ����� ����� ��p�  ��\���  �(�.d0� `�,Lx� ��\���� ��* ��*��@�(X�%0p�%D��%��%��%0��%( �%,H �%& x � (� �#6z� �$J � �$"@ �(,Vh �(PV� �(`"� � (�����,LFH �4Jv� �<($� � <�����?  �D6v �D0>X �HBj� �Hl� � "� �G$ �H( �M4l0 �N�~h �N&� �N8��N P� ,`�I�� �����D��@��, �� ,�����0 ��48v��40>�8 j0�8lP� "p�G$��H��M4l��N�~��N&p�N8���N �� ,��I� �����4�0 �)"((�<($P� <�����<0x�H6v��H0>��PBj�PlX� "x�G$��H��M4l��N�~��N&x�N8���N �� ,��I� �����H �<(�(" 0�,8vX�,0>��0 j��0l�� "�G$(�H8�M4l@�N�~x�N&�N8�(�N `� ,p�I�� �����,��(��$��$x�� �� <�� 60�(LZH�(&��( ��( ��  ��)$�� � >�,X�, h� (x�,>��40x��, ��,"�,� �  �0�(28�`� p�*4�� ��+$N���� �� ��`^��X� `�4Lh�d��N�� �� �� &��4�� $ �LH�d`�PVx� ��4L��d�N �0� 8� \@� \`� \���� x�"� �(�8�2H�$��@��6�� �*0� :`������� ����� �� ���������,��(�0�8� ��������H�a--------------------------------------------�����ʼУ��-----------------------------------------�]�X]�p�+ijһ���͵ı�ʶ�������кź����͸�ʽ��3:1;2��]��� ��ʶ����(Ĭ�ϱ�ʶ�����Զ����ʶ)]���(ijһ���͵ı�ʶ���飨�����кź����͸�ʽ��]��� ijһ���ͱ�ʶ�ľ���ֵ]����Զ����ʶ����������]������%�Ѽ�¼Ϊ�յ��кŷŽ�������]�( D!J'��"��ȡ��������Ŀ ����0��������Ŀ����ȷ������������ģ����ٽ��д�У��A@2�1qaz�T�$DB@�|���k����1qaz�T�$DB@R�1qaz�T�$DB@R�1qaz�T�$DB@R ^$\!VB@ �-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���,�'`�������Ϣ��¼��ʼ�����'��.�ô�У���У���¼�Ƿ��д�����֣��׶���Ϣ���У�� �(�'�#Ĭ���϶����Ѽ�������δͨ��У���'�Ĭ���϶�����δͨ��У�� ^$\!VB@ �-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���, �A65530�$D%%�!'� ��ȡ���������xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column �IV5 <%%�!@'�����FAILUREA@^�&+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0�'���ռ�¼����ʼ��Ϊ0 0 8��" ����ʱִ��d� ��ʼУ�鰴ť�¼�ʱִ��� A9:IV65536�$D%!h��5���������������ͺ������9� 9q��� A9:IV65536�$D%� 9 �,����������������@9�'�����������ı���ʽq����.��ȷ����ʼ����� �������У�����ر�excel��� $4�������ܵ������ݶ�ʧ����ʧ�� 6���ܰ��ʾ$2 8�d���1qaz�T�$DB@�|���k���k����.�$D!b(j�)��ҳǩ����Ϊ��ɫ  �� ��"û�в��ҵ�ѧ����Ϣ���޷�����У�飡A@2�'0�1qaz�T�$DB@�|��(k�� �'���ô�У���У���¼�Ƿ��д�������$D!��д�����Ϣ���£�A@X  �� � � �� ��'��<"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ�'�;6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ�'��'��'�5"����һ���ǿ�У��ʱ����¼����Ԫ��'��9�Ƿ�Ϊ��Ч��¼ �'~�C��¼��У�����ǰ���Ƿ����д����'��;��¼�Ա����������Ƿ��д� &� ��� &�$D%V!�'��O��һ���б�ʶ��ֵ�'��2=�ж�forѭ�����Ƿ����callFunctionXQStart ��û����ִ��Ĭ�Ϸ��� ����<�����ʶ����Ϊ�� ��-$�'��G��ʽ��1��4-3:2��5 ��:$�'�H6��ʽ��3:2��5����ȡ���ı�ʶ�����в�֣���ֳ��кź͹��� �����DJ�����Ҫ���ּ������ϵ������ҪУ�飨��Ĭ��У�����͵������Զ���У����� � ��� ����Y&+1����Ϊ�����е�һ��Ԫ��ΪĬ��У����� �$��:$�'��V*����ȡ���ı�ʶ�����в�֣���ֳ��кź͹����$�'��S�Զ����ʶ���������� � ���$��;$�'��c�Զ����ʶ���͵ľ���ֵ � �� ����g�Ա�ʶ�����б��� �$�� � & �A@��}���ݱ�ʶ��ֵ�����ö�Ӧ�ķ��� � &�$D%V'��H����������ȥ�������ַ��ķ��� �$j' � � &�$D%V'��{��ȡ���б�ͷ��������� ���� &� �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ��� � &�$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k��h�`k��X �� ����$��;$�'��P����ȡ���ı�ʶ�����в�� � �� ����W�Ա�ʶ�����б��� �$�� � & �A@� � &�$D%V'��H����������ȥ�������ַ��ķ��� �$j' � � &�$D%V'��{��ȡ���б�ͷ��������� ���� &� �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ��� � &�$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k�����k��� ��e�J ��ʽ��3:2��5�$'��Q�Զ����ʶ���������� � ���P�����ʶ���е��������ڵ�ǰ�����$�;$�'��e�Զ����ʶ���͵ľ���ֵ � �� ����k�Ա�ʶ�����б��� �$�� � & �A@������ݱ�ʶ��ֵ�����ö�Ӧ�ķ��� � &�$D%V'��H����������ȥ�������ַ��ķ��� �$j' � � &�$D%V'��{��ȡ���б�ͷ��������� ���� &� �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ��� � &�$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k��� �� k��� d�-ֻ��Ĭ��У������ʽ��1��4�$��;$�'��H����ȡ���ı�ʶ�����в�� � �� ����O�Ա�ʶ�����б��� �$�� � & �A@� � &�$D%V'��H����������ȥ�������ַ��ķ��� �$j' � � &�$D%V'��{��ȡ���б�ͷ��������� ���� &� �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ��� � &�$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k��X �P k��H k��@ � � &�$D%V( &�� 6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ �  ����� �� �е������ ���������һ������д��ȷ������'��'��8����У��ʱ������д�����Ϣ �A@X �� '�d��  � '�Tÿһ�кϼ��е�ֵk��� �� ��<,һ�����������ؼ��ֶ�ȫ�������򽫸���ɾ�� � �+� �� '��,"��������Ϣ���еĸ��д�����Ϣɾ����  ` � `� � ` � ^$\%VB@X�r �Ѹ���ɾ�� � ` � '` ~'�k��� ��k��� � �� ��6 ɾ����Ч�� $�'� ��� �A@P�B �Ѹ���ɾ��d��X� �  A@P�H �Ѹ���ɾ��k��( � �� ���˴�У����ɾ���� ��:����Ч���ݣ����������֤������У�鶼ʧ�ܼ�����Ϊ��Ч���ݣ�A@2k��� ���*�д�����Ϣ����鿴��������Ϣ������������A@2��$D!b(j ^$\B@Hd��0�'*�A@ *��'%ִ��У���ظ����ݷ���,���û���ظ�������������Ƿ�����Ҫɾ������Ч����� У��ͨ��!A@2�.�$D!b(j����SUCCESSA@^�:+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0d��0�*���ظ����ݣ���鿴��������Ϣ������������A@2��$D!b(j ^$\B@Hk���k����1qaz�T�$DB@��1qaz�T�$DB@��1qaz�T�$DB@�o��X�q-------------------------------------------------���ظ�����ijһ��------------------------------------------------�@]����]���� �A65535 T%%�!'�2��������Scripting.Dictionary$ .$�O8�O  T%!�'&�>��ȡѧ���������������� ( &��%"��ѧ���໤�����֤�������ݽ��б��� (�� ( $%*��-������֤�Ų����� (� $B@,�&#add��������һ��Ϊkey���ڶ���Ϊvaluek��Xk��P�H !.' �Sheet2$D��G:G7B@   �!2%4 !J�G17,0q�����.o�������������Attribute VB_Name = "������" '-(������ �У��&l Sub ��������:���򲢴�ӡ������Ϣ() Dim rowDataNum%typeValue 'ijһ�����ı�ʶ�������к�����ʽ��3:1;2���?bsT� '����(Ĭ��������0����Cva�lEntity�8?�: 7,��@����ֵ�hR0ow '�>�_������isNullArr(500) As Integer '�Ѽ�¼� ��յā���0���ÁP� sheetCount����Works.� '����������ʈ�Ŀ� If H <> 3 Then�m MsgBox "G����ȷ�����������������Ԁٽ��дˁ�@���"(1).Protect Password�:="1qaz �DExit ���#�End If�KUnp�H 2).h 3_ Sas(m sgB��).Cell�]learCo�tnts '�����ؼ���ʱ����ɂ` ���,C7cur�]��= 1 'G� A����� h�asError�=Fals`h�ôB��/�У��� Ƿ���!���֣��׶��r�� �hApplication.ScreenUdpd�ng� � sysDifficultyGrad�e�Fla�0�b o�϶����Ѽ��������δͨ��!!cinde�ofy� �eO����M�?,?,-, rna��HRange("A65530").N(xlUp)..@1��h��/����DcW 1:1�F�(What ]*", After:=[a1], S`DchOrBdAxlBy` s1�Dir e�2:=xlPrevio�us�Kolum�t�b$1.$IV5��ToLeftks�� T®XQ 2,A8, "FA�ILURE"��aG!7�ɹ�������Ԫ�������ֵ��ʼ��Ϊ0�� ƙ�� +�A��P� `x isSaveButton��vbOK� ฀���ʱִE�E�Z�^`Ӱ�ťp�¼�)��ith s:9:IV�:6�1@r ����������׀����ͺ�' � .�[�"���B嬓.Siz��161g�W � ����.Horiz@alAli�gnm�g�xl�:�k ������berForma@tLocal! @�"��ı��u�� 3Y�1�c�a(�"��ȷ��QA�M�� ����̑H�����ر�excel��" & Chr(1@o& "���������������@��ʧ�������3�!Can�0*��ܰ���ʾ")� �#� � �1# r�!_h_h�[h=3 ��h�KTaBb�wlorI`OxA� -4142�}��ǩ�'Ϊ��ɫ� P�IstartTitle >+``|yt`3 "û�в���@��ѧ��A^�`��޷�1ya<���/vQ�8�<�8�/|/|�`9Qh}�lßl�l�Q1w�riteLog�6�<�&��p����x£�?��J�>> �����6 i���2 Toqg� �:eaOnefNa�#�= `U�Q ����һ���ǿձ ����Y��O`����_������΀����������?�tot�alMoney�w�&e!�P. "��?� ��"m��i����ijspsi�eH�r���@Ч1��5/�InE '����� �ǰ��Q��C0??9dsyd���Ա�������Q����}�-j� 1�,����g�=�9���(1, j).�����һ��֞��յ�_is� = $�ж�forѭ����!� �����olF�unc��XQSV� ���S��5�����Zw <> p&QZ '����� ����1�/�#��= S0�t(+��o-o'S�1��4-3��:2��5 $rowType = Split(t0Value, ":") '���ʽ��3�����ȡ���ı�ʶ�����в���� ���к�ź͹���'�If UBound(bs�) <> 0 Then '�����Ҫ���ּ������ϵ����У�飨��Ĭ�� x�͵������Զ��r� ��'H��FPor m��L�a+ 1 To�l'+1����Ϊ�����е�����Ԫ�����a�@�valE`ntity�rT(|m)�r�o��R�ow"%(0��e�������������3;�{@���i�)E,���'@>�k�GA1�b;���B��ľ���ֵ���Rn��R�)�Q�'��gx����?�� callFunctionXQStart `(n`1, Pi, j�s��i�dateC�t�����#ֵ�����ö�Ӧ��ķ���� #�u��Worksheets(1).Cells()_ _ #'������!ȥ�������ַ�? (removeSpecial@>�Chara�cter(��_$�f+g ,`�l�eMsg��5sK�Titl@�j��A����б�ͷ�������9A)error"���" & i`("��AjA���������� ���F& "���څ@��^ , ; '��"" ? �ո� �س��������뷨Ϊ����a����뀼�飡"��_ hasE� `Tr�1'���!�sʱ��x��������Ϣ��oT8.InP+ior.Colv= 65535 '�����ɫ������wri�teLog uO�'iLO=� p�_End If /�Next��5 _�� m��� ��s�s= Fa�lse2�oo�V��4�T�0�_�S�����~�~�~� �}�}�} ��Rk�B�z�z�z�;s=� ��z��z���o��zʕ��zȡ�z���z�z�z��z��z��z�z�z� �z�z��д����� Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 '��ӻ�ɫ����M�writeLog er@rorMsgM`'isValida�teCountk�+ 1�:End If 3)Next��&�Els@eIf UB�Dd(rowType) <> 0 Then '������3:2��5�2#t�Row^�(0) '�Զ������������Ը����{@Ci�(C+A����(���е��������ڵ�ǎ��;�jval�`Splitc�s, ";"N%�ľ����ֵ�) yjF�}n�L�A�) To�C�'��� ���б�����+callFunctionXQStart `(n), 1, A���y'����$4������ö�Ӧ�ķx���+�u>e %v�__#'� �����!ȥ����������? (removeSpeciBP�Charac�`�(�)�#�m+�m� � (tit�le��5sLTaa� '��ȡ���б�ͷ���������)%�"��" &D i`"��AjA��������A& & "����E ����^ , ; '!["" ? ���� �س��������뷀�Ϊȫ���U���������"_ _ 0hasE�{P Tr�1'����У���ʱ���S����_8������������_��� ��������ߍ������� 'ֻ��Ĭ�B�q)����Í1���4�0�pPp.9szbs1���ez��!1D���ħr�����//�x�x�x��v�v�% ?�bc�:�://� �r�r�Kk= ��r���r �����r��r�r�O�r�r���rs�g�t�r�r�r�r_� ?�r�r��2�@�Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 '��ӻ�� �����M�writeLog e�rrorMsgM`'isValidateCount#k�+ 1�:En@d If +)N�ext��!�� ׆@LockedOF0alse_*�3 j� 'ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������ĿIf atLeaOneNull��~<> 0 Ah �=� � Then�Ea��@I"��" & i�"�Ё�,���M�E��A��?�Ё?����д��ȷ����`���"��has� = Tru�e '����)ʱ�������д����_�?% ��s�K�n+ 5�E�M�totalMoneySLum1�+ � 'ÿһ�к�ϼ��@4ֵ�ic�O�> 1 I�I '���!2����ؼ��ֶ�ȫ�������������ɾ�&�_�isAWRo wArr(�Nu�m) !i r ��E ��) `'��yeO��-�%��V��i F��p�cFua�  - -.T�o �� fSC�msg"Name$).s(x). Delet�p��ܸ�_9/�p�"�� =��O�hE��Inu��3� ��)�?;� rq� 0 i/@!1 '�%��Ч��� � rowD�ata,/�4q)���@?T_c��d�"�A,1,)'�#oR�Os- q� ������q�U�RtK�!zw ; ��Box �"�˴�An��R���Rw�J& x����ݣ����������֤���������ʧ�ܼҴ�:Ϊ���wvnp �2� � � y����鿴�"�EQ����`����������+�TabӻInd�ex016���M�M�S�(c��%��0S�P0/�#checkdXQNew ���Not 3(0n ���ظ�������,as�û���D��0,�������Ƿ��������rf������`ͨ��!�� ����-4142c��set���Tu@eXQ 2,!8, "SUCCESS" '����! ��ɹ���־��������ֵ��ʼ໯Ϊ0�� ��g(�o(o(����o(�o(o(�^7�Protect Password:="1qaz�2).�3� Sub 8 '-��!/c��ijһ��-, 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�݃GFor Each carK In#�O4'�ԁ��������� ֤���� ��@�б����$  If�"<> "4" ��nNo�~.Exists (<)� '���������Ԇ�GA.AddE, Null 'add��������һ��ΐ�key��?C��h,�INe�xƒ Cmy��j=�.�s�With Work�sA�s�p�2Gm�G:G@�ClearContent��4�1@Resize(B�.Count)A�ppl(ica��.FFun�on.Tra�nspos� �'D���4�'*���= �a2h@� �@� ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0�m��~��������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��<��<����������� ��`������������X �����I�n������������ ��x�I�N������������ ����I�P������������ �������`�R�������������� �``������������( �����I�������������� �������@������������� �� �`������������� �����I�������������� ����I�������������� �������@������������� �� ��`������������h �����I�������������� �������@������������� �� �0`������������� ���� �I�������������� �������@������������� ��+�@`������������� �����i������������������i���������������������`��������������H��`�2������������H��`����������������`����������������`���������������� ��`������������� ���� �I�������������� �������@������������� �� �``������������( ���� �I�������������� �������@������������� �� ��`������������� ���� �I�������������� �������@������������� �� �� `������������H ���� �I�������������� �������@�������������� �� �0 `������������� ���� �I�������������� ����I�������������� �������@������������� �� �� `������������� ���� �I�������������� �������@������������� �� �P `������������ ���� �I�������������� �������@������������� �� �� `������������� ���� �I�������������� �������@������������� �� �p `������������8 ���� �I�������������� �������@������������� �� � `������������� �����I�������������� �������@������������� ��@�������������� �� �� `������������p �����I�B������������ ��� �I�������������� ������� DH `������������ ���� �I�B������������ ��( �I�������������� ������� �� `������������� ���� �I�B������������ ��� �I�������������� ������� �x `������������8 �����I�������������� ��X �I�������������� ������� � `������������� �����I�������������� ��� �I�������������� ������� �� `������������h �����I�������������� ��� �I�������������� ������� �@`������������ ����//�I�������������� �� �I�������������� ������� ��`������������� ���� �I�������������� �������@������������� �� �H`������������( ���� �I�������������� ������� ��`������������� ���� �I�������������� �������@������������� �� �h`������������0 ���� �I�������������� �������@������������� �� ��`������������� ���� �I�������������� �������@������������� �� �`������������P ����##�I�������������� ��p�I�N������������ ����I�������������� �������`�������������� ��`�������������� ��`�f��������������`����������������`����������������`����������������`����������������@�������������� ��`�������������� ��@�������������� ��`�������������� ��@�������������� ��`�������������� ��@�������������� �� ��`������������X ����--�I�������������� ��x�I�������������� ������� �p`������������� �����I�������������� �������`����������������`����������������`����������������@������������� �� � `������������� �����I�������������� ����I�������������� �������@������������� �� ����� `������������x ���� �I�������������� ����I�������������� ��������`����� p������������������ P` ����@�����������H ����������������� ����� �����x �����p 0����@� �����h0H������������������������������%����@ !!�������������������� ���������������������������������������������������������2�)��[$*\Rffff*0D5c7c0747���G� �� �� �B� �� ���� ������� �� ���� � �(� �� �B� ���� � �� ����� �Hp������������� ��� x� �B� ������ �����&������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�� ��Ԫ������]�� N P n$D%V'R R���'�d���'�k���i�����-----------------------------------------2 У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� �$F���'�z��k��]�H�%^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$'�3�޸ģ�����У����Ƨ�ֹ%^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$'�3�޸ģ�����У����Ƨ��  �$��'�d���'�k��i�����-----------------------------------------2 У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�` ��,$�'��'��$����/���Ϊ�DZ������'�z���k���]��  �$��'�d���'�k���i����|-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09(����Ϊ��)---------------------------------------� �$F���'�z��8k��0]����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��h�'�k��Xi��P�|-----------------------------------------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��8�'�k��(i�� �h-----------------------------------------4 У�����֤����---------------------------------------����Ϲ��򷵻�true������Ϲ��򷵻�false�0]�79058421637905842���0��Ȩ����]� 10X98765432���0У���� �$F'�� ȥ���ո�]����( � � ����6)����׶����֤��Ϊ��,������Ϊͨ��У������'�z���k��� ���Gzj ���$�$��Gzj ��*[0-9X]�Gzj ���� � ��$�'� ���G� '�j � � ��$� � '��� �� '� ��$� 2 �� �$��G�'�ji��X�z-----------------------------------------У�����֤������ -------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�@]���,^[\u4e00-\ue863��a-z|A-Z|0-9|()|����]{1,18}$'  �$��'�d��8�'�k��(i�� ��----------------------------------------5 -У��ѧУѧУ��ʶ�� 42λ�����һλΪ���ֻ�x-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�H�^[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��]�h�'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'  �$��'�d���'�k���i����q-----------------------------------------7 У�����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ��� ����,���Ϊ�DZ�����'�d����'�k���z���k���]��^((19\d{2})|(2\d{3}))$'  �$��'�d����'�k���i��x�q-----------------------------------------7 У���·�-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�0]���^((0[0-9])|(1[0-2]))$'  �$��'�d��x �'�k��h i��` �v-----------------------------------------9 У��ѧ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�8�^\d{4}[0-7]\d{3}[0-3]\d{7}$'  �$��'�d��P �'�k��@ i��8 �v-----------------------------------------10 У��绰����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�P]���^\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��]�X �^[1-9]\d{14,20}$'  �$��'�d��� �'�k��� i��� ��-----------------------------------------checkXn У��ѧ���磨2012-2013��-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�p ]�� ]� �1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'  �$� ��-$�'��$��$� ���'�d��@�'�k��0d��(�'�k��i����-----------------------------------------checkOption У�鱸ע�磨����С��value2��-------------------------------------------------------------����Ȳ�С��200����false� ���򷵻�true� B���'�z��k�� B � ��'�d����'�k���i�����------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)----------------------------------------------------------------�'value1����value2����false ���򷵻�true�� BX'B �X'� B � ��'Dd����'Dk���i�����------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)-dec---------------------------------------------------------------�'value1����value2����false ���򷵻�true�H B$4'B �$4'� B � ��'�d����'�k���i����}------------------------------------------------------У�鳤��---------------------------------------------------------------�� ��,$�'��'� ����$����/���Ϊ�DZ������'�k���z���k��x �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±� ��$�$4 ��$�$4��'�z���k���d� ˵����У��̶����� ��$�$4��'�z���k���k���i��x�}------------------------------------------------------У������---------------------------------------------------------------�x ��,$�'��'� ����$����/���Ϊ�DZ������'�k���z��xk��p �$���& �����Ϊ����z��H ��.��e�+�������С����z�� �$4�e�% ���С��0z���k��� �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±� ��$�$4 ��$�$4��'�z��Pk��Hd� ˵����У��̶����� ��$�$4��'�z��� k��� k��� i��� ��------------------------------------------------------У����ֵ��Χ---------------------------------------------------------------� ��,$�'��'� ����'�z�� k�� �$���) �����Ϊ����z��� �$4�e�) ���С��0z���k��� �$4�$�$4 �$4�$�$4��'�z��Xk��Pi��H��------------------------------------------------------У�����ֳ���(Number,����Ϊ����Ҳ����ΪС������С��0)---------------------------------------------------------------�� ��,$�'��'� ����$����/���Ϊ�DZ������'�k��(z�� k����������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'  �$�z���k��� �$���% �����Ϊ����z��` �$4� e�$ ���С��0z��0k��(�$�'��+����������󳤶��$�'��.С�������λ�� ��.�'��'��'� ����"˵��û��С���� �$4'� ��$�$4��'�z��Xk��Pd� �����С���� �� ��.�� $�'��D��Ԫ�������ֵ�����λ � ��.�� $�'� ��$�$4 ��$�$4��'�z���k���k���i��x��-----------------------------------------checkIsInt У�鲻С��0������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�@]��� ^0|[1-9]\d*$'  �$��'�d��p�'�k��`i��X��-----------------------------------------checkIsNumber У��ΪNumber����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true���'� �$���'�k��`i��X��-----------------------------------------checkMoney У����0-9999������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�H]���^(([1-9](\d{0,3})|0)|0)$'  �$��'�d��@�'�k��0i��(��-----------------------------------------checkMoneyTJ У����0-9999С�����һλ-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�P�^([1-9]\d{0,7})$'  �$��'�d���'�k��i�����-----------------------------------------checkPersonNum У���׶�԰��������һ����------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�h]���^(([1-9]\d{0,3}))$'  �$��'�d����'�k���i�����-----------------------------------------checkIdNumLink У�����֤�����Ա�ͳ����������û���д���Ƿ�һ��------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��� If colIndex = jhrIDColumn Then� checkIdNumLink = True� Exit Function� End If]���%�Ա�����֤�����Ƿ��Ӧ]���$�������ں����֤�����Ƿ��Ӧ]������ڵ�һ�γ��ֵ��±�]���"�Ա�,��Ԫ��֮�ڵ�����]��$��ݺŽ�ȡ������]�(�!��������,��Ԫ��֮�ڵ�����]�@�"��ݺŽ�ȡ������]�X�p�#�������]�����%�����·�]����]�� ���$�'� ���$�'� �� ���(�����ڶ�λΪ��������Ϊ������� N � r$\,Vd������ڶ�λΪż������ΪŮ���Ů N � r$\,Vk�� ���$�'� ���$�'� ���$�'� ��- � �- � N � r$\,V�'�i�����------------------------------------------------------У�����ֳ���(Number,����Ϊ����Ҳ����ΪС������С��0)---------------------------------------------------------------� ��,$�'��'� ����$����/���Ϊ�DZ����� ��������checkLen0,1,33A@Z�'�k��(k�� z��k�� �$���% �����Ϊ����z��� �$4� e�$ ���С��0z���k����$�'��+����������󳤶��$�'��.С�������λ�� ��.�'��'��'� ����"˵��û��С���� �$4'� ��$�$4� ��������checkLen1,1,33A@Z�'�k���z���k���d� �����С���� �� ��.�� $�'��D��Ԫ�������ֵ�����λ � ��.�� $�'� ��$�$4 ��$�$4� ��������checkLen1,1,33A@Z�'�k��� z��� k��� k��� i��� ��-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09����������δ��ʱ��(����Ϊ��)---------------------------------------��]�]�(]�@]�X��^((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�p �$F���'�z��� k��� ]��^[a-jA-J]{1,10}$'  �$��'� �'� �� �� �$� ��$�'� & �� �� �$� &�$�'� � ���'��'�z��� k���  &� ��d��� �'�k��� i��� ��-----------------------------------------2 У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�  ��,$�'��$����'���Ϊ�DZ������'�z��hk��`i��X����H ����-�Attribute VB_Name = "У�麯��" '-%1 ��������,���д�����Ϣ�� ʾ�� sh`eet��$����ʱ����0! ��Ϊ1 Function checkRequired(bIndex, row coluDmn ) � '��Ԫ������Dim cellValu@e As S��ng��= Work5s�8).C� s(�;If�2���" Then0�K� g��False�E���{Tru�nd If �E�����-2"��ѧ������ ҪΪ�8���& !��ʽ����ȷ��uf7'A�t�1��wStu��(vg�@p@QTrim�?�"�Q�0�D�R�7� Exit H}D �M�O�_��reà ^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$" '���ģ����ԁAU��Ƨ�փ[@2C�*A"(,� �9L��{�3�{��R=��5�G=�|%9�Bq>-�B@��BgB, f��Argsd|8�Arr�6Split(�, ","�h"-a ��F�6%C��8l (0)0�7 '���Ϊ��ǣ��a �:!�e_U TTTT�&o�SO+_S�H3�$ak���������!�Ϊ2012-05-09(���:��); �-�Bi�rthdayf�A��?��C��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�n3����o3o3c3Necess�ar�3?K /-#-"�"�+"�*�,O "�'�x"�g�zr2]��w0;y (hRo��s4�P����֤��<��������Ϲ����Cy8'��ID�%� IsIDNumbe�r(By� �W��, �p�B��)��Boolea�� �Const W'qP79058428163�P��'���Ȩ����sw�c�10X98�765432CA31�����{& = _�)�ȥ����ո�!-sInteger,� i�T�0%v= babyID�C� A>�aS��C��׶���:,��������ͨ���A� ����1_hɰ!� Len(<>8 18Î�p� N ot� eric(Mid�, 1� 7)�Q�� f�5Like "*YAfX]�_ � For�= 1 T�o 17CqT��qW�����ě]�1��11sps( + ; i! *� TNext��s Mod 1��Right���c, T����3pcC@���:�>������ ~� -9 '��ʽ����������fal�se*&tru$Function checkSFZJLX(val@ue) D�im reg  = "^[\u4e00-\ue863��a-z|A-Z|0-9|()|����]{1,18}$�"9IfECdr(I, g Th�en%p��5T�R�� Ea���F�o End If � �n�|%�5�!��-У��ѧ����ʶ�� 42λ������һλΪ����ֻ�x9�-�˰�chCode�k1-9]\d{40}[\dx~]5e�^e� �eV6�d������������FamTyp`](\u519c\u6751)|�3bf\u9�547�7ce��e02)tdd=2�G?2_Y$7 dȀ�ѧʱ���8_`���RXDatr1�NowNe�cessary#�A%�(((19�020)) c2})(�(0[��]�1�2])�2e)���?�2�2+$d2��<��8�1�1YeDar�, fD�A�rgsArr����¾�#""�'�| � ��0� '����Ϊ�DZ�������ƅ��?�a�'�)��)iH3�d�iaExit� ���E����A� �"^�Q�P|(2�3}�'�y��sbz��_Qsk��'_sO"��'�'��'��؏@ckM�onth�p��O>O>�ck��%�S �@��_91�W�pp��O����(XJH����,4}�T7���3�3�7O�/�A��-@�/#��?10cn��఺���O����Pho`neNum?<\�b�D(([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�IA�ѧ���瀣�2012-@�3��_�pXn_U�x�y��s��20�K�/st�019t9�9� 00�c_\2ASplit� ,0 "-"��],�If years (1) -�0) = 1 Then checkXntTru�elEls`RFa 8End I>ft l2.Fu nctio�'-3%TOp6�У�鱸ע��������С��value2���&) '�'���(200����f|'���Z�t�b �L(тA1, �E)���Ѓ�""���9�u= �Ѕ�Ex�it ��Hg���Len�() >D)�"A # �όA��2Ӆ�a�q�Ƚ� ��С(�o�����l)�G �$Co���Ś�� Ն�ompareׅ�pCInt�f���2����2H�G�sc�� �x~7�̃�J�xſ--X5dec:3�5C 'y�$De�c6 C�(26�?6��(0�6� �d6#�6$_,1A�A��:�.��&�, fa��ArgsH+�Arr�"Split�(�, ","h���@ �(Eg v�`� ("�0B� '����Ϊ�DZ������2�2��� �2�������`UBound� ��2� �±���0��ʼ����ֵΪ����������ά���õ����� ! 7p&�c=�/�1)X) A@B�<�s�� (2����x8�� oq^]1l '˵�����.�̶�A.��������/"�� n� [ϗ�:������� @�o@� ��&�@@�����o� �Z�@0.@��@�b�+�+�R@��@ Not IsNum(eri�k)8J���Ϊ�>��,���� InStrcp0�.") <> �O����С����oO� 6`Wsm= �0�� �-p?P!8?P?P?P�R�kr@p�M>o?f?�?P��$?P�|O$���]?P?PI����?P�3P_2��� �� ?P?P�I�1P��ֵ���>��}PVa�le7�"��n�tLqP��t(functionArgs, �",") checkVal = FalsedIf valued"" The�n6zTrux@�Exit F?�End If OoNot IsNu@meric(})y '������Ϊ���� 7jf�-CDe!�(<= 0+Сx��0�))�^ 1> =  �Arr(�0)) A�G��1���k��N �b�bGh'-2����f����(pber,����Ϊ����Ҳ�С���h���B\)sF : E- �B@��, �I]���v ��f���Spli`� p��� ��� �Ϊ��DZ�����G*�Br�:� T��a4A-q�'��������#;����@�ӷ���Greg�"^(([@1-9][0�*)|�0]\.\�d{1,2}|h�))|0{1}x)$"� �#�� C끒�;(�,Ð���f� ?�,�U&0���/�bmaxIn0tLen@+�E1) 'j�����8���mK"�Do�uble2�p����λ���"i"gth�In�StrEj".���@���ì�dou4 1) _˵�������#+b"�� /��s� �(E) �_�� �~n�4=JPtE�J��� ��Mid�31, �5 - �E��Ԫ��֒��Y���#λ_�� h�+p���ps�p�m�pq����2�p�^��� ]R!5q�h�et&k�� I�s�> �stqC? '��������ȷ�p���f��R5t?�� 3t�C%4�Diu��`E˵���û�Г ��r@����`��(%) <= B}�)�.3p?2s�?2��2 �21�2��3?/%��->�o�*�u�E� ��n'�L�B% -�� '%$��!8��.λߟ!�%�+J��  �S�!�<�!) A��}���$�`�5�$���$�$K��$�$�W��wm�;�X�J?�%?�oO0'q�w ���{3��u���Ϊ2012-05-09����������δ���ʱ��(�Ϊ��O��΁owNecessaryte�+Diòm st As String  Dim ti�meNow�P��re� = "^((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��check�NecessaryAuFalse�Exit Functio�End �If��-�C#J(,�6) �4 �5Tru�4E�9�K@�M '-%2�> У���������� ҪΪ�8�ĸ& !��ʽ����ȷ�����fCS'A�t�=E.C;Sql�y(�i, anVPTrim�)A�"� T�0U��m8o��O���mCsA^[a-jA-J]�{1,10}E��z��%�xs�Len�4C� i�1 T(o s�n�Mi�d(LCaseD �, i, 1� Bj i +  T mRjG W � m�)�(a 1� �)�) Ne�xt jbic��[�6E ��Z�ZQ�Zѧ�������Z���֑U$��Z ]�ZBZSM#8, f��ArgsG9P�Arr�-S`plit(���,O��a Q�(0ad0�: '������DZ������#0�aB=� gS���&�� � 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��A� �A�F�A��A�@�A�0B�&8B� `B�pB�0xB��B��B��B� p�B�HC�(`C� �C��C��C��C��C� �C��C� �C� D�D�(D�@D�HD�XD�pD��D��D�T�D�&�D� E� �����0E�8E�XE� t`E� �E�$�E�F�@ F�&`F� �F��F�$�F��F��F��F� N�F�HG�.`G��G��G��G��G� ������G���G�&pH� �H� �H��H��H��H� d�H� HI� `I�@�I�&�I� �I��I�2J�8J� x@J� �J�6�J�.K�@K�PK�( XK�2hK�( xK�1�K�( �K�2�K�( �K�1�K��K��K�J�K�HL�`L�hL�pL�xL� f�LB� �L� �L�<�L�8M� XM�pM�$�M�$�M��M��M� ����� ��M� \�N� ����B� �N�,O� 0HO�@xO�"�O� ^�O� 6@P�xP��P��P��P�0�P�H Q�hQ��Q��Q��Q��Q��Q� ��Q� "PR� xR� .�RB� �R� �R�$�R�BS� PS� `S� pS� �S� �S� �S��S��S� ��S� HT� `T� xT� �TB� �T�"�T� �T��T�U� U�U�U� U�8@U�xU�2�U��U� �U� �U�V� V�V� V�(V� FHV��V��V� �V� �V� *�V��V� ��V� �W� �WB� �W��W�*�W� 4X�PX� pXXB� �X��X� �X�Y� �Y� �Y� �YB� �Y�*�Y� Z� �(ZB� �Z�^�Z� v�Z� [� �[B� �[� �[� "�[� \�8 \�2X\��\� �\��\� �\��\� �\� �\�]�" ]�0H]� x]�(�]��]��]�&�]��]� ^�^� �^B� �^��^�V�^�(_� 8H_� �_� �_�:�_�4�_�$(`�P`�"h`��`��`��`� ��`B� 8a�@a�6Ha��a��a��a��a��a��a�����a��-----------------------------------------У��У����������д�����Ϣ��ʾ�� ��ע��-----------------------------------------------------------�� ��Ԫ������]�� N P T%V'R R���'Ld��(�'Lk��i����--------------------------------------------д��־ ��¼������Ϣ����ʾ��һ��������Ϣ����--------------------------------------------�� Z `� ^$\,V `� '`i��X��--------------------------------------------д��־ ��¼������Ϣ���ú�ɫ������ʾ��������Ϣ����--------------------------------------------�( Z'd Z `� ^$\,V�� d `� ^$\%V%f!h(j `� '`i��p�i--------------------------------------------�����ע�������ʼУ�飩-------------------------------------�errorInfo��ע������� 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p N P n$D%VB@r��� N P n$D%V!t(v�W ��ӻ�ɫ����� N P n$D%V!x(Fi���i--------------------------------------------ɾ����ע�������ʼУ�飩-------------------------------------�x�1Worksheets(sheetIndex).Unprotect Password:="1qaz" N P n$D%VB@| N ~ P ��� N P n$D%V!t(jd��` � N P n$D%V!t(jk��0i��(��------------------------------------------------------ ��ȡָ����cellֵ-------------------------------------------------------------�0 N � n$D%V!�'�i��h�r---------------------------------------------�����ʼУ�� �Ƿ���ӻ�ɾ����ע���õķ���----------------------------�� ��� ���У��ʧ�� N P n$D%V!x���d �ж���עΪ�� n N P �A@l�V �����ע����d�"����Ϊ�գ���ȥ����ǰ��ע��������� n N PA@z�N �����ע���� n N P �A@lk����1 MsgBox "��" & rowIndex & "�������" & errorMsgd� :���У��ɹ����ж��Ƿ�����ע���������У��ʧ��ʱ����עȥ�� n N PA@z ���,#�������ȥ���ո���,����������ʾ��� N��У��� P��У���������ַ��"$4 ��"$4�"�а����˿ո�ϵͳ���Զ�Ϊ�������A@Xd��`k��Xk��Pi��H��----------------------------------------------------------------------------------------------------------------------------------�y--------------------------------------------���ݱ�ʶ�������ö�Ӧ�ķ���(�����ʼУ��)-------------------------------------��----------------------------------------------------------------------------------------------------------------------------------��Ѵ�����Ϣд�������б��� N P n$D%V'��'� � P n$D%V'��I��ȡ���б�ͷ������ �������Ϊ�ϲ��еı�ͷ �� P n$D%V'� N �e � P� n$D%V'�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 n N P$�'� ����� N� �е������ ������Ϊ�գ�����'��'��)����У��ʱ������д�����Ϣ �A@X�RMsgBox "��" & rgold.Row & "�е������" & Chr(10) & titleMsg & "����Ϊ�գ�����"k��x n � N P �A@��'��a=================================����2 ִ��ѧ������У��==========================================� checkNameKT n N PA@��@����ȥ���ո�ķ��� N P n$D%V!�'� �$�'� ����� N� �е������ ��;��д����ȷ������Ϊ���֣����ȴ���1�����ܳ���20���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@X �� '�k��� n � N P �A@��'��Z================================= ִ�еij���У��==========================================�checkLenKT � �$�'� �� ��,$�'��$�� �����` �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��.��д����ȷ���������Ϊ�ա�����д���򳤶ȱ���Ϊ�$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ���ȷ�Χ��� N� �е������ ��4��д����ȷ���������Ϊ�ա�����д���򳤶ȱ�����ڵ����$�� λ���Ҳ������$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��&��д����ȷ�������Ϊ�գ��ҳ��ȱ���Ϊ�$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ���ȷ�Χ��� N� �е������ ��,��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ����$�� λ���Ҳ������$�� λ������'�k��� �'��0����У��ʱ������д�����Ϣ �A@Xk��P n � N P �A@��'��h================================= ִ�еij���У�飨Number���ͣ�==========================================�checkNumKT � �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��K��д����ȷ���������Ϊ�գ�����д�������Ϊ���֣����ڵ���0������λ���Ȳ������$��λ����С��λ�������$�� λ������'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��C��д����ȷ�������Ϊ�գ��ұ���Ϊ���֣����ڵ���0������λ���Ȳ������$��λ����С��λ�������$�� λ������'�k����'��0����У��ʱ������д�����Ϣ �A@Xk��@ n � N P �A@��'��h================================= ִ�еij���У�飨Number���ͣ�==========================================� checkNLenKT � �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��K��д����ȷ���������Ϊ�գ�����д�������Ϊ���֣����ڵ���0������λ���Ȳ������$��λ����С��λ�������$�� λ������'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��C��д����ȷ�������Ϊ�գ��ұ���Ϊ���֣����ڵ���0������λ���Ȳ������$��λ����С��λ�������$�� λ������'�k��h�'��0����У��ʱ������д�����Ϣ �A@Xk��( n � N P �A@��'��[=================================ִ��ֵ��Χ��У��==========================================��Ѵ�����Ϣд�������б��checkValKT � �$�'� �� ��,$�'���� N� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@X�& isValidateCount = isValidateCount + 1k��8 n � N P �A@��'��_=================================ִ�е�Ϊ����ֵ��У��==========================================��Ѵ�����Ϣд�������б��checkIntKT � �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��8��д����ȷ���������Ϊ�գ�����д�������Ϊ���������ڵ����$�����ҳ��Ȳ������$�� λ������'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��0��д����ȷ�������Ϊ�գ��ұ���Ϊ���������ڵ����$�����ҳ��Ȳ������$�� λ������'�k���"�'��0����У��ʱ������д�����Ϣ �A@Xk��@" n � N P �A@��'��`================================= ִ�е����֤����У��==========================================� checkSfzjhKT n N�$�'��S ��ȡ��д���� ������ N� �е������ ��&��д����ȷ�������֤������Ϊ�գ�����'��'��0����У��ʱ������д�����Ϣ �A@Xd��� �� �������֤� � P$�'��O ���֤��У�� ���:������������֤У�������� N� �е������ ��M��д����ȷ���������Ϊѧ�����֤�ţ��������һλ���Ϊ��ĸX�ı����д������'��'��4����У��ʱ������д�����Ϣ �A@X �� '�k���d��� �$�'� ����� N� �е������ ��E��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ���1λ���Ҳ�����18λ������'��'��4����У��ʱ������д�����Ϣ �A@Xk���k���k��� n � N P �A@��'��X================================= ִ�����֤������У��==================================� checkZjlxKT� checkZjlx ��1$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��X� checkZjlx n N PA@�k��0 n � N P �A@��'��\================================= ִ��ѧ���ŵ�У��==========================================�checkXJHKT ��1, 1, 50$�'� ����� N� �е������ ��E��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ���1λ���Ҳ�����50λ������'��'��0����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��[=================================ִ�����п���У��==========================================��Ѵ�����Ϣд�������б�� checkBankKT �$�'� ����� N� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@X�k�� n � N P �A@��'��W=================================ִ�����У��==========================================��Ѵ�����Ϣд�������б�� checkYearKT � �$�'� ����� N� �е������ ��*��д����ȷ�������ʽ��2012��2002�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��W=================================ִ��ѧ��У��==========================================��Ѵ�����Ϣд�������б��checkXnKT �$�'� ����� N� �е������ ��)��д����ȷ�������ʽ��2012-2013�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@X�k�� n � N P �A@��'��W=================================ִ���·�У��==========================================��Ѵ�����Ϣд�������б�� checkMonthKT �$�'� ����� N� �е������ ��&��д����ȷ�������ʽ��01��12�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@X�k��� n � N P �A@��'��g=================================����3 ִ�е�����У��(�DZ���)==========================================��Ѵ�����Ϣд�������б�� checkDateKT� �$�'� ���2�����������У��ʧ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4� xxxx-xx-xx�"$4� ����2013-02-21������'��'��-����У��ʱ������д�����Ϣ �A@X�k��� n � N P �A@��'��c=================================ִ�е�����У�飨�����==========================================��Ѵ�����Ϣд�������б��checkDateNecessaryKT�& �$�'� ���2�����������У��ʧ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4�xxxxxxxx�"$4�- ����20131221������ֻ����ϵͳʱ��֮ǰ������'��'��-����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��g=================================ִ�еij�������У�飨�����==========================================��Ѵ�����Ϣд�������б�� checkBirthdayKT�! �$�'� ���2�����������У��ʧ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4�xxxxxxxx�"$4� ����20131221������'��'��-����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��J=================================����10 У��绰����======================� checkPhoneKT �$�'� ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4�����-�̶��绰 �� �ֻ������"$4� ������'��'��%����У��ʱ������д�����Ϣ �A@X�k��x n � N P �A@��'��L=================================checkOption У�鱸ע ======================� checkOptionKT ��B$�'� ����� N� �е������ ��)��д����ȷ�����Ȳ��ܳ���200���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@X�k�� n � N P �A@��'��\================================= ִ���϶����Ѽ�������У��==================================� checkDiffNameKT� checkDiffName � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��� � checkDiffName n N PA@�k��� n � N P �A@��'��X================================= ִ��ѧУ���״̬У��==================================� checkXXSHZTKT� checkXXSHZT � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��H � checkXXSHZT n N PA@�k�� n � N P �A@��'��X================================= ִ�����֤������У��==================================�checkIDCardTypeKT�checkIDCardType � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd����checkIDCardType n N PA@�k��� n � N P �A@��'��v=================================14 checkGender ִ�������Ƿ�Ϊ���С���Ů��У��--==================================� checkGenderKT� checkGender ��1$�'� ���'��-�Ա��д�������У�����֤�Ź�� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��� checkGender n N PA@�k��� n � N P �A@��'��u=================================14 checkYesNo ִ�������Ƿ�Ϊ���ǡ�����У��--==================================� checkYesNoKT� checkYesNo � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��h� checkYesNo n N PA@�k��@ n � N P �A@��'��d=================================14 checkSQLY �������ɵ�У��--==================================� checkSQLYKT � �$�'� �� ������ N� �е������ ����д�����ظ�¼�룡����'�d����� N� �е������ ����д����ȷ������'�k����'��(����У��ʱ������д�����Ϣ �A@Xd���� checkSQLY n N PA@��R ���У��'k��P n � N P �A@��'��i=================================15 checkSqyyName ִ�б�ע˵��У��--==================================� checkBZSMKT n N�$�'��L ��ȡ��д���� �'��'� �� �� �$� ��$�'� ��h��'�k�� �� ����1,1,100'� � �$�'�d����0,1,100'� � �$�'�� N� n$\,Vk��h ����� N� �е������ ��&��д����ȷ,�ַ��������Ϊ100λ������'��'��(����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��n=================================14 checkSqyyName ִ��������������У��--==================================� checkSqyyNameKT� checkSqyyName � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��`E� checkSqyyName n N PA@�k��0E n � N P �A@��'��G=================================������������У��======================� checkSqyyDescKT N P� n$D%V!������� ��1, 1, 60$�'�d��HD ��0, 1, 60$�'�k�� D ����� N� �е������ ��V��д����ȷ����������������Ϊ��������ʱ��������������д���Ȳ��ܳ���60���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@X�k��HC n � N P �A@��'��]=================================checkTerm ִ��ѧ��У��--==================================� checkTermKT� checkTerm � �$����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xk��B n� checkTerm � �$� N P �A@��'��r=================================checkAtLeastOneNNull ִ������һ�����Ϊ�ǿ�--==================================�checkAtLeastOneNNullKT �� '��A"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ �$� ����=��������Ϲ��� � � '� P� �KTF � � '� �KTF � � '� �KTF � � '� �KTF  � 'n�� @d������Ϲ��� � '�F6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ  � � 'k���?�'�n���?i���?�_--------------------------------------------����������ʽ-------------------------------------��]�p��VBSCRIPT.REGEXP$ . �7RegExΪ����������ʽ� (��4 ����ȫ�ֿ����vba��\����ת��  (�.������ʽ� (�5�����Ƿ����ִ�Сд�� � %'�3 ִ������������. i��>��-----------------------------------------------------------�°� У���ظ���˵���Ѿ�û�и�ʽ����------------------------------------------------------------�V-----------------------------------------------------------1����ѧ���׶������ڱ��ڲ������(sheetѧ���׶��� �A65535 $\%%�!'�*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@ �1&ÿ��У���ظ�ʱʱ���Ѵ�����Ϣsheet���,�'`�������Ϣ��¼��ʼ�����X==============================��ѧ���׶������ڱ��ڲ���==================================�0����ð������ÿ��Ԫ�غ�����֮ǰ�������н��бȽ� � �� � � $ $\%V'" & �� �� � & $ $\%V'( " (��.���ѧ������ͬ��˵�����ظ����ݹ�� &� �е����ݺ͵� �������֤���ظ�������!!!!'� �A@X�*�Ѵ�����Ϣ����'*k��h:�`:�X:i��P:��-----------------------------------------------------------��һ���� ����ֵ��ȡ��ֵ������------------------------------------------------------------�����ֵ�����ҵ�ֵ���ڵ��л����keyWord ���ҵĹؼ����'kbn ���������л��� ֵΪ ��row�����row��',]���the find result object� .�6 :�8 >�<� A1:A65535 n$D%%4.2 2�� 0�row� 2!',d��x8 2!@',k��`8k��X8i��P8��------------------------------------------------------ ִ������ڹ���У��(����Ϊ��)-------------------------------------------------------------�value ���������value1 cell�������У�鲻��ȷ����false�У����ȷ����true�� D�0��˵��Ϊ�DZ����� B$F���'�z���6k���6k���6]���'J�ijһ������ļ�¼�� �A65535 N$\%%�!'L�B�������'� N ��row$,'H�=��ȡ�������������� � H L� �� N$\%V �� J� 'Jd���5y���5k���5 �� & H H J � � &� N$\%VX BX ��L�жϹ��������Ƿ��cell������'�y��`5k��X5 &��#��ʱcount��ĿΪ�ù������е�������Ŀi��5��------------------------------------------------------ ִ��ɾ��ijһ�в�����excel�ܱ����ģ�-------------------------------------------------------------�sheetIndex ����� rowNum �к����1qaz�T n$DB@R L n$D%VB@X�/ �Ѹ���ɾ���- Worksheets(sheetIndex).Protect Password:=123i���3�j--------------------------------------------------------------------------У���ʽ�˵��--------------------�8 �1qaz�T n$DB@R � N � n$D%V(�i���2��------------------------------------------------------ ִ��ɾ��ijһ�в�����excelû�б�����-------------------------------------------------------------�sheetIndex ����� rowNum �к�� L n$D%VB@X�/ �Ѹ���ɾ��i���1��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�� �1qaz�T n$DB@R � N � n$D%V(�i���0��------------------------------------------------------ ���ݴ�����е���������ֵ��ǰ��ʱ�������Ѿ�ͨ����У�飩-------------------------------------------------------------�� ]�X �p �� N � n$\%V!�X 'R�'J�ijһ������ļ�¼�� �A65535 N$\%%�!'L�F������ N ��row$,'H�A��ȡ�������������� � H L� �� N$\%V �� J� 'Jd�� /y��/k��/ �� & H H J � � &� N$\%V!�X 'B B RX ��1�жϹ��������Ƿ��cell����� &� N$\%V!�'` `X N � b n$\%V(�y��8.d��0.� N � b n$\%V(�k��. &�i���-��------------------------------------------------------ ȥ��cell�еĿո�-------------------------------------------------------------�� ]�X ���Ԫ�����������]�p �� �3Blength1��ʾcell��ԭ���ij��ȣ�length2��ʾִ��ȥ���ո����ַ��������'��Ĭ��Ϊû��ȥ���ո��2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N � n$D%V!�'B B'd d��Gzj�*"�����Ԫ��Ϊ�գ�����ȥ���ո���� B� �'f�%length2Ϊ�ո��һ�γ��ֵ�λ�� f�������ַ��������ո� B� �$h'B BX N � n$D%V(��'�k��`+i��X+��------------------------------------------------------ ������ȥ�������ַ�����-------------------------------------------------------------�� ]��-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'  �$��'jd��`*�'jk��P*i��H*����@*����|�Attribute VB_Name = "���ߺ���"  '-%У�����������д�����Ϣ��ʾ�� ������&�( Function checkedRequiredStart(rowIndex, c olumn )  { '��Ԫ@������Dim cellValue As rS�ng�= A�;veShePet.Cs�6If�-�" Then�*�F�_��Fal4seE�Tru�nd If < E��)��[д��־ ��� �o��oһ�����kq�mwriteLog(co�ntent�]�iX`s(msgB�)�[curMsgR�ow, 1)�J�CK + 1?D D�ú�ɫ�����C��E �ERedVFnLen7@��L�Z.Characters(1, �).F��7.Color�l=31*SS ���������� ���ʼ����G��` errafo�����addCHomm�QXQ#�s��|", ��,  �0�t�'Work �s(�).Unprotect Password�:="1qaz�Oe��y�.A N(�� .�.I�trior#=�<65535 '�1���૱����>%� � d/.Visibl��Ġ_��?ɾ���E���lear�s�Ck΅"��B�B� ?+0+� 5`�&[�!�*2Recp)Nu8m A�:Htff�Total�`?�u�m�� � u\�4��&�UE15l lqXOO�� .ExlNondu�(�u�?%- ��ȡָ�Ȩ��A�ֵ?��*get�BB��CountXQXH��L��K�Q��s�.v�}w�^� �Y^ �Ƿ�2G�u=���õ�p����o�b eginCQ�_c�^z�Metho~d_r _ �`�NotÜ�R1 '����iʧ�� ,%���+�H Is �hing!$�ж�OΪܿ�/T�n 'j�| �_A�OA�9���������ȥ������q������ס�$ cWt_ ��Z� '��_� ��a����w/ !uA�<' �"Box� "��" &�V& "���������B{�'tt$�ɹ��f�!�0�гQ���ѕ&ʱ��ߑ� � �r�ԇ�q�+remo0рpaceFla�(!�/����Q������,�����������ʾ:�%�����)j@�У���������ַ��Chr(34)K��VCt�& 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 '���Ϊ�ϲ�����ı�ͷ� �Da/% - 1 &GE8lse"P@:he�adBe�#����!�eEnd IfBf�Args�!"0"��J�� Like "chec kLen*�M��������ȁ�G��� �MidG��9�& dX�%��'c�(Num, b�ern�m {�&N�&�k3�1�0?'ck�����L'ֵ��:aF�&��&� ��Int��AM?�9eM- '7M Term1�`"�ǡ���"Ϊ�����`"1 _� ��YesN�o  2� ? DiffName����Ѽ����A�?%I� � ?}�� �xB�Co�d� � ���� / !O� � ff�� � kSQLY�%���������/ / \��- R� �%�^IDCar dTP`����֤�������� � a� ��o�(Sqyy�&�ԭ���&"G_ _ �] e? ? kYearZ��~�/Vf _ _ _ R:ar  kXXSHZT6 ѧУɀ��״̬ � :6�=���� ̈Select� CaseU4'�=�(1 ִ�A��ǿ�Q ??��3�� � ��N8ull� UR�Me�thodXQ`��Required����2��} � No�� �r��~�~��~�O �� ��d�| �|$��|�|?+�}?z }��Number����ͣ�� =��}��}f �}�� �}��}F ����B_FX��|U3�}�}]�j��}�{�{@>� �oQ�ϵϵaw!zĵ�{`��{�{��A��>0�������λ�Sg���?С���_@��5 VsQR�_�_�_� �ooooϦ�yT�����}�r�U���A����OL �OVOVOV��OV �� �dOVOV���OVOV��OVQOVOV�A#� Case "checkNLepn" �0�MethodXQ = f(value, functionArgs)��If Not|�NThen2� aArr�Split( , ","�~K� '(0)�(0 �E '��������Ϊ�DZ������Ϊ���������W5errorMsg�."��" & rowIndex"�е���@���� title�& "��д����ȷ���E����Ϊ�գ��� �������Ϊ���������ڵ���0������λT����L��- x1) ΀�����С� � 2� ���� ��X��=Else}�Y1�Y���Y�Y�Ȼ�܃Y�ҿW�WM:�End Ifa��hasEA���True '��̀�У��ʱ�H�\�д�����Ϣ� writ�eLog �-W�@beginC!�_comment �sheet"c, �,Ffolumnä�isFoA�a '=ִ��ֵ��Χ��ġ$� ��E)д��a�б��k$H�Val�h�� ���D o��*�l�w�F�� �C�� ��1p����@�a�=����B?g?gc#�f��' is >ida�teCou c=.x+ 1o� �nc�kEy?7?7��6�3!�6��Ϊ�jֵ�6��6`L�6�6I�nt�65 7@�7���x7������7��7���`���������5X�>��&�>�����"���?r(Ì��?O�e�@�(��/�,���s�򢏌����>� �����������6��ϣ�s���T�� ��W�����W��� �d��S��S����[�_T P cT����֤����o���RSfzjh�Re rresZjlx�?getCell`ku3kXQ(��5,, 8'��ȡ�*���ݟ�)�LG""r���?4?4?4=4��E�����"��.���_,_,_,�_,_,�KO #� If resZjlx = "�������֤" Then �checkMethodXQ�IsIDNumber(value, columnIndex) '���У ����Not  d� '����������RP0����T�er@rorMsgz��" & row�Q"�е�ʀ����� title�& "��д����ȷ���������Ϊ����m���������һλ�SΪ����X����������첄�"�VhasEX�VTrue '����xʱ��0�д�����Ϣ#(writ`eLog �A� isValidat�eCount�#M�+ 1�End���� Else_M��@SFZJLX��)�֘��I�����Ϊ�գ�� ҳ�����ڀ����1λ�������18�@��?H!$e�>��{/?  � @beginCa�_ comme�]sh�eetB�`���,f���,�k isFoBr�z '= ִ��㌼��X��́��=�C�ase "Be�t�����DMB((�, d�"1"4m�k߇>$��� ����� ��ۙset +�Cod�2, IN���jLXY_[�|�-�/_c?�bO-*B-ѧ����ŵ�-���-�-XJH-F #�-@�Len%�"1�, 50_-6�����O��.߇߇��C݇?c���?c��50?c� �1���O2o���-�-��.j4�..��O.*�[����|�����pa�B��д����б��/�/Ban�k�/O/@/���<?\ߠ��.\�o�m"?�?�?�;����֣��-q�functionArgsArpr(0)12��?r�(13�� �00�0� �b/.j'���/0��/�/}�/�/?�t///+!/�����/]�.��.�H�Year�.�.�.��E^�#ϋ��/�/��/^/^/^/^���ʽ��2012��2002�>�ύ�+�+ó�д����� Ϣ writeLog e�rrorMsg�@End If>beginCheck_comment sheetI�ndex, cMethodXQ , rowolumn ~isFor = Tru e '=ִ��ѧ��У����,�х�д����б�wCase "�iXn"���u�Y�(value)��If Not �� Then����4"��" &��"�е���@����t0itle@x���д����ȷ�������ʽ��2012-3�ȣ�������8-phasEA�� h '����^ʱ������� =F'�F��d�������Z�Mon�th�U�Wa�U�U�6�U�U�U01��1�2�Ue�Uߦc ߦe���Uδߪckߪ��ߪ������3 ��������ځV(�DZ���)+�߬�%ȬDat�e" �'�V�����Birthday?Y5Y '��������ʧ������k�� ���������Chr(34�)��x-xx@M  a��-0�1�����q�0�[o��L�0o�)���[�?�0o��0��o�_� ��0,�0���0�v��_�0��\�0NecessarVyO1& ��=�N|ow��1��/�X�Q"��1�1� �1�����g���1�1�1o1B�3122@1����ֻ������ͳʱ�����ǰ�2� �2�2��2� �2�2t�0���0�0�0�0/���0�O,�0��R1�11� 1e^�0b C�b��b�00�p�0>��б.����00& xc�as0�a�~ �.�.�.��.?��[Ov��0��0�0�0�0�0��0�,��10 !��绰�x����H-P�hone�?]���Num�\ � If Not checkMethodXQ T`hen �$errorMsg = "��" & rowIndex"�е�ʀ����6 titleZ& "��д��� �ȷ����ʽΪ%Chr(34)@����-�̶����� �� ��@������ ' �������"�hasE��True '����У��ʱ�������������Ϣ� writeLo,g y�'� End If� beginC�_comment she�et��, �,� `olumn�FisForw '=�|Option F��ע  �2Case "o��_Bƒ=6(value, 66)�G�������Ȳ��ܳ���200��������������#�KaL ִ���϶�������������3�M�S==�C�NDi�ffName4�O0DMB(�V�, !dQfunc�`Ar�gs�R?S�j�t�r�� ��{�ߜQ�?�� Els�e�vB�set�,�Cod�(-ɜet��� �A���ٟ�r���X�]ѧУ�����״̬]k]XXSHZT��\����\d�\�3�O.����O.Xπq~�ɀO.lO.�|�|LO.O O.yN.v/.e�x/.��/.'/.���ev/.I1�,ϋ��/.+-�".���֤������/.�\6�IDCa�rdTyp�\s �\?p�g.��.�\3 ��F�00t00�00���000*� 00!0�0�*_0_0��_0G_0�_0_0�7_0��_0O,�14P�)GeP6r�q������Ƿ�Ϊ���С���Ů��2--o`t��3o`P Kð�R �1��1"1"/���/�/�GU)IdNu�m�s��Ա������������C��7��4�4��4�4�4� ��4�4�4�*�4go ��6��q6F�5�5���5 G� beginCheck_comment sheetIndex, cdMethodXQ, rowA`olumnerrorMsg  �isFor� = TrueBd'=14>zYesNo ִ�������Ƿ�Ϊ���ǡ�����Р���--R= �@Case "1" �8a�DMB( , value, functionArgs)(If No�t � ThenB�?"��" &��"�е�������� titleŁ ��д����ȷ����� ��s�hasE�q�j '����Wʱ�������д�����Ϣ�*wri@teLog [�ElsB���setрXCodKh, �R��&End If����;�� <�%��SQLY��������ɵľ�! �_XQ�B�_Sql�y(^a�\k�g�\�ca@ 1�a�'�-�b b���ظ��¼���b [U���s�s� �X�w��w �wc�wB�wBL�wx '����!Z'�u?y�����v15 #�Sqy`yName�'ٱ��ע˵��w��ڇ!��BZSMֹ@resultdgetCellVa�CountXQ(��gT8) '�x�ȡAc�v� �sPLen(#@�SPm�" �A��i0 ?o s���npMid(L�, i, 1��_ �"h"��E��a ���(��Next iO �Q�NE? ja1p�"1,00����Ym�AuZ_��MV�A20I�g�A2o&S%�sh)).1+s(��)9)q3������h ��!�]�ȷ,�ַ��������Ϊ100λ��fY�O\O�O�lO\�o� �)q�Q3ϒ���U(��I��{�A�˒/V}���d 0�Z '�� ����Ϲ���� �a atotal� @|�+Cg�Sel�ect �tݛ%�"baojia�o�C��:?�c��Sum�-� �� huoshi� ���H� � ��� zhusu� ��G� �� �� others�� �H� � ?��Oc*?%��� '��2��3 �=pG�>6�>�>�>�������Ϊ�A�@OK�E%��+ F�+� " �Jb�`��Xo��F�t��-�����������F�o- � �reg�(��}��DimaEX �As Obj�ISet�= Create("VBSCRIPT.REGEXP")a'RegEx�ઽ���G �EX.GlobalpF���n'����ȫ�ֿ���''vba��\����ת��Patte\rn��� R��ʽ�Igno�reB8= Fa`����Ƿ����ִ�С�x�����3�T8est�gGB.������������hing �#$O �°� �4�ظ���˵���Ѿ�Pû��pt�A������ �1����ѧ���׶������ڱ�������� �-B}p�SameXQN�ew��2) '��Sw(na�S�2).Range("A65535").P(xlUpI�ow'cgxetT1��wM(V�a��h6�msg�NP 4�.Clea rCont�s �'ÿ����� �ѕ�B ���,�cu��RowP 1 '�������ʼ������/���ocJ��'������ð������ÿ��Ԫ�غ�����֮ǰ�������н��бȽ�  For i = startTitle + 2� To rnaL\cardID1`Sheets(s Index2).Cells(i, &ColuXmn)Etjtip - 10~S2�zj=�$IfP�c+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�w).Range("A1:A65535").F� (What:=FLook@In:=xl`uPes, !A@x�lWhole�}mDNo�Is h]� �lg�qk !=t "�*"��!c�.�.K Els�[r����'I`Eb�]?U- ִ������ڹ�������(�����Ϊ��)�8�V@value � �����1 c �������`�'A����ȷ��p��fa�%�et��[checkDHMB(� , �1�, flag�<@<��`S"0c7 '��Ϊ�DZ��� ��K,�Trim�# 1)�U>�`���Exit �79�8G�H�f�LDat��Count 0 '@ijһ��a(��ļ�¼��c 1�Num`D�Ar�J# �U}��|owP �A�� `|X|�2O9 ��s+Y{_8�o�M��I1e i� ��� _�p���� C@T(�� � ��3)�&��,)r '�ж�aq2�Ƿ�́q3������a 5�)��^j�'��ʱc�(��ĿΪ����1��;Q ��._w/BcHɾ���.�в�����ex�ܱ�����ģ�o�G�1 �����14�кňsdelete�P\h�, ��E�j2@UnprotaoPassw`|:="�1qaz$�ob��s(�.D� p������!�'r�).P123__�-�Z��ʽ��T�-�� 0 set�� XQ�"�p�ol��/��A)�//���s��p�).��Nr�?o�u--û���1--o-�-n�� -No�"O��o-�dow�)�>��)/@  � �ָ��l�����ֵ���>?,et���l�(�(���U?S2̴�1�ր�������̣��`���ʱ��0�Ѿ�ͨ���~�>�)?�O�on setDMBCode(value, sheetIndex, row$col!$) DimBData, c�V�cellV& = CS�tr(S�s(mH).C7s(s.��zCountI0 'ijһ������ļ`�¼��uJN um'lArea pRange("A65535").End(xlUp).Row 'p���� '�u�'GDet�OrC��(��,, X, "�@") '��ȡQ����������RFor �i�)�.To��[c�If �b�i0, 1)#�< Txhen��!��+� 1�Else `Exit )� nd If�Nex�t i�A5jN58t+ �-��(�/1 ��mC'E$�ex�""G��l�Gj �F@unctio�W'-0 ȥ���#9�Ŀո� 8  removeSpace=�6 �����B�����1�����=pecialCh�aracter��!9reg�p�"[\uFF00R-b6]�9�FF]|[\s,;'�""?^]+s/`�Check�AE(���#i��8 �IZ[� �"stdo�le h%^*\G{00�020430-C 0046}#2.0#0#C:\Windows\Syst em32\e2.tlb#OLE Automation`�EOffDic�EOf�i�c�E�����E2DF8D04C-5BFA-10�1B-BDE5�E�AA�C4�2�E��gram Files\CommonMicrosoft Shared\OFFICE15\MSO.0DLL#��M 1@5.0 Ob�� �LibraryK�MSF�orms>SF�rm�s3��D452EE1-E08F`A-8-02608C@4D0BB4SsaSFM20L'B ��_�&/;"1��jIqAHq00}t#0Bq#� ��504�� ��A34FC7FC0-6A2F-4A08-B602-807CF6FDDB98�6Users\yxq\AppData\Local\Temp\VBE�aB6.exd�bU;!��.E ���.@`�M ���� ���»ThisWorkbookGU� T@�ikW�mkb�ok� 2� �H�B1��\�B�,�!zL"B+��qSheet1*G� S�e�_tn1 �u�2�� �S@�� �H� 6� 6e� 6� 6� �� � ���ӡ@Ԥ��G�SbpS��ȉۢe2jo `�m8�!�(e)� ��@�ߺ���c �]wQ�Qpec ec eo ��m ��k �����G�;�Xf6"a2fo � o �&�У����!h���e��eo �mo ~�k !L������GbQ;N z�^�b�2�o �9o BU�2ShowaxG�`6�\owF���3e2row@��4�n�O(� �l�5�^5�^5�^5�^)�zh��^ �Pr(intC�r0in�����j2oad�>ʘ��������������������������������������������������������������������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��<��<����������� B����`������������ ����������������@�����������������������%����`������������������������������������������������`����������������������������X)��[$*\Rffff*0B5c7c055b���"�� � (� H�h����x���ѧ����Ϣ��ӡģ��$D(F�ѧ����Ϣ��ӡģ��$DB@H��ѧ����Ϣ��ӡģ��$D(Fo������������Attribute VB_Name = "����Ԥ��" Sub Browse_Print () Worksheets("ѧ����Ϣlģ��").Visibla�True"d^P@review2cEnd � ��������������������������������������L����q��n����������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SP����S����S����S�������0{34237871-91FE-43B1-BA26-A7E935B3A6E9}{2F2A8D88-DE8C-4F59-9FF6-98A10ECBF356}����8 8X����������������������������� <������������������������������������� ����������������%��������������������������%��������X����������������������X������������������������������������������������������������� )��[��� � "��� �0� ����� 8"�H�P� X�h� ��������x�ȡ����������'� ��B@:��o��H�ȷ�����X >'� ��B@:^����o����������R�Attribute VB_Name = "ShowForm"  �Bas|0{34237871-91FE-43B1-BA26-A7E935B3A6E9}{2F2A8D88-DE8C-4F59-9FF6-98A10ECBF356} dGlobaBl�SpacoFalse �Cre atablPr@edeclaI"d�Tru BEx0pose0TemplateDeriv�Customiz�D'ȡ`�� P�� Sub CancelButton_Click() notContinueBool�T Me.HidZEnd! 'ȷĶ� ,onfՏ,9�-Fl��;/������������������������������������������������������lzV ��zL��#����������p��|�ۅ��N�29�~\�F��̂���L�AE�r� �������������x��̂���L�AE�r� �|�ۅ��N�29�~\��ME�������������P���������������������������������������������������������������������������������������������������������������������������������SL����S����S�����6"����������������� ��������� ����`���������������������1OOPAA `���������������������aOOb����������������������������������������rU@@@������������8�`��������������������b������������������������������������rU@@@ ������������xb����������������������rU@@@8 ��.��.���������`A�q�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������Z�������H��#����������p��\�ȕ&Z�M������nQ �F�B�,K�{L3a���������������x�B�,K�{L3a���\�ȕ&Z�M������nQ��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������%����@�����������p��������������%��<���������������������������%����H��������������������������������������������x@x������������������������8)��[$*\Rffff*0>5c7c053a�����`����������x������Attribute VB_Name = "She@et1" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@ ������������xb����������������������rU@@@@~xHi aS4�������Z������h���#����������p��c��5V�N����K�q �F>�{�=�@��<�9}�������������x>�{�=�@��<�9}�c��5V�N����K�q��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������%����@�����������p��������������%��@���������������������������%����H��������������������������������������������x@x������������������������8)��[$*\Rffff*0@5c7c053a�����`����������x������Attribute VB_Name = "She@et5" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������Z���������#����������p���YT��@���Ɣ�� �F�Aά�A��ÝP��������������x�Aά�A��ÝP���YT��@���Ɣ����ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0�����������.%����@�����������p��������������%��>���������������������������%����H��������������������������������������������x@x������������������������8)��[$*\Rffff*0A5c7c053a�����`����������x������Attribute VB_Name = "She@et6" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@8 PQ.��.���������`A�q�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������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="ADAF01F603A707A707A30BA30B" DPB="5A58F6A9BEC6BEC6413ABFC66E87DEE637ACA4109FF704E04B0B0D16305082D8AA1C7A5121" GC="0705AB1CF564A365A3655C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ���ߺ���=104, 104, 1006, 635, ����=0, 0, 0, 0, C У�麯��=130, 130, 1032, 661, Z ������=0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 26, 26, 1226, 584, C ��ӡԤ��=78, 78, 980, 609, PrintForm=0, 0, 0, 0, C, 52, 52, 1252, 610, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C ������������������������������������ThisWorkbookThisWorkbookSheet1Sheet1���ߺ����]wQ�Qpe�����XfУ�麯��!h���Qpe������;N z�^ShowFormShowForm��ӡԤ��SbpS��ȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6������������ }t ����������������������������� ����Microsoft Forms 2.0 ����Embedded Object�9�q�������������������������������VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 '���������� End �������������������������������������������������������������՜.��+,��0�HP X`hp x �� ��У��ר�ƹ�����ѧ����������� ������Ϣ �������������������������������������������������������������������������Oh��+'��0�@HT` x ���yxqMicrosoft Excel@���&��@�=>������������������������������������������������������������������������ ���� ������������ !"#$%&'()*+,-./0����234����6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abc����efghijklmnopqrstuvwxyz{|}~�����������������������������������������������������������������������������������������������������������������������������������������������������     �������� !"#$%&'()*+,-./01����3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWX����Z[����]����_`abcd����fghijklmnopqrstuvw����y����{|}�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  !"#$%&'()*+,-./0123456789:;<=>?@ABC����EFGHIJKLMNOPQRS����UVWXYZ[\]^_`a����cdefghijklmnopqrstuvw����yz{|}~�����������������������������������������������������������������������������������������������������������������������������������������      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^����`abcdefghijk����mnopqrstuvwxyz{|}~������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������