��ࡱ�;�� }��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� T8������\pY�Q(u7b B�a�=�� ThisWorkbook���=� L}8X@�"��1����[SO1����[SO1����[SO1����[SO1�����[SO1����[SO1����[SO1���Arial1�����[SO1����[SO1h>���[SO1,>���[SO1�>���[SO1@����[SO1����[SO1�����[SO1����[SO1�����[SO1���Arial1�Q���[SO1����[SO1����[SO1����[SO1����[SO1@����[SO1� ���[SO1����[SO1� ���[SO1� ���[SO1����[SO1�����[SO1����[SO1���[SO1� ���[SO1� ���[SO10���[SO1� ���[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����[SO1@���[SO1����[SO"�"#,##0;"�"\-#,##0"�"#,##0;[Red]"�"\-#,##0"�"#,##0.00;"�"\-#,##0.00#"�"#,##0.00;[Red]"�"\-#,##0.007*2_ "�"* #,##0_ ;_ "�"* \-#,##0_ ;_ "�"* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ "�"* #,##0.00_ ;_ "�"* \-#,##0.00_ ;_ "�"* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)�"�"#,##0;\-"�"#,##0�"�"#,##0;[Red]\-"�"#,##0�"�"#,##0.00;\-"�"#,##0.00#�"�"#,##0.00;[Red]\-"�"#,##0.005�0_-"�"* #,##0_-;\-"�"* #,##0_-;_-"�"* "-"_-;_-@_-,�'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=�8_-"�"* #,##0.00_-;\-"�"* #,##0.00_-;_-"�"* "-"??_-;_-@_-4�/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-�"Yes";"Yes";"No"�"True";"True";"False"�"On";"On";"Off"]�,[$� -2]\ #,##0.00_);[Red]\([$� -2]\ #,##0.00\)�0_);[Red]\(0\)�0.00_);[Red]\(0.00\)�0_  �0.0_ ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� �� �-���� �-���� �-���� �-���� �-���� �-���� �-���� �-���� �-���� �-���� �-���� �-���� �.���� �.���� �.���� �.���� �.���� �.���� � ���� � ���� � ���P�� �+���P � � ��� �� � ���� �/���� �-��� ���� ���� ��� � �0���� �1���� �2���a�� ������ ������ �3���� � � �4���ff��� �5���� �6���� �7���`� ������ ������ �8���� �9������ �:���� � � �;���� �.���� �.���� �.���� �.���� �.���� �.���� ����  � ��@ @ � ��� ��@ @ � �� ���""@ @ � ��@ @ � ���@ @ � ���@ @ � ��!�@ @ � ��""@ @ � ��� ��� �1�� �1�� �1�� �1�@ @ � �1�� �1|7 �1|7 �1�� �1�@ @ � �1�� �1�� �1��� � �@ @ � ���@ @ � �0@ � �� �#1�� �1�� �1�@ @ � �$8@ � �1�� �&1|7 �1�@ @ � �)1�� �#1� �!1|@  �1� �1� �(1|@ @ 7 �1<@ @ � �*1�@  �1�� �,1�@ @ � �1�� �1�� �1�� �1� �<87 �=8� �>87 �?8� �@87 �A8� ||u8x}(} 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}2 �}�00_)�\([$�#,## � �}�}3 00_)����\([$???�#,##???� ???� ???�}(}4 �00_)}(}5 ��00_)}<}6 �}�00_)���\([$}<}9 �e�00_)���\([$}x}: ???�00_)???�\([$???�#,## ???� ???�}�}; ??v�00_)�̙�\([$�#,##� � �}(}<  00_)}(}= 00_)}<}> 00_)\([$}<}? 00_)\([$}(}@ 00_)}<}A 00_)\([$}<}B 00_) \([$}x}C����00_)����\([$����#,## ���� ����}(}E 00_)}(}G 00_)}(}N 00_)}(}O 00_)}(}P 00_)}(}Q 00_)}(}W 00_)}(}Y 00_)}(}Z 00_)}(}^ 00_)}(}_ 00_)}(}a 00_)}(}d 00_)}(}f 00_)}(}j 00_)}(}k 00_)}(}o 00_)}(}q 00_)}(}r 00_)}(}s 00_)}(}t 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^ĉ 4�, 8^ĉ_hQ�VL�?e:SR�Nx�-���(�������c  ���.}Y�0��}Y ����� �a�� /Gl;`�&��Gl;` ��0�����'�^�1��� ��'�^[0]� 2���{�^�����{ ��}������� ���3�h�gUSCQ@wr� 2�6�!�@wr� 2 �PM� ����� ?@wr� 3�6�%�@wr� 3 ��Y� ����� @@wr� 4�*�)�@wr� 4 ����� A@wr� 5�6�-�@wr� 5 K��� ����� B@wr� 6�6�1�@wr� 6  ��F� ����� C�lʑ�^� ��lʑ �������������������� ������X��TableStyleMedium9PivotStyleLight16��8�������������������������������3f������ff���f����������������������������������̙��̙3f�3���������fff����3f3�f333�3�3f33�333\���`��K �V�[VYf[ёD��RN�R TUS��m�Nxh��V����Oo`�����VV�����!  =dc:- KmՋ@b g!h��ĉRv^SbpS���Oo`���f�f�����87@���������N�F�|�MO�S ���A�A�@�A@�  ����w1 7 checkDiffName�V�����[�V���~+R T�y checkSqyyCode3u��t1ux�k�uNO�O checkSqyyName3u��t1u T�yf[u�Y T 77usY�e�l T�^�S/�f T�y{|�W checkGender'`+RsY'`+R7u^�8^�V��N,��V�� N�V��vQ�N�eUS�Nd[?Q�p�XP[sY�QQg�N�O�V�u�V~p�m�QNN�S>e�eg 7sfzjh 7�_�O���Se�eg �eKNMR�v�e���S+TS_�e � ��_kXy�. 7bzsm 7 pmTotalCount 7b�~�c T;`�Npeb�~�c T T!k 7checkDateNecessary 7Y�l 7$ kX�Qf[ub�~�c T;`�Npe ��Y 100 0 300 �N�SkX�Qtepe � �_kXy�!% 7. kX�Qf[ub�~�c T T!k ��Y 1 0 3 �N�SkX�Qtepe �v^N T!k�c T(W;`�Npe�v30%KN�Q ��_kXy�+% 7# kX�Qf[u@b���� z-N�v�_�O��b�~�S 7FAILURE 7�� 4134011306 4134013338 4134010878�z�9 M:{�:��:-A;o\<�{=�`>��?�UA�;Di EB 7Fe �G� �H&cc��B��������~-z4n�A�_)k:~yw T8��  uh  d����MbP?_*+��%{����&ffffff�?'ffffff�?(�?)�?M.Microsoft Print to PDF�P/ � 4dXXA4����GIS4DINU"�$,?]{~�SMTJ�{084F01FA-E634-4D77-83EE-074817C03581}RESDLLUniresDLLPaperSizeA4OrientationPORTRAITResolutionResOption1ColorModeColor,V4DM� p"��O4�wM��H�5��L*@VDocumentUserPasswordDocumentOwnerPasswordDocumentCryptSecurity�" d��333333�?333333�?�&�<3�cA�U} �s} t} `s} �s} �s} �s} �s}  s} M s} Nu s} v� s} � s v ��PJ�Pv�_��P �Pr�Q �R ��T{@� pk� gN� fM� q1� ql� Wh� qm� qn� o6� qo� q9� rp� PD`"@h� nf� i^� c:��^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^uj� Q� jO� P� Y� Y� Y� Y� Y�  Y�  Y�  P�  P� [/k� Q!� dA� d)� Q@� Z+� Z*�  Z-�  Z,�  Q7�  Z.� iQdjZlP� nZPo� pQ>qa� U � lP� Ve� VB� eC� VE� V"� V#� V$�  V&�  V%�  V'�  U � Sq� mj� Sr� SF� SG� SL� SH� SI� X(�  SJ�  SK�  Sg�  S?s���� �������r��y�Z�( � ��� �vj � �N�@A����X��������������?�����]4v6@ ����E�@��ķQ>� ��<kX�Qf[u�v�Y T<�~�~� � � �<��G������C�C��@���],@}��9� ��$< _�Y�h�g<�~�~� �� � �<�`N������C�C��@����],�@}��9� ��$<_ �Y �h �g< �~�~� ��i � �<�S������C�C��@��->���],�5@���9� ��$<_ �Y �h �g<v6admin>�@din��jn�7� Sheet1gg����Dh4h]�:S�W2 T8�� 7_ya  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?M�Foxit Reader PDF Printer�_�� � 4dXXA4�" dXX333333�?333333�?�&�<3U} @F} �D} �D} �!D}  E}  E} E}  E7�@ ,,,,,,, , , , , ,, � M � H� H� MN� O8�GGGG� Os� I0K�?� ]2� \3� Ev� I0K� ]5� \4�GKKG� IK@� J � I� IK�?� J � IK�GKKL� I K�?� J� L� I K@� K� L� I K@� K� L� I K@� K� L� GKKL�GKKL� I� II� I� I� II�?� I� I� II@� I� I� II@� I� I� II@� I� I� II@� I� I� II@� I� I� II@� I� I� II @� I� I� II"@� I� I� II$@� I� II� I� I � II�?� I� I � II@� I� I � II@� I� I � II@� I� I � I I@� I� I �D, lP J<<< <<<<<<<<<<<<<<<<<<<<!"#$%)*+,,,-,.,/,0,1,2,3,4,5,6,� !I!I@� !I� !I � "I"I@� "I� "I � #I#I @� #I� #I � $I$I"@� $I� $I � %I%I$@� %I� %I � )I;)I� )b<� )I=�*IIII� +IR+I�?� +JS� +LT� ,IU,I@� ,JV� ,LT� -IU-I@� -KW� -LT� .IU.I@� .KX� .LT� /IU/I@� /KY� /LT� 0IU0I@� 0KZ� 0LT� 1IU1I@� 1K[� 1LT� 2IU2I @� 2K\� 2LT� 3IQ3I"@� 3K]� 3LT� 4IU� 4I^� 4K_� 4LT� 5IU� 5I`� 5Ka� 5LT� 6IU� 6Ib� 6Kc� 6LT�*�h<<<<<<<<<<<<<<<88�P�H � �0�( � � >�!@��+++� 7� Sheet5gg����D T8�� �  d����MbP?_*+��%����&ffffff�?'ffffff�?(�?)�?�"�333333�?333333�?�&�<3U     GGGGGGGGG G G G G GGGGGGGGGGGGGGGG�>f0 �P�H0��0�( � �>�@��� 7� Sheet6gg����D ��������������K*� ����  rU��@@~~~~~~~~~ ~~~2~~ ~~~ ~ ~~F"QUk%4�ߞL�;R�� � �������� ��aA �������� �����a A �������������aA ������������aa ��������@��������� ����a a ��������p��������a"�"�"#A#�#�#1a������$Q$�$�$��!�a��������P����������Q� a ������������������12A2q2�2�23A3q3�3�34A4q4�/�4�4�4!5Q5�5�5�56A6q6�6�6717q7��q�aa ����������������� 1 ������������������������������aA �����������������������������������Q�!  VBAProject ThisWorkbookSheet1Sheet6��ӡԤ�����ߺ�������У�麯��������ShowFormSheet5 PrintForm��F6C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA A�������� q�P�F  D:\office2013\Office15\EXCEL.EXEExcel ����������1p0�FC:\Windows\System32\stdole2.tlbstdole ���������a�L��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOfficeMSForms ��������A���.E ���.`�M �C:\Windows\system32\FM20.DLL �������4/jJ��|��ۘ /C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd � �� ����������У����򲢴�ӡ������Ϣ checkTheSame  Browse_Print��F�l�o�wC�@%��0t��F�A �ʒ�E���^$�ffD�FWorkbookWorkbook_BeforeSave x .�`/f&Tnx��\���OX[�excel ��Y�OX[ ����p�QVBE7.DLL��������` �� a nx�[ , &�|�~\��ۏL��h�g!h�� ��Y N�OX[ ����p�Q �S�m ?��������S Q(~ ���Oo` �Nxh� �f , deleteRowdeleteRowNoProsetCellValueXQ JJ�  8Phpx���F��F����������&m���FUnprotect CellsClearContents��FsetCellValueCountXQ&m� 0�]\Oh�pe�v Ncknx ��� N}�g�e!jgT ��QۏL�dk!h�� 1qaz.��PasswordProtectEnd&t � A65530 Rangerow IV5��F�rd�c�)A�\�Z�(�� �F���:J��D� #9p�D�F Worksheet regCheckFunccheckTheSameXQNewGetRowOrColIndexcheckDMB:�F�F FAILUREcheckedRequiredStartwriteLog writeLogRedaddCommentXQStartclearCommentsXQStartbeginCheck_commentcallFunctionXQStartgetCellValueCountXQ setDMBCode removeSpaceXQremoveSpecialCharacter 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 -��������� *�(~ : ; ,{ L� R�vpency�� VX[(Wyr�kW[&{��Y^ , ; ' <> " ? zz ���&��������������������������x��RR��������������������ME�����������������������������������������������������������������������������������������������������������������������������������������(@��f0��6 ����<�������`f��������h�P0��h�h�������l�����H���������������pH������@��������ʀ�x���� ��@�����������8���� ��@��������ꀈ�h������ @����������tx����� @��������%������Ϣ�����������%ꀢh����� �� @���������������� �� @��������ꀞ������ ��@��������������B��������������‒(�������@��������ʀ�X����� ��@��������� ��������@��������ꀤ������ ��@���������L�����B���������������Zh����B��!������������ꘂ��������B��#������������˵��%�����j�����B���������������^Hp����H���������������nx�����H��������������ʘ������B��������������ʀ�� ���� ��@��������ʀ�P���� �� @����������r8p����h @��������ꀜ8������� @���������0�������� @��������� ������ �� @���������v������ �� @���������x ����B���������������zP�������@��������ꀊ������ ��@���������`��������@���������|��������@��������ʘ�����B���������������~@����� �� @��������ꘀp����B��"�������������H��8�h(�X�P�px����������������� ��������x�8��������������@����������������������������������������������H��d��������������������������������$���������������������p��������������������(�����������������������������8H۾�[*\R1*#278$*\Rffff*0?5c7c0c24(*\Rffff*0?5c7c0c24\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@@@@~xVq� A 1� �)� Q% Q A � �0!Q�����!Q�dQ�����0 �!�!"`�$A%q%�%�%&a&�&�'�&q'(1(q(�(`��) �pl1)�a)Q+q+�+�+�+,�,!-Q-�-�-!.Q.�.�.Q/�/h0A0�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���������������g�����������8������������ �!Z"� �8��������V#�h����h������������$�8���h�����������gV�����%Ip����p���������������������(� �����������p������g���������g�&��?���gg|�����'�h��������8����Z���8������h������������(H���������������8���h�������g����)������*g���� ������+g������gn�����'�h��������8����Z���8������h�������H���������������8���h���g��������������,g����-������.g������g�� �������������������/Ip����p��������0����O���������1O�����(�?� �����������p�������������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��dg(����� �x����k�����H���dg�����6g�����7g�����8g�9:g����9;g�����0���g��<g p�=g(����������$k����������gz���������� @�h��������8����Z���8������h������������>������8���h�������g p�?g���������9�\�TgV����������@I������������a���������� (�������������������gV����������AI������������a���������� (�������������������g"�������qn�P��gF�������qm��l����������������qnl���������Hgv������ @��������������������AI�������������a���������� (�����������������������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����@���d gg����������� 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��������g�Ng"�������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���������g�Nggv������������������������BI�������������a���������� (�����������������������g>�������qml�����p����������qnl�����X���Ngj�p���� @�����E���8����0����0��������x���������0�������� 0�8���������������gl�x���� @����� @�h��������8����Z���8������h������������8���h���g$�������� ��������g����l�2gl���������� @�h��������8����Z���8������h�������������8���h���g~����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���������D g6�7�����T����7�6C����7����l��gZ����C�x���O��������JO�����;O���������KOp���`�:������������p���g����g�:��������g �0������������0�����gg�@����8�����@���gg�0����������Hg�x�����������`���Ag ������������������g>�l����0��������(������l���������gx�l����0��������h���������8����Z�p�8������h��������L��M�8���h��������g�(���������g"�l����0���������g�<�gg�x����H���� gg2�����������������������������g�������`���!�����g����������K�g4����������@��������� ���������dggN�����k����������������������������p��� ���������p���gg�����������g�������������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 ��"gL�p������������������SI��������(������������p���gd��������h��������8����Z���8������h�������2�3�8���h�������gV�����TIp����p���������������������(� �����������p������gJ������@���������������p���(������������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���������������������������������a�� �*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications�*\G{00020813-0000-0000-C000-000000000046}#1.8#0#D:\office2013\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library�*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{34FC7FC0-6A2F-4A08-B602-807CF6FDDB98}#2.0#0#C:\Users\yxq\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library�.E ���.`�M � ������۾�[������ ������������������������������������ �� ThisWorkbook0>5c7c0c24��'ThisWorkbook��zLx���������P �� Sheet10@5c7c0c25��= Sheet1���H��� Sheet60C5c7c0c25��? Sheet6���0���SbpS��ȉ0=5c7c0bd0��@SbpS��ȉ���H���]wQ�Qpe0A5c7c0c25��J�]wQ�Qpe����`A����Xf0?5c7c0c24��d�Xf���&x��!h���Qpe0D5c7c0c27���!h���Qpe��~���f��;N z�^0<5c7c0bcb���;N z�^��Ux��������`������9��ShowForm095c7c0bcb��-ShowForm��n�w�� Sheet50B5c7c0c25��5 Sheet5��h�����PrintForm0;5c7c0bcb��7PrintForm��ʘ�����������������������������������������������������������������`���������������������������������������������������������������������������������������������������������������������������������������������������x����������������H���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0����������������������������������������������������������������p��J���N�%&DV��������4��NI��T��E�������w-G�B0z�m-Q�����3����B�Q&�y�C����k~�ڤF�D��g?��0�����y�ր� L�Fe%5�?����`�c����K�NRI��#�����:n��GB���o�������������M��䪖�Ƀ����G����K���{��?#����{��ȓ�E�.2 ������������/*\!�8compare Excel�+` VBA��`Win16�~`Win32`Win64x`Mac��`VBA6�#`VBA7�#` VBAProject��`stdole�``Officeu`MSFormsC` ThisWorkbook|�` ��_Evaluate�`Workbook_BeforeSave l`SaveAsUI��`Cancel�` �(isSaveButtoná`MsgBox�R`ChrK~` vbOKCancelx?`vbOK�%`�(��������У����򲢴�ӡ������Ϣ��` Sheet1�` Sheet6�` ��ӡԤ���X` �(Browse_Prints�` Worksheets��`Visible��` PrintPreview��` ���ߺ����`�(checkedRequiredStart�R`rowIndex6d` columnIndex�P` cellValue@�` ActiveSheet%N`Cells�`�(writeLog{u`content�l`Sheets ` �(msgSheetName�'` �(curMsgRow�/` �(writeLogRedm`nLene,` Charactersrg`FontU` ColorIndex��`�(addCommentXQStart�S` sheetIndex� ` errorInfo` AddComment��`Interior;�`Color2F`CommentHs`�(clearCommentsXQStart7�` ClearCommentsf�`sheet2RecordNum�`ffTotalNumColumn�`xlNone��`�(beginCheck_comment;D` checkMethodHd`�(errorMsg'|`�(removeSpaceFlag��` �(cellContent��`�(callFunctionXQStart �`typeVal#`isValidateCount�8`value�K`titleMsgh�` �(startTitle�l` �(headIndex�` �(functionArgs8M` �(checkMethodXQ��` �(checkRequired�b`�(hasErrorf�`�(isFord�` �(removeSpaceXQ�` �(checkStuNamec�`�(checkLeng�`functionArgsArr��`Split�)`�(checkNumh�` �(checkNum1�%`resultur`�(getCellValueCountXQc�`val��`result1��`a1k\`a2l\` �(setDMBCode�d`�(checkValK�`�(checkInt��`resZjlx0�` �(IsIDNumber-*` �(checkSFZJLX�*` �(checkBankUw` �(checkYear�6`�(checkXn��` �(checkMonth��` �(checkBirthday��`�(checkNowNecessary��` �(checkPhoneNum��` �(checkOption,�`�(checkDMB��` �(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`�(setCellValueCountXQ�]`colIndex�` Unprotect?`Password��`value1�`flag��`Trim@�`rowData�1`Count0v`rowNummR`�(AreasheetIndex�H` �(deleteRow�`Rows�U`Delete�x`�(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` У�麯��&�`�(checkBirthdayNecessary��`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`st(_`timeNowy` timePrint��`Now%�` �(checkStuName1` ������` rowDataNumn�` typeValue��`bsTypet�` valEntity܏`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��` ShowForm��`CancelButton_Click�`Hide9z`ConformButton_Clickwf` Sheet5�` PrintForm`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�`��� ��"��$��'�������������������������������������������������������=?A�������������������K������������-����e5 7 ����������������������"�@�� p0(P7��q� YX��!�HH � ������������������������������������������������������������������������������������������������������������������ �(������9��U�������������������������x��ME������������������������������������������������������������������������������������������������������������������������������������������������6 ���������L����L��������� ����L���������"����L��������� ��������������������������` :@`��������@����k�������������P����������������@�������������� ��@�������������� ��@�������������� ��@�������������� ��@��X�������� �� ������`������� ��@������@������� �� ����`������������ ������������`������������� ��`������������� ��`�(������������ ��`������������� ����������@����������8��������������%x����������@ � ����( p���x``�@����(����x����������������������������������������������@ �����D2^\`��@���8������� �� @������0��������� @��X������� �� @��p������� �� @����������� �� @����������� �� @����������� �� @����������� �� @��0�������� �� @��`p������� �� @������h������� �� @��P������� ��@�(8������� ��@������ ������� �� � �<|V08�@��H������� �� @z��������� ��@����������� �� ��"@������������`��"@����������� �� �'@����������������`�'H46�X����@�������������� �� @���������������� @����x������� ��@���`������� �� ��=@��(H������ �� @�=0�v����bN@�0������� ��@����������� ��@��P������� �� h(F@���������� �� �PF@������������ ��@��������� ��@����������� �� ��N@��������� �� (�N@����p������� ��@��8X������� �� PT@���@������ �� �8T@������8��������� @������0��������� @��������� ��@����������� ��@���������� ���8b�d@�� �������� �� 8�h@��X������� �� H hp v@����������� �� �X}@���������� �� ��}���@���p������� �� ���@��X X������ ��  �� ��p P�@ ����@������� ��@x(������� ��@��� ������� �� � X �@��� ������� �� � � �� � �� ��@��������� ��@�� �������� �� � �@������������� �� 0  ����� �� 8�������������������������@���������������������������������������������������������۾�[$*\Rffff*0<5c7c0bcb*\R1*#3c7*\R1*#12d*\R1*#121*\R0*#17$*\Rffff*0?5c7c0c24*\R1*#11c*\R1*#42$*\Rffff*0@5c7c0c25*\R1*#129*\R1*#278$*\Rffff*0A5c7c0c25*\R0*#2*\R1*#11*\R0*#f*\R0*#1����� h"�h�p�:x�.��6��" �"H�.p��� D�� �� :L�� \�8�@�\H�\h�\��>^��"��: � 4P�,`�$��>^��,��� (� ~@�$���PV�� 8�X� x� �����>|�� ������ �����"n��  � "@�h� ����� ����� ��p�  ��\���  �(�.d0� `�,Lx� ��\���� ��* ��*��@�(X�%0p�%D��%��%��%0��%( �%,H �%& x � (� �#6z� �$J � �$"@ �(,Vh �(PV� �(`"� � (�����,LFH �4Jv� �<($� � <�����?  �D6v �D0>X �HBj� �Hl� � "� �G$ �H( �M4l0 �N�~h �N&� �N8��N P� ,`�I�� �����D��@��, �� ,�����0 ��48v��40>�8 j0�8lP� "p�G$��H��M4l��N�~��N&p�N8���N �� ,��I� �����4�0 �)"((�<($P� <�����<0x�H6v��H0>��PBj�PlX� "x�G$��H��M4l��N�~��N&x�N8���N �� ,��I� �����H �<(�(" 0�,8vX�,0>��0 j��0l�� "�G$(�H8�M4l@�N�~x�N&�N8�(�N `� ,p�I�� �����,��(��$��$x�� �� <�� 60�(LZH�(&��( ��( ��  ��)$�� � >�,X�, h� (x�,>��40x��, ��,"�,� �  �0�(28�`� p�*4�� ��+$N���� �� ��`^��X� `�4Lh�d��N�� �� �� &��4�� $ �LH�d`�PVx�J�� ��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һ���ͱ�ʶ�ľ���ֵ]����Զ����ʶ����������]������%�Ѽ�¼Ϊ�յ��кŷŽ�������]�( D!H'��"��ȡ��������Ŀ ����0��������Ŀ����ȷ������������ģ����ٽ��д�У��A@2�1qaz�>�$DB@�|���k����1qaz�>�$DB@<�1qaz�>�$DB@<�1qaz�>�$DB@< ^$\!VB@�-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���,�'`�������Ϣ��¼��ʼ�����'��.�ô�У���У���¼�Ƿ��д�����֣��׶���Ϣ���У�� �(��'��#Ĭ���϶����Ѽ�������δͨ��У���'��Ĭ���϶�����δͨ��У�� ^$\!VB@�-$ÿ�ο�ʼ���ʱ���Ѵ�����Ϣsheet���, �A65530�$D%%�!' � ��ȡ���������xcna = Worksheets(1).Range("1:1").Find(What:="*", After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column ��IV5 <%%�!6'|����FAILUREA@V�&+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0�'z��ռ�¼����ʼ��Ϊ0 0 8��" ����ʱִ��d� ��ʼУ�鰴ť�¼�ʱִ��� A9:IV65536�$D%!h��1���������������ͺ������9� 9�q��� A9:IV65536�$D%� �9��(����������������@9�#�����������ı���ʽq����.��ȷ����ʼ����� �������У�����ر�excel��� $4�������ܵ������ݶ�ʧ����ʧ�� 6���ܰ��ʾ$2 8�d���1qaz�>�$DB@�|���k���k����.�$D!b(j�)��ҳǩ����Ϊ��ɫ  �� ��"û�в��ҵ�ѧ����Ϣ���޷�����У�飡A@2�'0�1qaz�>�$DB@�|��(k�� �'���ô�У���У���¼�Ƿ��д�������$D!��д�����Ϣ���£�A@X  �� �  �� ��'��<"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ�'��;6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ�'��'��'��5"����һ���ǿ�У��ʱ����¼����Ԫ��'��9�Ƿ�Ϊ��Ч��¼ �'v�C��¼��У�����ǰ���Ƿ����д����'��;��¼�Ա����������Ƿ��д� � |�� �$D%V!�'��O��һ���б�ʶ��ֵ�'��2=�ж�forѭ�����Ƿ����callFunctionXQStart ��û����ִ��Ĭ�Ϸ��� ����<�����ʶ����Ϊ�� ��-$�'��G��ʽ��1��4-3:2��5 ��:$�'�H6��ʽ��3:2��5����ȡ���ı�ʶ�����в�֣���ֳ��кź͹��� �����DJ�����Ҫ���ּ������ϵ������ҪУ�飨��Ĭ��У�����͵������Զ���У�����  ��� ����Y&+1����Ϊ�����е�һ��Ԫ��ΪĬ��У����� $��:$�'��V*����ȡ���ı�ʶ�����в�֣���ֳ��кź͹����$�'��S�Զ����ʶ����������  ���$��;$�'��c�Զ����ʶ���͵ľ���ֵ  �� ����g�Ա�ʶ�����б��� $��   �A@��}���ݱ�ʶ��ֵ�����ö�Ӧ�ķ���  �$D%V'��H����������ȥ�������ַ��ķ��� �$b' � � �$D%V'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k��h�`k��X � ����$��;$�'��P����ȡ���ı�ʶ�����в��  �� ����W�Ա�ʶ�����б��� $��   �A@�  �$D%V'��H����������ȥ�������ַ��ķ��� �$b' � � �$D%V'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k�����k��� ��e�J ��ʽ��3:2��5�$'��Q�Զ����ʶ����������  ���P�����ʶ���е��������ڵ�ǰ�����$�;$�'��e�Զ����ʶ���͵ľ���ֵ  �� ����k�Ա�ʶ�����б��� $��   �A@������ݱ�ʶ��ֵ�����ö�Ӧ�ķ���  �$D%V'��H����������ȥ�������ַ��ķ��� �$b' � � �$D%V'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k��� �� k��� d�-ֻ��Ĭ��У������ʽ��1��4�$��;$�'��H����ȡ���ı�ʶ�����в��  �� ����O�Ա�ʶ�����б��� $��   �A@�  �$D%V'��H����������ȥ�������ַ��ķ��� �$b' � � �$D%V'��{��ȡ���б�ͷ��������� ��� � �е������ ��F���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨Ϊȫ�����ͣ����飡'��'��^����У��ʱ������д�����Ϣ���  �$D%V!t(v� ��ӻ�ɫ���� �A@X�N%isValidateCount = isValidateCount + 1k��X �P k��H k��@ �  �$D%V(  �� 6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ �� � ����� � �е������ ����������һ������д��ȷ������'��'��8����У��ʱ������д�����Ϣ �A@X �� '�d��  � ' �Tÿһ�кϼ��е�ֵk��� �� ��<,һ�����������ؼ��ֶ�ȫ�������򽫸���ɾ��  z+� z� 'z�,"��������Ϣ���еĸ��д�����Ϣɾ����  ` � `� � ` � ^$\%PB@R�r �Ѹ���ɾ�� � ` � '` v'�k��� �k��� � z� ��6 ɾ����Ч�� $�'� ��� �A@N�B �Ѹ���ɾ��d��X� �  A@N�H �Ѹ���ɾ��k��( � z� ���˴�У����ɾ���� z�:����Ч���ݣ����������֤������У�鶼ʧ�ܼ�����Ϊ��Ч���ݣ�A@2k��� ���*�д�����Ϣ����鿴��������Ϣ������������A@2��$D!b(j ^$\B@Hd��0�' �A@ ��'%ִ��У���ظ����ݷ���,���û���ظ�������������Ƿ�����Ҫɾ������Ч����� У��ͨ��!A@2�.�$D!b(j����SUCCESSA@V�:+��ȡ�Ƿ�У��ɹ���־��Ԫ�񣬲���ֵ��ʼ��Ϊ0��� A@8d���*���ظ����ݣ���鿴��������Ϣ������������A@2��$D!b(j ^$\B@Hk���k����1qaz�>�$DB@��1qaz�>�$DB@��1qaz�>�$DB@�o��@�q-------------------------------------------------���ظ�����ijһ��------------------------------------------------�@]����]���� �A65535 T%%�!' �2��������Scripting.Dictionary$.�O8�O  T%!�'�>��ȡѧ����������������  ��%"��ѧ���໤�����֤�������ݽ��б��� ��  % ��-������֤�Ų����� � B@"�&#add��������һ��Ϊkey���ڶ���Ϊvaluek��@k��8�0 !$'�Sheet2$D��G:G7B@  �!(%* !H�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).. ���h��/����DcW 1:1�F�(What ]*", After:=[a1], S`DchOrBdAxlBy�>s1�Dir e�2:=xlPrevio�us�Kolum�t�b$1.$IV5��ToLeftks�� T®XQ 2,A8, "FA�ILURE"��aG!7�ɹ�������Ԫ�������ֵ��ʼ��Ϊ0�� ƙ�� +�A��P� `x isSaveButton��vbOK� ฀���ʱִE�E�Z�^`Ӱ�ť0�¼�)�With �99:IVa:6a1�q� ����������׀����ͺţ .AZ@"���B�E�.Siz��1�1�!�� d��c�3��.Horiz�alAlig�nm�c�xl�6 `����I -berFormat Localq @"�Z�ı��ss� �S�V��^("�`�ȷ��Q�J�� ����̑E�������excel��" & Chr(1@l& "������ܵ������ݶ�ʧ���ʧ���0�Can�0'��ܰ��ʾ�")� � � 1 � ! ��_e_e�[e3 �G�e�KTab�tl(orI`Lx� -4142�zҳǩ��$Ϊ��ɫ�  v�FstartT�itle +`]|vt`3 "û�в��ҵ�����A[����̷�1va9��/sQ��5�9�8�/y/y��`9Qh�ißi�i�Q1writpeLog�=r:�&��m����£��?��-�> ��g��06 i��2� Toqd� 0:�eaOneNa�#� = `R�N ����һ���ǿ�ձ ���V��O?`����\������Ϊ���������?�totalM�oney��&�e!�P. "�?�� ��"j��f��O��isppiM��eH�oΪ@ͧ�1��5/In�E '����B� �ǰ��Q���C0??9dsvd���Ա������Q���}��-j� 1�,���g�=�9��(1,0 j).�ҁݵ��һ�����ҵғ_is� = $�ж�for� ������ ����@olFunc��XQSV ����S��5�৚c�Zw <> p&QZ '���� ��|��1�/���=d S0�t(��o-o'S�1��4-�3:2��5��r��owType = Split(t�Value, ":") '��ʽ��3:2��5����ȡ���ı�ʶ�����в��֣� ���кź͹��� $If UBound(bs�) <> 0 Then '�����Ҫ���ּ������ϵ����У�飨���Ĭ�� x�͵�����@�Զ�����'���pFor m��L�a+ 1 To�l'+1����Ϊ�����е�һ���Ԫ��Ϊ�a�@��valEnti�ty���(m)���߅��Row"9%(0��e�������������3;E{@��i�)E,���'@>��GA1 �b;���B�ľ�p��ֵ��n7@��)H��'��������?�� callFunctionXQ@Start `(n`1, i, j�s��idateC�t�����#ֵ�����ö�Ӧ�ķx����#�u��Worksheets(1).C�ells()_ _ #'������!ȥ��������ַ�? (removeS�pecial@>�Characte�r(��_$�f+g ,`�leMsg��5sKTitl@�j��AӸ��б�ͷ���8���9)error"��" & i`"��AjA�е�ʀ�����F& "�����@��^ , ; '��"" ? �ո� �س�����������Ϊȫ��a������p飡"��)h�asE� `Tr�1'��̂sʱ��x�д������Ϣ��GoT8.InP+i@or.Colv= 65535 '��ӻ�ɫ𱳾���writeLo�g u��'iLO= p�_End �If /��Next��5 _� m������s�s�= False2�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�z� &Worksheets(1).Cells(i, j).Interior.Color = 65535 '�����ɫ���� '�!)writeLog err orMsgM`'isValidat�eCountk�+ 1�:End If 3)Next��9�fElse If UB�Dd(rowType) <> 0 Then '��ʽ��3:2��5��2#t�Row^�(0) '�������ʶ������������{@Ci�(+!A����(���е��������ڵ�ǰG�;�jval�S0plitc�, ";"�J�ľ߰��ֵ%F�}n�L�A�) TFo�C�'��� ����б����� callFunctionXQStart `(n), 1, A���y'����$4������ö�Ӧ�ķx����+�u>e %v�__#'� �����!ȥ����������? (removeSpeciBP�Charac�`�(�)�#�m+�m� � (tit�le��5sLTaa� '��ȡ���б�ͷ���������)%�"��" &D i`"��AjA���������F& "���څ@����^ , ; 'A�"" ? ���� �س��������뷀�Ϊȫ���U���������"_ _ 0hasE�{P Tr�1'����У@��ʱ���S�д���������o_8������������_�� ���������ߍ������� 'ֻ������q)�����Í1��4?)��pPp.szbs1���ez���1D���ħr���//�x��x�x�v�v�%� ?bc�:�:/�/ �r�r�Kk= ��r���r �����r��r�r�?�r�r����rsg�t�r�r�r�r�_� �r�r�r�<� Worksheets(1).Cells(i, j).Interior.Color = 65535 '�����ɫ���� �("writeLog err orMsgM`'isValidat�eCountk�+ 1�:End If +)Nex>t��1!�� ׆LockedOFalLse_*�3 j� 'ִ�� ����һ���ǿ�У�� ����Ԫ��������Ϊ�����Ϲ���@����ĿIf atLeaO@neNull�~<`> 0 Ah�=Ç � Then�Ea��@I"��" &D i�"���,�`���E���A��?�Ё?����д��ȷ����숲�"ghas= True '����)ʱ������д������Ϣ� E�s%��n+ 5 ?E�MItotalMoneySu&m1�+ � 'ÿһ�к�ȼ��@4ֵ�i�c�O�> 1 �I$ '���!2�����ؼ�����ȫ������������ɾ��_�isAWRowArr(�Num�) !i r ��E ���) `'��eO<��-�%���+�i F��p�cu#a�  - -.To^ �� fSC�msg"Name).s(x).Delet�p�Ѹ��_9/�p�")�=��O�hE�|Inu��3 ~ ��)�?;� q9� 0 i/@!1 '�%��Ч��� � rowDa�ta,/�4q)���@?T_c��d�"A,�1,)'�#oR�Os- q ~ �����q��U�RtK�!zw; ��Box "P�˴�An��R�f�Rw�J& x����ݣ����������ր����������ʧ�ܼ��:Ϊ���wvn?p �2� � � y����鿴��EQ����`����������+�TabӻIndezx016���M�MS}�(c��%��0S�P0/�#checkdXQNew ����Not (0n ���ظ�A�����,as�����D��0,��������������Ҫ}rf������Ͱ���!�� �����-4142�1�set���Tue XQ 2,!8, "SUCCESS" '��ȡ! ��ɹ���־��������ֵ��ʼ��Ϊ0f ������FGna����,u,,��?:,�,,�;�Protect Password:="1qa�z� 2).��3� Subp '-m�--���ظ�����ijһ��-, Sub checkTheSame() Dim myDic As Object, Key VarpiantP$, varData 'rna = ActiveSheet.Range("A65535").End(xlUp).row '������b Set idNum�= C reate�("Scripting.�tiona�ry"b I@O8", "O" & R).value '��ȡѧ���Հ������ӀF�݃GFor E�ach carK In�O4'����໤�����֤���� ���б��B��$ If�"<�> "" ��n No�~.ExiPsts(<)B '������0����GA.AddE, Nul@l 'add������һ��ΐ�key��?C��h,�INe�xƒ Cmy��j=�.�s�With Work�sA�s�p�2Gm�G:G@�ClearContent��4�1@Resize(B�.Count)A�ppl(ica��.FFun�on.Tra�nspos� �'D���4�'*���= �a2h@� �@� ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������f��~��������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��<��<����������p ��`������������X �����I�n������������ ��x�I�N������������ ����I�P������������ �������`�R�������������� �``������������( �����I�������������� �������@�������������� �� ��`������������� �����I�������������� �������@�������������� �� ��`������������H ���� �I�������������� �������@�������������� ��+��`������������� �����i������������������i�:�������������������`��������������H��`�(������������H��`����������������`���������������`���������������� � `������������� ���� �I�������������� �������@�������������� �� ��`������������x ���� �I�������������� �������@�������������� �� �@`������������ ���� �I�������������� �������@�������������� �� ��`������������� ���� �I�������������� �������@�������������� �� �� `������������( ���� �I�������������� ��H�I�������������� �������@�������������� �� � `������������� ���� �I�������������� �������@�������������� �� �� `������������h ���� �I�������������� �������@�������������� �� �0 `������������� ���� �I�������������� �������@�������������� �� �� `������������� ���� �I�������������� �������@�������������� �� �h `������������ �����I�������������� �������@�������������� ��@�������������� �� � `������������� �����I�@������������ ��� �I�������������� ������� D� `������������X ���� �I�@������������ ��x �I�������������� ������� �0 `������������� ���� �I�@������������ �� �I�������������� ������� �� `������������� �����I�������������� ��� �I�������������� ������� �` `������������ �����I�������������� ��@ �I�������������� ������� �� `������������� �����I�������������� ��� �I�������������� ������� �� `������������P ����//�I�������������� ��p �I�������������� ������� �(`������������� ����..�I�������������� ���I�������������� ������� ��`������������� ���� �I�������������� �������@�������������� �� �0`������������ ���� �I�������������� ������� ��`������������� ���� �I�������������� �������@�������������� �� �P`������������ ���� �I�������������� �������@�������������� �� ��`������������� ���� �I�������������� �������@�������������� �� ��`������������8 ����""�I�������������� ��X�I�N������������ ��x�I�:������������ �������`�������������� ��`�������������� ��`�^��������������`����������������`����������������`����������������`����������������@�������������� ��`�������������� ��@�������������� ��`�������������� ��@�������������� ��`�������������� ��@�������������� �� ��`������������@ �����I�������������� �������`����������������`����������������`����������������@�������������� �� �����`������������ �����I�������������� ��8�I�������������� �������@�������������� ����������P���������������� � ����� h �� ����������0 0����������` �������@� ���������������`�������( 0����������`������������������%����� �������������������������������������������������0����������������������������/p۾�[$*\Rffff*0D5c7c0c27���� �� �� �B� �� ���� ������� �� ���� � �(� �� �B� ���� � �� �H(�p����������� ��B� 0�8� P� X�`�h� �p� � �D��� �(�0�8�@� �HB� ������������������� ����� n�� (� @B� `�,h�$������H�� @� H�P� �����X�"p��� �����������" �( �0 �4@ �x � �� �  �  B� 8 �@ �4H �� �� �� �� �� �� � �� � ` � � B� � �� �� �� �� �� �� �� �� � � � � � � B� � �� �6� � � � � �( �0 � |8 � � � � B� � �� �0�0�@�H�P�X�`� xh� �� B� � � 0�P�X�`�h�p�x������������� x�� H� hB� ������������������ |�� h� �B� ����$������������ |� �� �B� ����f��@�P�X�`�h�p� |x� �� B� 0�8�@�X�h�p�x����� ���  � @B� X�`�h�:p������� ��� ��� �(�0� �8� �� �B� � � �(� 0� 8�H� P�X� `�h� ����� �p� .B� 8� @� P� `�p�x������� ��� .8B� h�p��� ������������ ��B� P�X�p� x�&����������D��4�P� X�`�h������������� ��B� X�`�x� ��&���������� �� ��(� (�"0� X�`�Dh�4���� ����� �@�H�P�X�`� �hB� ����� �(�0�8� @�`� "h��� �� <������ ���� � B� � � ����� ����� ������ �� � � �&� �!�!� !�(!� ����� 0!�DP!��!� �!��!� ����� ����� �!� �!�"�!� "� "� "� $("� "P"� x"� �"� �"� �"��"��"��"��"��"� #�>#� X#�4x#� �#� �#��#� �#��#� ��#B� �$� ����� ����� ������$��$� �$�&�$��$��$��$��$� %�D %�h%� �%��%� �%� �%�"�%� �%��%� $�%� "&� @&� 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�(0�00� �����H0� �����2`0��0�"�0��0�1� ����� �����1� 1�81�8P1��1��1� ��1B� 02�82�@2�H2�P2��X2��2� 3�(3�03�83�@3�P3�X3�`3�h3�p3� �x3� 4�  4B� 84�@4�X4� `4�&p4��4��4��4��4��4�L�4�5� 5�(5�05�85�@5����P5��-----------------------------------------1 ��������,���д�����Ϣ��ʾ�� ������Ϣsheet��---------------------------------------� ��ʱ����0� ��Ϊ��ʱ����1�� ��Ԫ������]�� N P n$D%V'R R���'�d���'�k���i�����-----------------------------------------2 У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� �$D���'�z��k��]�H�%^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$'��3�޸ģ�����У����Ƨ�� � �$���'�d���'�k��i����|-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09(����Ϊ��)---------------------------------------�` �$D���'�z��@k��8]����reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"��reg = "^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$"�;^(19|20)\d{2}-(1[0-2]|0?[1-9])-(0?[1-9]|[1-2][0-9]|3[0-1])$'� � �$���'�d����'�k���i��x�|-----------------------------------------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]))))$'� � �$���'�d�� �'�k��i���h-----------------------------------------4 У�����֤����---------------------------------------����Ϲ��򷵻�true������Ϲ��򷵻�false��]�79058421637905842��0��Ȩ����]� 10X98765432�0�0У���� �$D'�� ȥ���ո�]�H�`�x :  ����6)����׶����֤��Ϊ��,������Ϊͨ��У����� �'�z���k��� ���Gzj ���$�$��Gzj ��*[0-9X]�Gzj ��� � �$�'� ���G� '�j � � �$� � '��� �� '� ��$� ( �� �$��G�'�ji����z-----------------------------------------У�����֤������ -------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]��,^[\u4e00-\ue863��a-z|A-Z|0-9|()|����]{1,18}$'� � �$���'�d��`�'�k��Pi��H��----------------------------------------5 -У��ѧУѧУ��ʶ�� 42λ�����һλΪ���ֻ�x-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true� ]���^[1-9]\d{40}[\dx]$'� � �$���'�d���'�k��i���z----------------------------------------6 -У�黧������ -------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�(�.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$'� � �$���'�d����'�k���i����u-----------------------------------------7 У����ѧʱ��-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�@]���'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$'� � �$���'�d����'�k���i����q-----------------------------------------7 У�����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ��� ����,���Ϊ�DZ�����'�k���z���k���]�h�^((19\d{2})|(2\d{3}))$'� � �$���'�d��H�'�k��8i��0�q-----------------------------------------7 У���·�-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]���^((0[0-9])|(1[0-2]))$'� � �$���'�d����'�k���i����v-----------------------------------------9 У��ѧ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�]���^\d{4}[0-7]\d{3}[0-3]\d{7}$'� � �$���'�d����'�k��xi��p�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'� � �$���'�d�� �'�k�� i�� �v-----------------------------------------11 У�����п���-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�0]���^[1-9]\d{14,20}$'� � �$���'�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)$'� � �$�� ��-$�'��$��$� ���'�d��x �'�k��h d��` �'�k��P i��H ��-----------------------------------------checkOption У�鱸ע�磨����С��value2��-------------------------------------------------------------����Ȳ�С��200����false� ���򷵻�true�h @���'�z��P k��H @ � ��'�d��( �'�k�� i�� ��------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)----------------------------------------------------------------�'value1����value2����false ���򷵻�true� @X'@ �X'� @ � ��'Dd���'Dk���i�����------------------------------------------------------�Ƚϴ�С(С�ڵ��ڷ���true)-dec---------------------------------------------------------------�'value1����value2����false ���򷵻�true�� @$4'@ �$4'� @ � ��'�d����'�k���i����}------------------------------------------------------У�鳤��---------------------------------------------------------------�0 ��,$�'��'� ����$����/���Ϊ�DZ������'�k���z���k��� �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±� ��$�$4 ��$�$4��'�z�� k��d� ˵����У��̶����� ��$�$4��'�z���k���k���i����}------------------------------------------------------У������---------------------------------------------------------------�� ��,$�'��'� ����$����/���Ϊ�DZ������'�k���z���k��� �$���& �����Ϊ����z��� ��.��e�+�������С����z��P �$4�e�% ���С��0z�� k�� �����,-�±��0��ʼ����ֵΪָ��������ά���õ�����±� ��$�$4 ��$�$4��'�z���k���d� ˵����У��̶����� ��$�$4��'�z��0k��(k�� i����------------------------------------------------------У����ֵ��Χ---------------------------------------------------------------�` ��,$�'��'� ����'�z��Hk��@ �$���) �����Ϊ����z�� �$4�e�) ���С��0z���k��� �$4�$�$4 �$4�$�$4��'�z���k���i�����------------------------------------------------------У�����ֳ���(Number,����Ϊ����Ҳ����ΪС������С��0)---------------------------------------------------------------�� ��,$�'��'� ����$����/���Ϊ�DZ������'�k��` z��X k��P � �������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'� � �$��z���k��� �$���% �����Ϊ����z��� �$4�e�% ���С��0�'�z��`k��X�$�'��+����������󳤶��$�'��.С�������λ�� ��.�'��'��'� ����"˵��û��С���� �$4'� ��$�$4��'�z���k���d� �����С���� �� ��.�� $�'��D��Ԫ�������ֵ�����λ � ��.�� $�'� ��$�$4 ��$�$4��'�z���k���k���i�����------------------------------------------------------У�����ֳ���(Number,����Ϊ��������С��0)---------------------------------------------------------------�� ��,$�'��'� ����$����/���Ϊ�DZ������'�k���z���k�����������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$'� � �$��z���k��� �$���% �����Ϊ����z��� �$4�e�% ���С��0z���k����$�'��+����������󳤶��$�'��.С�������λ�� ��.�'��'��'� ����"˵��û��С���� �$4'� ��$�$4��'�z���k���d� �����С���� �� ��.�� $�'��D��Ԫ�������ֵ�����λ � ��.�� $�'� ��$�$4 ��$�$4��'�z���k���k���i�����-----------------------------------------checkIsInt У�鲻С��0������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�(]��� ^0|[1-9]\d*$'� � �$���'�d����'�k���i�����-----------------------------------------checkIsNumber У��ΪNumber����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true���'� �$���'�k���i�����-----------------------------------------checkMoney У����0-9999������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�0]���^(([1-9](\d{0,3})|0)|0)$'� � �$���'�d����'�k���i�����-----------------------------------------checkMoneyTJ У����0-9999С�����һλ-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�8�^([1-9]\d{0,7})$'� � �$���'�d��x�'�k��hi��`��-----------------------------------------checkPersonNum У���׶�԰��������һ����------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�P]���^(([1-9]\d{0,3}))$'� � �$���'�d��@�'�k��0i��(��-----------------------------------------checkIdNumLink У�����֤�����Ա�ͳ����������û���д���Ƿ�һ��------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��� If colIndex = jhrIDColumn Then� checkIdNumLink = True� Exit Function� End If]���%�Ա�����֤�����Ƿ��Ӧ]���$�������ں����֤�����Ƿ��Ӧ]������ڵ�һ�γ��ֵ��±�]���"�Ա�,��Ԫ��֮�ڵ�����]���$��ݺŽ�ȡ������]��!��������,��Ԫ��֮�ڵ�����]�(�"��ݺŽ�ȡ������]�@�X�#�������]�p���%�����·�]����]�� ���$�'� ���$�'� �� ���(�����ڶ�λΪ��������Ϊ������� N � j$\,Vd������ڶ�λΪż������ΪŮ���Ů N � j$\,Vk��x ���$�'� ���$�'� ���$�'� ��- � �- � N � j$\,V�'�i�����-----------------------------------------3 У��������ڸ�ʽΪ2012-05-09����������δ��ʱ��(����Ϊ��)---------------------------------------��]�`]�x]��]����^((19)|(20))\d{2}((((0[13578])|(1[02]))((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))((0[1-9])|([12][0-9])|(30)))|((02)((0[1-9])|([12][0-9]))))$'� ��yyyymmdd$�'� � � ��'�z��Hk��@ � �$���'�d�� �'�k��i����----------------------------------------- У��ѧ������ ҪΪ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ��,$�'��'� ����$����/���Ϊ�DZ������'�k��� z��� k��� ]�X�*^[\u2E80-\uFE4F��]{1,20}$|^[a-zA-Z]{1,20}$'��8�޸ģ�����У����Ƨ�� � �$���'�d��P �'�k��@ i��8 ����� ����Y�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�CpRTrim��?�"�R�1ID�S�8�Exit GI���P���re�� ^([\u2E80-\uFE4Fo��]|[a-zA-Z]){1,20}$" '�޸ģ�����T��Ƹ��փs@0C����(, C8 �L1�HzO�;A�y�3�"��������!6Ϊ2012-05-09(��t��t)?D"-xB�irthdayi<��X ��a� '�瀹��׶���:,�������Ϊͨ���A �I��FlawE��/h Uy � Len(<> 18€ �3Not0  eric(MDid�, 1 7|))����5L@ike "*�kX]�_ � For�= 1 To l17C�T�qW��䶑��0 ]�1p��1sps( + ; i! *� TNext��s Mod 1���Right�)�c, T����3 ��^o:--�>���������@�o�Qo�W�SFZJ�LX�_` "^��4e0��e863��`�|A-Z|0�|()|����] �18 �����w�������Y�k� P_X\X����5�3rѧ�0��ʶ�� 42λ����0�һ���ͻ�~x��O��O�ckSchCoc�2�!V���L ?#Q5� �G�1� q�Jc�`O��-�Ƚϴ�С(С�ڵ��ڷ���t0rue)�)& 'value1�(���2[false ����j Function com pare(9, a7)  �= CInt& J2 2If�(1 >- Theno/3�C$F�WE�^T��nd �If E��q���3��dec�)F yk�Dec!l� l�9l�lC �m�_У��鳤��# ɀheckLen], fD�Args#�V�Arr�ESplit(�, "�,"hcD �(Eg ""�f`�(0)0� '���Ϊ�DZ�������h�o(�2Esaiaj��xit �l�Dp�`UBo�und� �#2�±��0��ʼ������Ϊָ��������ά���õ������ F4) >� Mm(1)) �A H(� E3'��.�� '˵�����\�̶��\us! �� H�!? � *� ��F����x�#������� �������3���P;�o-�w�@�0@@@$��@A����@ Not IsNuPmeri�k)8J��Ϊ�>��,���� InStrY".") <> y����С�����oK 6`nCQCr= �0߿��-p?Ps?P?P?P?PRBpX??Pg�1?P���$?P���h,O$? ?PO�$?P�?PY�?P�?P�?�+�� ?P��'oJ1P��ֵ�Χ��}PVal��������Ponq��0���K�PP����'��_=A`#�Je�J׿�J�oQ2�E ��� K�E�/��#߀� )L?@3@0t������B/2E��y_ ��5q��)s/�ֱ�(�fber�,����Ϊ� Ҳ�aa��������1P�1k� functionArgs) X H �Arr = Split( �, ","~z che ckNumXFalse� If@ value2"�" Then=G# \t(0)00/ '������DZ���ώ�?G�Tru�1dEnd�Ex�it F� '�������������ֲ��ɼӷ��"Ňregx^(([1-9][0*)|0]\.\d{1,2}|�  ))|0{`1})$"�&��Nhot *C��V(u,��)��.jI�s�seric(�o��b��Ϊ>� ��X�@��/CDeF<= IvС��0���Yxmax�IntLen@c��1) '�����������0���ȋ!@DoPuble2� �����λ���iBgth�InStr�R��n.�΁4� VDɌBdE`NCU#� �.Mid�31," �5 - �E��@Ԫ���С_��āGλ�&�6H � >+� 3B�?/��1)x) A� ��42����*a5,�5��e�g�'-0,У�z(��ber,����Ϊ�!6����B�)� �: %��1eHic��� g=' i����E31�?���5@=\�ww��)/wU��9o"��vvv�]vv2}v7v�egv� � � ���?u��?u"B�c�?u?u=u���S _s���F_s�,!_s��_s�9m�R��qR �W��t�_s�|k@�p�_sEt`�[1��m7�[�X�F�>�6�˯ �9 os߁xosJ�os�os� �xos�zÓ osW�D= �rr(osu�eos��s+ ��Y��W��?0�;��s �s�l� �Is`� �s�qc?@��ʽ����ȷ��h��f��'Q5t�ڋt��t$�Dim����(��P0"^0���\d*�Ґ�?�a�;6H= 507/J�Hvu;�t�� BΪ�����?_?;ɵ�����true Function checkIsNumber(value) d = 0Falsr4IfB dericf �ThenpB �T�End If � '-%YMoney У��� ��0-9��p����&HD��ʽ��������f|'� � ��H �Dim reg���"^(([1-9](\d{�0,3})|0�$"��C�ʁ�r(, � ��=� ���҆�����`�� �TJ�`С�����һλsbvbTJ�b�bBb7�})�`�Aaa� H��a��aPerson��Cb�׶�԰���������໸����abԊ��1�beb_1e)�a'!�1 �1�'$brIBd@1Link�1���֤�����Ա�ͳ����������û��������Ƿ������ 7�4���(", rowIndex, co�l"D� �'����jhrIDCol�umn 2'�a�")3��Exit s��a �ed B ��isGe@rRight As BooleanL '�,�.��A+�8�Ӧëa�Bi�rth��3��]�length2�Integer '�:��һ�����ֵ���Ա� g�V��!@String�,��Ԫ��֮�ڵ����� 61��Ž��ȡ�b�� e?��e�"� E�year, QBVariant "'1��l mo`nth, b�Ԃ��day, @c��arr�1�*MidU.17,4 1�- 7Y= {(8� {ZM�od 2�11 ,��qڶ�λΪ���������Ϊ��@GSheets(sa�7�1).Ceplls(�9#�7)��"��$��EP� �ż�Ů��/��A*� �Ů���� w��! ���, 4"!�, 5, 2x� �_, �Y� � 2O" 0�� + "-�" +�*p�pw �N��KgM_�/]3"��:�Ϊ2012-05-09����������δ��ʱ��(Ϊ��)_��NowNecessarzyn{s�VS@c�Tt�ime`�L�PN����19)|(20))��2}(0[13578]p1[02])8)((0�[12][���3[0�1�P469"�1��P�029�))F�`��ormat(�, "�ymmdd"d(� @2� > ���B!�PV�*�0o )o��@����w�_�2%�@����/$a�+ѧ������ ҪΪ�����?���� �StuNa�me1#-, f��0Args4)Arr`Split(�y�,5!R��á�c!= ""���1��(0�\0� ���Ϊ���������5�um���E��nd If  Exit Fu@nctionxE�Dim reg8 = "^[\u2E80-\uFE4F��]{1,20}$|^[a-zA-Z " '�޸ģ�����������Ƨ��NIfZCheck�(^, value) Th e�c#StuName1�Tru�eCEls � 'x�&�� �� X��H�P�p� hx� ��*�� (�H�X�j`�&�� ���� �@� `H� ������ �� H��(x8� H��(��� H��(p�� HP�(��� 0� &8� `�p�x��� n�� � �8� @� 8X�(��� 8H�(��� 0� &8� `�p�x��� p�� �(�(@�h� p�8��$��� 8��$��� �� &�� ��$��  � 88�(jp� 8��(j� �� �� &�� �������� � � � �(� �� �H� �(!�8!�P!�X!�h!��!��!��!��!��!���!�&H"� p"��"� �"��"��"��"� b�"� @#� `#�p#��#��#���#�&0$� X$� ,h$��$��$��$� f�$� 0%� P%�`%�x%� �%� 8�%�(��%� 8x&�(��&� P'� &X'� �'��'��'��'� f�'� ((�(@(� h(� Tx(� &�(� �(�)�)� $()� &P)�$|x)�$&�)�$ *�$0*� @*�H*� P*� `*�$th*�$&�*�$ +� +� $����� +�(+� �����0+�P+� bX+� �+��+��+� t�+� &p,� �,� ������,��,��,� b�,� @-� `-�x-��-���-�&.� @.� P.�X.�`.��.� ^�.� �.� /� /�8/�X@/�&�/� �/� ������/��/��/� ^0� `0� �0��0��0�X�0�&1� (1� �����81�@1�`1� ^h1� �1� �1�2�2�T2�&p2� �2� �2��2��2��2� n�2� P3� p3��3�"�3���3�&H4� p4� �4��4��4��4� j�4� (5� H5�h5�"x5���5�&P6� x6��6��6��6� n�6� (7� H7�h7�"x7���7�&08� X8� �����h8�p8��8� P�8��8�9�9��9�&�9� �9� �9��9��9�:� R:�p:��:��:�X�:�&;� (;� 8;�@;�H;�h;� bp;� �;�$�;�<�@ <�&`<� �<��<�$�<��<��<��<� X�<� P=�h=��=�@�=�&�=� �=�>�>�R(>��>�&�>� �>��>� ������>� ������>��>��>� ����� ^?� `?� x?��?�@�?�&�?� @�@� @�@@�H@�h@� ^p@� �@�"�@�A�@A�&XA� �A��A� �A��A��A��A� ^�A� HB�&`B� ������B�@�B�&�B� �B�C�&C�8C�@C�`C� |hC� �C�$D�(D�(0D�@XD�&�D� �D� ������D�"�D�E�E�(E� |0E� �E�"�E��E�@�E�&8F� `F�pF� xF��F��F��F� ����� ��F� PG�(hG��G��G��G��G��G��G��G�H� H�@H�HH�PH�@XH�&�H� �H��H� �H��H�I� I� |(I� �I�$�I��I�@�I�&0J� XJ�hJ�$pJ��J��J��J� d�J� 0K� HK�@hK�&�K� �K��K�2�K� L� ����� x(L� �L�6�L�.�L�(M�8M�( @M�2PM�( `M�1pM�( �M�2�M�( �M�1�M��M��M�J�M�0N�HN�PN�XN�`N� fhN� ����B� �N� �N�<�N� O� @O�XO�$xO�$�O��O��O� ����� ��O� \�P� ����B� �P�,Q� 00Q�@`Q�"�Q� ^�Q� 6(R�`R�xR��R��R�0�R�DS�PS�pS�xS��S��S��S� ��S� "8T� `T� .�TB� �T� �T�$�T�B�T� 8U� HU� XU� hU� pU� �U��U��U� ��UB� (V�0V� PV�pV� �xV� W� (W� @W� `WB� xW�"�W� �W��W��W� �W��W��W� �W�8X�@X�2HX��X� �X� �X��X� �X��X� �X��X� FY�XY�`Y� hY� pY� *�Y��Y� ��Y� XZ� pZB� �Z��Z�*�Z� 4�Z�[� � [� �[� �[B� �[�*�[�(\� �0\B� �\�^�\� v�\� ]� �]B� �]� �]��]� ��]B� �^� �^� "�^� �^�8�^�2 _�X_� p_��_� �_��_� �_� �_��_�"�_�0`� @`�(``��`��`�&�`��`� �`��`� ��`B� pa�xa�V�a��a� 8b� Hb� hb�:xb�4�b�$�b�c�"0c�Xc�`c�hc� �pcB� d�d�6d�Hd�Xd�`d�hd�pd�xd� ���������d��-----------------------------------------У��У����������д�����Ϣ��ʾ�� ��ע��-----------------------------------------------------------�� ��Ԫ������]�� N P T%V'R R���'Ld��(�'Lk��i����--------------------------------------------д��־ ��¼������Ϣ����ʾ��һ��������Ϣ����--------------------------------------------�� Z `� ^$\,V `� '`i��X��--------------------------------------------д��־ ��¼������Ϣ���ú�ɫ������ʾ��������Ϣ����--------------------------------------------�( Z'd Z `� ^$\,V�� d `� ^$\%V%f!h(j `� '`i��p�i--------------------------------------------�����ע�������ʼУ�飩-------------------------------------�errorInfo��ע������� 1Worksheets(sheetIndex).Unprotect Password:="1qaz" p N P n$D%VB@r��� N P n$D%V!t(v�W ��ӻ�ɫ����� N P n$D%V!x(Fi���i--------------------------------------------ɾ����ע�������ʼУ�飩-------------------------------------�x�1Worksheets(sheetIndex).Unprotect Password:="1qaz" N P n$D%VB@| N ~ P ��� N P n$D%V!t(jd��` � N P n$D%V!t(jk��0i��(�r---------------------------------------------�����ʼУ�� �Ƿ���ӻ�ɾ����ע���õķ���----------------------------�0 ��� ���У��ʧ�� N P n$D%V!x���d �ж���עΪ�� n N P �A@l�V �����ע����d�"����Ϊ�գ���ȥ����ǰ��ע��������� n N PA@z�N �����ע���� n N P �A@lk����1 MsgBox "��" & rowIndex & "�������" & errorMsgd� :���У��ɹ����ж��Ƿ�����ע���������У��ʧ��ʱ����עȥ�� n N PA@z ���,#�������ȥ���ո���,����������ʾ��� N��У��� P��У���������ַ��"$4 ��"$4�"�а����˿ո�ϵͳ���Զ�Ϊ�������A@Xd��`k��Xk��Pi��H��----------------------------------------------------------------------------------------------------------------------------------�y--------------------------------------------���ݱ�ʶ�������ö�Ӧ�ķ���(�����ʼУ��)-------------------------------------��----------------------------------------------------------------------------------------------------------------------------------��Ѵ�����Ϣд�������б��( N P n$D%V'� � P n$D%V'��I��ȡ���б�ͷ������ �������Ϊ�ϲ��еı�ͷ �� P n$D%V'� N �e � P� n$D%V'�k��h�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'� �� checkYFJEe�/ ������У��1'�� checkYFJE'� �� checkPmmce�- ������У��1,8,0'�� checkPmmc'�k��� ���_=================================����1 ִ�еķǿ�У��==========================================��Ѵ�����Ϣд�������б�� checkNullKT n N P$�'� ����� N� �е������ ������Ϊ�գ�����'��'��)����У��ʱ������д�����Ϣ �A@X�RMsgBox "��" & rgold.Row & "�е������" & Chr(10) & titleMsg & "����Ϊ�գ�����"k��0 n � N P �A@��'��a=================================����2 ִ��ѧ������У��==========================================� checkNameKT n N PA@��@����ȥ���ո�ķ��� N P n$D%V!�'� �$�'� ����� N� �е������ ��;��д����ȷ������Ϊ���֣����ȴ���1�����ܳ���20���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@X �� '�k��� n � N P �A@��'��Z================================= ִ�еij���У��==========================================�checkLenKT � �$�'� �� ��,$�'��$�� �����` �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��.��д����ȷ���������Ϊ�ա�����д���򳤶ȱ���Ϊ�$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ���ȷ�Χ��� N� �е������ ��4��д����ȷ���������Ϊ�ա�����д���򳤶ȱ�����ڵ����$�� λ���Ҳ������$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��&��д����ȷ�������Ϊ�գ��ҳ��ȱ���Ϊ�$�� λ������'��$�� ���e�d �������Ϊ�DZ������Ϊ���ȷ�Χ��� N� �е������ ��,��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ����$�� λ���Ҳ������$�� λ������'�k��� �'��0����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��h================================= ִ�еij���У�飨Number���ͣ�==========================================�checkNumKT � �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��G��д����ȷ���������Ϊ�գ�����д�������Ϊ���֣�����0������λ���Ȳ������$��λ����С��λ�������$�� λ������'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��?��д����ȷ�������Ϊ�գ��ұ���Ϊ���֣�����0������λ���Ȳ������$��λ����С��λ�������$�� λ������'�k����'��0����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��i================================= ִ������30%У�飨Number���ͣ�==========================================� checkPmmcKT � �$�'� n N�$�'��N ��ȡ��д���� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��?��д����ȷ�������Ϊ�գ��ұ���Ϊ���֣�����0������λ���Ȳ������$��λ����С��λ�������$��9λ���ҳɼ������α����ڳɼ�������������10%-30%֮�ڣ�����'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��?��д����ȷ�������Ϊ�գ��ұ���Ϊ���֣�����0������λ���Ȳ������$��λ����С��λ�������$��9λ���ҳɼ������α����ڳɼ�������������10%-30%֮�ڣ�����'�k��@�'��0����У��ʱ������д�����Ϣ �A@X �$� ��333333�?$� e ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��;��д����ȷ���ɼ������α����ڳɼ�������������30%֮�ڣ�����'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��;��д����ȷ���ɼ������α����ڳɼ�������������30%֮�ڣ�����'�k��p�'��'��0����У��ʱ������д�����Ϣ �A@Xk��( n � N P �A@��'��}=================================15 checkNumYN ִ�������Ƿ�Ϊ���ǡ������ж��Ƿ����--==================================� checkName1KT n N�$�'��K ��ȡ��д���� n N�$�'� �$� ���������?$� �$� ��333333�?$���1,1,100'� � �$�'�d����0,1,100'� � �$�'� ��� N� n$\,Vk��Pk��H ����� N�7�е�������ɼ�������10%-30%���������Ҫ��д��ע˵���� ��*ֻ�����뺺��,���ַ��������Ϊ100λ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��x� checkYesNo n N PA@�k��P n � N P �A@��'��[=================================ִ��ֵ��Χ��У��==========================================��Ѵ�����Ϣд�������б��checkValKT � �$�'� �� ��,$�'���� N� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@X�& isValidateCount = isValidateCount + 1k��`! n � N P �A@��'��_=================================ִ�е�Ϊ����ֵ��У��==========================================��Ѵ�����Ϣд�������б��checkIntKT � �$�'� �� ��,$�'��$����@ �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��8��д����ȷ���������Ϊ�գ�����д�������Ϊ���������ڵ����$�����ҳ��Ȳ������$�� λ������'��$��e�D �������Ϊ�DZ������Ϊ�̶����ȹ�� N� �е������ ��0��д����ȷ�������Ϊ�գ��ұ���Ϊ���������ڵ����$�����ҳ��Ȳ������$�� λ������'�k����'��0����У��ʱ������д�����Ϣ �A@Xk��h n � N P �A@��'��`================================= ִ�е����֤����У��==========================================� checkSfzjhKT n N�$�'��S ��ȡ��д���� ������ N� �е������ ��&��д����ȷ�������֤������Ϊ�գ�����'��'��0����У��ʱ������д�����Ϣ �A@Xd��� �� �������֤� � P$�'��O ���֤��У�� ���:������������֤У�������� N� �е������ ��M��д����ȷ���������Ϊѧ�����֤�ţ��������һλ���Ϊ��ĸX�ı����д������'��'��4����У��ʱ������д�����Ϣ �A@X �� '�k���d��� �$�'� ����� N� �е������ ��E��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ���1λ���Ҳ�����18λ������'��'��4����У��ʱ������д�����Ϣ �A@Xk���k���k��� n � N P �A@��'��\================================= ִ��ѧ���ŵ�У��==========================================�checkXJHKT ��1, 1, 50$�'� ����� N� �е������ ��E��д����ȷ�������Ϊ�գ��ҳ��ȱ�����ڵ���1λ���Ҳ�����50λ������'��'��0����У��ʱ������д�����Ϣ �A@Xk��P n � N P �A@��'��[=================================ִ�����п���У��==========================================��Ѵ�����Ϣд�������б�� checkBankKT �$�'� ����� N� �е������ ��$��д����ȷ���������Ϊ���֣����ڵ����$�� ���Ҳ������$��������'��'��-����У��ʱ������д�����Ϣ �A@X�k��� n � N P �A@��'��W=================================ִ�����У��==========================================��Ѵ�����Ϣд�������б�� checkYearKT � �$�'� ����� N� �е������ ��*��д����ȷ�������ʽ��2012��2002�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@Xk��( n � N P �A@��'��W=================================ִ��ѧ��У��==========================================��Ѵ�����Ϣд�������б��checkXnKT �$�'� ����� N� �е������ ��)��д����ȷ�������ʽ��2012-2013�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��W=================================ִ���·�У��==========================================��Ѵ�����Ϣд�������б�� checkMonthKT �$�'� ����� N� �е������ ��&��д����ȷ�������ʽ��01��12�ȣ�����'��'��-����У��ʱ������д�����Ϣ �A@X�k��H n � N P �A@��'��g=================================����3 ִ�е�����У��(�DZ���)==========================================��Ѵ�����Ϣд�������б�� checkDateKT� �$�'� ���2�����������У��ʧ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4�xxxxxxxx�"$4� ����20130221������'��'��-����У��ʱ������д�����Ϣ �A@X�k��p n � N P �A@��'��c=================================ִ�е�����У�飨�����==========================================��Ѵ�����Ϣд�������б��checkDateNecessaryKT�& �$�'� ���2�����������У��ʧ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4�xxxxxxxx�"$4�= ����20131221������ֻ�����õ���֮ǰ��ʱ�䣨�������գ�������'��'��-����У��ʱ������д�����Ϣ �A@Xk��p n � N P �A@��'��g=================================ִ�еij�������У�飨�����==========================================��Ѵ�����Ϣд�������б�� checkBirthdayKT�! �$�'� ���2�����������У��ʧ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4� xxxx-xx-xx�"$4� ����2013-12-21������'��'��-����У��ʱ������д�����Ϣ �A@Xk��� n � N P �A@��'��J=================================����10 У��绰����======================� checkPhoneKT �$�'� ����� N� �е������ ����д����ȷ����д��ʽΪ�"$4�����-�̶��绰 �� �ֻ������"$4� ������'��'��%����У��ʱ������д�����Ϣ �A@X�k�� n � N P �A@��'��L=================================checkOption У�鱸ע ======================� checkOptionKT ��B$�'� ����� N� �е������ ��)��д����ȷ�����Ȳ��ܳ���200���ַ�������'��'��%����У��ʱ������д�����Ϣ �A@X�k��� n � N P �A@��'��\================================= ִ���϶����Ѽ�������У��==================================� checkDiffNameKT� checkDiffName � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��` � checkDiffName n N PA@�k��0 n � N P �A@��'��R=========================== ִ���϶�ʵ�����У��==================================� checkSFJEKT ��1, 4, 0$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��� �$��@���� N� �е������ ��#��д����ȷ,����ֵֻ��Ϊ8000������'��'��'��)����У��ʱ������д�����Ϣ �A@Xd��8k��0k��( n � N P �A@��'��X================================= ִ���϶�Ӧ�����У��==================================� checkYFJEKT� checkYFJE � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd���� checkYFJE n N PA@�k��� n � N P �A@��'��X================================= ִ�����֤������У��==================================� checkZjlxKT� checkZjlx ��1$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��h� checkZjlx n N PA@�k��@ n � N P �A@��'��X================================= ִ�����֤������У��==================================�checkIDCardTypeKT�checkIDCardType � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd����checkIDCardType n N PA@�k��� n � N P �A@��'��v=================================14 checkGender ִ�������Ƿ�Ϊ���С���Ů��У��--==================================� checkGenderKT� checkGender ��0$�'� ���'��-�Ա��д�������У�����֤�Ź�� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��(� checkGender n N PA@�k��� n � N P �A@��'��u=================================14 checkYesNo ִ�������Ƿ�Ϊ���ǡ�����У��--==================================� checkYesNoKT� checkYesNo ��1$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd���E� checkYesNo n N PA@�k��`E n � N P �A@��'��}=================================15 checkNumYN ִ�������Ƿ�Ϊ���ǡ������ж��Ƿ����--==================================� checkSNumYNKT n N� $�'��K ��ȡ��д���� ������1,8,0'� � �$�'�d��0D�0,8,0'� � �$�'� ��� N� n$\,V� N� n$\,Vk���Ck���C ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd��(C� checkYesNo n N PA@�k��C n � N P �A@��'��u=================================14 checkYesNo ִ�������Ƿ�Ϊ���ǡ�����У��--==================================� checkSqyyNameKT� checkSqyyName � �$�'� ����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xd���A� checkSqyyName n N PA@�k��`A n � N P �A@��'��]=================================checkTerm ִ��ѧ��У��--==================================� checkTermKT� checkTerm � �$����� N� �е������ ����д����ȷ������'��'��(����У��ʱ������д�����Ϣ �A@Xk��@ n� checkTerm � �$� N P �A@��'��r=================================checkAtLeastOneNNull ִ������һ�����Ϊ�ǿ�--==================================�checkAtLeastOneNNullKT �� '��A"ִ�� ����һ���ǿ�У�� �ĵ�Ԫ����Ŀ �$� ����=��������Ϲ��� � � '� P� �KTF � � '� �KTF � � '� �KTF � � '� �KTF � � '�n��8>d������Ϲ��� �� '��F6ִ�� ����һ���ǿ�У�� �ĵ�Ԫ��������Ϊ�����Ϲ������Ŀ � � � '�k���=�'�n���=i���=�_--------------------------------------------����������ʽ-------------------------------------� ]����VBSCRIPT.REGEXP$.��7RegExΪ����������ʽ� �(��4 ����ȫ�ֿ����vba��\����ת�� � �(�.������ʽ� �(�5�����Ƿ����ִ�Сд�� � �%'��3 ִ������������.�i��(<��-----------------------------------------------------------�°� У���ظ���˵���Ѿ�û�и�ʽ����------------------------------------------------------------�V-----------------------------------------------------------1����ѧ���׶������ڱ��ڲ������(sheetѧ���׶��� �A65535 $\%%�!' �*cna = getTotalColumnCount(sheetIndexValue) ^$\!VB@�1&ÿ��У���ظ�ʱʱ���Ѵ�����Ϣsheet���,�'`�������Ϣ��¼��ʼ�����X==============================��ѧ���׶������ڱ��ڲ���==================================�0����ð������ÿ��Ԫ�غ�����֮ǰ�������н��бȽ�  �� �   $\%V'  �� � �   $\%V'  ��.���ѧ������ͬ��˵�����ظ����ݹ�� � �е����ݺ͵� ��������ظ�������!!!!'� �A@X�*�Ѵ�����Ϣ����' k���8�x8�p8i��h8��-----------------------------------------------------------��һ���� ����ֵ��ȡ��ֵ������------------------------------------------------------------�����ֵ�����ҵ�ֵ���ڵ��л����keyWord ���ҵĹؼ����'kbn ���������л��� ֵΪ ��row�����row�H�'"]��the find result object� $�, 0�. 4�2� A1:A65535 n$D%%*.( (�� &�row� (!'"d���6 (!6'"k��x6k��p6i��h6��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------��1qaz�> n$DB@< � N : n$D%V(�i���5��------------------------------------------------------ ִ������ڹ���У��(����Ϊ��)-------------------------------------------------------------�value ���������value1 cell�������У�鲻��ȷ����false�У����ȷ����true�� B�0��˵��Ϊ�DZ����� @$D���'�z��04k��(4k�� 4]���'H�ijһ������ļ�¼�� �A65535 L$\%%�!'J�B�������'� L ��row$"'F�=��ȡ��������������  F J� � L$\%V �� H� 'Hd��03y��(3k�� 3 �  F F H � � � L$\%VX @X ��L�жϹ��������Ƿ��cell������'�y���2k���2 ��#��ʱcount��ĿΪ�ù������е�������Ŀi��H2��------------------------------------------------------ ִ��ɾ��ijһ�в�����excel�ܱ����ģ�-------------------------------------------------------------�sheetIndex ����� rowNum �к����1qaz�> n$DB@< J n$D%PB@R�/ �Ѹ���ɾ���- Worksheets(sheetIndex).Protect Password:=123i���0��------------------------------------------------------ ִ��ɾ��ijһ�в�����excelû�б�����-------------------------------------------------------------�sheetIndex ����� rowNum �к��X J n$D%PB@R�/ �Ѹ���ɾ��i���/��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�� �1qaz�> n$DB@< � N : n$D%V(�i���.��------------------------------------------------------ ��ȡָ����cellֵ-------------------------------------------------------------�� N : n$D%V!�'�i��0.��------------------------------------------------------ ���ݴ�����е���������ֵ��ǰ��ʱ�������Ѿ�ͨ����У�飩-------------------------------------------------------------�� ]�X �p �� N : n$\%V!�X 'R�'H�ijһ������ļ�¼�� �A65535 L$\%%�!'J�F������ L ��row$"'F�A��ȡ��������������  F J� � L$\%V �� H� 'Hd��X,y��P,k��H, �  F F H � � � L$\%V!�X '@ @ RX ��1�жϹ��������Ƿ��cell����� � L$\%V!�'X XX N : Z n$\%V(�y��p+d��h+� N : Z n$\%V(�k��8+ �i�� +��------------------------------------------------------ ȥ��cell�еĿո�-------------------------------------------------------------�� ]�X ���Ԫ�����������]�p �� �3Blength1��ʾcell��ԭ���ij��ȣ�length2��ʾִ��ȥ���ո����ַ��������'��Ĭ��Ϊû��ȥ���ո��2 Worksheets(sheetIndex).Unprotect Password:="1qaz" N : n$D%V!�'@ @'\ \��Gzj�*"�����Ԫ��Ϊ�գ�����ȥ���ո���� @� �'^�%length2Ϊ�ո��һ�γ��ֵ�λ�� ^�������ַ��������ո� @� �$`'@ @X N : n$D%V(��'�k���(i���(��------------------------------------------------------ ������ȥ�������ַ�����-------------------------------------------------------------�� ]��-[\uFF00-\uFF06][\uFF09-\uFFFF]|[\s,;'<> "?^]+'� � �$���'bd���'�'bk���'i���'����x'����z�Attribute VB_Name = "���ߺ���"  '-%У�����������д�����Ϣ��ʾ�� ������&�( Function checkedRequiredStart(rowIndex, c olumn )  { '��Ԫ@������Dim cellValue As rS�ng�= A�;veShePet.Cs�6If�-�" Then�*�F�_��Fal4seE�Tru�nd If < E��)��[д��־ ��� �o��oһ�����kq�mwriteLog(co�ntent�]�iX`s(msgB�)�[curMsgR�ow, 1)�J�CK + 1?D D�ú�ɫ�����C��E �ERedVFnLen7@��L�Z.Characters(1, �).F��7.Color�l=31*SS ���������� ���ʼ����G��` errafo�����addCHomm�QXQ#�s��|", ��,  �0�t�'Work �s(�).Unprotect Password�:="1qaz�Oe��y�.A N(�� .�.I�trior#=�<65535 '�1���૱����>%� � d/.Visibl��Ġ_��?ɾ���E���lear�s�Ck΅"��B�B� ?+0+� 5`�&[�!�*2Recp)Nu8m A�:Htff�Total�`?�u�m�� � u\�4��&�UE15l lqXOO�� .ExlNon�du�(�u_L?%�K� �Ƿ�4��*���õķ���o�)beg�inC��_c#LHGp��Method?�L��L�uwLЋNot3��� '�焹�aWʧ��|?u����$6 I�s �hing$�жρ<Ϊ���/T\ �W|� �LA�OAa'���������ȥ����ǰ�q�����¡��$ c�Dt_ �ʫ� '��L� �a���l�w/ !�.� <' �"Box @"��" &gD& "����������h�'tt$�ɹ���3!�0�г����ѕ&ʱ�đ�� � �r����Cq�+remo��p�aceFla�(�/����Q�ո���,������������ʾ:��s�����W@�У�����Ȁ���ַ���Chr(34)�%Q�C�& w"րа������ ��ϵͳ���Զ�Ϊ���a%�ˬ�� A� ��]!�qO�?L?Y/���ݱ�ʶ��C 0X��ӦsX(�[)O-�O?@��!��д��������c��callFunctionXQStart(typeVal, sheetIndex, row$colHumn0isRidateCoun t) value = Wo$rk�s(�).�Cells(�DtitleMsg�Gs�T,, �) '��ȡ���б�ͷ� ������If `"" Then '������ϲ��е�n/J - �1 L�(ElseDÅ��thead��G�=�! ;�C��End( Iff�Ar�gs�!"0"��JÅ Like "checkLen*�M���������У��GĄD �Mid��9��& ��#EH%O 1H&NumL&@be�r�&�& �&@�&����&ֵ��LC&M%�@b%Int�a9?~n�E9- 'W9Term1�L"������"Ϊ�����L"1 �7�� ��YesN�o -k�k� ? DiffName����Ѽ����a�?%D~� #�Cods�����l�A!� `IDCardT��*'���ր������Ͷ��;�:�`._��Sqyy�;�����ԭ���;��Q0] e? �WYearZ����?M��`?:�] � �:�iYFJE��C/ ���E� Q���Pmmc�rA1,8,�ySS- �( �~�Select Case�l� '=121 ִᡒ�ǿ�?�Ѵ�����Ϣд��?���G� �Null���Met`hodXQ�@�R�equired���������� Not> ��� �Terror�"��", &f��"!�������v�& "�������գ�����/�has&E�`Tr0�'����qʱ��9����%� fwr�iteLog E ��' Box 5 gold.RowO & Chr(�10)�� � �� Tͨ�beginC��_comme�ntz����,?��isFor��. o+�.2�.ѧ�������/_Ky-�{O remo�veSpacep-ԟ� '����ȥ���ո��ķ���ϯٯٯ�q�).�/Ek2=c3StuQk(�2/6/6�;/6�V��5�5���5��д����ȷ�����0�������������1��8����20���ַ����*��_8_8�M��8���E<��+< 1?5 5��mment sheetIndex, checkMethodXQ, row`olumn0error@Msg isFor = T�rue '= ִ�еij����У��/ zCase "��Len"�� ��(value, functi�onArgs)#@If Not�� pThen�@�0Ar��Split(�� , ","?�%#C '(0)�j0 And UBou\nd ,8�1�U '�������Ϊ�DZ�������Ϊ�̶��d�3�"��@"��" &Ǝ�"�x��� ���title����������ȷ���"����Ϊ@�ա���������"����LΪA�<1)�������첆���+ElseuO�2]OA+��ΧOLexA6O��AO����ڵ��Bg�P��Ҳ����:�1-2?-%,?-= �1�T`j�T�?-��TC�T�T�����T�� &�S "�Se��S߽&�S���S� �&�&��&�R`'�R?,IE ��IfGhasE����� '����!a�ʱ�����������Ϣ� writeLog*W�begi�nC��_co��?��}?z }��Number����ͣ��{��}��]� �}�� �}��}7 �a�}�}��|UP#�}�}�j�}��oQ�{���>���h& �{�{�1�{�{@���֣��>0������λoqS�f����(v}�?�������i��?V�sQ���� ��//����g���0�~�cU�7������K ��U�U�U���U �� �d��U_�_���_�_ҧ�U�P�U����3<0%!h�U�==��U��Pmmc�U ;�U�U1�U�Ug r esult�Qge@tCellV��Ca��tXQ(��2, 4) '���¡�0����+ ���[���/i��[�[��[]��[�[�E�׿��_E_E_E�?��������ȷ�������Ϊ�գ��ұ���Ϊ���֣�����0������λ���Ȳ�����" & functionArgsArr(D1)("λ���^V2V����ɼ�����$��x����������10%-30%֮�ڣ���� �" ElseIf�0) = 1 Then� '����~Ϊ�DZ���������Ϊp�̶�v3�Be�rrorMsg�,"���rowIndex��е�������� title��& "�����@laTcEnd Ifa�QhasEAQ�PTrue '����У��ʱ��Ai�д�����Ϣwri�teLog f� !D�val(�ue) > result * 0.<3)B���À2Split(�, "�,")���El�W��W���xx-Hxx��?-� �x�x� �� !?h�checkM�ethodXQ`O�Fa��oooE�beginC!_commen�t sheet��d, j, ��o0lumn��is8For@%!� %'=15��NumYN�ִ�������Ƿ������ǡ������ж�ϡ��--^ =K5@Case "C ame1��= getCellValueCountXQ(I&g$4) �'��ȡaϡ ��0 #�1����n�, 5�M��LWUp�l>=]V@A�bZ1� �QI�a2��"0�t��;��2�&����? +��S�3s!).��"s(g!6��"?�f/;� ��� �NotK;/u� �{����W����d����������Ҫ!.��׀�˵����͗� ����뺺��,���ַ�1����Ϊ�100r�力 �S�����; S�{ �'ysetDMBCod�CYesNo�",�S�c�R�#q�/��Y�Y�5�Y�Y���Y�YU�Xֵ��Χ�ā�WA '��ե������б��{(YPV�2?=0=�5E�i��=v�2�|>����؀3ϧϧ]�7&��uo�& �����Y�ص�Ӳќ (ِ��A������� ?9?9;?9� �9�2i' �isidatCx�`+ 1OE?7�� 777���j� isFor = True '=ִ�е�Ϊ����ֵ��У��h@a�Ѵ�����Ϣд��� �б� �Case "ch�eckInt"�!MethodXQ�1(value, functionArgs)�" If Not� �&Then�� �0Ar�Split(� , ","�?�%C '(0)�j0 �E '��������Ϊ�DZ������Ϊ���������W�errorMsg@"��" & rowIndex�"Ax������titleA & "��������ȷ���"����Ϊ@�գ������������C������ڵ�&��M71)A����A/�������� 2� λ��������A�7 Else�S1�S��S�S���r��S���Q���S(��-�(�End�cKphasEaJJ!� '����a�ʱ3 C�V���~� wr�iteLog �*W�beginC�_commen�t sheetb],K~,�`olu�mn����k� è���֤��<��ߨ �!��Sfzjh�cresZjlx 5getCellV��Cou`ntXQ(�#e�,� p'��ȡ!|�����2aGo� �""�m;��,� u���*�����"i���a�X�Xe ~ �XF!��$++�x���,�+n= IsIDNum(ber%sc�/) �'��)� 3W� t�k�k�������#�.����OM���!�j�j�e+�j#U0ѧ��� Ct��@��һλ!v����ĸX������дgO �_$�P$��� �$o!o is�=id8ate�=p5+ ~1��/V��+?  �=�SFZJL�X�'O�n?&��1&� �/ eOF�"�����zw��"Î10vP��1�8w� $$$O��H��o �������??_5�_~_~e�_~_~�_~[}�R~ѧ���>ŏү�~XJH�}� �]�Len!�]"1, 50���6����/6��Z�Z�Z�7�Zy����5���550�5� �5�5��5o5o5�O,?/0�O.O.O.��ݳmnIndex, errorMsg isFor = Tru e '=ִ�����п����У��` ]�Ѵ���Ѐ�Ϣд�� �б� �Case "check`Bank"�M�ethodXQ�*(value)0�|If Not� Then���5"��" &0 row�"�е������� title�� ��д����ȷ��������������֣��@��ڵ�ӂ'functionArgsArr(0)����Ҳ�������+�1���������F=hasE���0�Az '�����oʱ����� �ЅfC wri`teLog��B'��End If�@beginCA�_comment �sheet�\,�o�,colu����P��ݿ��Y8ear��� ��,  �?�b6��_�_�_��ʽ��2012��2002��ȣ�W"�W�WC�WO��W� Wc~k��WζW ��������W�_��H��Xn?W�Xnߴߴ_�.�?U?U-U-�U3�U�UUc Ue��U��*OV�*!�cOVy�� �*�)��*���OV_�*��OV�*`Month�*;�=�4f��*�_�`�_��O�*_�_�_���U0�1��1OUm��*��Ě�%Z�*ߦ �����_U�_U�ϰ��*o'����3 !+�������U(�DZ����)��+�+� ��+Date" �B Ao,a�irth�day�,v��,�,� '!�������ʧ��o!�..�. .�!�.ΪA�@Chr(34��xl �Q[022�1�߱J ��0�0�0�� ߱Oj���0���0�0�0�0�0��0g�+[0��A0�Щ_00� |0Necessary1r C11Now��O1��O1O1$@O1�� Fӿ�/����O1L1?�x" & Chr(34)�" ����20131221������ֻ�����õ���֮����ʱ�� �����L��������" hasError = True '����У��ʱv���д�� ���ϢIwriteLog eOMsg/End IfbeginCheck_comment sheetIndex, c� MethodXQ, row olumn#?isFt '=ִ�еij��������������p��4�Bх�д����б�Case "qBirth�day" '�Hs C@oJ(value)WIf NotKT Then '����<ʧ<���#�\�!"�ځ��f��Q��� ݀M��title�����д�����ȷ������ʽΪA ��x-xx� F��-12-����������h��Q��_b0r_b ]�����10 aa�绰���� �'[Phon�e0�rY�NumvYvX�,�T�T�T���@�-�̶�# ��� �ֻ�$��V�T_�]�_�!S���P?��.ҿP�L�EOptionBQ����� K��PCQ�ã�P, 66Ъ_Q'K�_Q�(sg S���Ȳ������200���ַ�����%9�%�/���% �%���1�, c�� /�%� �" ��������Ѽ��������qO��G�ODiffN 8000O?:V�?��?�?���,����ֵ���ΪA�hK�-!�Fa�:Y�������5��r@?�o@����E��nd If beginCheck_comment sheetIndex, cdMethod�XQ, row0 olumner@rorMsg�isFor = T rue #'= ִ������Ӧ����@��У��5=� �Case "��YFJE"�� qCS�DMB(�, value, function Args)�'If Not�� Th"�0�" &�"�е������� title��� ��д����ȷ���`���r�h8asEAj��b '����Vʱ������д������Ϣ�*writeLog� }Els{A��set@XCod�g�,��Қ�%E?�?��$����֤� �����<�Zjlx3�"�["1"�Zk��Zb�ZZZ?�Z�QZ��ZMB��Z�+驟Z��Z����������Z"��Zm� z(�IDCardTy�pe_[XQ�L������. ��'$���� �� �/���a �/�bN]*_0��g��Q_0�B�������@�����c��_0�,L14p�(Ge�r�����������Ϊ��������Ů���a_---��823��1P �=�w����_0�_r����_��TU)IdNum�9!��Ա�!�����������C|����4ETϑ&� ϑϑ�z�4ϑϑ���4�4$�6��b6F�5�5���5�G�5�5�5�5��6�5 �5�0�5YesLNo��5���5����5�5��5"�5�� 2>��g��5��R� �5p��5�c11�������j111*� �eo/o/yn/��_/_/��_/G_/_/�_/_/_/6[/ _/9�*15�'�TYN��_/U/�жϡf�����e��"= Case "checkSNumYN" |Tresult = getCellValueCountXQ(sheetInde@x, row9) '��ȡ̀�д����YIf \"��" Then+ a1�"1,8,0��hMethpodXQ��o(*v[,�")�0ElTse>2>0=>2?>�\�� ^�� JS��s�).Ahs�(�b10)A.XLA!1End IfUW@>Not i?errorMs�g�6��" &F��"�е���@����titleA & "������ȷ��������F0hasEA�True '����У��ʱ������д�@����Ϣ�� writeLog -� ڟ set@DMBCod�Y�esNo", S��column�q� ��1beginC!�_comment/� �4�~�,�is�For�* '��yC14�T������a��Ƿ�Ϊ���ǡ�@�����3--^ = #�qyy�NameC�`�M�3(���, d�functionA�rgs�_`@K�I� "_`_` _`_`�_`c _`J`S'-�`�ߙ� Y��`ck��`��`�X"MTer�m��_ѧ�ڿ]�3�.���.Y).��-�-|rE/+�j�_[& /+_[��/+�_[_[�_[/ $w�$Toa��, :C��%�]OV���% V �%==&AtLeastOneNNull��&����һ�����Ϊ�ǿ�OV}�=OV�kL( >a��B��NO +� 1 'a u  �1 �ĵ�Ԁ�����Ŀ[0"@p.�Moneby��) Ar\ �<> 0�- '1���Ϲ����5qtota�lBP �+�a���Select ri�uOI��baoPjiaoBCB�:�iSum� ? _� huo�shi� �H?� � �� zh�usu� �G?� �� �� ot�hers� ��H� � ��sc*?%���| '�2��3� �>pG�>6�>�>��>�¡Ϊ�!�@/K�E��+�h+ �" �Jb�`��Xu��F�� �-���������A� ��ʽ-! Function regCh(eck@(, value) " DimLEX As ObjeDct:Set8=� Create!("VBSCRIPT.REGEXP")O'RegExΪ�����������N�EX.Global = True�'����ȫ�ֿ���B'vba��\����ת���-Pattern.�5�-�*��ʽ IgnoreC�ase�Fal� ��Ƿ����ִ�С�x����%���#�wT0est(��)'�����������ԇ ��Nothing Enld �t�w'b� �°� У���ظ���˵���Ѿ�û�и�ʽ�����- �'1����ѧ���׶������ڱ�����+J�c��TheSameXQNew(sheetIndex2) '�B��hna@fS s� .Range("A65535").@](xlU@p).row'cBgetTotalColumn�Count�V��Q�msgBN@-).Cells.ClearContents 'ÿ�΅gʱʱ����e��ϢA����,�curMsgRow�1 'E������ʼ������'=�.���'����ð������ÿ��Ԫ��������֮ǰ�������н��б���GFor i`startTitle + 2 �To rna�%h�babyID1D+b#I�?#+(i,� �c4����j��i - 1��c �2Zj^! If�� �Zn '�����W�����H����t��av����A erroB�"��" & j`"�е���̓i�A‡���� !"� writ�eLog � '�S���Whas��u �S!�Ifo�Nex�ңa��������һ���� ����ֵ��ȡ��ֵ��������7`�C ��������� ���л����keyWord �Ĺؐ�����bnBCa ֵΪ ���H���� ��RI Get@@O�DlR0(By�@H g1, ����Str�f)A��I�HgerCm�-x1уc�� 't he fi�jre@sult o� �c@@k� IX)6X1:fXF�(What:=� Loo�kIn:=xl�V(s, A xl�Whol�@6�t@�Is u 16K&P�k�= "`"��5>p c�aaE����Q� c.�I�-0�q�.�' ���ָ��c�g������q��set�l��pX2Q�p, Pb), `'�Ѹ���' �9P�8123 � End �h�t��a��û�Ё���N~o�<�]�f�X?L�X @��ָ����l�����ֵ�]D ȤsetCell�ValueXQM?A�, colDv� Ī���A#��)�.� = �Q?$A  ��ȡ!+�^�b+�*� �*g�*C�ount�+�*���t&%9f ���ݴ�����е������P�ֵ��ǰ@��ʱ��a�Ѿ�ͨ�����У��xz�TDMBCode(y�?, L��E��L Dim��Data�AYde�]@�^h�@��-CStr(S?a���.�8? 0 '�ϸ������ļ�¼���#��� Area�).Range("A65535"). �(xlUp).  '����� a� GetQ��OrC�w(+ ,Ci, "�") '�aA����� ����ЇFo8r i` @� To�$�G�-If ��&`i, 1)��8 �Then�a�&�+ 1KElse�OExit @ � �jIf7Nextl i�Q j^ +� �-�! � 1��I"}j, 3�K��!A1��()�@ '�ж�A�����Ƿ��!������� �uc�2�,���).� 2� �V$OY)�� �7 +�bu�mnPlus���V ��OO�qO� � � � ue� "Y�{�#jUOLA ȥ�����Ŀո�?�Rremove�Spac}w�h#QR�(As �Oing '��Ԫ��������('"�length1 IntegPer, 328 B't��ʾ�����ij���ȣ����a�����ַ�<��aw� �Fa��@�U���Ϊѣ�&�R_�]�� �9?�wH4o&.54 Le�nCl1�p@0�?��0��'����Ϊ�գ���������W�r2�Inalc �^ q^�a������γ��ֵ`�λ��G6 2p <> D b��x�����3VRxepl�(��@"�%��x�{���E�o �"Tru�c?>qO��6 � ������؄��1����?=pecialCharac8ter��!9reg�p�"[\u FF00-b6]�9�FF]|[ \s,;'�""p?^]+3P`�C�heck1(����#i�� `FZ[�_ �"�>�>�!��?�?Ld�>�m�>0!��?�?'%   Ld�>�m�>0!��?�?Ld�m�m�m�!��?�?% ' ���%  ��� ���Ld�?�?�?�!��?�?Ld�?�l�?.!��?�?' ���%  ���Ld�?�l�?.!��?�?Ld�l�l�l�!��?�?% %  ���Ld�@�k�@�,!��?�?% " ����% �% �% �% � ��� ���% %  ��� ���% % �@�lRp �������[SO0�90W`2��p[�w%�(��S`2@��0%�z�%�T���0z�%��d���0z�p[�wt�9N0z�H�0 x��L� H07!�k" � -k" �^0�ކ�h�x�v$���t��0dv%    Tx�J�d�h�AUu�A�JL��������\_ �Y �h �g�% �% �% �" ����!% %  ��� 5�% �% �K@0 5�5�  ���% % �% �( % �( " ����Q|4�P(x��5�( �F4(EMF+*@$�?���?��FEMF+@   �5 ��� '��'����� '����� ,�5'����� ,�5'����� ,�5'����� ,�5'����� ,�5����- ���  @ !�%���- ����-�����- @ !���-����- @ !���-����- @ !���-����- @ !���-����- @ !���-���--���- @ !���-���- @ !���-���- @ !���-���- @ !���-��- @ !��-����������- ���2 G���������ҵ������$$$$$$$$���������-2 �;ѧ������2 �ѧ����2 �� ���֤������2 �� ���֤��������-���"System-'��--��� ,�5����-� ������ �����-*- @ !�*-+�- @ !�V+-�*�- @ !�*�-�*�- @ !�*�-g*g- @ !�*g-4*4- @ !�*4-��- @ !��-����- @ !���-����- @ !���-�g�g- @ !��g-�4�4- @ !��4�- �����-��- @ !�$�-����- @ !�#��-����- @ !�#��-�g�g- @ !�#�g-�4�4- @ !�#�4-��- @ !��-����- @ !���-����- @ !���-�g�g- @ !��g-�4�4- @ !��4-� �����������-6- @ !�6�- �����-**6- @ !�6*-��6- @ !�6�-��6- @ !�5�-��6- @ !�5��-�-'��-��� ,�5,�5����-�-  ���--�- ����- �- � ����-  ���  @ !��>� @ !�0>��-   @ !�0>� @ !��m�- ����- ������ @ !��?� @ !�.?�����- ��� @ !�.?� @ !��l�- - ��� @ !�,�@�- '��----  ������- - ������- -,l�@����������-  2 J� �� ʼ �� ���---'��- - ��� ,�5--,�5 ���- --� -� '��#A ���5(NANI������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry��������2�1�s���sWorkbook���������CompObj5��������h_VBA_PROJECT_CUR"����4-PrintForm����,f������������&CompObj����ao������������VBFrame������������VBA��������__SRP_0)��������C��Xf������������S�__SRP_1 �������� �__SRP_4���������__SRP_5 ���������PrintForm�������� �__SRP_2 ��������a�+__SRP_3��������3�__SRP_8��������7~__SRP_9����*����9�_VBA_PROJECT������������w�#__SRP_6��������<�__SRP_7����S�dir ��������VOSbpS��ȉ "��������h�;N z�^���������DRShowForm��������{�ThisWorkbook���������. !h���Qpe �����������__SRP_10����������__SRP_11���������j__SRP_12���� �����w__SRP_13����������__SRP_f��������j�]wQ�Qpe ���������?�__SRP_b����$����j__SRP_c����&����� Sheet1��������B�__SRP_d����'����U__SRP_e����!����r�Sheet5%��������y�Sheet6(����������__SRP_a����#������PROJECT ����������PROJECTwm��������������ShowForm+/f�������������&CompObj01�����ao.������������VBFrame�������������OlePres000����\8@DocumentSummaryInformation8�������������$SummaryInformation(����3������Ole ��������������������������������������� ���� �FMicrosoft Excel 2003 ������Biff8Excel.Sheet.8�9�q������������������������ }t ����������������������������� ����Microsoft Forms 2.0 ����Embedded Object�9�q�������������������������������VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PrintForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 '���������� End ��������������������������������������������������������rU�@@@~~v��������������������   ���������������� Q� SaveAsUICancel Q�0rowIndex columnIndexcontent sheetIndex errorInfo checkMethoderrorMsgtypeValisValidateCountregvalue sheetIndex2keyWordkbncolIndexvalue1flagrowNumIDNumberfunctionArgsArrvalue2 functionArgsIdNum\�����������������������rU@@@@~xHi aS4�������rU@@@������������8�`��������������������b�������������������������������������^�L����e���ʘ����������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SP����S����S����S�������0{C9C24DEC-BE04-4542-88FF-AA19DF7A9D5A}{4C19F4E7-1EB1-49F0-9588-D8ABFA1AB224}x����8 ����0����������:%���������������h��8��������:%����������������������������������������8����������������������������������������������������p۾�[�����������x�����Attribute VB_Name = "PrintForm" " �Bas�0{C9C24DEC-BE04-4542-88FF-AA19DF7A9D5A}{4C19F4E7-1EB1-49F0-9588-D8ABFA1AB224} dGlob�al�Spaco False �Cr@eatablP�redeclaDId�Tru BE`xpose0TemplateDeriv�Cus tomiz�D��������������������������rU@@@������������8�`��������������������8a`��������������������b��������������������������������������������������rU@@@@~x b��rU@@@�������������$1b��rU�@@8p 1��� ����` A q ��������� /`� �� ������������ `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��������K��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 ���� ���»ThisWorkbookGU� T@�ikW�mkb�ok� 2� �H�B1��P�B�,�!zL"B+��qSheet1*G� S�e�_tn1 �u�2�� �S@�� �H� 6� 6e� 6� 6� �� � ���ӡ@Ԥ��G�SbpS��ȉۢe2jo `�m8�!�(e)� ��@�ߺ���c �]wQ�Qpec ec eo A�m ��k �����G�;�Xf6"a2fo  o �&�У����!h���e��eo �fo ~�k !L������GbQ;N z�^�b�2�o �9o BU�2ShowaxG�`6�\owF���3e2row@��4�n�O(� �l�5�^5�^5�^5�^)�zh��^ �Pr(intC�r0in�����j2oad�>ʘ��������������������������������������������������������������������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��<��<����������� B����`������������ ����������������@�����������������������%����`������������������������������������������������`����������������������������X۾�[$*\Rffff*0=5c7c0bd0���"�� � (� H�h����x���ѧ����Ϣ��ӡģ��$D(F�ѧ����Ϣ��ӡģ��$DB@H��ѧ����Ϣ��ӡģ��$D(Fo������������Attribute VB_Name = "����Ԥ��" Sub Browse_Print () Worksheets("ѧ����Ϣlģ��").Visibla�True"d^P@review2cEnd � ��������������������������������������L����q��n����������������������������x��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SP����S����S����S�������0{3F6CA6BA-12FF-4BFB-886E-96BBA236100D}{563EEEE1-E447-4C58-855D-830C76FEA68B}����8 .X����������������������������� 2������������������������������������� ����������������%��������������������������%��������X����������������������X������������������������������������������������������������� ۾�[��� � "��� �0� ����� 8"�H�P� X�h� ��������x�ȡ����:��'~ ��B@0��:o��H�ȷ����:�X �'~ ��B@0 �:o����������Q�Attribute VB_Name = "ShowForm"  �Bas|0{3F6CA6BA-12FF-4BFB-886E-96BBA236100D}{563E1-E447-4C58-855D-830C76FEA68B}� dGlobal�SpacoFalse �CreatablPred�eclaId�Tru BExpo se0TemplateDeriv�Customiz�D'ȡ�� P�� Sub CancelButton_Click() notContinueBool�T Me.HDidZEnd! 'ȷ��q ,onfՏ,�-Fl��;/�������������������������������������������������������lzJ ��zL��#����������p���l�o�wC�@%��0t��F�A �ʒ�E���^$�ff������������x�A �ʒ�E���^$�ff�l�o�wC�@%��0t���ME�������������P���������������������������������������������������������������������������������������������������������������������������������SL����S����S�����6"����������������� ��������� ����5c7c0c24*\R0*#f*\R0*#1*\R0*#17$*\Rffff*0?5c7c0c24*\R0*#2$*\Rffff*0<5c7c0bcb�����`�� "���Z� ��  �� �� ��� ���������� ��)���Ƿ�ȷ�Ͻ�Ҫ�����excel���籣�棬�����"$4�ȷ���"$4�,� $4�&ϵͳ��Ҫ���м��У�飬�粻���棬�����"$4�ȡ���"$4�? 6$2'0 0 8�A@:d��P�'.k��@o��8����0����ڱAttribute VB_Name = "ThisWorkbook" �Bas�0{00020P819-0C$0046}� |Global�Spac�False dCreatablPred�eclaId�Tru BExposeTemplateDeriv�Bustomi6zD2P�� Sub ��_BeforeSave(@ByVal AsUI As Boolean, _ Can(cel�)� is��Button�kMsgBox("���Ƿ�ȷ�Ͻ�Ҫ��@���ex� �����������" & �Chr(34)��"ȷ�� ,��10ϵͳ���м��У��A�������?", 0vbOKC6�3If L4� Then�B�D��������A�������ӡ��Π���Ϣ� E‰gP��P= fE nd If� A�i ������������������rU@@@8@�1q�1��������`�A�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������rU@@@������������xb����������������������rU@@@~x�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� a&o "a �"a "a � "a   "a � "a "a �"a  $h  �"a  "a  �"a  "a �"a  $h �!$h $$h �%$h ($h �)$h ,$h �-$h 0"a �1"a 4"a �5"a 8"a �9&o <"a �=$h&���������rU@@@������������X�` ����������������������OOO@�`��������������������1O@1`��������������������1O@�`��������������������1OP1 `��������������������Q�@� `��������������������1O@1 `��������������������1O@�`��������������������1O@1`��������������������1OP� `��������������������1�OO@A `��������������������1O@� `��������������������1O@1 `��������������������1O@� `��������������������1O@1`��������������������1OP�`����������������������OOPA!`����������������������OOP�"`����������������������OOPA%`��������������������1�OOP�&`��������������������1�OOPA)`��������������������1�OOP�*`��������������������1�OOPA-`��������������������1�OO@�.`��������������������1O@11`��������������������1O@�2`��������������������1O@15`��������������������1O@�6`��������������������1OX19` ����������������������OOO@�:`��������������������1OP1=`��������������������1�OOb����rU@@@������������xb����������������������rU@@@ ������������xb����������������������rU�@@@~x   q��0!��!1)HiHi�Hi(Hi�(Hix Hi00Hi(0Hi Hi�HiH8Hi(Hi� Hi�HiX J�gg^���������������������Z������������������������gv�(x����� ����������������Z���������������H��������������H���g�0��@����&��������H���Hi� Hi� (Hi� Hi�  a $h  "a � "a  *~ � &o  .�  .�  $h � "a   0�   *~   &o  � $h   $h � *~  &o �! *~ $ &o �% "a$������������������������������������Z�������H��#����������p���rd�c�)A�\�Z�(�� �F���:J��D� #9p�������������x���:J��D� #9p��rd�c�)A�\�Z�(����ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������:%����@�����������p��������������%��<���������������������������%����H��������������������������������������������x@x������������������������8۾�[$*\Rffff*0@5c7c0c25�����`����������x������Attribute VB_Name = "She@et1" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@ ������������P� `����������������������OO@� `���������������������P@1 `���������������������P`� `����������������������1OOOOXq ` ����������������������OOOh! `��������������������a���OOOOOh� `������������������������OOOOOP� `��������������������1OO@A `��������������������QOX� ` ����������������������`� `����������������������1OOOOXq ` ��������������������1�OOOPQ `��������������������1OOP� `��������������������1OO`A `����������������������1OOOOX ` ����������������������OOO`Q! `��������������������1��OOOOX!# ` ����������������������OOO@Q% `��������������������1Ob����������������������������������������������������������rU@@@8�!1qQ1��������`�A�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������Z������h���#����������p��:�l't�O� �Z� �F�.�O�N��^^_o������������x�.�O�N��^^_o:�l't�O� �Z���ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������:%����@�����������p��������������%��4���������������������������%����H��������������������������������������������x@x������������������������8۾�[$*\Rffff*0B5c7c0c25�����`����������x������Attribute VB_Name = "She@et5" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������Z���������#����������p��ܘ���OE�٢�� F �F~:�wL�,����7������������x~:�wL�,����7ܘ���OE�٢�� F��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S�����6"������N0{00020820-0000-0000-C000-000000000046}������������ ����0����������:%����@�����������p��������������%��>���������������������������%����H��������������������������������������������x@x������������������������8۾�[$*\Rffff*0C5c7c0c25�����`����������x������Attribute VB_Name = "She@et6" �Bast0{000�20820- C$0046} |Global!�Spac�False dCreatablPre declaId�Tru BExposeTemplateDeriv$�Bustom izD2������������������������������������rU@@@8 Aq���������`�A�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������D����������������ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=���ߺ��� Module=���� Module=У�麯�� Module=������ Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=ShowForm Module=��ӡԤ�� BaseClass=PrintForm Document=Sheet5/&H00000000 Document=Sheet6/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="CDCF61B6E387E787E783EB83EB" DPB="9A9836891EA61EA6E15A1FA6CE677EC6D74CC470FF17E4C06B6B2D7610F062B88A3C5AB101" GC="6765CBDC556423652365DC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ���ߺ���=78, 78, 980, 609, Z ����=0, 0, 0, 0, C У�麯��=52, 52, 954, 583, ������=0, 0, 0, 0, C ShowForm=0, 0, 0, 0, C, 38, 38, 1511, 583, C ��ӡԤ��=26, 26, 928, 557, PrintForm=0, 0, 0, 0, C, 76, 76, 1549, 621, C Sheet5=0, 0, 0, 0, C Sheet6=0, 0, 0, 0, C ������������������������������������������ThisWorkbookThisWorkbookSheet1Sheet1���ߺ����]wQ�Qpe�����XfУ�麯��!h���Qpe������;N z�^ShowFormShowForm��ӡԤ��SbpS��ȉPrintFormPrintFormSheet5Sheet5Sheet6Sheet6������������ }t ����������������������������� ����Microsoft Forms 2.0 ����Embedded Object�9�q�������������������������������VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShowForm Caption = "UserForm1" ClientHeight = 3180 ClientLeft = 45 ClientTop = 375 ClientWidth = 4710 StartUpPosition = 1 '���������� End �������������������������������������������������������������՜.��+,��0�HP X`hp x �� ���ҽ�ѧ������ҵ����������� ������Ϣdc ������ ������Χ�����������������������������������Oh��+'��0�@HT` x ���yxqMicrosoft Excel@���&��@��q����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ���� ������������!"#$%&'()*+,-./012����456����8����:;����=>?@ABCDEFGHIJKLMNOPQR����TU����WXYZ[\]^_`abcdefg����ijklmnopqrstuvwxyz����|}~�����������������������������������������������������������������������������������������������������������������������������������������������     ������������ !"#$%&'()*+,-./0123456789:;<=>?@A����CDEFGHIJKLMNOPQRST����VWXYZ[\]^_`abcdefghijklmnopq����stuvwx����z{|}~������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  !"#$%&'()*+,-./0123456789:;<=>?@AB����DEFGHIJKLMNOPQR����TUVWXYZ[\]^_`����bcdefghijklmnopqrstuv����xyz{|}~�����������������������������������������������������������������������������������������������������������������������������������������      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[����]^_`abcdefghijklmnopqrstuvwxyz{|����~������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������