��ࡱ�;�� *a����def���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� T8�������\p Administrator B�a�=�� ThisWorkbook���=�KGx-8X@�"��1����[SO1����[SO1����[SO1����[SO1����[SO1���Arial1@����[SO1�����[SO1����[SO1�����[SO1���Arial1����[SO1����[SO1� ���[SO1�����[SO1����[SO1����[SO1h>���[SO1,>���[SO1�>���[SO1� ���[SO10���[SO1����[SO1���[SO1����[SO1����[SO1���[SO1@���[SO1����[SO1� ���[SO1>���[SO1����[SO1����[SO1����[SO1�4���[SO1� ���[SO1����[SO1� ���[SO1�4���[SO1�<���[SO1�?���[SO1�>���[SO1@���[SO1����[SO1@���[SO1����[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_-;_-* "-"??_-;_-@_-���� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� �� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� � ���� ����� ����P�� ����P � ���� �� ����� � ���� ���� ���� ��� � �!���� �"���a�� �,���� �*���� �#���� � � �$���ff��� �%���� �&���� �'���`� �+���� �)���� �(���� �)������ �*���� � � ����� ����� ����� ����� ����� ����� ����  � �1��� �1��� � 1��@ @ � �1��� �1��� �1��� � 1��@ @ � ���""@ @ � � ��@ @ � � ��@ @ � � �!�@ @ � � �@ @ � � �""@ @ � � �@ @ � �1�� �1��7 �1�� �1�� �1�� �1��@  �1��@  �1�@  �1� �1�� �1�@ @ � � �@ @ � ��� �1��� � 1�@ @ � � 1��� �1��� �1��� �1��� �1�� �1��� � 1��� �1��� �1��@  �1��@  �1��@  �1��� �1��� �1�� �1� �1|@  �1� �1� �1|@ @ 7 � 1<@ @ � �1|7 � 1�@ @ � �+87 �,8� �-87 �.8� �/87 �08� �187 �28� �387 �48� ||t�U��}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}A} _-;_-* "ef-@_-_ }A} _-;_-* "ef -@_-_ }-} _-;_-* "}A} _-;_-* "�L-@_-_ }-} _-;_-* "}-} _-;_-* "}A} _-;_-* "�L-@_-_ }-} _-;_-* "}-} _-;_-* "}A} _-;_-* "23-@_-_ }-} _-;_-* "}-} _-;_-* "}A}  _-;_-* "23-@_-_ }-}! _-;_-* "}-}%�?* "}A}( ��?* "����-@_-_ }-}) ?* "}-}* ?* "}A}, a�?* "����-@_-_ }-}- ?* "}}}0 �}�?* "�-@_-_ � � �}�}1 ?* "����-@_-_ ???� ???� ???� ???�}-}2 �?* "}-}3 ��?* "}A}4 �}�?* "���-@_-_ }A}7 �e�?* "���-@_-_ }}}8 ???�?* "???�-@_-_ ???� ???� ???�}�}9 ??v�?* "�̙�-@_-_ � � � �}-}: ?* "}A}; ?* "-@_-_ }A}< ?* "-@_-_ }-}= ?* "}A}> ?* "-@_-_ }A}? ?* " -@_-_ }x}@����?* "���� -@_����� ����� �����}-}A ?* "}-}B ?* "}-}D ?* "}-}E ?* "}-}F ?* "}-}O ?* "}-}Q ?* "}-}R ?* "}-}S ?* "}-}T ?* "}-}U ?* "}-}V ?* "}-}W ?* "}-}X ?* "}-}Y ?* "}-}[ ?* "}-}` ?* "}-}b ?* "}-}c ?* "}-}j ?* "}-}k ?* "}-}n ?* "}-}o ?* "� 20% - @wr� 1�;�� 20% - @wr� 1 �%� 20% - @wr� 2�;�"� 20% - @wr� 2 �%� 20% - @wr� 3�;�&� 20% - @wr� 3 �%� 20% - @wr� 4�;�*� 20% - @wr� 4 �%� 20% - @wr� 5�G�.� 20% - @wr� 5 ef���� �%� 20% - @wr� 6�G�2� 20% - @wr� 6  ef���� �%� 40% - @wr� 1�;�� 40% - @wr� 1 �%� 40% - @wr� 2�G�#� 40% - @wr� 2 �L渷� �%� 40% - @wr� 3�;�'� 40% - @wr� 3 �%� 40% - @wr� 4�;�+� 40% - @wr� 4 �%� 40% - @wr� 5�G�/� 40% - @wr� 5 �L���� �%� 40% - @wr� 6�;�3� 40% - @wr� 6 �%� 60% - @wr� 1�;� � 60% - @wr� 1 ����%� 60% - @wr� 2�G�$� 60% - @wr� 2 23ږ�� ����%� 60% - @wr� 3�;�(� 60% - @wr� 3 ����%� 60% - @wr� 4�;�,� 60% - @wr� 4 ����%� 60% - @wr� 5�G�0� 60% - @wr� 5 23���� ����%�! 60% - @wr� 6�;�4� 60% - @wr� 6 ����%�"�����~vR�k� #h�����h��� $h�� 1���h�� 1� %h�� 2�1��h�� 2%�?����� &h�� 3���h�� 3� 'h�� 4���h�� 4�(�]�5���] ����� ���%����+��8^ĉ �%�)8^ĉ 12�1���8^ĉ 12 �%� *8^ĉ 2�/���8^ĉ 2 �%�+ 8^ĉ_hQ�VL�?e:SR�Nx�,}Y�5��}Y ����� �a�%� -Gl;`�+��Gl;` �%�.�����'�^�/��� ��'�^[0]� 0���{�c�����{ ��}�%������ ���1�h�gUSCQ@wr� 5�;�-�@wr� 5 K��� ����%� ?@wr� 6�;�1�@wr� 6  ��F� ����%� @�lʑ�^� ��lʑ �������������������� ������X��TableStyleMedium2PivotStyleLight16`�"*H ؚ!h,gN�y�V��f[u���[�{t��W�Nxh��q���Oo`�����VV�����- KmՋ@b g!h��ĉRv^SbpS���Oo`���f�f�x�X$ @���������j�b�(�3 ���A�@@�  ��� � checkSfzjhcheckDiffName11xmsfzjhsysDifficultyGradeName indentifyDateindentifyReasonclassIdentifyReasongradeIdentifyReason�Y T���[�V���~+R T�y���[�e�����[�S�V�s�~���[a��t^�~���[a�� checkGender 77u 7'`+R7u 7 checkDiffNameyr+R�V�� 7�V�� 7N,��V�� 7 N�V�� 7vQ�N 7 checkSqyyCode�e 73u��t1uxUS�N 7d[?Q 7�k�uNO�O�p�XP[sY 7�QQg�N�O 7�V�u 7�V~p 7�m�QNN 7 checkSqyyName3u��t1u T�y�e�l T 7�^�S/�f 7 T�y 7{|�W 7 checkTerm 7%fc[f[g 7f[g 7�yc[f[g 7 checkYesNo 7/f/f 7&T 7sY 7'`+RsY 7 levelAffirm 7,T�R�k�u� �L�N6eeQzf�R�k�ucheckDisableType 7Ɖ�R�k�u�k�u{|+R 7vQ�N�k�ucheckFamilyIncomeType�]D�0VYё0%m4�0e�4��TvQ�N�R�R6eeQ�[�^6eeQeg�n{|�W 7�y�Oё0�W,g{Q�ё0�W,gu;m9�01YN�Oi�ё�~b0�c�S`��N0�Q�yb�Q.U�[�^"��N���_�v6eeQX[>k�S)Ro` � g�N��8R�S�~)R0��hy0ZSi_6eeQ�~FU0�R�S�N�S�N�N�y iN0 {Q iN0�R�]Ncbd��_��b,gT�v6eeQ a�{Q9�0�b(vb){Q9� vQ�N�^S_��eQ�[�^�v6eeQ�k�u 7NO�O 7 checkYear 71 7Nt^�~ 7t^�~ 72 7�Nt^�~ 73 7 Nt^�~ 74 7 Nt^�~�S�N N 75 7�Vt^�~ 76 7�Vt^�~�S�N N 77 7�Nt^�~ 78 7�Nt^�~�S�N N 79 7mQt^�~ 710 7mQt^�~�S�N N 7. �S��kX�Q���[�v�V��I{�~ � yr+R�V�� � �V�� � N,��V�� � N�V�� -N�vvQ-NN*N ��_kXy�+ 7  ؚ!h,gN�y�V��f[u���[�{t 7sysDifficultyGradeCode 7 checkLen0,1,33  7 checkLen1,1,30  7& kX�Q���[�S�V ��Q�[ N����Ǐ30*NW[&{ ��O�Y �[�^�N�SOY ��R�R�R��\ �_kXy�# 7*kX�Q�s�~���[a�� ��Q�[ N����Ǐ33*NW[&{ ��O�Y �[�^�`�Q�c��^\�[ ��~�N���[ ^��_kXy� 7*kX�Qt^�~���[a�� ��Q�[ N����Ǐ33*NW[&{ ��O�Y �[�^�`�Q�c��^\�[ ��~�N���[ ^��_kXy� 7 4161013681 checkName 7( �_{�:NIlW[��S�NS+T� � ���^'Y�NI{�N1 �N N��Ǐ20*NIlW[ ��O�Y _ N �_kXy�% 7 kX�Q�V��I{�~���[�v�eg �6 �6v"7�8��8ef94W:%;��;��<��=��>�@� B� D� �D��E�cc��B��������~-z4n�A�_)k:~yw T8��� |U  d����MbP?_*+��%{����&ffffff�?'ffffff�?(�?)�?M6Microsoft XPS Document Writer�X� � 4dXXA4����DINU"L ���r SMTJMicrosoft XPS Document WriterInputBinFORMSOURCERESDLLUniresDLLInterleavingOFFImageTypeJPEGMedOrientationPORTRAITCollateOFFResolutionOption1PaperSizeLETTERColorMode24bpp MXDW�" dXX333333�?333333�?�&�<3�cA�U} Q} n} @Q} `Q} �Q} �R} �R} R} �Q}  Q}  Q} K Q} LL@Q} MR Q} SS [} T Qmk�bk:�Ok��Wk��O�Om�O��OB�O� ^g� kk� _� `� jj� ab� aa� aa��cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccdc`R�4Tcccccc````````````cc`c`j\ @��lDAAAAASSSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR�4TAAAAAAAAAAAAAAAAAAAAAAAj� gmf� h_��TTTTVVVTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTUTTR�4TTTTTTTTTTTTTTTTTTTTTTTTj��DnDAAAAASSSAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR�4TAAAAAAAAAAAAAAAAAAAAAAAj� E� nI� E� A� A� A� A� A� Fo� F� A� A� A� A� A �*WAAAAAAAAAXAAAAABAeh� iO�je� ki`lA� P � pl� r�� P � P � P � P� P� Gh� qm� s�� C^� Ci� Cc� Cd� Ce���:���p�p��������( � ��~� � � �<�� 4 ����C�C��@��C���],@�x�9� ��$<_ �Y �h �g<>�@����7� Sheet1gg����Dh4hk�:S�W2 T8��� Q�a�k*p  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?�"333333�?333333�?�&�<3U} @} � } @} �} Q, ,   , , ,,,,,,� M'� H(� H)� M*� 5�LLLL� �� L+L�?� N,� L-� �� L+L@� N.� L-�LLLL� L/L�?� I0� L1� L/L� L2� L2�LLJL� LL@� I3� L4� L L�?� I� L� LLLL� LLJK� L L�?� I� K � L L5@� I� K � LL6@� I� K � LL@� J� K �LLJK�LLJK�LLJK� L� LL� L� L� LL�?� L� L� LL@� L� L� LFL@� L� L� LGL@� L� L� L L@� L� L� L!L@� L� L� L"L@� L� L� L#L @� L� L� LL"@� L� L� L$L$@� L�LLLL� L%L� L� L&�D�lF J<<<<<<<<<<<<<<<<<<<< !"#$%&'()*+,-./01:2:3:4W567:;<=>?@A� L% L�?� L� L&� !L%!L@� !L� !L&� "L%"L@� "L� "L&� #L%#L@� #L� #L&� $L%$L@� $L � $L&� %L%%L@� %L!� %L&� &L%&L@� &L"� &L&� 'L%'L @� 'L#� 'L&� (L%(L"@� (L� (L&� )L%)L$@� )L$� )L&�*LLLL� +Y9+L�?� +L:� +L;� ,Y9,L@� ,L6� ,L;� -Y9-L@� -L8� -L;� .Y9.L@� .L<� .L;�/LLLL� 0L=0L�?� 0L>� 0L?� 1L=1L@� 1Z@� 1L?� 2L=2L@� 2ZA� 2L?� 3L=3L@� 3ZB� 3L?� 4L=4L@� 4ZC� 4L?� 5L=5L@� 5LD� 5L?� 6L=6L@� 6L7� 6L?� 7L=7L @� 7LE� 7L?� :LH� :]I� :]J� :LK� ;LH� ;]L� ;]M� ;LK� <LH� <]N� <]O� <LK� =LH� =]P� =]Q� =LK� >LH� >]R� >]S� >LK� ?LH� ?]T� ?]U� ?LK� @LH� @]V� @]W� @LK� ALH� A]X� A]Y� ALK�D� l<<<<<<<<<<<<<<<<<<<<<<8888888BCE,F,G,H,I,J,K,L,M,N,O,P,� BLH� B]Z� B][� BLK� CLH� C]\� C]]� CLK� ELnEL�?� EIo� EKp� FLqFL@� FIr� FKp� GLsGL@� GJt� GKp� HLsHL@� HJu� HKp� ILsIL@� IJv� IKp� JLsJL@� JJw� JKp� KLsKL@� KJx� KKp� LLsLL @� LJy� LKp� MLqML"@� MJz� MKp� NLs� NL{� NJ|� NKp� OLs� OL}� OJ~� OKp� PLs� PL� PJ�� PKp� L88<<<<<<<<<88�P�H � �0�( � � >�9@��DDD�7� Sheet2gg����D T8��� ����  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?�"�333333�?333333�?�&�<3U�P�H0��0�( � �>�@��  �7� Sheet3gg����D �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������K*� ����rU@�@@~ ~~~~~~~~~2~~~~ ~~ ~ ~~L"a�r�R�{D�:���� �����������a� ��������q ��1��a � ����������a��a � �������������a� ������������aq�����������������Aq��!a���1q��q�� ����aA��������������������� q��������p��������q-�-�-.A.q.�.�./1/a/�/�/0�/A0�'q0�0�0111a1�1�1�1!2Q2���aq������������������A��Aa��A� ThisWorkbookSheet1Sheet2Sheet3���ߺ�������У�麯�������� VBAProject��F1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA ��������� �A�Excel�F  F:\Office2013\Office15\EXCEL.EXE ��������A��0�FC:\Windows\system32\stdole2.tlbstdole 1��������a��L��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOffice a���������!�.E ���.`�M �C:\Windows\system32\FM20.DLLMSForms ��a0]��+�D�C���`b0C:\Users\Τƽ\AppData\Local\Temp\VBE\MSForms.exd  �A aP��F3;�%�(�K�?{p;bX`�F� =�v��E�ڨ��K�D�FWorkbookWorkbook_BeforeSave x , .�`/f&Tnx��\���OX[�excel ��Y�OX[ ����p�QVBE7.DLL� ��������` A p a nx�[ &�|�~\��ۏL��h�g!h�� ��Y N�OX[ ����p�Q �S�m ?� ��������S �����������(~ ���Oo` �Nxh� �f , JJ�  8Phpx����������У����򲢴�ӡ������Ϣ checkTheSame �F��F&m���F&mQ 0�]\Oh�pe�v Ncknx ��� N}�g�e!jgT ��QۏL�dk!h�� 1qazdeleteRowNoProsetCellValueXQ setDMBCode.�QPasswordProtectUnprotect CellsClearContents��FcheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowsetCellValueCountXQ&t � A65530 RangeEndRowcheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunc removeSpaceXQ IV5��F����G���\�Ǚ �Fe��t�UR@���6S���D�F Worksheet:�q F�F FAILURE !h���Ǐ! 4�`nx�[_�Y�h�gT� �h�gǏ z-N ����RsQ�excel � &TR�S���[�penc"N1Yb�h�g1Y%� )n���c:yTabColorIndex "�l g�g~b0Rf[u�Oo` ��e�lۏL�!h���Name -N���Oo`�Y N�  value -� ��������� (p * g���Oo` ����g w ���Oo` h� �ۏL��Ock Selectcompare(~ : ; Locked ,{ L��vpency�� -N�\ gN*N�kX�Qcknx����h�gRows Delete dk!k!h��-N Rd��N :L��eHepenc��Y T0���N���N�SR��!h��1Y%�sS9eL�:N�eHepenc � SUCCESS * g͑ Ypenc ����g w ���Oo` h� �ۏL��Ock��B�ɌI�9^�t��k�%2u���C�C%�� ���#ޖt�K��JȪ�&ZZ��C�2j�/�� checkRequired checkStuName checkBirthdaycheckBirthdayNecessary IsIDNumber checkSFZJLX checkSchCode checkFamType checkRXDate checkYear checkMonthcheckXJH checkPhoneNumcheckXn checkBank checkOption compareDeccheckLencheckIntcheckValcheckNum checkIsInt checkIsNumber checkMoney checkMoneyTJcheckPersonNumcheckIdNumLink0��������������������������������������������������������������������������������������������������������������������������������������������������������� �����n 2Cf���������������������������x��RR��������������������ME�����������������������������������������������������������������������������������������������������������������������������������������(@��T0��6 ����<������0�T��������h�H0��h�V�������Z�����H���������������^H������@��������ʀ�x���� ��@�����������8���� ��@��������ꀊ�h������ @����������bx����� @��������%������Ϣ�����������%ꀢh����� �� @���������������� �� @��������ꀞ������ ��@��������˵��%�������������—(�������@��������ʀ�X����� ��@������������������@��������ꀤ������ ��@���������6�����B���������������Jh����B��!�������������p��������B��#������������������������B���X�����B���������������VHp����H��������������%�\x ����H�������������� ��ʘ������B��������������nge(ʀ�� ���� ��@��������der:ʀ�P���� �� @��������mn��`8p����h @���������ꀜ8������� @����������־�0�������� @������������������� �� @�������� �d������ �� @���������� ��fH����B������������������hP�������@��������2ꀌ������ ��@�������������X��������@��������(l�j��������@��������ʘ�����B�������������������l@����� �� @����������np����B��"���������������� �����B����������������H��8�h(�X�P�px�����������������H��������x�8��������������@����������������������������������������������H��R��������(����������������������p$���������������������p��������������������X�����������������������������8x��Z*\R1*#278$*\Rffff*0@5af9db0d(*\Rffff*0@5af9db0d\0�4��4� ������ ����� �� �0�8� ����� @� �����`� Dp��� 8��� �0� P�0p�D����0�8�4P�.�� �����.����.�(8�(`�>��"��$��$�@�>`�R��^��FX����� �����`��*0�$`� ���� ���� ���������������^��������^�0p��@�����һ���ṹ����������ҳ]$��H��=Public Const sheetNameValueTJ As String = "����2������ʵͳ��"H]$�������Ϣ���2Public Const IntroSheetName As String = "���˵��"]$�������H]$�˵���] �x� ��¼�ܵ�У����]$��H���¼��ͷ������] ���"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ] �x�6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ(�] ���ÿһ�кϼ��е�ֵ] ���"����һ���ǿ�У��ʱ����¼����Ԫ��] ��������Ϣ] ���%---������ģ���У���¼���ĸ���Ԫ������] �8�---����ģ���У���¼����ĵ�Ԫ����] �� ����У��ʱ���洢�����������ַ���] �8���¼ʱ�رհ�ť] ��� ��¼�ܵ�У�����Ƿ��в����Ϲ������] �h� ��¼�ܵ�У�����Ƿ����ظ���] ���#��¼�ܵ�У�����Ƿ����ظ���] ���%/��¼������Ч��ǰ����������Ƿ��д�����Ϣ ��״̬] ���#����У�鷽���ķ���ֵ��]$����)������¼��ʼ���к�]$��H�)ѧ��ѧ���ſ�ʼλ��]�D����¼Ϊ�յ���Ŀ]�P�"/�������Ƿ�Ϊ��Ч���� ͳ�� 5�������ֶ�Ϊ�յĸ���] �(�"C��¼ȥ���ո������ִ�н�������ȥ���˿ո��򷵻�true�����򷵻�false������] ���Pcell����ԭʼ�ĵ����ݣ���ϵͳû�н����Զ��������û�����Ĵ�������֮ǰ��cell������] �X�7�ϴ�д������Ϣʱ�����ڵ���,Ӧ����Ŀ��ʼ��ʱ��ʼ��ֵһ����] ����������] ���������] ���R�ڸ��ݱ�ʶ���ò�ͬ�ķ���ʱ���ж��Ƿ���forѭ�� Cell_SelectionChange����Ҫ�õ��ñ���]$������¼ʡ���صȼ�¼���ڵ���������]$���+�����sheet���±���Ƿ����] ��]$�h�@�)�����е�������]$���) �Ա�������]$��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= 3 'ѧɀ�ѧ�����λ�� Di�m isay�)i� Ϊ��%n��%Ar�����Ђ>Π���Ч� !� 5��������ֶ�c ����&removeSp�aceFla�l:�ȥ���ո������y�`ǀ������a$�ˡ��*tr@ue����f�alse�3e��@�a�c������2��)��!�t��`�û�н����Զ��������û����ao�?֮C�sc� ur �@*�)Long '�ϴx�д�F�!��8,Ӧ����Ŀ��ʼ��ʱ��ֵһ��F rna� �A'����,��c���1^�isFO).�ڸ��ݱ�ʶ����ò�ͬ0)C�A� �жϑ;��forѭ�� C�_Sele BFCh�M����Ҫ�õ������W^�,headIb��'�+ʡ����صȱ�& S�qsV9= 2 '��q���±��� ���"��not�ti�nueQ$AqJ�1��Plu"S�6104 '�����!�c�����rge � r�6��Ա� � ��s� birt�hday= ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rU@@@@~xI�A��!� ��&AQ1�,��A��aAqPQ���XA 0 q#\�#%$�$1%Q%�%�%!&0`a&�� �&`�&a)�)�)�)�)1*�*�*�*1+Q'�'�+�#,�LggD�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���������������gJ������@���������������p���(������������p���g�����������8������������� Z!� �8��������V"�h����h������������#�8���h�����������gV�����$Ip����p���������������������(� �����������p������g���������g�%��?�N�Zgg�� �������������������&Ip����p��������'����O���������(O�����(�?� �����������p�������������Tgg\������h��������8����Z���8������h�����8���h���g{gggd��������h��������8����Z���8������h�������)�*�8���h�������g�x>��gL�p������������������+I��������(������������p���g p�%g\������h��������8����Z���8������h�����8���h���g{gg p�g��h��������8����Z���8������h�������,�����-O����` ��������� ������8���h���������������g�x��g(����� ������k���������g�����.g�����/g�����0g�12g����13g�����p���g��4g p�5g(������X����#k�����(����gz������X���� @�h��������8����Z���8������h������������6������8���h�������g p�7g���������1�\�gV����������8I������������a���������� (�������������������gV����������9I������������a���������� (������������������g"�������qn�P�&gF�������qm��l����������������qnl���������� gv������ @��������������������9I�������������a���������� (�����������������������g$������������������g����������K�� gv������������������������:I�������������a���������� (�����������������������g>�������qml����������������qnl���������� gj������ @�����E���x����p����p����X��������������p�������� 0�x���������������g����������6 gg����������� g�7p>�gv������������������������:I�������������a���������� (�����������������������g>�������qml����������������qnl�����@���gj������ @�����E���x����p����p����X��������������p�������� 0�x���������������g������@���� g�g"������qn�P��g$�����������������g����������K��gv�����������������������:I�������������a���������� (�����������������������g>�������qml����������������qnl���������gj������ @�����E���x����p����p����X��������������p�������� 0�x���������������g���������:g�ggv������������������������:I�������������a���������� (�����������������������g>�������qml����������������qnl���������gj������ @�����E���x����p����p����X��������������p�������� 0�x���������������g�����������gggx����������� @�X���� @�h��������8����Z���8������h��������;�8���h�������g�X����(��� g6�/�����T����/�.C����7����l�zgZ����<�����O��������=O�����3O���������>Op���`�2������������p���g����g�2���� ����g �p������������p�����gg������0���������gg�p�����������g�������������`���Ag ������������������g>�l����p���������������l����������gx�l����p��������h���������8����Z�p�8������h��������?��@�8���h��������g����������<g"�l����p���������g�4�gg����������jgg2������h�����������������8���2g�h�����`���!�����g�h��������K��g4����������@��������� ���������ggN�����k����h�����������������������p��� ���������p���gg�h����8���Ng�������������g^�����p�������������A�����O��������BO�����(� �����������p������gg���gL�p������������������CI��������(������������p���gd������h��������8����Z���8������h�������)�*�8���h�������gN�h��������8����Z�p�8������h����D�8���h����(gg p�Eg&��������� ��������g�E �gd��������h��������8����Z���8������h�������)�*�8���h�������gV�����FIp����p���������������������(� �����������p������gL�p������������������GI��������(������������p����"ggL�p������������������HI��������(������������p���gd������h��������8����Z���8������h�������)�*�8���h�������gN�h��������8����Z�p�8������h����D�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{�LX4%��������@���(�������������������X���@���(����������������������P���8�������X���8���@����������������������h�����������p���P�������������������`�����P x�������8���h��������������p����������Hi@ aS �S�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������a�� ��*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications�*\G{00020813-0000-0000-C000-000000000046}#1.8#0#F:\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{E5A1055D-BE2B-441A-8D43-B288A760621A}#2.0#0#C:\Users\�s^\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library�.E ���.`�M ���������Z������������������������������������������������CfThisWorkbook0?5af9db0d��'ThisWorkbook���(x���������\ �� Sheet10C5af9db0e��= Sheet1������� Sheet20D5af9db0e��? Sheet2��~0��� Sheet30E5af9db0e��A Sheet3���gH����]wQ�Qpe0B5af9db0e��B�]wQ�Qpe��(�`=����Xf0@5af9db0d��R�Xf���x8��!h���Qpe0F5af9db0f��r!h���Qpe�����rW��;N z�^0A5af9db0d���;N z�^��րx����`����������-�����������������������������������������������������������������������������������������������������������������������������������������������������������`����������������������������0�������������������������������������������������������������������������������������H��������x������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������^ c�C�N�>� މ�����z/4i:A��dʲ���������&��B�yX��������x�6��L�{콤�\��������k�I����R,'=����<��L�E�V�XH�Kn�����a!Xu�A�dV���)������m��wL���Mk���������8�LW!�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�` Sheet2�` Sheet3�` ���ߺ����`�(checkedRequiredStart�R`rowIndex6d` columnIndex�P` cellValue@�` ActiveSheet%N`Cells�`�(writeLog{u`content�l`Sheets ` �(msgSheetName�'` �(curMsgRow�/`�(getCellValueCountXQc�` sheetIndex� `colIndex�` Worksheets��`value�K` �(writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex��`�(addCommentXQStart�S` errorInfo` AddComment��`Interior;�`Color2F`CommentHs`Visible��`�(clearCommentsXQStart7�` ClearCommentsf�`sheet2RecordNum�`ffTotalNumColumn�`xlNone��`�(beginCheck_comment;D` checkMethodHd`�(errorMsg'|`�(removeSpaceFlag��` �(cellContent��`�(callFunctionXQStart �`typeVal#`isValidateCount�8`titleMsgh�` �(startTitle�l` �(headIndex�` �(functionArgs8M` �(checkMethodXQ��` �(checkRequired�b`�(hasErrorf�`�(isFord�` �(removeSpaceXQ�` �(checkStuNamec�`�(checkLeng�`functionArgsArr��`Split�)`�(checkNumh�`�(checkValK�`�(checkInt��`resZjlx0�` �(IsIDNumber-*` �(checkSFZJLX�*`�(checkDMB��` �(setDMBCode�d` �(checkBankUw` �(checkYear�6`�(checkXn��` �(checkMonth��` �(checkBirthday��`�(checkBirthdayNecessary��` �(checkPhoneNum��` �(checkOption,�` �(hasErrorIdNum��`�(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{�`i``babyID1��` �(babyIDColumn�`ja`babyID2��` �(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`�(setCellValueCountXQ�]`�(deleteRowNoPro`�(setCellValueXQ��` codeValue�` �(columnPlus��`length1S`length2T`Replacef` �����i`�(!ValueColumType��` columnNamew�`�(sheetIndexValue1` �(AreaSheetName�`�(readmeSheetName��` �(totalCount�-`�(rgold�`�(Target�F`�(hasErrorInValidateU�` �(dataRowStart��` isNullRowNum�8`�(cna`�(notContinueBoolt` �(genderColumn�~`�(birthdayColumn0` У�麯��&�`IDNumber4 `Wm`UCase5 `sj`Tk`Flase�p` IsNumeric$*`Right ` �(checkSchCode��` �(checkFamType��` �(checkRXDate�*`�(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` ������` rowDataNumn�` typeValue��`bsTypet�` valEntity܏`val��`typeRow�` isNullRowArr/�` sheetCountB�`Protect�f` Application�*`ScreenUpdating! `sysDifficultyGradeNameFlag��`indentifyDateFlag� `xlToLeftWY`rowType�`md`ne`Locked ` totalMoneySumZ�`pg`qh` �(checkTheSameg�`myDic�o`myKey��`varData��`idNumDick` idNumDicData��`cardNum�\`Exists�]`Add�r`Keysq�`Resize@4`WorksheetFunction�&` Transpose��`Workbookk` ��BeforeSave��` _B_var_Chr\;`��_Defaultj�`!����_B_var_sysDifficultyGradeNameFlag_�`����_B_var_indentifyDateFlagE` Worksheet��`����_B_var_isNullRowNum;r`����_B_var_i �`����_B_var_isValidateCount"`����_B_var_j �`����_B_var_rowType��`����_B_var_m �`����_B_var_n�`����_B_var_totalMoneySum�Y`����_B_var_p�`����_B_var_q�`���������������������������������S =?AC��������������������������������������������� ��"��$��'s������������������ �@�� p0(P7��q� YX�� �HH � �������2 �(����� �-Cfր�������������������������x��ME�������������x���������������������������������������������������������������������������������������������������������������������������������6 ���������L����L��������� ����L��������� �����"����L��������������������<����������x :@`��������@8���k�������������P����������������@�������������� ��@�������������� ��@�������������� ��@�������������� ��@��X�������� �� ������`������� ��@������@������� �� �����`������������ ������������`�������������� ��`�������������� ��`������������� ��`�������������� ����������@����������8��������������%�p�����X����X�����@pX��x���@����(������������������������������������������������������X ����`2VTX��@���8������� �� @������0��������� @��X������� �� @��p������� �� @����������� �� @����������� �� @����������� �� @����������� �� @��0�������� �� @��`p������� �� @������h������� �� @��P������� ��@�(8������� ��@������ ������� �� ��B�<jF08@���������� �� @h��������� ��H46�P����@�������������� �� @���������������� @������������ ��@���������� �� 0�2@���������� �� �2����d����8@�p������� ��@����X������� ��@���@������� �� ��;@��(������ �� �;@������������ ��@���������� ��@��0�������� �� HC@��p������� �� �0C��@������������� ��@����������� �� �pI@��������� �� ��IQ@������x��������� @������p��������� �K(0M%@��8X������� �� PQ@��p@������ �� `8Qx���8S��@���(������� �� �pZ@��������� �� ��Z����\�@����������� �� �`�;@��p������� �� �`0�b����f@������������� ��@���������� ��@����������� �� �pt@���������� �� ��t����v zx��@�����h������� ��@�� P������� �� 8 �|�@������8������ �� H |������ �@��������������������������������@�����������������������������������������������������������Z$*\Rffff*0A5af9db0d*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0@5af9db0d*\R1*#11c*\R1*#42$*\Rffff*0B5af9db0e$*\Rffff*0C5af9db0e*\R1*#129*\R1*#278*\R0*#2*\R0*#f*\R0*#1����� h"�h�p�:x�.��6��" �"H�.p��� D�� �� :L�� \�8�@�\H�\h�\��>^��"��: � 4P�,`�$��>^��,���J(� @� ~X�$���PV� P�p� �� ����  0�\8�X� `�h�.dp� ��,L�� ��\��� �* �*�P���(��%0��%D��%(�%0�%08�%h�%,��%& �� (��#6z��$J 0 �$"� �(,V� �(PV� �(`"( � (�����,LF� �4Jv� �<($( � <�����? P �D6v` �D0>� �HBj� �D �@ �,  � ,�����0 0 �48v@ �40>x �8 j� �4� �0� �)"(� �<($ � <�����<0( �H6vX �H0>� �PBj� �H�<�(" �,8v@�,0>x�0 j��,��(��$��$x�� � <� 6P�(LZh�(&��( ��( ��  �)$� 0� >8�,x�, �� (��,>��40x��, �," �,0� 8� @�P�(2X��� ��*4�� ��+$N���� �� �`^�x� ��4L��d��N�� �� �� &��4� $@�dh�PV��L�� ��4L��d(�N@�P� X� \`� \�� \���� x�"�@�H�X�2h�$��@��6� @�*P� :�������� ����� �� ��������,�H�P�X� ��������h�a--------------------------------------------�����ʼУ��-----------------------------------------�]�X]�p�+ijһ���͵ı�ʶ�������кź����͸�ʽ��3:1;2��]��� ��ʶ����(Ĭ�ϱ�ʶ�����Զ����ʶ)]���(ijһ���͵ı�ʶ���飨�����кź����͸�ʽ��]��� ijһ���ͱ�ʶ�ľ���ֵ���]����Զ����ʶ������������]������%�Ѽ�¼Ϊ�յ��кŷŽ���������]�( `!2'��"��ȡ��������Ŀ �����0��������Ŀ����ȷ������������ģ����ٽ��д�У��A@2�1qaz�<�$`B@� |���k����1qaz�<�$`B@:��1qaz�<�$`B@:�����1qaz�<�$`B@: V$T!NB@�-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���,���'X�������Ϣ��¼��ʼ�������'��.�ô�У���У���¼�Ƿ��д�����֣��׶���Ϣ���У�z����� �(����'��#Ĭ���϶����Ѽ�������δͨ��У���'��Ĭ���϶�����δͨ��У�� V$T!NB@�-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���, �A65530�$`%%�!'����� �A@B� ��ȡ���������xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column ��IV5 <%%�!('j����FAILUREA@F�&+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0�'h��ռ�¼����ʼ��Ϊ0 0 8��" ����ʱִ��d� ��ʼУ�鰴ť�¼�ʱִ���.��ȷ����ʼ����� �������У�����ر�excel��� $4�������ܵ������ݶ�ʧ����ʧ�� 6���ܰ��ʾ$2 8�d����1qaz�<�$`B@�����|���k���k����.�$`!b(l�)��ҳǩ����Ϊ��ɫ � �� ��"û�в��ҵ�ѧ����Ϣ���޷�����У�飡A@2�����'0�1qaz�<�$`B@�|���k����'���ô�У���У���¼�Ƿ��д������ ���$`!��д�����Ϣ���£�A@P�� � �� �������  �� ���'��<"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ�'��;6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ�����'��'��'��5"����һ���ǿ�У��ʱ����¼����Ԫ��'��9�Ƿ�Ϊ��Ч��¼ �'d�C��¼��У�����ǰ���Ƿ����д��������'��;��¼�Ա����������Ƿ��д� � j�� �$`%N!b'��O��һ���б�ʶ��ֵ�'��2=�ж�forѭ�����Ƿ����callFunctionXQStart ��û����ִ��Ĭ�Ϸ��������� ����<�����ʶ����Ϊ�� �� ��-$�'��G��ʽ��1��4-3:2��5 ��:$�'��H6��ʽ��3:2��5����ȡ���ı�ʶ�����в�֣���ֳ��кź͹��� �����DJ�����Ҫ���ּ������ϵ������ҪУ�飨��Ĭ��У�����͵������Զ���У����� � ��� ����Y&+1����Ϊ�����е�һ��Ԫ��ΪĬ��У����� �� �$��:$�'��V*����ȡ���ı�ʶ�����в�֣���ֳ��кź͹������$�'��S�Զ����ʶ����������  ���$��;$�'��c�Զ����ʶ���͵ľ���ֵ�� � �� ����g�Ա�ʶ�����б��� �$��   �A@��}���ݱ�ʶ��ֵ�����ö�Ӧ�ķ�������k��� �������� �����$��;$�'��P����ȡ���ı�ʶ�����в�� � �� ����W�Ա�ʶ�����б��� �$��   �A@��0k��( ���e�J ��ʽ��3:2��5�� �$�'��Q�Զ����ʶ����������  ���P�����ʶ���е��������ڵ�ǰ�����$��;$�'��e�Զ����ʶ���͵ľ���ֵ � �� ����k�Ա�ʶ�����б��� �$��   �A@������ݱ�ʶ��ֵ�����ö�Ӧ�ķ��������k���d�-ֻ��Ĭ��У������ʽ��1��4�$��;$�'��H����ȡ���ı�ʶ�����в�� � �� ����O�Ա�ʶ�����б��� �$��   �A@��0k��(k�� �  �$`%N(��� ����� 6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ �� � ����� � �е������ ����������һ������д��ȷ������'��'��8����У��ʱ������д�����Ϣ �A@P �� '�d��� � � '��Tÿһ�кϼ��е�ֵk��� �� ��<,һ�����������ؼ��ֶ�ȫ�������򽫸���ɾ��  h+� h� 'h�,"��������Ϣ���еĸ��д�����Ϣɾ���� � X � X� � X � V$T%>B@@�r �Ѹ���ɾ�� �� X � 'X d'�k��� �k��� �� h� ��6 ɾ����Ч�� �$�'� ���� �A@8�B �Ѹ���ɾ��d��8� � � A@8�H �Ѹ���ɾ��k�� �� h� ���˴�У����ɾ���� h�:����Ч���ݣ����������֤�����ж�У��ʧ�ܼ�����Ϊ��Ч���ݣ�A@2k��� ���*�д�����Ϣ����鿴��������Ϣ������������A@2��$`!b(l V$TB@Hd�� �'�A@� ��'%ִ��У���ظ����ݷ���,���û���ظ�������������Ƿ�����Ҫɾ������Ч�����.�$`!b(l����SUCCESSA@F�2+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0� У��ͨ��!A@2d�� �*���ظ����ݣ���鿴��������Ϣ������������A@2��$`!b(l V$TB@Hk��� k��� �1qaz�<�$`B@��1qaz�<�$`B@��1qaz�<�$`B@�o��8 �q-------------------------------------------------���ظ�����ijһ��------------------------------------------------�@]����]���� �A65535 L%%�!'��2��������Scripting.Dictionary$�.��O8�O � L%!b'��>��ȡѧ���������������� � ���%"��ѧ���໤�����֤�������ݽ��б��� ��� � �%���-������֤�Ų����� �� �B@��&#add��������һ��Ϊkey���ڶ���Ϊvaluek��8 k��0 �( �!'��Sheet2$`��G:G7B@ � �!% �!2�G17,q�����.�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� s n�;"��jXQ 1, 2^,�� �bm��4�(���Dc71: 1� F`#(Whatb*", After:=[a1], S@IchO�rdAxlBy@bs�Dirj�7:=xlPrevious�Polum'dy�B)1.IV5�ToLeftki�`@8, "FAILURE"c�AL<�ɹ���־��Ԫ�񣬲���ֵ��ʼ���Ϊ0� ����0�F4���T� @} isSaveButton�vbOK“ �����ʱtִ%�E�_�c@ذ��ť�¼�)d�� c�("�������ar�𣄿 �����g����ر�excel��" & Chr(1@�& "�������ܵ������ݶ�ʧ����ʧ���71�Can`@&��ܰ��ʾ")� c"��@ �KT�}� �ST)T�KT�ab0clorI�:�x� -41421iҳǩ�����Ϊ��ɫ� �d#5startTi�tle +�K�d�  veû�в��ҵ�ѧ����I���޷��d�Q%���aQ�!�%�����g�g��`9�Qh�W��W�W�Q1writeLo�g + V`'"�"\�����£�?��-�> �y}�5�F�di��2 �: ����һ����Ŀձ ���B�O�����H������Ϊ� �����Q���?�total�Money��&�e�y�F "�?�� }"�Uq��R�}��is k�iP}eH�[Ϊ��>�1��5/In'E '��…����ǰ��Q���C0??9dcbč��Ա�����������}�-j� 1�,�p����=�9�(�j).0��˵�������S��_Iis� = $�ж�forѭ����� ����callFun"c�XQSV ����S��5!ϗ�?�Zw �p&QZ '���� ���>���/�D�= �S��t(��o-o'��1��4-3�:2��5���@�޿ ":�c$��Aε���aAd�����P�~����?�U�B@�d(S) 00s�"��Ҫ���ּ������ϵ��ె�QQ0��������͵��������U%�O� �� !For m = LBound(bsType) + 1 To U *'+1����Ϊ�����е�һ������ΪĬ��У����� "� $val@Entity�Split�(m), ":") '����ȡ���ı�ʶ�����в�������кXź�7��Ht��RLowDJ(0�?� Զ���=����������3v�4��"If iÀS�XThen�)'�@>�bGA1�b;�b�B�ľ�������n@��F)H��'��ǀ�8����=callFunctionXQStar$t �(n�>1, i, j@sValidateC�t '����C$ֵ�����ö�Ӧ�ķ����&�&NextEnd If��!e! mi/��aAYsA?= �False �YM���5�WC��w��"W���?� U U rSoS�Q �M��K�EG=?�row��<> 0�?k�ʽ��3:2��5�_�eǺ� ��� v�� �`�W)� '�����е��������ڵ��ǰa�3E?_ʶ�o?_?��4__�?6�_�J�_�_��_o_9�:���X'ֻ��)��B91���4�'��Y�Y�/�/O$O$O$�O"O"M" ?��o���Worksheets(1).Cells(�).Lo�cked�J�z� =� j}'ִ��� �������ǿ�q� ����Ԫ��������Ϊ�����ϱ����8�Ŀ���UatLeaOneNullls��fA0��=> 6�?�m�er@rorMsgP" ��" &��& "�0\������ArE�H"����������д����������"�hasC= True '�����ʱ��e�д������ϢOOwriteLog^ � ��i<�=�^T+ /~�!�OntotalMo`neySu���+ � 'ÿһ�@�ϼ������O߿4?Q}�>1���$ 'A�������ؼ�����ȫ������������ɾ���_� isNull�RowArr(`Num) = i� �% |z�� + 1+�'��������Ϣ���еĸ���ɾ�����+PFor p�@curMsg� - isValidateCoun�t To ,Y��Sheets(msg�Name).8s(�=).Delete '�`Ѹ���q+pN`ext p�$=J> F+hasEr�r�[= �InZ��End If� ��:����q�0�|Aʭ- 1 '_� �Ч�О+ro�wData���I�Dq)If D!hlen^ ��dŠ�1 , � )�Else���hq �V �3��;qw�&j6> �8>(�~Box "�˴�У����bl��" &�ĠA�8& "���?���ݣ�����������������ж��ʧ�ܼ��auΪ��"��[�feT�e�F�����鿴����������������A�Worksc�1).Tab.ColorIndex-`b672�S`Qcto��J `S��` F�a�Ocheck�XQNew (1��h'Not��E �`n 'ִ�A;����7����,���û��ք�'�������Ƿ��А��Ҫဵą;�<*-4142��setCell ��ueXQ 2,A8, "SUCCESS" '�� ȡ��M�ɹ���־��Ԫ�񣬲���ֵ��ʼ��xΪ0� %n�G��p���!pCO�: ��'E�'�'���'���'�u�'��6�Protect Password:="1qaz�2).�63� Sub 8 '-��!�.ijһ�Ч� � y7(7Dim myDic As Obj�,Key�VarianB?�B4, var#!q|rna�?Active�.Range("A65@535").P(xlUp’ '� �����c-Se0t id�Y = Cre0�S ("Scripting.�tionar�y"VCe" = �"O8"@7Oq`@ �).valup��7ѧ���_���d�������E�ach cara  In� �'�ԁ��໤�˳cߑcAIZ�F� ��V�<> "" �L���Ne .Exis�Х�)� 'ANe�������1��Add�, 1o 'add�#����һ��Ϊ�key�������*Ǚ�A{sSm�y�"=C$.�srA�With �4"�!2W�!G:G�!ClearConptentc0 &1Resize(+�l���Appl(ica1!.�Fun@(on.Tra�nsposa� #�1 � � �'c0= `2hP& !�: ������������������������lWCf���������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��<��<����������@ ��`������������X �����I�\������������ ��x�I�F������������ ����I�H������������ �������`�J�������������� �``������������( ���� �I�b������������ �������@�������������� �� ��`������������� �����I�b������������ �������@�������������� �� ��`������������H ���� �I�b������������ �������@�������������� ��+��`������������� �����i�t����������������i�^�������������������`�v������������H��`�������������H��`�z��������������`���������������`�|�������������� � `������������� ���� �I�b������������ �������@�������������� �� ��`������������x ���� �I�b������������ �������@�������������� �� �@`������������ ���� �I�b������������ �������@�������������� �� ��`������������� ���� �I�b������������ �������@�������������� �� �� `������������( ���� �I�b������������ ��H�I�������������� �������@�������������� �� � `������������� ���� �I�b������������ �������@�������������� �� �� `������������h ���� �I�b������������ �������@�������������� �� �0 `������������� ���� �I�b������������ �������@�������������� �� �� `������������� ���� �I�b������������ �������@�������������� �� �h `������������ �����I�b������������ �������@�������������� ��@�������������� �� � `������������� �����I�*������������ ��� �I�������������� ������� D� `������������X ���� �I�*������������ ��x �I�������������� ������� �0 `������������� ���� �I�*������������ �� �I�������������� ������� �� `������������� �����I�b������������ ��� �I�������������� ������� �` `������������ �����I�b������������ ��@ �I�������������� ������� �� `������������� �����I�b������������ ��� �I�������������� ������� �� `������������P ����&&�I�b������������ ��p �I�������������� ������� � `������������� ���� �I�b������������ �������@�������������� �� ��`������������x ���� �I�b������������ ������� �(`������������� ���� �I�b������������ �������@�������������� �� ��`������������� ���� �I�b������������ �������@�������������� �� �H`������������ ���� �I�b������������ �������@�������������� �� �����`������������� ����!!�I�������������� ����I�F������������ ����I�^������������ �������`�������������� ��`�������������� ��`�N��������������`����������������`����������������`����������������`����������������@�������������� ��`�������������� ��@�������������� ��`�������������� ��@�������������� ��`�������������� ��@�������������� ���(�������` �@��������0 ����H��������������������0���� ������������`� � ����������h � ��� �� ----�r��������0������������������%����� ��������������������H��������������������������������������������������������+P��Z$*\Rffff*0F5af9db0f����� �� �� �B� �� ���� ������� �� ���� � �(� �� �B� ����"�� �0�8�@�H�P� �XB� ���� � ��� � ����p����������� ��B� 0�8��@���������� ����� n� �� �B� ��,��$��" �H�H`� �� ���� �������"��� ����� �8�P�"h�����4���� ��� h � � B� � �� �*� �� �� �� � � � � � � � � � B� � � � �( �8 �@ �H �P �X � �` � � �  B�  � �6( �` �p �x �� �� �� � |� �  � 8 B� P �X �0` �� �� �� �� �� �� � x� � @� `B� x� �� ������������������� �(� x0� �� �B� ������� �(�0�8�@� |H� �� �B� ��$�8�H�P�X�`�h� |p� �� B� (�0�f8������������� |�� X� xB� ������������������ ��� �� �B� ������:��� �8� X�`� h�p�x������� ��� 0� PB� h� p����� �� ���� ���� ���� ����� ��� .hB� �� �� �� ������������ ��� .�B� ������ ������ � �(B� ������ ��&���� �(�D0�4x��� ����������� �(� �0B� ������ ��&��� �(�0� 8� X�(`� ��"�� ����D��4�H� P�X�`������������� ��B� P�X�p� x������� ���� "���� �� <�@�H� P�X� �`B�  � �0 � 8 �&H �p �x �� �� � � � � �"� � � �� � $� � "!� @!� P!� X!� `!��!��!��!��!��!� �!�>�!� "�4@"� x"� �"��"� �"��"� ����� ��"� (#� H#B� `#�h#�p#��#��#��#��#��#��#� ��#� P$� p$B� �$��$� �$� �$��$��$� ��$� P%� p%B� �%��%� �%��%��%��%��%��%��%� ��%� �&� �&B� �&��&��&��&��&�'�'�'�'� � '� �'� �'B� �'��'�(� (�0(�8(�@(�H(�P(� �X(� )� ()B� @)� &H)� $p)� �)� �)�&�)�*�)�" *�$H*�p*�(�*��*��*��*�+�(+�0+� �����H+� �����2`+��+�"�+��+�,� ����� �����,� ,�8,�8P,��,��,�����,��-----------------------------------------1 ��������,���д�����Ϣ��ʾ�� ������Ϣsheet��---------------------------------------� ��ʱ����0� ��Ϊ��ʱ����1������ ��Ԫ������]�� F H \$`%N'J J���'�d���'�k���i�����-----------------------------------------2 У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�H�^[\u4e00-\ue863��]{1,20}$'� � b$���'�d����'�k���i����|-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09(����Ϊ��)---------------------------------------�` b$.���'�z��k��]����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]))))$"��^((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]))))$'� � b$���'�d����'�k���i����|-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09(����Ϊ��)---------------------------------------��ʱ����]�h��^((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]))))$'�е�Ϊ� � b$���'�d��@�'�k��0i��(�h-----------------------------------------4 У�����֤����---------------------------------------�����Ϲ��򷵻�true��������Ϲ��򷵻�false�� ��]�79058421637905842��0��Ȩ����Ϊ��]� 10X98765432�0�0У����$ t$.$x't�'ȥ���ո��]�H�`�x ^  t���6)����׶����֤��Ϊ��,������Ϊͨ��У����� ~'�z���k��� t��GzjΪ�� t��$�$��Gzj� t�*[0-9X]�Gzj� ��� v �$�'|y |��G� '|j z t �$� | 'zF H�� z� '| t�$�  |� �$��G�'�j����i����z-----------------------------------------У�����֤������ -------------------------------------------------------------���ʽ����ȷ����false�&���ʽ��ȷ����true����]��"^[\u4e00-\ue863a-z|A-Z|0-9]{1,30}$'���Ϣ � b$���'�d����'�k��pi��h��----------------------------------------5 -У��ѧУѧУ��ʶ�� 42λ�����һλΪ���ֻ�x-------------------------------------------------------------'�����ʽ����ȷ����false��Ϣ���ʽ��ȷ����true� ]���^[1-9]\d{40}[\dx]$'��� � b$���'�d��8�'�k��(i�� �z----------------------------------------6 -У�黧������ -------------------------------------------------------------���ʽ����ȷ����falseF H���ʽ��ȷ����true��]�(�.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'�== � b$���'�d���'�k���i����u-----------------------------------------7 У����ѧʱ��-------------------------------------------------------------ʱ�����ʽ����ȷ����false���ʽ��ȷ����true �@]���'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'� � b$���'�d����'�k���i����q-----------------------------------------7 У�����-------------------------------------------------------------���ʽ����ȷ����falseд�������ʽ��ȷ����true��� b���д� ����,���Ϊ�DZ�����'�k���z���k���]�h�^((19\d{2})|(2\d{3}))$'� � b$���'�d��h�'�k��Xi��P�q-----------------------------------------7 У���·�-------------------------------------------------------------���ʽ����ȷ����false�E���ʽ��ȷ����true�Ֆ�]���^((0[0-9])|(1[0-2]))$'� � b$���'�d��P�'�k��@i��8�v-----------------------------------------9 У��ѧ����-------------------------------------------------------------====���ʽ����ȷ����false���ʽ��ȷ����true��]���^\d{4}[0-7]\d{3}[0-3]\d{7}$'�� � b$���'�d����'�k���i����v-----------------------------------------10 У��绰����-------------------------------------------------------------A@P���ʽ����ȷ����false\ ����ʽ��ȷ����true��]��^\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'�Ϣ � b$���'�d��@�'�k��0i��(�v-----------------------------------------11 У�����п���-------------------------------------------------------------ʱ�����ʽ����ȷ����false���ʽ��ȷ����trueH�0]���^[1-9]\d{14,20}$'� � b$���'�d��( �'�k�� i�� ��-----------------------------------------checkXn У��ѧ���磨2012-2013��-------------------------------------------------------------�����ʽ����ȷ����false�������ʽ��ȷ����true���]�8 ]�P �1^(20\d{2}-20\d{2})|(19\d{2}-19\d{2})|(1999-2000)$'� � b$�� b�-$�'�====�$��$� ��==�'�d��� �'�k��� d��� �'�k��p i��h ��-----------------------------------------checkOption У�鱸ע�磨����С��value2��-------------------------------------------------------------������Ȳ�С��200����falseA@P� ���򷵻�true����h *��A@��'�z��p k��h * � �==�'�d��H �'�k��8 i��0 ��------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)----------------------------------------------------------------ʧ�'value1����value2����false ���򷵻�true� *X'*ʽΪ �X'�� * � ��"�'Dd�� �'Dk�� i�� ��------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)-dec---------------------------------------------------------------=====��'value1����value2����false ���򷵻�true==�� *$4'* �$4'�Ϣ * � ��'�d����'�k���i����}------------------------------------------------------У�鳤��---------------------------------------------------------------xxxx�0 ��,$�'�221��'� b�����$����/���Ϊ�DZ�����P�'�k���z���k��� �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±�0 У b�$�$4 b�$�$4��'�z��@k��8d� ˵����У��̶����ȣ� b�$�$4�ʽΪ�'�z���k���k���i����}------------------------------------------------------У������---------------------------------------------------------------A@��� ��,$�'�====�'� b��===c�$����/���Ϊ�DZ�����==�'�k���z���k��� b$���& �����Ϊ����z��� b�.��e�+�������С����z��p b$4�e�% ���С��0'��z��@k��8 �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±�A@� b�$�$4 b�$�$4�=== �'�z���k���d� ˵����У��̶�����====== b�$�$4�KT�'�z��Pk��Hk��@i��8��------------------------------------------------------У����ֵ��Χ---------------------------------------------------------------�` ��,$�'�HA@�'� b�� ��'�z��hk��` b$���) �����Ϊ����z��8 b$4�e�) ���С��0======z��k�� b$4�$�$4 b$4�$�$4�$��'�z���k���i�����------------------------------------------------------У�����ֳ���(Number,����Ϊ����Ҳ����ΪС������С��0)---------------------------------------------------------------�� ��,$�'�T==�'� b��====�$����/���Ϊ�DZ�����==�'�k���z��xk��p b$���% �����Ϊ����z��H b$4�e�% ���С��0� z��k���$�'��+����������󳤶��$�'��.С�������λ�� b�.�'��'��'� ����"˵��û��С���� b$4'� ��$�$4��'�z��@ k��8 d� �����С���� b� b�.�� $�'��D��Ԫ�������ֵ�����λ b b�.�� $�'� ��$�$4 ��$�$4��'�z��xk��pk��hi��`��-----------------------------------------checkIsInt У�鲻С��0������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ]�� ^0|[1-9]\d*$'� � b$���'�d��X�'�k��Hi��@��-----------------------------------------checkIsNumber У��ΪNumber����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true� �'� b$���'�k��Hi��@��-----------------------------------------checkMoney У����0-9999������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]��^(([1-9](\d{0,3})|0)|0)$'� � b$���'�d��(�'�k��i����-----------------------------------------checkMoneyTJ У����0-9999С�����һλ-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�(]���^([1-9]\d{0,7})$'� � b$���'�d����'�k���i�����-----------------------------------------checkPersonNum У���׶�԰��������һ����------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�0�^(([1-9]\d{0,3}))$'� � b$���'�d����'�k���i�����-----------------------------------------checkIdNumLink У�����֤�����Ա�ͳ����������û���д���Ƿ�һ��------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�H� If colIndex = jhrIDColumn Then� checkIdNumLink = True� Exit Function� End If]��%�Ա�����֤�����Ƿ��Ӧ]��$�������ں����֤�����Ƿ��Ӧ]�0����ڵ�һ�γ��ֵ��±�]�H�"�Ա�,��Ԫ��֮�ڵ�����]�`�$��ݺŽ�ȡ������]�x�!��������,��Ԫ��֮�ڵ�����]���"��ݺŽ�ȡ������]�����#�������]�����%�����·�]�� ]�8 ���$�'� ���$�'� �� ���(�����ڶ�λΪ��������Ϊ������� F n X$T,Nd������ڶ�λΪż������ΪŮ���Ů F n X$T,Nk��� ���$�'� ���$�'� ���$�'� ��- � �- � F p X$T,N�'�i��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�Dplreh �@"^[\u4e00-\ue863��]{1,20�}$�5@_@ CA��(, �aBW�� Wa� k]�R$](����]'u]Neces�sar�^r� Q�P�;�`Lr5�P�;�g;2_;}��)��E6&�u?k�= ��e�e�� 4�' 1f����֤��������Ϲ���1d�b'��I�e�G IsIDNumber(By� ~ ��~, ��� ���)�Boolea�zConst W'�K7905@842163�"r'��Ȩ��,��CP�c�10X9876543�2C'����S& = UCase(rZU)) 'ȥ���ո� Q-s�Inte@ger, i�T�PC�= ba byIDC�� A�l4�Sa ��0�׶�eA:,������Ϊ�x���1 �� s�Fl� ��c ��c�� Len(@ <> 1820 �� � Not�� eric(Mid��, 1 7P�� f�5Lik�e "*QgX]�E_ � For�= 1 To 17�C�T�qW�o���� �0� �1`��1sps + ; i! * TaNext��s� Mod 1��A�Right)��c, T�#E������}�¿;� ��"����������@��_�Q_�G�SFZJLX ڏ�` M�a-z|�A-Z|цХ3ߥ��ȁߥ���2w� ���ϥV/X,X//�5!3-�ѧP0��ʶ�� 42λ����`��һ�@�a����x�?��؟�ckSchCxodeO����4�0}[\dx]/��kO��C�_�f�ooo--6(��������~ �_W�����ȷ����true Function checkFamType(val@ue) D�im reg0 = "^(\u519c\u6751)|3bf@\u95477ceFe02)$�"vIf�Cgu(K, i Th�en%r �nT��Els�  &FaEnd If � '-%7 У����ѧʱ���;��ʽԲ��f�S'� � RXDat��((19�20))\d{2})((0�[0-9] 1�2])5�� �`F �`�FP�`���QU�!�_Year�, fD�ArgsAr�rD�����G""��/Ũ� @ 0 '���Ϊ���������ǿ����"� �I����Exit G���j{�s� �{�II|�(23}�G��, 0x�G>$dG��Gz G��Mon�th���t���*D�-�?-�"�9�Ja��ѧ����8c�-�-XJH�-Y4�}��7]BZ 3!�7}��)Q[�.C'�-�&$10ӵ��������8��i_�P�Phon0eNum?l�\b��i(([38��hP4[57Ai5�5Sjk8}�0�0!p2[\d�j-["2�\d*�[3Dz�mg)\bo��N�o�R�q*I� �A?p��11����п��2OB�ank�=�[1c�14,20_2Т_��^����4oo�g�Xn@�I���磨201�2-@3��_?pXn�_U�xy �sc����20�J2}p r�0�19t99|00o�_�L2Split� , "<-"4�q30�R(1�) - �0)0�1���= ۊ�h_����olkp=~ �"�" O�pR��9��ע#����С���R�2_#�P#�IJ�2001إ�����?٣}� �z1�2�2 1@��4�h �����E�Le�-�@">c�2�!V���L ?#Q5� �� ?qg�`O�Ȁ�ϴ�С(�е���)�� ���&��! �!��omplar��! #!CIn�=1`#� value2 = CInt(h) �If L1 > 2 Then�Pcompare�Fal4se@E \Tru -nd If  EFunct$iol'-2���ϴ�С(���ڵ��ڷ���to)-d�ec�)� '��P���ڂ2/f��~ ����6 �d ��Dec��1,����*��� �2-��lC �m�_У��8���#�]he ckLen], �fD�Args�N�Arr�ESplit(�, ","=� c�QEb@""GT�� (0) 0� '������DZ������O݁�H e���������xit �l�Dp�`UBound� �#Á '�±��0��ʼ����ֵΪָ��������ά���õ������ F4) > � Mm(1)) A� H(� E3'��.�� '˵�����\�̶��\s!: �� H�!? �*� ��F�GJ���Ry�#�������% ������c&�b+@ �v,�Zb� ��on����j5�(?�����(Not IsNumeri�k)8J������>��,���� InStrY".@") <> �O����С�����oK 6`CQC�r= a�0����-p?Ps�?P?P?P�Rkr@pX??Pg�1?P���d?P�|�O$���$?P?P�I�?P�?P�3Ps:�_2�� >� ?P���K1P��ֵ���Χ}P�Val������$IL�����0���PP���'����=A�`#�Je�J��J�o�Q2�E �� K�E��/��#�� )L�?@3@0t�����B/2�E��y_ �5q���)s/�ֱ�(�fber,�ɐ��Ϊ�Ҳ��aa����)��1P�1�1�1�ʪ�1�1��1�1���0� �'��K�Tr � ue End If�xit Functionx \If Not IsNumeric(value) Then '�����Π����� �E^�lseRCDeI<= 0NС� �0#K�maxI�ntL�M= fnArgsArr(1) '�����������0���� 4�DoPuble 2 � �����λ�� i���Ce! (�, 謿� )� �i�_�F��E�k.?.e%�`yb$er�.Ϊ������8*_.�0s.#��. = h @-R٧'�,C +-�V(E BM oney "(�� ��0-9�����_%8�(_ �+�+((�+(\d{0�,3})|0!_,�k_,Ђ *C= Ga�_,kE_, _,�d--TJ=#t���һλ�W�?D��,cTJ��DD�7})�??�?ey`_�Q0�0RbOrPersonp6��׶�԰���������һ������ooo��v �oO1�01�c��k���������Id�Link����֤�����Ա��ͳ����������û���д�������һ��Oooo`� (�, rowIndex, col;�w�'`�f@]jhrIDColum�n�Ƿ1' F�`!vo���1J���isGe rRight As Bopolea��CE��ϡ��Ӧ� �`Birth���F�/+len@�2S���eg�|'q��һ�γ�πֵ��±�[gb c�` ��ing 'Q ,t����@�����ݟer�1J� �Ž��ȡom bq��e?��a�"� �1Ayear , QBVari ant '1���l month,& b����da8y, @��arvr�1�'Q�T.1 7,Z�6/� birthValue1 = Mid(IdNum, 7, 8)  (If @gender�Mod 2p1 Then '�����ڶ�λΪ��������Ϊ������Sheet�s(sITxT).Cells((row,rCo lumn)m"Ą�"NElse y$żyŮKyŮ����&�� � X�h�p��� h�� �*� H�h�x�j��&�� �(�8�@�`� `h� ������ �� H�(xX� H��(�� H��(p� Hp�(��� P� &X� �������� n�� 0�@�X� `� 8x�(��� Hh�(��� `� &h� �������� b�� 8� X�h��������&(� P� ,`������� f�� (� H�X�p� x� 8��(��� 8p�(��� H� &P� x������� f��  �(8 � ` � Tp � &� � � �!�!� $ !� &H!�$Xp!�$&�!�$ �!�$"� "�"�  "� 0"�$t8"�$&�"�$ �"� �"� $������"��"� �����#� #� ^(#� �#�"�#��#�@�#�&$� 8$�H$� P$�p$�x$��$� ^�$�%� %�8%�@@%�&�%� �%��%� �%��%��%�&� b&� x&��&��&� t�&� &('� P'� �����`'�h'��'� b�'� �'� (�0(�@(��H(�&�(� �(� )�)�)�8)� ^@)� �)� �)��)��)�X�)�&P*� x*��*��*��*� ^�*� +� 8+�H+�X+�X`+�&�+� �+� �+��+�,� ,� ^(,� �,� �,��,��,�T�,�&0-� X-� h-�p-�x-��-� n�-� .� 0.�H.�"X.���.�&/� 8/� H/�P/�X/�x/� j�/� �/� 0�00�"@0��h0�&�0� 1�(1�01�P1� PX1��1��1��1���1�&h2� �2� �2��2��2��2� R�2�03�H3�`3�Xh3�&�3� �3� �3�4�4�(4� b04� �4�$�4��4�@�4�& 5� H5�X5�$`5��5��5��5� ^�5� 6�&06� �����X6�@`6�&�6� �6��6�&�6�7�7�07� Z87� �7�&�7��7�@�7�& 8� H8�X8�&`8��8��8��8� f�8�  9�,@9�p9�@x9�&�9� �9��9�,�9�(:�0:�P:� |X:� �:�$�:�;�( ;�@H;�&�;� �;� ������;�"�;��;��;�<� | <� �<� �<��<�@�<�& =� H=�X=� `=��=��=��=� |�=� 0>�$H>�p>�@x>�&�>� �>��>�$�>� ?�(?�H?� dP?� �?� �?�@�?�&0@� X@�h@�2p@��@� x�@� (A�6HA�.�A��A��A�( �A�2�A�( �A�1�A�( B�2B�( (B�18B�HB�PB�JhB��B��B��B��B��B� f�BB� XC� `C�<hC��C� �C��C�$D�$(D�PD�XD� ����� �`D� \E� ����B� hE�,�E� 0�E�@�E�"(F� ^PF� 6�F��F�G� G�@G�0`G�D�G��G��G�H�H�H�H� � H� "�H� �H� .IB� 8I� @I�$PI�BxI� �I� �I� �I� �I� �I� J�J�J� � J� �J� �J� �J� KB�  K�"(K� PK�hK�pK� xK��K��K� �K�8�K��K�2�K�(L� @L� `L�pL� xL��L� �L��L� F�L�M�M� M� M� *(M�XM� �`M� N� NB� 0N�8N�*XN� 4�N��N� ��NB� XO�^`O� v�O� �O� ��O� HP� `PB� xP�*�P��P� ��PB� HQ�^PQ� vpQ� �Q� ��QB� HR� PR� "hR� �R�8�R�2�R� S� 8S�XS� hS�pS� xS� �S��S�"�S�0�S� T�((T�PT�XT�&`T��T� �T��T� ��TB� 8U�@U�V`U��U� 8�U� V� 0V�:@V�4�V�$�V��V�"�V� W�(W�0W����@W��-----------------------------------------У��У����������д�����Ϣ��ʾ�� ��ע��-----------------------------------------------------------�� ��Ԫ������]�� F H L%N'J J���'Dd��(�'Dk��i����--------------------------------------------д��־ ��¼������Ϣ����ʾ��һ��������Ϣ����--------------------------------------------�� R X� V$T,N X� 'Xi��X��------------------------------------------------------ ��ȡָ����cellֵ-------------------------------------------------------------IDL�( F ^ \$`%N!b'Zi�����--------------------------------------------д��־ ��¼������Ϣ���ú�ɫ������ʾ��������Ϣ����--------------------------------------------�� R'fFFE R X� V$T,N4F�� f X� V$T%N%h!j(lice X� 'X1i����i--------------------------------------------�����ע�������ʼУ�飩-------------------------------------�errorInfo��ע�����X� 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p F H \$`%NB@r��� F H \$`%N!t(v�W ��ӻ�ɫ����� F H \$`%N!x(zi����i--------------------------------------------ɾ����ע�������ʼУ�飩-------------------------------------�0�1Worksheets(sheetIndex).Unprotect Password:="1qaz" F H \$`%NB@~ F � H ��� F H \$`%N!t(ld��� � F H \$`%N!t(lk��pi��h�r---------------------------------------------�����ʼУ�� �Ƿ���ӻ�ɾ����ע���õķ���----------------------------�� ��� ���У��ʧ�� F H \$`%N!x���d �ж���עΪ�� \ F H �A@n�V �����ע����d�"����Ϊ�գ���ȥ����ǰ��ע��������� \ F HA@|�N �����ע���� \ F H �A@nk����1 MsgBox "��" & rowIndex & "�������" & errorMsgd� :���У��ɹ����ж��Ƿ�����ע���������У��ʧ��ʱ����עȥ�� \ F HA@| ���,#�������ȥ���ո���,����������ʾ��� F��У��� H��У���������ַ��"$4 ��"$4�"�а����˿ո�ϵͳ���Զ�Ϊ�������A@Pd��`k��Xk��Pi��H��----------------------------------------------------------------------------------------------------------------------------------�y--------------------------------------------���ݱ�ʶ�������ö�Ӧ�ķ���(�����ʼУ��)-------------------------------------��----------------------------------------------------------------------------------------------------------------------------------��Ѵ�����Ϣд�������б��� F H \$`%N'b � H \$`%N'��I��ȡ���б�ͷ������ �������Ϊ�ϲ��еı�ͷ �� H \$`%N'� F �e � H� \$`%N'�k����0'� �� checkLen*��)���Ϊ��������У�� �� $�'��checkLen'� �� checkNum*e�-���ΪNumber����У�� �� $�'��checkNum'� �� checkVal*e�-���Ϊֵ��У�� �� $�'��checkVal'� �� checkInt*e�-���Ϊ����ֵ��У��y �� $�'���checkInt'� �� checkTerm1e�-���"�ǡ���"Ϊ�����1'�� checkTerm'� �� checkYesNo1e�/���"�ǡ���"Ϊ����1'�� checkYesNo'� ��checkDiffName1e�2������Ѽ�������Ϊ�����1'�� checkDiffName'� ��checkDiffCode1e�2������Ѽ������Ϊ�����1'�� checkDiffCode'� ��checkIDCardType1e�4������֤������Ϊ����1'��checkIDCardType'� ��checkSqyyName1e�2�������ԭ������Ϊ�����1'�� checkSqyyName'� �� checkYear1e�. ������У��1'�� checkYear'�k��� ���_=================================����1 ִ�еķǿ�У��==========================================��Ѵ�����Ϣд�������б�� checkNullKT \ F H$�'� ����� F� �е������ ������Ϊ�գ�����'��'��)����У��ʱ������д�����Ϣ �A@P�RMsgBox "��" & rgold.Row & "�е������" & Chr(10) & titleMsg & "����Ϊ�գ�����"k�� \ � F H �A@����y�'��a=================================����2 ִ��ѧ������У��==========================================� checkNameKT \ F HA@��@����ȥ���ո�ķ��� F H \$`%N!b'b b$�'� ����� F� �е������ ��;��д����ȷ������Ϊ���֣����ȴ���1�����ܳ���20���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@P �� '�k��� \ � F H �A@��'��Z================================= ִ�еij���У��==========================================�checkLenKT b �$�'� �� ��,$�'��$�� �����` �������Ϊ�DZ������Ϊ�̶����ȹ�� F� �е������ ��.��д����ȷ���������Ϊ�ա�����д���򳤶ȱ���Ϊ�$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ���ȷ�Χ��� F� �е������ ��4��д����ȷ���������Ϊ�ա�����д���򳤶ȱ�����ڵ����$�� λ���Ҳ������$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ�̶����ȹ�� F� �е������ ��&��д����ȷ�������Ϊ�գ��ҳ��ȱ���Ϊ�$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ���ȷ�Χ��� F� �е������ ��,��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ����$�� λ���Ҳ������$�� λ������'�k��� �'��0����У��ʱ������д�����Ϣ �A@Pk��h \ � F H �A@��'��h================================= ִ�еij���У�飨Number���ͣ�==========================================�checkNumKT b �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� F� �е������ ��G��д����ȷ���������Ϊ�գ�����д�������Ϊ���֣�����0������λ���Ȳ������$��λ����С��λ�������$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ�̶����ȹ�� F� �е������ ��?��д����ȷ�������Ϊ�գ��ұ���Ϊ���֣�����0������λ���Ȳ������$��λ����С��λ�������$�� λ������'�k����'��0����У��ʱ������д�����Ϣ �A@Pk��X \ � F H �A@��'��[=================================ִ��ֵ��Χ��У��==========================================��Ѵ�����Ϣд�������б��checkValKT b �$�'� �� ��,$�'���� F� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@P�& isValidateCount = isValidateCount + 1k��h \ � F H �A@��'��_=================================ִ�е�Ϊ����ֵ��У��==========================================��Ѵ�����Ϣд�������б��checkIntKT b �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� F� �е������ ��8��д����ȷ���������Ϊ�գ�����д�������Ϊ���������ڵ����$�����ҳ��Ȳ������$�� λ������'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� F� �е������ ��0��д����ȷ�������Ϊ�գ��ұ���Ϊ���������ڵ����$�����ҳ��Ȳ������$�� λ������'�k����'��0����У��ʱ������д�����Ϣ �A@Pk��p \ � F H �A@��'��`================================= ִ�е����֤����У��==========================================� checkSfzjhKT \ F�$Z'��S ��ȡ��д���� ������ F� �е������ ��&��д����ȷ�������֤������Ϊ�գ�����'��'��0����У��ʱ������д�����Ϣ �A@Pd��� �� �������֤� b H$�'��O ���֤��У�� ���:������������֤У�������� F� �е������ ��*��д����ȷ���������Ϊѧ�����֤�ţ�����'��'��4����У��ʱ������д�����Ϣ �A@P �� '�k���d��� b$�'� ����� F� �е������ ��E��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ���1λ���Ҳ�����18λ������'��'��4����У��ʱ������д�����Ϣ �A@Pk��k��k�� \ � F H �A@��'��X================================= ִ�����֤������У��==================================� checkZjlxKT� checkZjlx b�1$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd���!� checkZjlx \ F HA@�k���! \ � F H �A@��'��W=================================ִ���꼶У��==========================================� checkYearKT� checkYear b�$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��@ � checkYear \ F HA@�k�� \ � F H �A@��'��\================================= ִ��ѧ���ŵ�У��==========================================�checkXJHKT b�1, 1, 50$�'� ����� F� �е������ ��E��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ���1λ���Ҳ�����50λ������'��'��0����У��ʱ������д�����Ϣ �A@Pk��� \ � F H �A@��'��[=================================ִ�����п���У��==========================================��Ѵ�����Ϣд�������б�� checkBankKT b$�'� ����� F� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@P�k��� \ � F H �A@��'��W=================================ִ�����У��==========================================��Ѵ�����Ϣд�������б�� checkYearKT b �$�'� ����� F� �е������ ��*��д����ȷ�������ʽ��2012��2002�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@Pk��p \ � F H �A@��'��W=================================ִ��ѧ��У��==========================================��Ѵ�����Ϣд�������б��checkXnKT b$�'� ����� F� �е������ ��)��д����ȷ�������ʽ��2012-2013�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@P�k�� \ � F H �A@��'��W=================================ִ���·�У��==========================================��Ѵ�����Ϣд�������б�� checkMonthKT b$�'� ����� F� �е������ ��&��д����ȷ�������ʽ��01��12�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@P�k��� \ � F H �A@��'��g=================================����3 ִ�е�����У��(�DZ���)==========================================��Ѵ�����Ϣд�������б�� checkDateKT� b$�'� ���2�����������У��ʧ����� F� �е������ ����д����ȷ����д��ʽΪ�"$4� xxxx-xx-xx�"$4� ����2013-02-21������'��'��-����У��ʱ������д�����Ϣ �A@P�k��� \ � F H �A@��'��c=================================ִ�е�����У�飨�����==========================================��Ѵ�����Ϣд�������б��checkDateNecessaryKT�& b$�'� ���2�����������У��ʧ����� F� �е������ ����д����ȷ����д��ʽΪ�"$4�xxxxxxxx�"$4� ����20131221������'��'��-����У��ʱ������д�����Ϣ �A@Pk��� \ � F H �A@��'��J=================================����10 У��绰����======================� checkPhoneKT b$�'� ����� F� �е������ ����д����ȷ����д��ʽΪ�"$4�����-�̶��绰 �� �ֻ������"$4� ������'��'��%����У��ʱ������д�����Ϣ �A@P�k��P \ � F H �A@��'��L=================================checkOption У�鱸ע ======================� checkOptionKT b�B$�'� ����� F� �е������ ��)��д����ȷ�����Ȳ��ܳ���200���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@P�k��� \ � F H �A@��'��\================================= ִ���϶����Ѽ�������У��==================================� checkDiffNameKT� checkDiffName b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd���� checkDiffName \ F HA@�k��p \ � F H �A@��'��X================================= ִ�����֤������У��==================================�checkIDCardTypeKT�checkIDCardType b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd�� �checkIDCardType \ F HA@�k��� \ � F H �A@��'��T================================= ִ�вм����У��==================================�checkDisableTypeKT�checkDisableType b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��� �checkDisableType \ F HA@�k��p \ � F H �A@��'��`================================= ִ�м�ͥ������Դ�������У��==================================�checkFamilyIncomeTypeKT�checkFamilyIncomeType b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd�� �checkFamilyIncomeType \ F HA@�k��� \ � F H �A@��'��v=================================14 checkGender ִ�������Ƿ�Ϊ���С���Ů��У��--==================================� checkGenderKT� checkGender b�1$�'� ���'��-�Ա��д�������У�����֤�Ź�� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��8 � checkGender \ F HA@�k�� \ � F H �A@��'��u=================================14 checkYesNo ִ�������Ƿ�Ϊ���ǡ�����У��--==================================� checkYesNoKT� checkYesNo b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd���� checkYesNo \ F HA@�k��x \ � F H �A@��'��u=================================14 checkYesNo ִ�������Ƿ�Ϊ���ǡ�����У��--==================================� checkSqyyNameKT� checkSqyyName b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��� checkSqyyName \ F HA@�k��� \ � F H �A@��'��]=================================checkTerm ִ��ѧ��У��--==================================� checkTermKT� checkTerm b �$����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pk��� \� checkTerm b �$� F H �A@��'��r=================================checkAtLeastOneNNull ִ������һ�����Ϊ�ǿ�--==================================�checkAtLeastOneNNullKT �� '��A"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ b$� b���=��������Ϲ��� � b '� H� �KTF � b '� �KTF � b '� �KTF � b '� �KTF � b '�n���d������Ϲ��� �� '��F6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ � � � '�k��(�'�n��i���_--------------------------------------------����������ʽ-------------------------------------��]�p��VBSCRIPT.REGEXP$�.��7RegExΪ����������ʽ� �(��4 ����ȫ�ֿ����vba��\����ת�� � �(��.������ʽ� �(��5�����Ƿ����ִ�Сд�� b �%�'��3 ִ������������.�i�����-----------------------------------------------------------�°� У���ظ���˵���Ѿ�û�и�ʽ����------------------------------------------------------------�V-----------------------------------------------------------1����ѧ���׶������ڱ��ڲ������(sheetѧ���׶��� �A65535 �$T%%�!'��*cna = getTotalColumnCount(sheetIndexValue) V$T!NB@�1&ÿ��У���ظ�ʱʱ���Ѵ�����Ϣsheet���,�'X�������Ϣ��¼��ʼ�����X==============================��ѧ���׶������ڱ��ڲ���==================================�0����ð������ÿ��Ԫ�غ�����֮ǰ�������н��бȽ�  �� ��   �$T%N'   �� � �   �$T%N'  ��.���ѧ������ͬ��˵�����ظ����ݹ�� � �е����ݺ͵� ��������ظ�������!!!!'� �A@P�*�Ѵ�����Ϣ����'k���C��C��Ci���C��-----------------------------------------------------------��һ���� ����ֵ��ȡ��ֵ������------------------------------------------------------------�����ֵ�����ҵ�ֵ���ڵ��л����keyWord ���ҵĹؼ����'kbn ���������л��� ֵΪ ��row�����row��']���the find result object� � "�  &�$� A1:A65535 \$`%%. �� �row� !'d��B !('k���Ak���Ai���A��------------------------------------------------------ ִ������ڹ���У��(����Ϊ��)-------------------------------------------------------------�value ���������value1 cell�������У�鲻��ȷ����false�У����ȷ����true�� ,�0��˵��Ϊ�DZ����� *$.���'�z���@k���@k��x@]���'2�ijһ������ļ�¼�� �A65535 6$T%%�!'4�B�������'� 6 b�row$'0�=��ȡ��������������  0 4� � 6$T%N b� 2� '2d���?y���?k��x? �  0 0 2 � � � 6$T%NX *X ��L�жϹ��������Ƿ��cell������'�y���>k���> ��#��ʱcount��ĿΪ�ù������е�������Ŀi���>��------------------------------------------------------ ִ��ɾ��ijһ�в�����excel�ܱ����ģ�-------------------------------------------------------------�sheetIndex ����� rowNum �к����1qaz�< \$`B@: 4 \$`%>B@@�/ �Ѹ���ɾ���- Worksheets(sheetIndex).Protect Password:=123i��8=��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�8 �1qaz�< \$`B@: b F ^ \$`%N(bi��X<��------------------------------------------------------ ִ��ɾ��ijһ�в�����excelû�б�����-------------------------------------------------------------�sheetIndex ����� rowNum �к�� 4 \$`%>B@@�/ �Ѹ���ɾ��i��H;��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�� �1qaz�< \$`B@: b F ^ \$`%N(bi��h:��------------------------------------------------------ ���ݴ�����е���������ֵ��ǰ��ʱ�������Ѿ�ͨ����У�飩-------------------------------------------------------------�� ]�X �p �� F ^ \$T%N!bX 'J�'2�ijһ������ļ�¼�� �A65535 6$T%%�!'4�F������ 6 b�row$'0�A��ȡ��������������  0 4� � 6$T%N b� 2� '2d���8y���8k���8 �  0 0 2 � � � 6$T%N!bX '* * JX ��1�жϹ��������Ƿ��cell����� � 6$T%N!b'H HX F ^ J \$T%N(by���7d���7� F ^ J \$T%N(bk��p7 �i��X7��------------------------------------------------------ ȥ��cell�еĿո�-------------------------------------------------------------�� ]�X ���Ԫ�����������]�p �� �3Blength1��ʾcell��ԭ���ij��ȣ�length2��ʾִ��ȥ���ո����ַ��������'��Ĭ��Ϊû��ȥ���ո��2 Worksheets(sheetIndex).Unprotect Password:="1qaz" F ^ \$`%N!b'* *'L L��Gzj�*"�����Ԫ��Ϊ�գ�����ȥ���ո���� *� �'N�%length2Ϊ�ո��һ�γ��ֵ�λ�� N�������ַ��������ո� *� �$P'* *X F ^ \$`%N(b�'�k���4i���4�����4������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�� ��ȡ� �����A�ֵLJpHDget��B�CountXQ(�sA�D�ʴ �A��?�Work�sHEQy�.vA`%2G�ú�ɫ����C��G3 �GRed�VHnLen� �EKzKRcR.Characters(�1, �).F]�.Color�73?VJx�x�&���!���������ʼ����s+#�` errafo�å��addCo�mmwXQC�VUů�,  �0™�'�TUnprotect Password:="1qa>z �e��\N�.A� (�� � I��0rior#=�<65 535 '�1���ɫ�����>%� � d/.Visi1 6K� ��Ye�sNo -k2� ? DiffName�����Ѽ���a�?%D~�� �Cods�����l�A!� � �'HBIDC0ardTpM�����֤�������� xo�(��/�  kSqyy�����ԭ���� �_ _ "] e? ? kYear�Z���?M�A_ _ �] � LlSelect Ca�se �� �=CQ1 ִ���ǿ�1 ?O�?�C�� D� 3tNull� U�nMet`hodXQ�-�R�equired�������t�~ Not �!��E error�"��", &���"!���������& "�������գ�����/F haLsE�`TrP�'����qʱ�r����u�� fw�riteLogF ��' Box 5 gold.RowO & Chr(�10)�� � �� T��beginC�_comme�nt�����,?��isFor��. o+�.2�.ѧ�������/_Ky-iO remo�veSpacep-''��� '��ȥ����ո��������Ƒ�).�/Ek2=c3StuqX(�2/6/6�;/6�V��5�5���5��д����ȷ�����Pt����������1��8����2�0����q�*���_8_8����8���E\��+ 1?55� sheetIndex, checkMethod�XQ, row� olumn0errorMsg  isFor = True '= ִ���ij���У��/ zCase "�Len"�� ��2(value, functionArgs)#If No�t�� Then�@�0Ar��Split(� , ","?�%C '(0)�j0 And U�Bound ,8�1�U '�������Ϊ�DZ������Ϊ�̶>��d�3�"��@"���" &Ǝ�"�x�������title����д����ȷ���"����Ϊ�ա��B�������"�`���ΪA�<1)�λ����0�����+El4seuO2]OA+��dΧOexA6O��AO���ڵ��Bg�P��Ҳ�г���1-2?-%,q?-= 1�T`j�T�?-��T�T�T��Ě��T� &�S "�S�e��S�&�S���S�� �&�&�&�R`'�R?,%IE �IfGhasE����� '����a�ʱ����д�����Ϣ� writpeLog*W�b eginC��_c�omment�"�?�i}?z }��Number����ͣ��{��}��] �}�� �}��}X�a�}�}�|U�P#�}�}�j�}��oQ�{���>��h|& �{�{�1�{�{� ��֣��>0�������λqS7�f����(v}�?С����i��?Vs�Q�?VD�������//����i���0cW�7������M��W��W�W��W �� ��d�W�W_����W_ԟ��W�R��ֵ�}<���Կ�ڰ�!ulд����Ќ��Xt�Val�X��W�W��W�Wg �W�XQB����W�W��W] ߎ�̿�g3�8�7߷g5G& "���N�P?�� �3�3�3H�� writeLog er@rorMsg�' isValidateCountD ="+ 1�E nd IfbeginCheck@_commeYsheetIndex, cMethodXQ, rowolumn� �isFor�UTrue '=ִ�е�������ֵ���У���0�Ѵ�����@Ϣд����б�{Case� "mInt"�� ~b�(value, functionArgs�)�"�] Not�R� Then� E�IArRSplit�(�, ","��If ,�(0)@50�" '��������Ϊ�DZ������Ϊ��������ȟ+�Ń@"��" & ��"Ax������tit le@����д����ȷ���"����Ϊ� գ������@�����C������ڵ��#� K(1)A����A/�������� 2� λ��������A�7 Else�S1?�S� �)�)�)��$���)���(gs��D�(��(���HBphasE�J!� '����a�ʱ� C�V���~�T_������ck��>���k� è���֤����ߨ K(�� Sfzjh�cre sZjlx 5ge�tCell��uc�8XQ(iˇ� p'��ȡ!|�����{8o� ""�m;�9Chh����*�����"i���$_,_,��k� Eu_,�8KO�������?�� sIsI�DNumber%s�cg�) '��)� =� tqt�k������#�.�����OM��!�)d�j��j�j#Uѧ��� �Oe/"/"/"/�o"o"�ߦߦߦ�SW?�)? ܓ=�S�FZJLX�%�n�$XQ�C�o"o"�_�!$qMY�Yx��a#���1t ��18�t� �$$$O$$��o �/:�����??_5/| ��� �L,O�/|+{��"|CD���f/|�=={�{1y�{b ][a�DMB(#Ғ,� 4�"1����5�5��V5555�w\� /1/1/1\o0o0!�Lڳ setDMBCode "checkZjlx", sheetIndex, row$column  �End If6beginCc_comme nt e}MethodXQt, e�rrorMsgbisFor = True '=ִ�����У���=Cas�Year�"G iK��(��, value, 1)"If Not �%Then���9"��" &�"�������������title�T���д����ȷ����0���6�hasE�c�\ '����Rʱ������д�@����Ϣ�*w�riteLog\v� Els�t������V��N����̪ ��ѧ���ŵ���(�ZXJHX?�QB=�SLen(�Y"�1Z, 50"�Z?�?[HK?\?\�������Ϊ�գ������ȱ������ڵ���1λ�������50��b��c��cf�dF7ny���\ck����� ��\a\���п��N�\i ���%�����a�б��k$�_Bank�_�^�A�^?] {�A$�\�\�\�ZΪ���� ���-�_functionArgs�Arr(0)Q`G/�?r(13�0! >�0ObOb� O0/��y'/0�/0��//�9�/, x�/�E //+.�!/�����.�.��.�.�r���.ࡡE^�#�/f�o^XQ �/g��/?u�!*O�O�@�"^��ʽ��2012��2002���ύ���+�+�+��+��V�)��)�)�)�)?����)O&�)ѧ����)�)�)���)Xn�X�)�)Xԇ��(� A�(�(���(_�(��a*���(-�(3��(��(�(�(��(��([oT��*��*�*��*�*�*��*'�*���oT_�*�*���*Month�*�*��*��� G�*�*,��*ro�wIndex & "�е�������"�titleMsgl��д����ȷ�������ʽ��01��12�ȣ�����" hasError = True '����У��ʱ������д������ϢIwriteLog\ eO�/'E nd If�beginCheck_comment@ sheet��, c� Metho�dXQ, ro�� olumn�OisF� '=����3 �B��������(��DZ���)�4�х�д�B���б��?C ase "�8Da�te" �O B@v�Birthday�(value)OW���If NotKS� Then '�����E;ʧ���[�!"��o��e�$������AChr(34�)x-xx�  ��2013-�02-21���ÿ�ÅX����aD`c�a�!�a�\+a��a �>���a"'laNe�cessary�b����bF�c�c�c��;�c߿��c!duc12?ce?�?�c ?�e ?�?�?�N�?_�X!�10 ��绰�8����\��hXPhxone�o\�o�N�um�*D�[XQ�[��Z/(Z��W�/(Z����-����� �� ��ֻ�?)Z$ b��'����'�� u~ _(T��������o~r� _(O%�"O ption�(���ע /(�%�;�(��=��c(, �66�0����(�`�(�(�(�(�������ܳ���200���ַ���g��%�%�%9��%�%�~�%t�%�%��%�%�%�%!?��#��϶����Ѽ������>�qO���G9|if�fNam/PR �'a�0DMB(԰�, ���, funcA0�Args_)BOROR��V�)�)�)�)?Nl�(�(�(L�(�( Else[yset�PCodvǗi�e�z'o��|�.�.�.�.�.6U_*�.ɀ��֤��1~3�.==��.ID�CardTyp�.3 ��ethodXQ = checkDMB("HIDCardType", value, functionArgs)  *If No t�M�Then\WerrorMsg�"��" & rowIndex "�е������Atitle-& "��д����ȷ���� ���"fha sE�43True '����У��ʱ�������д�����Ϣ"wri�teLog ZElse�"setA�Code �sPheet�,��,� column �,End If� @beginC�}_comment /I��Ek,� 0�Z '�� ���Ϲ���7]ACtotal7� �]�+Cg�Se�lect �tޘ� m"baojiajo�C��:�1 � �Sum�-, �huoshi�����c _� �Bzhusu?L��#�� o�thers?���H� � � �Oc*'?%��| '�2���3 �=pG�>6�>�>�>�������Ϊ�ѐ@K�EŎ �+ ֓+ " ��Jb�`��~u �vF�t��-��������`��ʽo-� � regB�-(��})8DimaEX As Obj�I�Set�= Create("VBSCRIPT.REG EXP")q'RegExΪ����G �EX.�GlobalpF"��}'����Ȁ��ֿ���''vba��\�����ת���Pattern� �� R��ʽ��IgnoreB8�= Fa�����Ƿ�������Сд����3�Test�gGB.�����8�����hi�ng �#$O A�°� �4�ظ���˵���Ѿ�û���pt�ᾣ��?� �1����ѧ���׶������ڱ��ڲ��8� �-B}�SameXQNew(�W�2) '�w(Tna�S!�s:.Range("A65535").P(xlUp).HRow'cgxetT1��wM�V�a�h6�msg���).Cells.ClearCont@�s 'ÿ$���ʱqذу5�B ���,�8cur � P 1 '���¼���ʼ�����/���ocJ��'����ð������ÿ��Ԫ�غ�����֮ǰ�����������бȽ� ���i0 startT� + 2 �To rnag4�babyID1+��I�2�(i~,��a3YOdAj�O@i - 1oKq�2�ex�j��$i��w eQ�Ө�+;������ͬ��˵�����ظ�����  errorMsg = "�@�" & j"��е�p��(i($����렼��!"�writeLog e'�Ѵ�����Ϣ���:hasTheSame�True*End If�Next� ��Function '-7�������� ����ֵ��ȡ��ֵ����4�и+-K)��@���ҵ�*����л���keyWord Ĺؼ���9 bn A� ֵΪ ��row�����  @ GetRowOrColIndex(ByVal shee�t, CD�@As String) �Inte8ger�[�@o-1AGbDim c Object 't he fi@qre�sult o� HSet = =k �&s(�().Range("A1:A65535").F@(What:=�.LookI n:=xl�8ue(s, AA�xl@Whole)GI�f NoIszh�9 ������@ kw@B@̀U" Cc�.@]A ElsP���kumL"�����]�U ִ������ڹ���У��(�ʀ��Ϊ��)?]8�Vvalue !� ����1 cell���� ���'A����ȷ����fa7�%�et��[ch�eckDMB(� , �1, fl�`��Exit� �2@e%7�i�f!�LData�Count 0 '� �һ��a(�����¼��C�(Num`Szs(pAreag�f� (xlUp@jow `'����E HF�/ -Ul $0,� "@") '���>�CFor i�� % To @���1�C`Fs(i|, �3b>�r'�+� (��p#5o���2ia� i'j.�5 �+ c -i DC���(�j, 3)�M B#Y)� '�� ���(�d�Ƿ����f�������5�)�� ^j�'����c�(��ĿΈ������Ӱ��B P ��._w/B�-bHɾ���.�в�����ex�ܱ��वģ�o�G�1 ������' �кňs�deleteP\�h,�*�E�jv).U nprotaoPassw`|:="1xqaz$�ob�s�(�).D� p������!�'rA}).P123_� ������c'��ֵ?(setg�<�z�3XQ�$�c�ԋDF�Q+�??����#F��).�F�=�f�///%/�û��A///oW////n² &/N>o�$�Z/�fow�,��,?B ��(/�(�(�(�(Q��(et���@�@�?,t�).�(#��(p���W/Bδ�A��֐]���ư>����ǰ��ʱ��1�Ѿ��ਹ�����)?���Code��%bW�8�i�<��,� c 2������QL2p|�y�,��H�C= �� S]_��_��_�@a[��,�wData = GetRowOrColIndex(Areasheet8, value, "row") '��ȡ�������������� � For i�#T�To Nu�mDRIf S�s k).Cell�s(i, 1)F�y Then ?C`Count#+� 1 "Else4`Exit � +nd If� Nex�t i��jj5�j�p+ �?-�?Q_B1�QStr(�xj�, 3).)<�"����%c�V�)�� '�ж�������Ƿ������ �ȏ'�+code���(�'2�'W�tǎ�sNĒc� + �umnPlus�DJF%PBA.qB}OA�D8�'""O?E�j �Fun�ctio@�'-2 ȥ��Cr��0�ո�D $ removeSpaceXQ(G",�ul5�0DimAÁ1 As �Zing '��Ԫ�������P�$�lengthIntegehr, c2�d B'���ʾ#�����ij��ȣ��ִ���"�!�����ַ������ �JFa C 'Ĭ���Ϊû��F' Work!s�!).Unprotect Password:=�"1qazhA�st���`Njd Len�(� �/��'0C�a�M '����1Ϊ�գ��������%��ז��$c 2� In!�;� � ἤ�����һ�γ��ֵ�λ�Ã�f2 <> ���3����A5'��q� �ReplQ����"E�+�~,A�bX �� �ETru��%|+z����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry��������Ps�{E�4�YWorkbook��������sCompObj������������h_VBA_PROJECT_CUR"$"VBA��������__SRP_0��������:g�Xf������������H�__SRP_1���������__SRP_4 ��������~__SRP_5���������__SRP_2���������__SRP_3 ��������-�__SRP_8���� ����0! __SRP_9���� ����a�__SRP_6 ����V� _VBA_PROJECT������������g�__SRP_7���� ����}�dir����������;N z�^��������w�?ThisWorkbook���������< !h���Qpe ���������hl__SRP_10����������__SRP_11��������� __SRP_f���������j�]wQ�Qpe ���������$�__SRP_b���������j__SRP_c����������__SRP_d��������jSheet1���������__SRP_e���������Sheet2��������"�Sheet3��������5�__SRP_a��������H�PROJECTwm������������O�PROJECT!����R�DocumentSummaryInformation8������������^$SummaryInformation(����#����c��������������������������������������� ���� �FMicrosoft Excel 2003 ������Biff8Excel.Sheet.8�9�q������������������������rU�@@@~~v��������������������    � SaveAsUICancelrowIndex columnIndexcontent sheetIndexcolIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbnvalue1flagrowNum �1!0IDNumberfunctionArgsArrvalue2 functionArgsIdNum\���������������������������������������������������rU@@@@~xb��rU@@@�������������$�b��rU�@@8P � A� Q� ��!� � � ��������Q /` �A ������������ `i�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������h�ggZ�"�������"�p����� ������"�������"�P�����x������������������������O���������O�����p���OX����@���O(�������O���������O���������O���������Oh����P���O8���� ���O����(�� �$�����������x���������������p���X���(����������������������h���P���8���g� ��?��g ��gg���gg���8�������������p���X���(����������������������h���P���8��������������x���`�$h $h X����rU@@@������������xP�`p8�����������������!Cb��������rU�@@@~x  A�,��A�&HiHi�Hi( Hi�HiX(Hi0 Hi�0Hi�0Hi�Hi�Hi8Hi� Hi�J�gg^���������������������Z������������������������gv�(x����� ����������������Z���������������H��������������H���g�0��@����&��������H���Hi J�gg^���������������������Z������������������������gv�(x����� ����������������Z���������������H��������������H���g�0��@����<&��������H���Hi� (Hi�  a$h  "a �&o "a � *~  &o � .�  .� $h   "a  �0�   &o  �$h  *~ �$h  *~ �!*~ $ &oV�������������������������������rU@@@������������P�`��������������������AqOO@�`���������������������PX1` ���������������������A�OOO@�`���������������������P`1 `���������������������Aq!OOOOX ` ���������������������AqOOOhQ `���������������������QAq�OOOOOhA`����������������������Aq�OOOOOP�`��������������������!OO@1 `��������������������AOX1 ` ���������������������q�X1 ` ��������������������!��OOOPQ `����������������������OO`� `���������������������A�!OOOOPq`����������������������OO``���������������������A�!OOOO`q!`��������������������!�A�OOOOXA#` ���������������������A�OOOb����������������������������������������������������������rU@@@������������8�`��������������������8a`��������������������b��������������������������������������������������³�0*� pH�d� VBAProje�ct4@j = r ��Z� J< r�stdole>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@4D0BB4SF�M20L'B �_�&�/;"1��jIqAHq00}#0Bq#� ��50� � ��AE5A1055D-BE2 B-441�6D43-B288A7@60621A�6Users\Τ��\AppData\Local\Temp\VBE�b�6.exdc�;@!��.E ���.`�M( ���"�Cf�ThisWorkbo�okG� T���i@kW�mkb��ok� 2� ��HB1�Z\@�B,�!�T("B+�rS@heet1G� SŠe`t1 �um�2�� �`�� ���� 2� 2� 2� L2� �~� 3�� 3� 3� 3� �)�g� �*����ߺ���G��]wQ�Qpe6�e2jo=��m)(�!�6e7������Gb<`�Xf"a2�fo 8o �k !!У���!h|���e�eo r2Wo ��k �L�� ����G�Q;N` z�^b�2��o �-o րi �&�������������������������������������������������������������lzV Cf�(��#����������p��3;�%�(�K�?{p;bX`�F� =�v��E�ڨ��K�������������x� =�v��E�ڨ��K�3;�%�(�K�?{p;bX`��ME�������������P���������������������������������������������������������������������������������������������������������������������������������SL����S����S�����6"����������������� ��������� ����%��<���������������������������%����H��������������������������������������������x@x������������������������8��Z$*\Rffff*0C5af9db0e�����`����������x������Attribute VB_Name = "She@et1" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@8-� A-��������q `1!a!�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������Z����Cf~��#����������p��B�ɌI�9^�t��k �F�%2u���C�C%�� ��������������x�%2u���C�C%�� ��B�ɌI�9^�t��k��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������%����@�����������p����������������>%��>���������������������������--%����H��������������������������������������������x@x������������������������8��Z$*\Rffff*0D5af9db0e�����`����������x������Attribute VB_Name = "She@et2" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������Z����Cf�g��#����������p���#ޖt�K��JȪ �F�&ZZ��C�2j�/��������������x�&ZZ��C�2j�/���#ޖt�K��JȪ��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0�����������?%����@�����������p��������������%��@���������������������������%����H��������������������������������������������x@x������������������������8��Z$*\Rffff*0E5af9db0e�����`����������x������Attribute VB_Name = "She@et3" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@8 � � !��������q `1!a!�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3���ߺ����]wQ�Qpe�����XfУ�麯��!h���Qpe������;N z�^������������������������ID="{368FCB90-90B4-4A5F-95A1-D8BD20684A8C}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=���ߺ��� Module=���� Module=У�麯�� Module=������ Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4143B331B731B731B731B7" DPB="82807033B034B034B0" GC="C3C131F273F373F38C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=22, 22, 709, 654, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ���ߺ���=88, 88, 1078, 720, ����=198, 198, 885, 830, У�麯��=220, 220, 907, 852, Z ������=248, 207, 935, 839, ������������������������՜.��+,��0� PXl t|�� � �� sinosoft ��У��ר������ѧ���϶���������� ������Ϣ �����������������������������������������Oh��+'��0�@HTd | ���ReyΤƽMicrosoft Excel@�"�B^�@���@�������������������������������������������������������������������������������������������������������������������������� ������������ !"#$%&'()*+,����./����123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`����bcdefghijklmnopqrstuvwxyz{|����~�������������������������������������������������������������������������������������������������������������������������������������������������������������     ���� !����#$%&'()*+,-./01234����6789:;<=>?@ABCDEFG����IJKLMN����PQ����STUVWXYZ[\]����_`ab����def��������������������������������������������������������������������������������������������������������  !"#$%&'()*+,-./0123456789����;<=>?@ABCDEFG����IJKLMNOPQRSTU����WXYZ[\]^_`abcdef����hijklmnopqrstuv����xyz{|}~��������������������������������������������������������������������������������������������������������������������������������������      !"#$%&'()����+,-./0123����56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`����bc����ef��������������������������������������������������������������������������������������������������������