��ࡱ�;�� G�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� T8������\phello 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����[SO1�4���[SO1�*���[SO1����[SO1� ���[SO1�4���[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\)���� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� �� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� � ���� � ���� � ���� � ���� � ���� � ���� � ���� ����� ����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|@ @ 7 � 1<@ @ � �1|7 � 1�@ @ � �1�@  �,1�� �,1�� �,1� �-87 �.8� �/87 �08� ||t�Q�E}(} 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_)}<}, a�00_)����\([$}(}- 00_)}x}0 �}�00_)�\([$�#,## � �}�}1 00_)����\([$???�#,##???� ???� ???�}(}2 �00_)}(}3 ��00_)}<}4 �}�00_)���\([$}<}7 �e�00_)���\([$}x}8 ???�00_)???�\([$???�#,## ???� ???�}�}9 ??v�00_)�̙�\([$�#,##� � �}(}: 00_)}<}; 00_)\([$}<}< 00_)\([$}(}= 00_)}<}> 00_)\([$}<}? 00_) \([$}x}@����00_)����\([$����#,## ���� ����}(}A 00_)}(}B 00_)}(}D 00_)}(}E 00_)}(}F 00_)}(}O 00_)}(}Q 00_)}(}R 00_)}(}S 00_)}(}T 00_)}(}U 00_)}(}V 00_)}(}W 00_)}(}] 00_)}(}_ 00_)}(}` 00_)}(}j 00_)}(}k 00_)}(}q 00_)}(}r 00_)}(}s 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 ��+ 8^ĉ_hQ�VL�?e:SR�Nx�,}Y�0��}Y ����� �a�� -Gl;`�&��Gl;` ��.�����'�^�/��� ��'�^[0]� 0���{�^�����{ ��}������� ���1�h�gUSCQ@wr� 5�6�-�@wr� 5 K��� ����� ?@wr� 6�6�1�@wr� 6  ��F� ����� @�lʑ�^� ��lʑ �������������������� ������X��TableStyleMedium2PivotStyleLight16`�"�F ؚ!h,gN�y�V��f[u���[�{t�Vi�Nxh��ۂ���Oo`�����VV�����- KmՋ@b g!h��ĉRv^SbpS���Oo`���ff����d@���������j�b�(�3 ���A�@@�  ��t� 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 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 kX�Q�V��I{�~���[�v�eg � 7FAILURE 7b" 4134014419 4134010878��(4 �4v 5��5��6eP74A8%�8��9��:��;~z<^�=� ,@ A� (B ,Ccc��B��������~-z4n�A�_)k:~yw T8��  >g  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�" dXX333333�?333333�?�&�<3�cA�U} r} s} @r} `r} �r} �q} �q} q} �r}  r}  r} K r} LL@r} MS r} T r mk��_kJ�Ok��UkJ�O�Om�O��OB�O{@ {@� [�� gg� \� ]� ff� ^a� ^`� ^`��`````````````````````````````````````````````````````````````````a`]R�4T``````]]]]]]]]]]]]``]`]jY @��hDAAAAAQQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR�4TAAAAAAAAAAAAAAAAAAAAAAAj� p~� ic� d^��RRRRTTTRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRSRRR�4TRRRRRRRRRRRRRRRRRRRRRRRj��DjDAAAAAQQQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAR�4TAAAAAAAAAAAAAAAAAAAAAAAj� E� jH� E� A� A� A� A� A� Fk� F� A� A� A� A� A �*WAAAAAAAAAVAAAAABAbh� iO|jb� ke_lA� P � lh� n}� P � P � P � P� P� G�� m�� o�� C]� Ce� Cb� Cc� Cd�qqqqqqqq� qqqqqqqq�:�:� �p�pp��������( � ��~� � � �<� �I�����C�C��@��C���],@��n9� ��$<_ �Y �h �g<>�@����7� Sheet1gg����Dh4hk�:S�W2 T8�� Q�s\}��  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� LEL@� L� L� LFL@� 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� +W9+L�?� +L:� +L;� ,W9,L@� ,L6� ,L;� -W9-L@� -L8� -L;� .W9.L@� .L<� .L;�/LLLL� 0L=0L�?� 0L>� 0L?� 1L=1L@� 1X@� 1L?� 2L=2L@� 2XA� 2L?� 3L=3L@� 3XB� 3L?� 4L=4L@� 4X�� 4L?� 5L=5L@� 5LC� 5L?� 6L=6L@� 6L7� 6L?� 7L=7L @� 7LD� 7L?� :LG� :ZH� :ZI� :LJ� ;LG� ;ZK� ;ZL� ;LJ� <LG� <ZM� <ZN� <LJ� =LG� =ZO� =ZP� =LJ� >LG� >ZQ� >ZR� >LJ� ?LG� ?ZS� ?ZT� ?LJ� @LG� @ZU� @ZV� @LJ� ALG� AZW� AZX� ALJ�D� l<<<<<<<<<<<<<<<<<<<<<<8888888BCE,F,G,H,I,J,K,L,M,N,O,P,� BLG� BZY� BZZ� BLJ� CLG� CZ[� CZ\� CLJ� ELiEL�?� EIj� EKk� FLlFL@� FIm� FKk� GLnGL@� GJo� GKk� HLnHL@� HJp� HKk� ILnIL@� IJq� IKk� JLnJL@� JJr� JKk� KLnKL@� KJs� KKk� LLnLL @� LJt� LKk� MLlML"@� MJu� MKk� NLn� NLv� NJw� NKk� OLn� OLx� OJy� OKk� PLn� PLz� PJ{� PKk� L88<<<<<<<<<88�P�H � �0�( � � >�*@��444�7� Sheet2gg����D T8�� ����  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?�"�333333�?333333�?�&�<3U�P�H0��0�( � �>�@���7� Sheet3gg����D ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �����> Cf���������������������������x��RR��������������������ME�����������������������������������������������������������������������������������������������������������������������������������������(@��V0��6 ����<�������`V��������h�H0��h�X�������\�����H���������������`H������@��������ʀ�x���� ��@�����������8���� ��@��������ꀊ�h������ @����������dx����� @��������%������Ϣ�����������%ꀢh����� �� @���������������� �� @��������ꀞ������ ��@��������� �����B��������������—(�������@��������ʀ�X����� ��@������������������@��������ꀤ������ ��@���������6�����B���������������Jh����B��!�������������r��������B��#������������˵��%�����Z�����B���������������VHp����H���������������^x�����H��������������ʘ������B��������������ʀ�� ���� ��@��������ʀ�P���� �� @����������b8p����h @��������ꀜ8������� @���������0�������� @��������������� �� @���������f������ �� @���������h ����B���������������jP�������@��������ꀌ������ ��@���������X��������@���������l��������@��������ʘ�����B���������������n@����� �� @���������pp����B��"�������������H��8�h(�X�P�px����������������� ��������x�8��������������@����������������������������������������������H��T��������������������������������$���������������������p��������������������(�����������������������������8H ��[*\R1*#278$*\Rffff*0;5c7c0e46(*\Rffff*0;5c7c0e46\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������ʵͳ��"]$�������Ϣ���2Public Const IntroSheetName As String = "���˵��"]$�������H]$�˵���] �x� ��¼�ܵ�У����]$��H���¼��ͷ������] ���"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ] �x�6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ] ���ÿһ�кϼ��е�ֵ] ���"����һ���ǿ�У��ʱ����¼����Ԫ��] ��������Ϣ] ���%---������ģ���У���¼���ĸ���Ԫ������] �8�---����ģ���У���¼����ĵ�Ԫ��] �� ����У��ʱ���洢�����������ַ���] �8���¼ʱ�رհ�ť] ��� ��¼�ܵ�У�����Ƿ��в����Ϲ����] �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@@@@~xVa��"q ��(AQ%Q1�0����Aq�4Q����� 0 �#�$0Q$�$�$%1%a%��%'!&�&A'a'�'(0`�Q(��@<q(��(�*�*�*�*+,�,!-Q-�-�-!.Q.�.�.Q/�/8Q+�+0�&�$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���������������gJ������@���������������p���(������������p���g�����������8������������ �!Z"� �8��������V#�h����h������������$�8���h�����������gV�����%Ip����p���������������������(� �����������p������g���������g�&��?��g|�����'�h��������8����Z���8������h������������(H���������������8���h�������g����)������*g���� ������+g������gn�����'�h��������8����Z���8������h�������H���������������8���h���g��������������,g����-������.g��������gg�� �������������������/Ip����p��������0����O���������1O�����(�?� �����������p�����������b��gg\������h��������8����Z���8������h�����8���h���g{gggd��������h��������8����Z���8������h�������2�3�8���h�������g�x>� gL�p������������������4I��������(������������p���g p�&g\������h��������8����Z���8������h�����8���h���g{gg p�g��h��������8����Z���8������h�������*�����5O����` ��������� ������8���h���������������g�x���g(����� �x����k�����H����g�����6g�����7g�����8g�9:g����9;g�����0���g��<g p�=g(����������$k���������2gz���������� @�h��������8����Z���8������h������������>������8���h�������g p�?g���������9�\��gV����������@I������������a���������� (�������������������gV����������AI������������a���������� (�������������������g"�������qn�P�.gF�������qm��l����������������qnl����������gv������ @��������������������AI�������������a���������� (�����������������������g$������������������g�x��������K�vgv������������������������BI�������������a���������� (�����������������������g>�������qml�����p����������qnl�����@���vgj�p���� @�����E���8����0����0��������x���������0�������� 0�8���������������gl�x���� @����� @�h��������8����Z���8������h������������8���h���g$�������� ��������g����l�Zgl���������� @�h��������8����Z���8������h�������������8���h���g~����C�x���O��������DO��������O���������EOp��������O��������FO����`�:� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������G�H�8���h�����������g�:���� ����gg�p����@���� gg����������F g�?p>�"gv������������������������BI�������������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~����C�x���O��������DO��������O���������EOp��������O��������FO����`�:� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������G�H�8���h�����������g�:���� ����gg�p��������Zg��g"�������qn�P�g$������������������g�x��������K� gv������������������������BI�������������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~����C�x���O��������DO��������O���������EOp��������O��������FO����`�:� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������G�H�8���h�����������g�:���� ����gg�p��������Bg��ggv������������������������BI�������������a���������� (�����������������������g>�������qml�����p����������qnl�����X����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~����C�x���O��������DO��������O���������EOp��������O��������FO����`�:� �����������p����������g����g���������x���� @����� @�h��������8����Z���8������h������������G�H�8���h�����������g�:���� ����gg�p����X����gggx������x���� @����� @�h��������8����Z���8������h��������I�8���h�������g���������� g6�7�����T����7�6C����7����l�gZ����C�x���O��������JO�����;O���������KOp���`�:������������p���g����g�:���� ����g �0������������0����4gg�@����8�����@���gg�0�����������g�x�����������`���Ag ������������������g>�l����0��������(������l���������bgx�l����0��������h���������8����Z�p�8������h��������L��M�8���h��������g�(���������g"�l����0���������g�<�gg�x����H���� gg2�����������������������������g�������`���!�����g����������K�Zg4����������@��������� ����������ggN�����k����������������������������p��� ���������p���gg�����������g������������F g^�����p�������������N�����O��������OO�����(� �����������p������gg��`!gL�p������������������PI��������(������������p���gd������h��������8����Z���8������h�������2�3�8���h�������gN�h��������8����Z�p�8������h����Q�8���h�����#gg p�Rg&�����������������g�R ��"gd��������h��������8����Z���8������h�������2�3�8���h�������gV�����SIp����p���������������������(� �����������p������gL�p������������������TI��������(������������p�����#ggL�p������������������UI��������(������������p���gd������h��������8����Z���8������h�������2�3�8���h�������gN�h��������8����Z�p�8������h����Q�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���������������������������������K*� ����rU��@@~~~~~~~~ ~~~2~~~ ~~ ~ ~~L"Q�|����L�� bF�) �����������a� ��������A �����a � �������������a � �������������a� ������������a� �����������������Aq��!a���1q���� A q ���a��������� ����������A� � ��������p��������q1�1�12A2q2�2�2313a3�3�3�+�+4�3A4q4�4�4515a5�5�5�5!6��a�a� ����������������Q � ������a� VBAProject ThisWorkbookSheet1Sheet2Sheet3���ߺ�������У�麯����������F6C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA ��������� �aP�F  D:\office2013\Office15\EXCEL.EXEExcel ��������A�p0�FC:\Windows\System32\stdole2.tlbstdole Q�����������L��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOffice ����������A�MSForms�.E ���.`�M �C:\Windows\system32\FM20.DLL A����4/jJ��|��ۘ /C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd ! Q ����������У����򲢴�ӡ������Ϣ checkTheSame ��F�ߝ~4�@�;}�+=�y�F��$�+�A�(� ze�D�FWorkbookWorkbook_BeforeSave x .�`/f&Tnx��\���OX[�excel ��Y�OX[ ����p�QVBE7.DLLA ��������` � � a nx�[ , &�|�~\��ۏL��h�g!h�� ��Y N�OX[ ����p�Q �S�m ?A ��������S ��(~ ���Oo` �Nxh� �f , JJ�  8Phpx���F��FsetCellValueXQq���������&m���F&m� 0�]\Oh�pe�v Ncknx ��� N}�g�e!jgT ��QۏL�dk!h�� 1qazdeleteRowNoPro @.��PasswordProtectUnprotect CellsClearContents��FcheckTheSameXQNewGetRowOrColIndexcheckDMB deleteRowsetCellValueCountXQ&t � A65530 RangeEndRowcheckedRequiredStartwriteLoggetCellValueCountXQ writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStart regCheckFunc setDMBCode removeSpaceXQremoveSpecialCharacter IV5��F�*�b�QD������ �Fs�uԲ��E��%�X���D�F Worksheet:�� F�F FAILURE A9:IV65536Font �[SONameSize &HorizontalAlignment "NumberFormatLocal 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��� -N���Oo`�Y N�  value -A ��������� A)p(~ : ; ,{ L� R�vpency�� SUCCESS !h���Ǐ! checkBankcheckXn VX[(Wyr�kW[&{��Y^ , ; ' <> " ? zz5c7c0e47��? Sheet2��~0��� Sheet30?5c7c0e47��A Sheet3���gH����]wQ�Qpe0<5c7c0e47��B�]wQ�Qpe��(�`�����Xf0;5c7c0e46��T�Xf���x��!h���Qpe0@5c7c0e49��t!h���Qpe�����vX��;N z�^095c7c0dfb���;N z�^��րx����`����������9���������������H�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������`���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0��������جV���TA�:z��<������v�_J̤G��k� �E�����%:����B��?\PZ�����}�K��)���ke����͢P�0��@��f�]X{����Л�ق�=N���G�b�����(^��>|�K�}a���A�xt��|e�K�z�pUN���������8��X!�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`�(removeSpecialCharacter�` �����i`�(!ValueColumType��` columnNamew�`�(sheetIndexValue1` �(AreaSheetName�`�(readmeSheetName��` �(totalCount�-`�(rgold�`�(Target�F`�(hasErrorInValidateU�` �(dataRowStart��` isNullRowNum�8`�(cna`�(notContinueBoolt` �(genderColumn�~`�(birthdayColumn0` У�麯��&�`IDNumber4 `Wm`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`Size��`HorizontalAlignmentS@`xlLeft�9`NumberFormatLocal)�`rowType�`md`ne` removeSpecial�j`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_value�`����_B_var_removeSpecial&>`����_B_var_titleMsg�`����_B_var_totalMoneySum�Y`����_B_var_p�`����_B_var_q�`����������������������������������=?ACU�������������������������������������������� ��"��u $��' �������������������@�� p0(P7��q� YX�� �HH � ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ �(������9Cfր�������������������������x��ME������������������������������������������������������������������������������������������������������������������������������������������������6 ���������L����L��������� ����L��������� �����"����L������������������������������` :@`��������@����k�������������P����������������@�������������� ��@�������������� ��@�������������� ��@�������������� ��@��X�������� �� ������`������� ��@������@������� �� �����`������������ ������������`�������������� ��`�������������� ��`������������� ��`�������������� ����������@����������8��������������%x����������@ � ����( p���x``�@����(����x����������������������������������������������0 �����`2VTX��@���8������� �� @������0��������� @��X������� �� @��p������� �� @����������� �� @����������� �� @����������� �� @����������� �� @��0�������� �� @��`p������� �� @������h������� �� @��P������� ��@�(8������� ��@������ ������� �� ��B�<lF08@��H������� �� @j��������� ��@����������� �� ��"@������������`��"@����������� �� �'@����������������`�'H�46�P���@�������������� �� @���������������� @����x������� ��@���`������� �� ��?@��(H������ �� @�?0��f����R@�0������� ��@����������� ��@��P������� �� h(H@���������� �� �PH@������������� ��@���������� ��@����������� �� ��P@��������� �� (�P@�����p������� ��@��8X������� �� PV@���@������ �� �8V@������8��������� @������0��������� @b�������� ��@������������ ��@���������� ���8d�f@�� �������� �� 8�j@��X������� �� H jp x@����������� �� �X@���������� �� �����@���p������� �� ���@��X X������ ��  �� ��p P�@�����@������� ��@�x(������� ��@��� ������� �� � X �@��� ������� �� � � �� � �� ��@���������� ��@�� �������� �� � �@������������� �� H  ��8����� ��������������������������@��������������������������������������������������������� ��[$*\Rffff*095c7c0dfb*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0;5c7c0e46*\R1*#11c*\R1*#42$*\Rffff*0<5c7c0e47$*\Rffff*0=5c7c0e47*\R1*#129*\R1*#278*\R0*#2*\R1*#11*\R0*#f*\R0*#1����� h"�h�p�:x�.��6��" �"H�.p��� D�� �� :L�� \�8�@�\H�\h�\��>^��"��: � 4P�,`�$��>^��,���J(� @� ~X�$���PV� P�p� �����>|�� ������ �����"n�� � "8�`� ����� ����� ����� h� ����  �\�0� 8�@�.dH� x�,L�� ��\���� ��* ��*�(�X�(p�%0��%D��% �% �%0 �%@ �%,` �%& � � (� �#6z� �$J  �$"X �(,V� �(PV� �(`" � (�����,LF` �4Jv� �<($ � <�����? ( �D6v8 �D0>p �HBj� �Hl� � " �G$0 �H@ �M4lH �N�~� �N&�N8�0�N h� ,x�I�� �����D��@��, �� ,�����0 ��48v��40>�8 jH�8lh� "��G$��H��M4l��N�~�N&��N8���N �� ,��I(� �����40�08�)"(@�<($h� <�����<0��H6v��H0>��PBj(�Plp� "��G$��H��M4l��N�~�N&��N8���N �� ,�I0� �����H8�<@�(" H�,8vp�,0>��0 j��0l�� "�G$@�HP�M4lX�N�~��N&�N8�@�N x� ,��I�� �����,��(��$��$x�� �� <� 6H�(LZ`�(&��( ��( ��  ��)$� (� >0�,p�, �� (��,>��40x��, �,"�,(� 0� 8�H�(2P�x� ��*4�� ��+$N���� �� �`^�p� x�4L��d��N�� �� �� &��4� $8�d`�PVx�L�� ��4L��d �N8�H� P� \X� \x� \���� x�"�8�@�P�2`�$��@��6� 8�*H� :x������� ����� �� ���������,�@�H�P� ��������`�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�������Ϣ��¼��ʼ�����'��.�ô�У���У���¼�Ƿ��д�����֣��׶���Ϣ���У�� �(��'��#Ĭ���϶����Ѽ�������δͨ��У���'��Ĭ���϶�����δͨ��У�� V$T!NB@�-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���, �A65530�$`%%�!'���� �A@B� ��ȡ���������xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column ��IV5 <%%�!('l����FAILUREA@F�&+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0�'j��ռ�¼����ʼ��Ϊ0 0 8��" ����ʱִ��� A9:IV65536�$`%!j��1���������������ͺ������9� 9�q��� A9:IV65536�$`%� �9��(����������������@9��#�����������ı���ʽq���d� ��ʼУ�鰴ť�¼�ʱִ���.��ȷ����ʼ����� �������У�����ر�excel��� $4�������ܵ������ݶ�ʧ����ʧ�� 6���ܰ��ʾ$2 8�d����1qaz�<�$`B@�|���k���k����.�$`!b(l�)��ҳǩ����Ϊ��ɫ � �� ��"û�в��ҵ�ѧ����Ϣ���޷�����У�飡A@2�'0�1qaz�<�$`B@�|��k���'���ô�У���У���¼�Ƿ��д�������$`!��д�����Ϣ���£�A@P � �� �  �� ���'��<"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ�'��;6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ�'��'��'��5"����һ���ǿ�У��ʱ����¼����Ԫ��'��9�Ƿ�Ϊ��Ч��¼ �'f�C��¼��У�����ǰ���Ƿ����д����'��;��¼�Ա����������Ƿ��д� � l�� �$`%N!b'��O��һ���б�ʶ��ֵ�'��2=�ж�forѭ�����Ƿ����callFunctionXQStart ��û����ִ��Ĭ�Ϸ��� ����<�����ʶ����Ϊ�� ��-$�'��G��ʽ��1��4-3:2��5 ��:$�'��H6��ʽ��3:2��5����ȡ���ı�ʶ�����в�֣���ֳ��кź͹��� �����DJ�����Ҫ���ּ������ϵ������ҪУ�飨��Ĭ��У�����͵������Զ���У����� � ��� ����Y&+1����Ϊ�����е�һ��Ԫ��ΪĬ��У����� �$��:$�'��V*����ȡ���ı�ʶ�����в�֣���ֳ��кź͹����$�'��S�Զ����ʶ����������  ���$��;$�'��c�Զ����ʶ���͵ľ���ֵ � �� ����g�Ա�ʶ�����б��� �$��   �A@��}���ݱ�ʶ��ֵ�����ö�Ӧ�ķ���  �$`%N'b�H����������ȥ�������ַ��ķ��� b$R'� �� � �$`%N'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$`%N!t(v� ��ӻ�ɫ���� �A@P�N%isValidateCount = isValidateCount + 1k��P�Hk��@ �� ����$��;$�'��P����ȡ���ı�ʶ�����в�� � �� ����W�Ա�ʶ�����б��� �$��   �A@�  �$`%N'b�H����������ȥ�������ַ��ķ��� b$R'� �� � �$`%N'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$`%N!t(v� ��ӻ�ɫ���� �A@P�N%isValidateCount = isValidateCount + 1k�����k��� ���e�J ��ʽ��3:2��5�$�'��Q�Զ����ʶ����������  ���P�����ʶ���е��������ڵ�ǰ�����$��;$�'��e�Զ����ʶ���͵ľ���ֵ � �� ����k�Ա�ʶ�����б��� �$��   �A@������ݱ�ʶ��ֵ�����ö�Ӧ�ķ���  �$`%N'b�H����������ȥ�������ַ��ķ��� b$R'� �� � �$`%N'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$`%N!t(v� ��ӻ�ɫ���� �A@P�N%isValidateCount = isValidateCount + 1k��� �� k��� d�-ֻ��Ĭ��У������ʽ��1��4�$��;$�'��H����ȡ���ı�ʶ�����в�� � �� ����O�Ա�ʶ�����б��� �$��   �A@�  �$`%N'b�H����������ȥ�������ַ��ķ��� b$R'� �� � �$`%N'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$`%N!t(v� ��ӻ�ɫ���� �A@P�N%isValidateCount = isValidateCount + 1k��@ �8 k��0 k��( �  �$`%N(� �� 6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ �� � ����� � �е������ ����������һ������д��ȷ������'��'��8����У��ʱ������д�����Ϣ �A@P �� '�d�� � � '��Tÿһ�кϼ��е�ֵk��� �� ��<,һ�����������ؼ��ֶ�ȫ�������򽫸���ɾ��  j+� j� 'j�,"��������Ϣ���еĸ��д�����Ϣɾ���� � X � X� � X � V$T%>B@@�r �Ѹ���ɾ�� �� X � 'X f'�k��� �k��� �� j� ��6 ɾ����Ч�� �$�'� ���� �A@8�B �Ѹ���ɾ��d��@� � � A@8�H �Ѹ���ɾ��k�� �� j� ���˴�У����ɾ���� j�:����Ч���ݣ����������֤�����ж�У��ʧ�ܼ�����Ϊ��Ч���ݣ�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��@�q-------------------------------------------------���ظ�����ijһ��------------------------------------------------�@]����]���� �A65535 L%%�!'��2��������Scripting.Dictionary$�.�O8�O � L%!b'�>��ȡѧ����������������  ��%"��ѧ���໤�����֤�������ݽ��б��� ��  %��-������֤�Ų����� � B@�&#add��������һ��Ϊkey���ڶ���Ϊvaluek��@k��8�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“ �����ʱִ%� � Wit�h �:9:IV!;6A-�r�����������������ͺţ��.a[�"����!h�.Siz�11�c���' h�@.Horiz@a�lAlignm e xlA3��� ��I�berFormatLoc$al� @"Z�Ĝ��Qts� ���D�FЀ��ť��¼���Y�c�a("��ȷ���A�M�� ����̡H����ر�excel��" & Chr(1Po& "������ܵ�������ݶ�ʧ���0ʧ�ܠ0�Can��'��ܰ���ʾ")06!$ �� E b{!ohoh��jh3 ��h�KTab�wlorIpOx� -4142!�}ҳǩ�'Ϊp��ɫ� P�IstartTitl�e +p`�yt`3 "û�в��ҵ�ѧ���Q^���޷�Ay�:��?vQl6�:��8�?|?|k|49�!h�lïl�l�� writeLong|@�<�&��p�����£�?�!H��> �)����8 i��2 To�g� � p&QZ '����� ����A�/�#��= S@�t(+��o-o'c�1��4-��3:2��5  $rowType = Split(tValue, ":") �'��ʽ�������ȡ���ı�ʶ�����в���� ���к�ź͹���'�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 e�rrorMsgM`'isValidateCount#k�+ 1�:En@d If 3)N8ext��&�El�seIf UB�Dd(rowType) <> 0 Then '��ʽ��3:2�,�5�2#t�Row^�(0) '�Զ����ʶ������p�����{@Ci��(+A����(���е��������ڵ�ǰ�;�jval��Splitc�s , ";"N%�������ֵ�) �yF�}n�L�A�0) To�C�'��� ���б�����+callFunctionXQStart `(n), 1, A���y'����$4������ö�Ӧ��𷽷�+�|ue %v�__#'@������!���������8ַ�? (removeSpeciBP�Chara�c`�(�)�#?�m+�m� � (tiXtle��5sLTaa� '��ȡ���б�ͷ���������)%�"��" �& i`"��A jA�������0�A& & "����E ����^ , ; '!["" ? �ո� �س�����������Ϊȫ���U������飡"_ _ ahasE�{P Tr�1'����Ѐ���ʱ���S����_8������������_��� ���������ߍ������� 'ֻ��Ĭ���q)����Í�1��4�0�pPsp.szbs1���ez�B�1D���ħr����//�x�x��x�v�v�% �?bc�:�://� �r�r�Kk= ��r���r �����r��r�r���r�r���r�sg�t�r�r�r�r_� �r�r��5����Ϣ JWorksheets(1).Cells(i, j).Interior.Color = 65535 '��ӻ�@ɫ����M�writeLog errorMsgM`'isValidateCounFtk�+ 1�:E�nd If +)�Next��!�� �׆LockedO`False_*�3 j� 'ִ�� ����һ���ǿ�У�� �ĵ�Ԫ���������������Ϲ��������If atLeaOneNull�~<> 0 Ah�=� � Then�Ea��@I"�� " & i�"���,�����E��A��?�Ё?��������ȷ�������"��has� = True '�����)ʱ���繀��д���_�? ��s�j�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����ݣ����������֤��������Br��ܼ��:Ϊ���wvn?p �2� � � y����鿴��EQ����`����������+�TabӻIndezx016���M�MS}�(c��%��0S�P0/�#checkdXQNew ����Not (0n ���ظ�A�����,as�����D��0,��������������Ҫ�rf������ -4142�set�ԐQueXQ 2,!8, "SUCCESS" `'��ȡ�A ��ɹ���־c�������ֵ��ʼ��Ϊ0�� �#Aͨ���!�! O�q�'�E�'�'����'��'�'��6�Protect Password:�="1qaz��2).��3� Sub '�-��!�.ijһ��[�-, Sub checkTheSame() Dim myDic As O@bject, Key VariantPH&, v@arData 'rna = ActiveSheet.Range("A65535").End(xlUp).Row '@������b Set idNum�= Create�("Scripting.tionaryz"b I@O8", "O" & R).value '��ȡѧ������ ����ӀF���GFor Eac h carK IFn�O4'�ԁ�໤����@�֤���� ����б����$ If�"<> h"" ��nNo�~.Exists(<)� '���3���� ��GA.AddE, Null 'add��������һ�� Ϊkey��C��h,�IN$exƒ Cmy���=�.�s�With Wor�ksA�s�p�2Gm�G:G@�ClearConten.t��4�1@Re size(B�.C ount)A�ppPlica��.FFun�on.Tr�anspos� �'?D��4�'*���= e�ah@� �@� ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Cf(��������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(6 ���������L����L����������H D�`������������ X ���� �I�F������������ ��x�I�H������������ �������`�J�������������� P(`������������  �����i�R������������������� Z�`������������ � �����I�\������������ ����I�F������������ ����I�^������������ ������� dX`������������ 8 ���� �i�R������������������� n0`������������ � ���� �I�\������������ ����I�F������������ ����I�H������������ ���I�p������������ ������� |�`������������ � ���� '�I�\������������ ����I�F������������ ����I�H������������ ������� ��`������������ @ ����2�I�\������������ ��`�I�������������� ����I�F������������ ����I�H������������ ����I�������������� ������� ��`������������ 8 ������G�I�������������� ��X�I�\������������ ��x�I�F������������ ����I�H������������ ����I�������������� ������� ��`������������ 0 ������I�������������� ��P�I�b������������ �������`�������������� �� � `������������ � ���� ��I�������������� �������+� `������������ X���� �I�\������������ ��x�I������������� ����i��������������������`������������� �� �� `������������ ( ���� �I�b������������ ��H�I�*������������ ��h�I�,������������ �������@�0������������ �� 88 `������������ � ���� 4�I�\������������ �� �I�4������������ ������� B `���������H���k� ���� :�I�\����� ��� �I�F�������� ��� �I�^���� ���� ��� �I�b� (���� ������� D� `������������ h ����A�I�\������������ ��� �I�4������������ ������� F� `���������H���k ����E�I�\�������� �� �I�F�������� ��@ �I�^���� ���� ��` �I�b (���� ������� �� `������������ � ����J�I�b������������ ��� �I�\������������ �� �I�F������������ ��8 �I�^������������ �������@�0������������ ��@�H������������ ��@�J������������ �� �� `������������ � ����c�I�\������������ �� �I�F������������ ��8 �I�^������������ �������`�*��������������`�L��������������`�N�������������� R����`������������ � ���� s�I�b������������ �������@�������������� ��������� �� � �0���������������(�� ���� 8 ����������������X�����B���������������������������%��������� ����� ����� ���������������������������������������������x��������������������������������������������������������������������@B������������ ����������������`@���������� �� @���������� �� @��0�������� �� @�������������� �� @��H�������� �� @��`x������� �� @������`������� �� @������H������� �� ��������@ ����` ���� ����0�������������������������������������(�����������������������������������������������������������������0hH@F������������ ��X0������������`@����������� �� @����������� �� @����������� �� @�������������� �� @����������� �� @��x������� �� @������`������� �� @������H������� �� ����� ��������������������� ���������������������������������������������������������0 ��[$*\Rffff*0<5c7c0e47*\R1*#3c7*\R1*#12d*\R1*#121���}� ����� �B� �� ���� ������� �� ���� ����� �B� �������� ��B� h� p��� ��B� (� 0�@�2`����� ����� p��  B� 8� 8@� $x� 8�� "��� pB� x� 8�� �� ��$�� �$ � H�P� ����� xXB� ����4��(0�*X�$������ 8��B�P�0h�!��� � �( �0 � �8 � �� � �@ � � B� � �� � �����4 �$H � "p � � � "� �� � � �.� � �0 �0@ �p �� �*� �� �� �.� � �8 �.H � x �� �0� � � �� �6� � 0�@�6X� ����8�� ���6� P�`�(x� �������� ����� f�� @� `�x���>��&�� � 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!�$|p!�$&�!�$ "�$("� 8"�@"� H"� X"�$t`"�$&�"�$ #� #� $�����#� #� �����(#�H#� ^P#� �#�"�#��#�@�#�&8$� `$�p$� x$��$��$��$� ^�$�(%� @%�`%�@h%�&�%� �%��%� �%�&�&�0&� b8&� �&��&��&� t�&� &P'� x'� ������'��'��'� b�'�  (� @(�X(�h(��p(�&�(� )� 0)�8)�@)�`)� ^h)� �)� �)�*�*�X *�&x*� �*��*��*��*� ^�*� @+� `+�p+��+�X�+�&�+� ,� ,� ,�(,�H,� ^P,� �,� �,��,��,�T-�&X-� �-� �-��-��-��-� n�-� 8.� X.�p.�"�.���.�&8/� `/� p/�x/��/��/� j�/� 0� 80�X0�"h0���0�&1� @1�P1�X1�x1� P�1��1��1��1��2�&�2� �2� �2��2��2��2� R3�X3�p3��3�X�3�&�3� 4�  4�(4�04�P4� bX4� �4�$�4�5�@5�&H5� p5��5�$�5��5��5��5� ^�5� @6�&X6� ������6�@�6�&�6� �6�7�&7�07�87�X7� Z`7� �7�&�7�8�@8�&H8� p8��8�&�8��8��8��8� f�8� H9�,h9��9�@�9�&�9� :�:�, :�P:�X:�x:� |�:� ;�$;�@;�(H;�@p;�&�;� �;� ������;�"�;�<� <�@<� |H<� �<� �<�=�@=�&H=� p=��=� �=��=��=��=� |�=� X>�$p>��>�@�>�&�>� ?�?�$ ?�H?�P?�p?� dx?� �?� �?�@@�&X@� �@��@�2�@��@� x�@� PA�6pA�.�A��A��A�( �A�2B�( B�1 B�( 0B�2@B�( PB�1`B�pB�xB�J�B��B��B�C�C�C� fCB� �C� �C�<�C��C� �C�D�$(D�$PD�xD��D� ����� ��D� \0E� ����B� �E�,�E� 0�E�@F�"PF� ^xF� 6�F�G�(G�HG�hG�0�G�D�G�H� H�(H�0H�8H�@H� �HH� "�H� I� .0IB� `I� hI�$xI�B�I� �I� �I� J� J� J� 0J�8J�@J� �HJ� �J� �J� K� 0KB� HK�"PK� xK��K��K� �K��K��K� �K�8�K�L�2L�PL� hL� �L��L� �L��L� �L��L� F�L�(M�0M� 8M� @M� *PM��M� ��M� (N� @NB� XN�`N�*�N� 4�N��N� ��NB� �O�^�O� v�O� �O� ��O� pP� �PB� �P�*�P��P� ��PB� pQ�^xQ� v�Q� �Q� ��QB� pR� xR� "�R� �R�8�R�2S�HS� `S��S� �S��S� �S� �S��S�"�S�0T� 0T�(PT�xT��T�&�T��T� �T��T� ��TB� `U�hU�V�U��U� 8V� 8V� XV�:hV�4�V�$�V�W�" W�HW�PW�XW� �`WB� �W��W�6X�8X�HX�PX�XX�`X�hX� ��������xX��-----------------------------------------У��У����������д�����Ϣ��ʾ�� ��ע��-----------------------------------------------------------�� ��Ԫ������]�� F H L%N'J J���'Dd��(�'Dk��i����--------------------------------------------д��־ ��¼������Ϣ����ʾ��һ��������Ϣ����--------------------------------------------�� R X� V$T,N X� 'Xi��X��------------------------------------------------------ ��ȡָ����cellֵ-------------------------------------------------------------�( F ^ \$`%N!b'Zi�����--------------------------------------------д��־ ��¼������Ϣ���ú�ɫ������ʾ��������Ϣ����--------------------------------------------�� R'f R X� V$T,N�� f X� V$T%N%h!j(l X� 'Xi����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�-���Ϊ����ֵ��У�� �� $�'��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@��'��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� �е������ ��M��д����ȷ���������Ϊѧ�����֤�ţ��������һλ���Ϊ��ĸX�ı����д������'��'��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��p \ � F H �A@��'��[=================================ִ�����п���У��==========================================��Ѵ�����Ϣд�������б�� checkBankKT b$�'� ����� F� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@P�k��� \ � F H �A@��'��W=================================ִ�����У��==========================================��Ѵ�����Ϣд�������б�� checkYearKT b �$�'� ����� F� �е������ ��*��д����ȷ�������ʽ��2012��2002�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@Pk��H \ � 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��( \ � F H �A@��'��L=================================checkOption У�鱸ע ======================� checkOptionKT b�B$�'� ����� F� �е������ ��)��д����ȷ�����Ȳ��ܳ���200���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@P�k��� \ � F H �A@��'��\================================= ִ���϶����Ѽ�������У��==================================� checkDiffNameKT� checkDiffName b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��x� checkDiffName \ F HA@�k��H \ � F H �A@��'��X================================= ִ�����֤������У��==================================�checkIDCardTypeKT�checkIDCardType b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd����checkIDCardType \ F HA@�k��� \ � F H �A@��'��T================================= ִ�вм����У��==================================�checkDisableTypeKT�checkDisableType b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��x �checkDisableType \ F HA@�k��H \ � 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�� � checkGender \ F HA@�k��� \ � F H �A@��'��u=================================14 checkYesNo ִ�������Ƿ�Ϊ���ǡ�����У��--==================================� checkYesNoKT� checkYesNo b �$�'� ����� F� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Pd��x� checkYesNo \ F HA@�k��P \ � 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��h \� 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��x��-----------------------------------------------------------�°� У���ظ���˵���Ѿ�û�и�ʽ����------------------------------------------------------------�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���A !('k���Ak���Ai���A��------------------------------------------------------ ִ������ڹ���У��(����Ϊ��)-------------------------------------------------------------�value ���������value1 cell�������У�鲻��ȷ����false�У����ȷ����true�� ,�0��˵��Ϊ�DZ����� *$.���'�z��`@k��X@k��P@]���'2�ijһ������ļ�¼�� �A65535 6$T%%�!'4�B�������'� 6 b�row$'0�=��ȡ��������������  0 4� � 6$T%N b� 2� '2d��`?y��X?k��P? �  0 0 2 � � � 6$T%NX *X ��L�жϹ��������Ƿ��cell������'�y���>k���> ��#��ʱcount��ĿΪ�ù������е�������Ŀi��x>��------------------------------------------------------ ִ��ɾ��ijһ�в�����excel�ܱ����ģ�-------------------------------------------------------------�sheetIndex ����� rowNum �к����1qaz�< \$`B@: 4 \$`%>B@@�/ �Ѹ���ɾ���- Worksheets(sheetIndex).Protect Password:=123i��=��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�8 �1qaz�< \$`B@: b F ^ \$`%N(bi��0<��------------------------------------------------------ ִ��ɾ��ijһ�в�����excelû�б�����-------------------------------------------------------------�sheetIndex ����� rowNum �к�� 4 \$`%>B@@�/ �Ѹ���ɾ��i�� ;��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�� �1qaz�< \$`B@: b F ^ \$`%N(bi��@:��------------------------------------------------------ ���ݴ�����е���������ֵ��ǰ��ʱ�������Ѿ�ͨ����У�飩-------------------------------------------------------------�� ]�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��h8y��`8k��X8 �  0 0 2 � � � 6$T%N!bX '* * JX ��1�жϹ��������Ƿ��cell����� � 6$T%N!b'H HX F ^ J \$T%N(by���7d��x7� F ^ J \$T%N(bk��H7 �i��07��------------------------------------------------------ ȥ��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��------------------------------------------------------ ������ȥ�������ַ�����-------------------------------------------------------------�� ]��-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'� � b$���'Rd���3�'Rk���3i���3�����3������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/.Visi��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����?�|�}?z }��Number����ͣ��{��}��]v�}�� �}��}F �a�}�}��|UP#�}�}�j��}�oQ�{o�>�h& �{�{�1�{��{���֣��>0�������޻qS�f����(v}�?�С����i���?VsQ�?VD�������//�����i��0cW��7�����M���W�W�W��W ��� �d�W_�_���_�_ԧ�W�R����}���Կ�ڄ��ulд���0�б�Xt�Va�l�X�W�W��W�Wg��W��B����W�W��W] ߎ�̿�g3�8�7߷g5G& "���N�P?�� �3�3^�д������� writeLog er@rorMsg�' isValidateCountD ="+ 1�E nd IfbeginCheck@_commeYsheetIndex, cMethodXQ, rowolumn� �isFor�UTrue '=ִ�е�������ֵ���У���0����д����б�{Case "mInt"�� ~b�(value, functionArg s)�"�] Not��R Then� E� IArRSplit(�, ","3��If ,�(0 )@50�" '����������DZ��������Ϊ��̶����ȟ+�Ń@"��" &��"Ax��� ���title@����������ȷ���"����Ϊ@�գ������������C������ڵ�F�� K(1)A����A/����,���� 2� λ��������7 Else�S�1�)�)& �)�)�)������)���(�gs�D�(��(h���HBhasE�J�!� '����a��ʱ C�V���f _��F���ck��>���k� è����़���ߨ  }A��Sfzjh�cr@esZjlx 5g@etCell��uqc�XQ(iˇ� p'��ȡ!|�����;�o� ""�m;��9hh����*�����"i���$_,�_,߃�|_,�(K�O<������?�� sIsID@Number%sc�g�) '��)� =� tqt�k���� ��#�.�����OM��!�)d�j�j��j#Uѧ��� Ct���һλ!vΪ��ĸX������дg�O _$_$_$/�$��$����/V?+�+? �=�SF�ZJLX�'O�n?&�XQF��$�$��Q&�O���z��"Î1�0vP��18w� �$$$O$$��o �_<�����??_5_~ ?�?�� �N,�_~[}�sR~sF���h_~=�={�}a{�}b �]�0DMB(SԒ, �d�"1����5�5�V5555/z\ /1/1/1\a0سeLog errorMsg aElseh�setDMBCode "checkZjlx", sheetInde@x, rowc`olumn�E nd IfbeginCc_co`mment e}M�ethodXQt,�isFor = Tru�y'=ִ�����У��oCas�Year�"�x iK��(��, value, 1)"If Not �%Then��E��"��" &�p�"�������������title�����д����ȷ����0���6�hasE���\ '����Rʱ������д�@����Ϣ�*w�rit�����V��:_������쭱 �Xр����ŵ�Y�)] 3�ZXJHX?�QB=�SLen(�Y"�1Z, 50"�Z?A*?[ /�?\?\�������Ϊ�գ������ȱ������ڵ���1λ�������50��b��c��c&�dF7ny���\ck����� �\�T==a\���п���\k\'��!%�д��a�Є��_Bank�_��^A�^?] {�!1�\9_.sg|\R.Q-Ϊ����֣��-�_functionArgsArr(0)�G/?r(1�3�0! >0ObOb�� O0�y'/0��/0��//��/, x��/�E //+.�!/p����. � �.��./�� ��.�quE^�#�/�o^X�Q �/���/u�!*O�O�@��/��ʽ��2012���2002��ύ����+�+�+��+ߺV��)��)�)�)�)����)O&�)ѧ���)�)��)��n��X�)�)Xԇ�(�P��(�(���(�(��a*����(-�(3�(���(�(�(��(�([oT���*��*�*�*�*�*���*'�*��oT?_�*�*��*Mo�nth�*�*�*��� G�*�* � errorMsg = "��" & rowIndex("������������6titleZ& "��д����ȷ�������ʽ��01��12�ȣ����`��" �hasE�True '��������ʱ������д�� ���ϢIwr�iteLog �/'�End If�beginCheck_comment sheDet��, c� MethodXQ,�� olumn�AOisFor�  '=����3 ִ�������(�DZ�̜�)@���Xд����б��?Case "��8Date" �O B4�Birthday(valu e)OWʼnIf NotKS Then� '�����E;�ʧ���[�!M7����Ϊ��C@hr(34)A�x�-xx�  ��2013-02-�21������E,���a.y�ack�a$��8g�a�\+a��a ����a"'laNec�essary�b�!��bF�c�c�c�?�c߿Σ�c!duc12?ce�?�?�c ?�e ?�?�?�k?_�X!�10 ��绰�����\G68,Phon6e�zX=��Nu�m�*D�[XQ�[>�/(���W�/(Z����-�̶�� �� �����?)Z$ b�'�����'��X_(�T�W���W����_(O%b~Optio�n�(��ע /��x(��(�(����c(, 66�0����(�`�(�(�(�(���Ȳ��ܳ���200����ַ��g��%��%�%9�%�%��%�%�t�%�%�%�%�%�%!?��#��϶����Ѽ��������qO�� .x'DiffNam/PR �'�'DMB(԰�, ��, funcA0Args�_)BOROR�V�)�)��)�)?Nl�(�(�(L��(�( Else[ysetPCod�vǗi�ez'o��|��.�.�.�.�.6U_*�.����8���1~�.==��.��heckIDCardType"  c�MethodXQ = �d 0�Z '�� ����Ϲ���� � &Btotal� @|�+Cg�Sel�ect �tޘ%�"baojiao5�C��:�1 ��Sum�-, ��huoshi�����c _� B�zhusu?L�?�#��� ot�hers� ���H� � � E 2Oc*?%��| '�2���3 �=pG�>6�>�>�>�������Ϊ�ѐ@K�EŎ�+ ֓+ "� �Jb����XC� �F�t��-������Ԁ���ʽo- � re�gB�(��})8DimaEX A`s Obj�I�Set�= Create("VBSCRIPT.R�EGEXP")a'RegExΪp����G �EX.GlobalpF"��n'����ȫ�ֿ���''vba��\����ת��Patter.n��� R��ʽ�Ignor�eB8= Fa�����Ƿ����ִ�Сд<����3�Test�gGB.������������hing �#$O �°� �4�ظ��������Ѿ��(���pt�ᾣ���� �1����ѧ���׶������ڱ��ڲ���� �-B}0�S �XQNew(�W�2) '�w(Tna�S!�s:.Range("A65535").P(xlUp).HRow'cgxetT1��wM�V��h6�msg���).Cells.ClearCont@�s 'ÿ����ʱqذ�5�AB ���,�c�uq� P 1 '���¼��ʼ������/���ocJ��'����ð������ÿ��Ԫ�غ�����֮ǰ�������н���бȽϧ��i0 startT� + 2 To0 rnag4ba�byID1���I�2�(i,���a3YOdAjO@�i - 1oq��2�ex�j�$`N� If bab@yID1 =H2 Then '���ѧ������ͬ���������ظ������ � errorMsg�"��" & j"�е��p��(iS������ !"\writ eLog e'�Ѵ������ ����:haBs�Same�TrueEnd �If� Next� ��Functi@on '-7��һ���� ����ֵ��ȡ��ֵ������и+-K)�����ҵ�*���л��ЀkeyWord �Ĺؼ���ցbn�� � ֵΪ ��row����$�� @ GetRowOrColIndex(ByVal sh�eet, CD�@As Str ing) �In�teger�[�@o-1GbDim c Object �'the fi@qresult o#� Set = %=k�&s(�().Range("A1:A65535").F@(What:=�.Loo�kIn:=xl�8�ues, AA�xlWhole)G�NoIs }h�9��G��@ k�@B= "�U" Cc.@]�Els�P���5um�W� eM`���]�U ִ�����������У��(����Ϊ��)?]8�Vvalue � ����1 cell�P������'A����ȷ�����fa�%�et��[checkDM$B(� , �1,� flag�<�7�I`S"0c7 '����DZ����B�=Trim# 1>)�U>�`��Ex�it �259�8��f!�LData�Count 0 '� �һ��a(�����¼��C�(Num`Szs(pAreag�f� (xlUp@jow `'����E HF�/� -Ul $0,�#e) '���>�C`For i� % T�o @���7��C`Fs(i, �3�b>�r'�+ (��p=#5o���2a� i�'j.�5 + c V-i DC��(�jp, 3)�M��,)�r '�ж�a�q2�Ƿ��q3�������5�)��^j��'��ʱc�(��ĿΪ��q���Ӱ�B P � ��._w/B-bHɾ���.�в������ex�ܱ��������o�G�1` �����' �кňsdel�eteP\�h,�*�E�jv).UnprotaoPassw`|:="1qazO$�ob�s(�).D� p����6�!�'rA}).�P123_� ��ָ���c'��ֵ?�(set�<�z�3�XQ�$�cԋDF��Q+�??���#FӀ�).�F=�f�///%/û���A///o////�n² &/No�$�'Z/�fow,���,?B �(/��(�(�(�(Q��(|et���@�@?,t�)�.�(#��(p��W/SBδ�A�֐]���ư>�Σ�ǀ���ʱ��1�Ѿ�ͨ�������)?����Code��%bW��8�i�<��, c �2�����QL2p|?�y�,��HC= ��� S]_��_���"A65535").End(xlUp).Row '������  rowData = Get�OrColIndex(Area sheet, value, "d") '����������Ѐ��������`For iS]T�o Num"PIf S`s k).Cells(i0, 1)Fy Then ?CCou�nt#+ 1 "ElseExi t R�nd If� Next i;��jj5�j�+ ]�?-�?Q_1�QStr(�xj, 3�).)<"���U�%c�V�)�� '�ж�������Ƿ�́���������code��(�'�2�'W�tǎ�sNĒ"c� + �um�nPlusDJF%�PBA.qB}A�D89�'""O?���j  �Functio@�'-2 ȥ��Cr�Ŀո&��  removeSpa�ceXQ(G",�u#l5�0DimÁ1 As �Zing '��Ԫ��������P�$�@lengthInteger, Mc2�d '���ʾ#ԭ���ij��ȣ���ִ���"�!����ַ�<������JFa C 'Ĭ���0�û�F' PWork!s�!).Unprotect Password:="1q�azhA�st���`Nj�d Len(� �/;��'0C�aM '����1Ϊ�գ�������%�����$c r2� In!�� � ἤ�������γ��ֵ`�λ�Çf2p <> ��3�����A5'�q� ��ReplQ����"E�+�,A�bX� �� �ETru��%|?z�s- ������2�����a$����?8�zecialCha�racter��q!9reg�p�"[\uFF00-)b6]�9�FF]|[\s,;'��""?^]+s/�`�CheckAE�(���#i�� `�F�z� �"H"� �"�4�"� �"� �"��"� �"�#� ����� �#� �#� �#B� �#��#��#��#�$�$�$�$� $� �($� �$� �$B� �$��$� %� %�%� %� �(%� �%� �%B� �%��%� &� &�0&�8&�@&�H&�P&� �X&� �&� 'B� ('�0'�8'�P'�`'�h'�p'�x'��'� ��'�  (� @(B� X(�`(�h(��(��(��(��(��(��(� ��(� p)� �)B� �)� &�)� $�)� *�  *�&0*�*X*�"�*�$�*��*�(�*� +�@+�`+��+��+��+� ������+� �����2�+�,�" ,�H,�h,� ����� �����p,��,��,�8�,��,��,����P-��-----------------------------------------1 ��������,���д�����Ϣ��ʾ�� ������Ϣsheet��---------------------------------------� ��ʱ����0� ��Ϊ��ʱ����1�� ��Ԫ������]�� F H \$`%N'J J���'�d���'�k���i�����-----------------------------------------2 У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�H � b$���'�d��@�'�k��0i��(�|-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09(����Ϊ��)---------------------------------------�` b$.���'�z��pk��h]����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���i����h-----------------------------------------4 У�����֤����---------------------------------------����Ϲ��򷵻�true������Ϲ��򷵻�false��]�79058421637905842��0��Ȩ����]� 10X98765432�0�0У���� v$.'v� ȥ���ո�]�H�`�x ^  v���6)����׶����֤��Ϊ��,������Ϊͨ��У����� ~'�z��0k��( v��Gzj v��$�$��Gzj v�*[0-9X]�Gzj ��� x �$�'| |��G� '|j z v �$� | 'z�P z� '| v�$�  |� �$��G�'�ji���z-----------------------------------------У�����֤������ -------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]��,^[\u4e00-\ue863��a-z|A-Z|0-9|()|����]{1,18}$'� � b$���'�d����'�k���i�����----------------------------------------5 -У��ѧУѧУ��ʶ�� 42λ�����һλΪ���ֻ�x-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true� ]���^[1-9]\d{40}[\dx]$'� � b$���'�d����'�k���i����z----------------------------------------6 -У�黧������ -------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�(�.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'� � b$���'�d��`�'�k��Pi��H�u-----------------------------------------7 У����ѧʱ��-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�@]���'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'� � b$���'�d��0�'�k�� i���q-----------------------------------------7 У�����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� b�� ����,���Ϊ�DZ�����'�k�� z��k��]�h�^((19\d{2})|(2\d{3}))$'� � b$���'�d����'�k���i����q-----------------------------------------7 У���·�-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]���^((0[0-9])|(1[0-2]))$'� � b$���'�d��0�'�k�� i���v-----------------------------------------9 У��ѧ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�]���^\d{4}[0-7]\d{3}[0-3]\d{7}$'� � b$���'�d���'�k���i����v-----------------------------------------10 У��绰����-------------------------------------------------------------���ʽ����ȷ����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��� i��� �v-----------------------------------------11 У�����п���-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�0]���^[1-9]\d{14,20}$'� � b$���'�d��� �'�k��x i��p ��-----------------------------------------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��� i��� ��-----------------------------------------checkOption У�鱸ע�磨����С��value2��-------------------------------------------------------------����Ȳ�С��200����false� ���򷵻�true�h *���'�z��� k��� * � ��'�d��� �'�k��� i��� ��------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)----------------------------------------------------------------�'value1����value2����false ���򷵻�true� *X'* �X'� * � ��'Dd����'Dk��pi��h��------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)-dec---------------------------------------------------------------�'value1����value2����false ���򷵻�true�� *$4'* �$4'� * � ��'�d��P�'�k��@i��8�}------------------------------------------------------У�鳤��---------------------------------------------------------------�0 ��,$�'��'� b���$����/���Ϊ�DZ������'�k��@z��8k��0 �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±� b�$�$4 b�$�$4��'�z���k���d� ˵����У��̶����� b�$�$4��'�z��Hk��@k��8i��0�}------------------------------------------------------У������---------------------------------------------------------------�� ��,$�'��'� b���$����/���Ϊ�DZ������'�k��8z��0k��( b$���& �����Ϊ����z�� b�.��e�+�������С����z��� b$4�e�% ���С��0z���k��� �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±� b�$�$4 b�$�$4��'�z��k��d� ˵����У��̶����� b�$�$4��'�z���k���k���i�����------------------------------------------------------У����ֵ��Χ---------------------------------------------------------------�` ��,$�'��'� b���'�z���k��� b$���) �����Ϊ����z��� b$4�e�) ���С��0z��hk��` b$4�$�$4 b$4�$�$4��'�z��k��i����------------------------------------------------------У�����ֳ���(Number,����Ϊ����Ҳ����ΪС������С��0)---------------------------------------------------------------�� � �������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'� � b$��z��� k��� ��,$�'��'� b���$����/���Ϊ�DZ������'�k��P z��H k��@ b$���% �����Ϊ����z�� b$4�e�% ���С��0z���k����$�'��+����������󳤶��$�'��.С�������λ�� b�.�'��'��'� ����"˵��û��С���� b$4'� ��$�$4��'�z��k��d� �����С���� b� b�.�� $�'��D��Ԫ�������ֵ�����λ b b�.�� $�'� ��$�$4 ��$�$4��'�z��Hk��@k��8i��0��-----------------------------------------checkIsInt У�鲻С��0������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ]�� ^0|[1-9]\d*$'� � b$���'�d��(�'�k��i����-----------------------------------------checkIsNumber У��ΪNumber����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true� �'� b$���'�k��i����-----------------------------------------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��x��-----------------------------------------checkIdNumLink У�����֤�����Ա�ͳ����������û���д���Ƿ�һ��------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�H� If colIndex = jhrIDColumn Then� checkIdNumLink = True� Exit Function� End If]��%�Ա�����֤�����Ƿ��Ӧ]��$�������ں����֤�����Ƿ��Ӧ]�0����ڵ�һ�γ��ֵ��±�]�H�"�Ա�,��Ԫ��֮�ڵ�����]�`�$��ݺŽ�ȡ������]�x�!��������,��Ԫ��֮�ڵ�����]���"��ݺŽ�ȡ������]�����#�������]�����%�����·�]�� ]�8 ���$�'� ���$�'� �� ���(�����ڶ�λΪ��������Ϊ������� F p Z$T,Nd������ڶ�λΪż������ΪŮ���Ů F p Z$T,Nk��� ���$�'� ���$�'� ���$�'� ��- � �- � F r Z$T,N�'�i��8�%^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$'��3�޸ģ�����У����Ƨ�����������E�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 �@"^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$" '�޸ģ����ԁ9��Ƹ���YhC��� (, ��j`�D&�_�i� �s�i3�i���������QΪ2012-05-09(��4���)�m�jBi�rthday*/@$�Trimd�.�X �#��#��Exi�t =�/A�V�Wa �<'`1� ^((19)|(20))�\d{2}-(0?[13578] 1[02])&)��-9a[12][0c3[0&1� (( 469"11Y� �0?�2� )))$ ���;[1�[����Oh?]!aW9?P�H>]�R$](�8���]'u]Ne�cessar�^Ӎ� Q�P�;`Lr5�P�;��g;2_; �)��%���:?k= � hW/h��4�' �Y���֤���������0����af#e'��I�g�G IsIDNumber(4ByP� �ǀ, /������)�Boolea�|Con0st W'�K7905842163��h�'��Ȩ�����CP�c�10X98765X432C'��f��S& = Z�) oȥ���ո��,sInt�eger, i�T��Bv= b@abyIDCr� A�l�a�` '����׶����9,����ր�Ϊͨ��� 7A ��Flna���c 8c� Len(<> 18�/ ��� Not� eric(�Mid�, 1 �7)�3� f�5�Like "*�f,X]�_ � For�= 1 To� 17C�T�q~W�t����0�� �1 ��1spPs + ; i! * TNext��s Mod 1p��Righ t)�c, T����3 S���}��O;� �"���������?�@1��Q��SF�ZJLXj�`��4e0�e863����|A-Z|��|()|����]��18��������ueS�rw��qYkVoXlX���5�3-� ѧP0��ʶ�� 42λ�����һ�������x�����ckS�chCode� ��x@�40}[\d�x]�Ogo��C��_��qloooQ--6R "�������� ���- '��������ȷ����false#TLtruHFunction checkFamType(valu e) Di`m reg = "^(\u519c\u6751)|3bf\ u95477ce#e02)$"i;IfGCgu( K, i The�n%r �nT��E�  &Fr� End If ��p�7 У����ѧ�ʱ���/� RXDat��((19�20))\d{2})((0�[0-9]1�2])5a� �`F �`�FP�`���QU�!�_Year�, fD�ArgsAr�rD�����G""��_A��� @ 0 '���Ϊ��DZ�����ǿ����"� �I��iaExit �_���j{�s� �{�II�|(23}�G���, 0x�G>$dG|��Gz G`��M�onth���t���*D-�?-�"�9�Ja�ѧ���ŏ8�-�-XJH�-�Y4}��7]BZ �3!7}��)Q[��.C�-�&$10��绰����_�_���-ckPhoneNu&m?l�\b�i(([38��h4[5j7Ai5�5jk8*}�0�0p2[D\d�j-[2�\�d*�[3��mg�)\bo��No�R�q*�I� �Ap��'11����п��2O`�Bank�=�[1c14,�20_2Т_�^�����4oo�� Xn@�I���瀣�2012-@�3��_�pXn_U�x�y �sc���20�J�2}p r�019�t9900o�_�L2Spli�t� , "-"4�q30�R(1) -� �0)01����= ۊ�h�����olkp= �"�"� OpR��9��ע#�����С��R�2_#��P#���200yٷ�����Vck� �1��2�2 1@���4�h ���g�E�Le�-@">�c�2�!V��L �?#Q5� �� qg�`O�Ƚ� ��С(������)�s ���&�B�  �!��ompar��q![�alue2) v�1 = `CInt(h x2� x zIf �>�2 Then�̀compare��False E .Tru -nd If EFu nctiol'-2�Ƚϴ���(С�ڵȀ�ڷ���t�7`)-dec�)� � '�����ڂ 2/f�~ ����6 �d ���Dec��,�����9��lC �m�_У�鳤��#�]heckLDen], fD�Args�V�Arr��ESplit(��, ","� c��Q��@""T�� ((0) 0� '���Ϊ���������O݁�H eemaiaj��x�it �l�Dp�`�UBound� �#Á '�±���0��ʼ����ֵΪ����������ά���õ������� qF4) >� Mm(`1)) A H<�T2@��E�>(�< E3'��.�� '@˵����\�X̶��\s! �� �H�!? *�� ��F�GJ��Ry�#�������% ��������c&b+@ �v�,�Z�� �on�����j5�(�����(Not I�sNumeri�kB)8J��Ϊ�>��,����InStrY".") <> �O�����С����oKv 6`CQCr=� a�0���-p?P�s�?P?P?P�Rkr�@pX??Pg1?P����d?P�|O$����$?P?PI�?P��?P�3Ps:_2�� �>� ?P���K1P��ֵ��Χ}PVal�������$IL����0����PP��'����=A`#�Je��J��J�oQ2�E� �� K�E�/��#�� )L?@3@0�t�����B/2E���y_ �5q��)Ss/�ֱ�(�fber,�����2��Ҳ�aa�����)�1P�1�1H['�����������o���ɼӷ����7reg�0"^(([1-9�][0@*)|�0]\.\d{10,2}|�F))|0{1})$"��T-@C!ǁ(���-�� Exit Function  �End If <$f�ArgsArr = Split( ., ",")fcheckNumXFalse2If value"" T�Ca�u! (�,�� l�=� ��_C �3���s.�?.e%� �ber�.�Ϊ�����8*_.�0s.#�.� =� 8��l�y ��G{+?/�Money ����0-9���E__�+�_cNk �+�+((�+(\d{0,3})�|0!_,k_,*H�_,,V,�_,�g_�TJ=#t���һλ�?�����TJ���DD�7})?�?+`j__���'�0_--Pe0rson <�����԰��������һ����˿oo�o`v �O1�01��c��k����=�] ���Id!�Link�����֤�����Ա�ͳ����������û���д���Ƿ�һ���?ooo`� (�, rowIndex,� col���'p�f�xjhrIDC`olumn��t'� F0�`!vo�������isGe rRight As Boole0an 'CE��a���Ӧ� �B0irth���ͣ/+len@�2�)��eg�|'q��һ�γ���@���±�[g�b ��` ��ingS ,t���ڵ��H��ݟer�1J� �Ž�ȡ�om bq�e?1��� Dim birthValue1 As String '��ݺŽ�ȡ������� ��year,  hVariant '������ ZmonthL,  ^�� /dpay,  + arrgender�= Mid(IdNum, 1�7)) � �F8�If �2Mod 2 = 1 Then '�����ڶ�λΪ��������Ϊ�� ��"�SheePts(sI]x]).CellsP(row� ,9C@olumn)�6"��"'ElseI�<ż�<Ů�<ł�Ind IfF"�$G��@,�b�Z@c, 4d��� 5, �2� �Q kI &V�$��V�++ "-"| +��C� �5checkB�Link�$True E@DFunction ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������SyQ���Q�ZWorkbook"��������̄_VBA_PROJECT_CUR"#PROJECT!�����VBA��������dir �������� �__SRP_b��������j__SRP_c���������__SRP_d���� ����%j__SRP_e��������'��Xf������������C�__SRP_a��������.�Sheet2 ��������5�Sheet1 ��������H�__SRP_f��������[jThisWorkbook��������]< Sheet3 ����������__SRP_2��������Q�+__SRP_3����������__SRP_4����������__SRP_5����������__SRP_11��������� __SRP_10����������__SRP_0��������gM__SRP_1����������_VBA_PROJECT������������v� ;N z�^���������7R__SRP_6����~__SRP_7�������� �__SRP_8�������� � __SRP_9���� ����?�]wQ�Qpe ���������K�!h���Qpe ��������PnPROJECTwm������������\�CompObj������������_hSummaryInformation(����$����a�DocumentSummaryInformation8������������e$������������������������������������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="3F3DCD1033707674767476747674" DPB="7E7C8C51F4AF32B032B032" GC="BDBF4F8EB1CCB2CCB233" [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, Z ����=198, 198, 885, 830, У�麯��=220, 220, 907, 852, ������=248, 207, 935, 839, ��������ų�0*� pH�d� VBAProje�ct4@j = r  ��[� 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@4D0BB4SsaSFM20L'B ��_�&/;"1��jIqAHq00}t#0Bq#� ��504�� ��A34FC7FC0-6A2F-4A08-B602-807CF6FDDB98�6Users\yxq\AppData\Local\Temp\VBE�aB6.exd�bU;!��.E ���.@`�M �����Cf»ThisWorkbookGU� T@�ikW�mkb�ok� 2� �H�B1��\�B�,�!�("B+��qSheet1*G� S�e�_tn1 �u�2�� �S@�� ��� 2� 2e� 2� 2� ��~� 3� 3� 3� �3� �)�g� �*���ߺ���G��]wQ��Qpe�e2j!o��m)(�!�6e7������Gb<�Xf�"a2fo o �k !У����!h���e��eo vXo ��k �L������G�Q;N z�^�b�2�o �9o րi �&�������������������������������������������������������rU@@@ ������������xb����������������������rU@@@8 ��0A!�0��������� `�!�!�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������rU@@@ ������������xb����������������������rU@@@81A!A1��������� `�!�!�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������rU@@@8 !A!q!��������� `�!�!�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������Z����Cf~��#����������p���P#=��A����E�u �FdS��KY K�n �as������������xdS��KY K�n �as�P#=��A����E�u��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������%����@�����������p��������������%��>���������������������������%����H��������������������������������������������x@x������������������������8 ��[$*\Rffff*0>5c7c0e47�����`����������x������Attribute VB_Name = "She@et2" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������Z����Cf����#����������p���*�b�QD������ �Fs�uԲ��E��%�X���������������xs�uԲ��E��%�X����*�b�QD��������ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������%����@�����������p��������������%��<���������������������������%����H��������������������������������������������x@x������������������������8 ��[$*\Rffff*0=5c7c0e47�����`����������x������Attribute VB_Name = "She@et1" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@������������xb�������������������������lzV Cf�(��#����������p���ߝ~4�@�;}�+=�y�F��$�+�A�(� ze�������������x��$�+�A�(� ze��ߝ~4�@�;}�+=�y��ME�������������P���������������������������������������������������������������������������������������������������������������������������������SL����S����S�����6"����������������� ��������� ����?@ABCDEFG����IJKLMNOPQRSTUVWXYZ����\����^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������������������������������������������������������������������������������������������������������������������������������������  ����  !"#$%&'()*+,-./0123456789:;<=>����@ABCDEFGHIJKLMNOPQRSTUVWXYZ[����]^����`����bcd����fghi��������������������������������������������������������������������������������������������  !"#$%&'()*+,-./0123456789:;<=>?@AB����DEFGHIJKLMNOP����RSTUVWXYZ[\]^_`abcdef����hijklmnopqrstu����wxyz{|}~��������������������������������������������������������������������������������������������������������������������������������������     ���� !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF����HIJKLMNOP����RSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������