-必赢亚赢
��ࡱ�;�� l��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �
�������\p
administrator b�a�=��thisworkbook��=gm�8x@�"��1����[so1�����[so1�����[so1�����[so1����[so1����[so1�����[so1���arial1�����[so1@����[so1����[so1� ���[so1�
���[so10���[so1����[so1�>���[so1�4���[so1����[so1�>���[so1�?���[so1����[so1����[so1�
���[so1h>���[so1����[so1���arial1,>���[so1>���[so1� ���[so1�<���[so1�4���[so1����[so1����[so1�
���[so1�
���[so1�����[so1����[so1@���[so1����[so "��"#,##0;"��"\-#,##05"��"#,##0;[red]"��"\-#,##07"��"#,##0.00;"��"\-#,##0.00a"��"#,##0.00;[red]"��"\-#,##0.00i*2_ "��"* #,##0_ ;_ "��"* \-#,##0_ ;_ "��"* "-"_ ;_ @_ w))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ "��"* #,##0.00_ ;_ "��"* \-#,##0.00_ ;_ "��"* "-"??_ ;_ @_ g 1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)e \$#,##0.00_);[red]\(\$#,##0.00\)e�0_-"��"* #,##0_-;\-"��"* #,##0_-;_-"��"* "-"_-;_-@_-u�8_-"��"* #,##0.00_-;\-"��"* #,##0.00_-;_-"��"* "-"??_-;_-@_-s�'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-c�/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-���� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� �� ������ ����* ������/ ������ ������ ���� ����- ������ ���� ����� � ���� ����� ���� ���� ����� ����� ����� ����� ����p�� ����p� ����1 ���� �� ����$ ������ ������ ����ff��7 ��� � ����/ ����
����`� � ���a�� �!���* ���� ���� ����1 ���� ���� ����- ���� ����9 ����6 ����. ���� ����1 ����, ����1 ����5 ����/ ����4 � ��� � ��� ��@ @ � �1�@ @ � ��� �1�� ��""@ @ � �1��""@ @ � ���""@ @ � �1� �1��@ @ � � ��@ @ � ���@ @ � �1�� �1� �1�� �
1�� �1�� �1�� �1�@ @ � �1�@ @ � �1�� �1�� �1�� �
1�@ �14@ � �1<@ � �0@ � �1�� �1�� � 1!�� �
1|7 �
1|@ @ 7 �1�@ @ � �1�@ @ � �1<@ @ � �&87 �'8� ||e�f�}(}c
�}(}d
�������8^ĉ����!20% - :_��ew[��r� 3�2�&�20% - :_��ew[��r� 3� ��eq�����eq�������!40% - :_��ew[��r� 3�2�'�40% - :_��ew[��r� 3��]����]����!60% - :_��ew[��r� 3�2�(�60% - :_��ew[��r� 3�������� �� �lʑ��
��lʑ�!60% - :_��ew[��r� 2�2�$�60% - :_��ew[��r� 2�
h�� 4���h�� 4�
f�jt�e,g���f�jt�e,g� h�����h���!�ʑ'`�e,g� �5��ʑ'`�e,g�
"h�� 1���h�� 1�
#h�� 2���h�� 2�!$60% - :_��ew[��r� 1�2� �60% - :_��ew[��r� 1�
%h�� 3���h�� 3�!&60% - :_��ew[��r� 4�2�,�60% - :_��ew[��r� 4� '���q������q� (���{������{�)�h�guscq:_��ew[��r� 6�&�1�:_��ew[��r� 6�!?40% - :_��ew[��r� 6�2�3�40% - :_��ew[��r� 6�!@60% - :_��ew[��r� 6�2�4�60% - :_��ew[��r� 6�
a8^ĉ 2�
b8^ĉ 4cc��
�pk
�n�@theme/pk
�n�@theme/theme/pk�n�@ky�}�theme/theme/thememanager.xml
�m
� @�}�w��7c�(eb�ˮ��c�aǡҟ����7��՛k
y,�
�e�.���|,���h�,l����xɴ��i�sq}#ր���� ֵ �!�,�^�$j=�gw���)�e� &
8�pk�n�@4q���theme/theme/theme1.xml�yoo5�#�����mv�l�m���6ц��ۢ���7����&�j�hh��� q j�ĥ|�@�_�g{fv�uhb#�=$3����{~�\��0a�iy��wj"i��4����ai=@r�t�oi;�\�|��kxc�$!֧r��x�lcyy�0�����&\$x�����݄-��jk� �i�r��;�
i�y��1��*�b&�(q�h\]z��kf�����r&�l�c����!y�it0�j�,o^[��"�ny[y�7�|]�`|�bx�ht2�����%}`j�����zi�p��v�*�f��)hv@�q�v�֬5\|���̭n��l�x�d���zck����7���v����
����������7����`�����kȅ�/|��>ga4�q�ylx�����d$(^�bf�!р?�h�°�)r��lp!�/м���;ʅ!��p�l���3�1���ŷ�_���o�@h��d/?���/����o�x�[���!m�d���� �f�jnf�b �1��
m鞊��f>\��ƻ'����7�y��*��|3n�.�å�75�����4�3�*n�c�.n���r�#ٍ�#�é�i�bz����>��]wi(����s���k�!9�4_�c���' �ڱ��=��̧�69t���y����*��hqª��u�r0aד
<�qol����#@ߊ�ob��}��)=�ѽ�9�"��a7�i��hw���q�����w��!����s�}���g��4rd����
�/o���`�&��*�ݩ� m��l����l����z���9q�o��k�6��{�bq�z[��v��?_�o��˯��ruz7���6-x�v���x��7��
ԍ�[�t���q5s%��,��q�4�rp��f
\}@u<�q|�4���ige\��{ik�p
p���g[c$v�|l�w�pq)��"s�-�j�e�z5'
��fu-թ�սh�<:�j���͡l^���5��a�����$�y��32�v�>*ܢ�z<_��d��$���{�gu�"v�z�`���3�v���d߀�y�te�8�]�7�r��g��o�#k���rt�z͕f�b��� ��1���r���ep
*a���d6y>�f�p�m�:\�x�/(�ԁlh��elc�l�!�r��ʿ��^��jt>)v�!�1)���k�dbbuuved�ξ楔o�x|�fl*�1�_�*�3��>le�/pc��m���']�����8fy��r�s��d7�z�`�*�n^ٍrwť�%�r
���*z?�ˈձ�@��#�)�s�bylþ�������i*��6�9��m�y&��l��i���hł�=(k&�� v��.k��lduĕ�{d ������ꦚ�e��nɵ��g�(�mn5ߜjv�6����&3(��a���/e4�r;��,/�ު"zb�f5��8��w��v��="\p��ka�f!xqqc,������!�_c�:��p[|��� l ��l�t���#h��
&m��w��j�f})m��%�.в���4vٜ��\�lc�vlm�n55x�d��ф8�ǘh�/]|��
/s���m@�pk
�n�@_rels/pk�n�@�֧�6_rels/.rels���j�0���}q��%v/��c/�}�(h"���o�
������=������ ����c?�h�v=��ʌ��%[xp��{۵_�pѣ<�1�h�0���o�r�bd���je�4b$��q_����6l��r�7`�������0̞o��,�en7�li�b��/�s���e��е����pk
�n�@theme/theme/_rels/pk�n�@
ѐ��'theme/theme/_rels/thememanager.xml.rels��m
�0���wooӻ�&݈э���5
6?$q��
�,.�a��i����c2�1h�:�q��m��@rn��;d�`��o7�g�k(m&$r(.1�r'j��њt���8��v�"��aȼ�h�u}��|�$�b{��p����8�g/]�qasم(����#��l�[����pk�n�@ �$��[content_types].xml���n�0e�h���-j��@%�ǎǣ|�ș$�ز�u��l�tb� l,���x\���v��t�u^h�d}㨫���)��*1p�'���^ח��0)�t�9��l�#��$��>����� `?�cs]7�zb$�x��u��-lv�{9>�d�v�nj����,���5�(�bȥs��zҕhhs�0u~,}�2��to�f�0,�į�*�=댬o[g��v;� �9���'�3��3�y ; ��o�opk�n�@ �$�� � [content_types].xmlpk
�n�@�_rels/pk�n�@�֧�6 �_rels/.relspk
�n�@theme/pk
�n�@$theme/theme/pk
�n�@�theme/theme/_rels/pk�n�@
ѐ��' theme/theme/_rels/thememanager.xml.relspk�n�@4q��� theme/theme/theme1.xmlpk�n�@ky�}� ntheme/theme/thememanager.xmlpk ?#���x��tablestylemedium9pivotstylelight16`��5,gn�ytysb�w,g�oo`��a�nxh��;i���oo`���vv���4�x�p�(�$moc��a��@������dc:-kmջ@b g!h��ĉrv^sbps���oo`!
=�cf= checkname
checksfzjhcheckxlcheckdatenecessary checktysf checkrxfs
checkyesno�la����r�te!jg�vyo���n{|�w��n�skx�q�xuq0�x�[0�q�[-n�vn�y��_kxy�!"' kx�qf[uۏeq,g!h@bۏl��v�ջ{|�w��n�skx�qؚ�0�[�sgsf[0us�b-n�vn�y��_kxy�$" kx�qf[u/f&tzzjy� /f &t ��_kxy�"�e�l
t�^�s/�f
t�y{|�wbzktysbjbxxfailure/f
4133013285&tcheckyesnoxs0ؚ-ngؚf[�s{|�w2r-n3,gn�yؚ�eqf[�e_�[�sgsf[us�b�xuq�y_���n�x�[�q�[
4144014265�by0�0�@1��1u�3�5�k5��5:
�
���j<
d����mbp?_* ��%z����&ffffff�?'ffffff�?(�?)�?�" d��333333�?333333�?�&�ca�u}�s}�s}�s}�s}!s}q's}s}u$s}^ s}__s}``qs}aaus}bb� s}cc7
s}dd� s}ee�
s}ffq
s}ggqs}hh
s}iis}jr s}s soh�nj�n�o��no�no�p��q��r�
t�
u�
v�
v�
w�
v�
v�
wx"@�
yz�
[�&\\\zzzzzzzzzzzzz�
] �
n �
^ �
^ �
^ �
^ �
^ �
j �
f^^g�
jn l^�
m^ �
n^ �
_
�
p�
p�
p
�
p�
p�
]�
j�
j]�
k]rl�
mr�
n]�
`�
`�
`�
`�
`�
`�
`�
a�
b�
b�
c�
b�
b�
c �
c!�
d"���pp��p�������( �
����
��
#����ԕ�5%�ԕ�5%��((�����������?����comment 14354�g���]48`
�
��<kx�qf[u�v�y
t<$����
�
��v���� 9�c�c�����button 19��],@a9�
��$< _�y�h�g<����
��
��z���� 9�c�c�����button 1535���],�@a9�
��$<_ �y �h �g<%����
��i
��\���� 9�c�c�����button 13801� =���],�5@a9�
��$<_ �y �h �g<%8admin>�@<��d � �
gg����d�sheet1
�
����h
d����mbp?_* ��%����&ffffff�?'ffffff�?(�?)�?�" dxx333333�?333333�?�&�ca�u}7c}�d}�c}�!c} e} e} e}�f}�e} e}
e�@,,,
�
g#�
h$�
i%�
g&�
f'�j�
f(�
ck�?�
l)�
c)�
f<�
ck�
l �
c �km�
c,�
d-�
c �
c ��
c�
d �
c.�
c/�
c�
d0�
c1�
c/�
c�
d2�
c3�
c/��
c�
d �
c4�
c5�
c�
d0�
c6�
c5�
c�
d2�
c7�
c5��
c�
d-�
c8�
c9�
c�
d �
c:�
c9�
c�
d0�
c;�
c9�(�tf j<888888888>�@<��d
� gg����d�sheet5
�
�������
d����mbp?_* ��%����&ffffff�?'ffffff�?(�?)�?�" d333333�?333333�?�&�u>�@<��d
� gg����d�sheet6
������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ������
����&��������������������������x��rr��������������������me�����������������������������������������������������������������������������������������������������������������������������������������(@��l0��6
����<�������hl��������h�j0��h�n�������r`h���������������v�����@��������ʘ�0b��������������ʀ�x����@��������ʀ�4���� @��������ꀂ�d����
@����������z�l���@�������������%������ϣ���˵��%ꀜ�v����
@�����������z����@���������| \����
@���������~hb�������������� x�����@��������p�����@��������ʀ��d����@����������x����@��������ꀂ�z����@��������ʘ��b��������������ꀄh~���� @���������`hb��!������������ꘈ����b��#������������%��������b���p�b���������������xhph���������������tp�h��������������ʀ������@�����������$����@����������x8h��h@��������ꀖ�p����
@���������*�t���� @���������&�x����@��������ꀘ^����@��������� 0b��������������ꀄ�`����@���������z�t����@��������ꀞ�|����@���������r b��������������ꘆpb��"��������������h �80�p��x�p������������������h��������p����������������h��������������� �����������������������������0x���j��������������������������$���������������������p�������������������������������������������������88�8fa*\r1*#119$*\rffff*0=628a8ca6(*\rffff*0=628a8ca6\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]$�˵���] �p� ��¼�ܵ�у����]$������¼��ͷ������] �0�"ִ�� ����һ���ǿ�у�� �ĵ�Ԫ����ŀ] ���6ִ�� ����һ���ǿ�у�� �ĵ�Ԫ��������ϊ�����ϲ������ŀ] �x�ÿһ�кϼ��е�ֵ] ���"����һ���ǿ�у��ʱ����¼����Ԫ��] ��������ϣ] ���%---������ģ���у���¼���ĸ���Ԫ������] �8�---����ģ���у���¼����ĵ�Ԫ��] ��� ����у��ʱ���洢�����������ַ���] �����¼ʱ�رհ�ť] ��� ��¼�ܵ�у�����ƿ��в����ϲ����] ��� ��¼�ܵ�у�����ƿ����ظ���] ���#��¼�ܵ�у�����ƿ����ظ���] ���%/��¼������ч��ǰ����������ƿ��д�����ϣ ��״̬] � �#����у�鷽���ķ���ֵ]$���)������¼��ʼ���к�]$��h�)ѧ��ѧ���ſ�ʼλ��]�d0���¼ϊ�յ���ŀ]�x�"/�������ƿ�ϊ��ч���� ͳ�� 5�������ֶ�ϊ�յĸ���] �p�"c��¼ȥ���ո������ִ�н�������ȥ���˿ո���true������false] ���pcell����ԭʼ�ĵ����ݣ���ϵͳû�н����զ��������û�����ĵ�������֮ǰ��cell������] ���7�θ�д������ϣʱ�����ڵ���,ӧ����ŀ��ʼ��ʱ��ʼ��ֵһ��] ���������] ���������] ���r�ڸ��ݱ�ʶ���ò�ͬ�ķ���ʱ���ж��ƿ���forѭ�� cell_selectionchange����ҫ�õ��ñ���]$������¼ʡ���صȼ�¼���ڵ���]$���� �����sheet���±���ƿ����] � ]$�h�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�8b�������ϣ��8 ��ro���˵�
3area��3����k�dme�0tot�alcount�j�u��¼�ܵ�у����
�$startt�itl��7 '��ͷ������atlea�onennuld 'ִ�� �����t�ǿ�a �ĵ�Ԫ�����ŀ��\�������������ϲ`����j�;money�;varia�>'ÿһ�кϼ�����ֵk error@�
-ʱ��/a>a{c/�
e�ms>gad���� rgold�rang@e '---a�ԁ�ģ���є ��ĸ�����ftarge�n� �����v��qfuncti@onargsh'0����">@���������������ַ���fissav�ebutton}caʱ�ر���ť�has�(�}boolean�{�'�l����0���щ7 thesa@�_������įidn\um�]�n �idaै�_�����ч��ǰ��������>�\״̬�checkmet�hodxq�aa1�a0�ķ����r��arows�q���0= `r�� п�ʼ�x�!��x�babyid"�j8= 2 'ѧɀ�ѧ�����λ��
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^�,headdib�= 3dd�����ص�q,�w&
s�qsv9r,��q���±�c��
�����not�tinue?q$aqj���plu"s�6104 ' ������c������rge�
r�6���ա��
��s�
birthday= ��� ����ڵ����������������������������������������������������������������������������������������������k*�����ru����~~~~~~~~"~~~~~~~~~~% ��{dvl�a���u�j� �������a )����q�����a )������
������������)�a
������������a�a ����������a��� a q � � � )
y
y
�
�
�
9a��a�a q�������������a ����������#��
1
q
y
�
�
�
aa���� !ayy��� )ii���)y�����a ����������������������������
������������������������� �!!
vbaprojectthisworkbooksheet1sheet6��ӡԤ�����ߺ�������у�麯��������showformsheet5 printform��ffc:\program files (x86)\common files\microsoft shared\vba\vba7\vbe7.dllvba
)���� q�0tepwskingsofu<f:\����\wps office\wps office\11.1.0.10463\office6\etapi.dllexcel
q����y @0�fc:\windows\syswow64\stdole2.tlbstdole
y������pl��-�[���d�r=f:\����\wps office\wps office\11.1.0.10463\office6\ksoapi.dlloffice
y����c� `�.e
���.`�m�c:\windows\syswow64\fm20.dllmsforms
yy��pn�w�>�mk��o����
1c:\users\48955\appdata\local\temp\vbe\msforms.exd
yy���checkedrequiredstartwritelogwritelogredaddcommentxqstartclearcommentsxqstartbegincheck_commentcallfunctionxqstartregcheckfunccheckthesamexqnewgetroworcolindexsetcellvaluecountxqcheckdmb deleterowdeleterownoprosetcellvaluexqgetcellvaluecountxq
setdmbcode
removespacexqremovespecialcharacter
���oo`�nxh��f
,
00� $4dhlpd
checkrequiredcheckstuname
checkbirthdaychecksfzzjycheckyesnoxs checktbpccheckbirthdaynecessary
isidnumbercheckschcodecheckfamtypecheckrxdate checkyear
checkmonthcheckxjh
checkphonenum checkbankcheckxncheckoptioncompare
comparedecchecklencheckintcheckvalchecknum
checknumto checknum1
checkisint
checkisnumber
checkmoneycheckmoneytjcheckpersonnumcheckidnumlinkchecknownecessary
checkstuname1checknumtosq��������у�����ӡ������ϣcheckthesamebrowse_print��f���e\�n��11�> �fy�u�p*xn��t.`�d�f worksheet
@��f�eld�zb�ኙ
[$�f���xa,5j�@d���)�d�fworkbookworkbook_beforesave
.�`/f&tnx��\���ox[�excel��y�ox[����p�qnx�[,&�|�~\��ۏl��h�g!h����y
n�ox[����p�q�s�m?vbe7.dll
�����`h
�����s��f��f��������f0�]\oh�pe�v
ncknx���n}�g�e!jgt��qۏl�dk!h��1qazpasswordprotectunprotect
cellsclearcontents��fa65530
rangeendrowiv5f�ffailurea9:iv65536font�[sonamesize
&horizontalalignment@ "numberformatlocall��vpency��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`�yn�
value-:;,{l�r�vpency��vx[(wyr�kw[&{��y^ , ; ' <> " ? zz628a8ca7���!h���qpe��~���v��;nz�^0?628a8ca7���;nz�^��ux��������`�����y9��showform09628a8c9a��7showform��n�1��sheet50:628a8c9a��?sheet5��h��-��printform0;628a8c9a��aprintform��ʘ����������������������������������������������������������������������������h���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x����`������������������������������������������������������������������������0�������������������������������������������������������������������������������������������������������������������pcb�n�uxaš������^����(�m�����n����$�o3^�e�u��������y����o�� s��"����b9d�{qo�w�bn?������z�~knbb�.�9ڀ�z����>��@�eo��"�f'�����m �lf�@��'|���������;�)i����#�
����3.u h�����l�#�@3�(l���՛�ht����������43t��b!�8compareexcel� `vba��`win16�~`win32`win64x`mac��`vba6�#`vba7�#`
vbaproject��`stdole�``officeu`msformsc`thisworkbook|�` ��_evaluate�`workbook_beforesavel`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�)` �(checknum1�%`resultur`�(getcellvaluecountxqc�`val��`result1��`a1k\`
�(checkstuname1`a2l\`
�(setdmbcode�d`�(checkvalk�`�(checknumtosqu1`�(checkint��`
�(isidnumber-*` �(checkbankuw` �(checkyear�6`�(checkxn��`
�(checkmonth��`
�(checkbirthday��`�(checknownecessary��`mmc^`ax`
�(checkphonenum��`�(checkoption,�`�(checkdmb��`�(checknumh�`�(checksfzzjy�` �(checktbpcc`
�(haserroridnum��`titi��`
�(checknumto5�`�(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`у�麯��&�`�(checkyesnoxsg`�(checkbirthdaynecessary��`idnumber4 `wm`sj`tk`flase�p` isnumeric$*`right
`�(checkschcode��`�(checkfamtype��`�(checkrxdate�*`�(checkxjhf�`years��`d[`value2�`
�(comparedecn�` maxintlen1`maxdoublelen��` intlength�`intvalue�`douvalue�`maxnum�q`
�(checkisint�r`
�(checkisnumberg`�(checkmoneytjc�`�(checkpersonnum `�(checkidnumlinkuz`idnum�>`
isgenderright�
`isbirthright��`gendervalue�`gendervalue1�1`
birthvalue��`birthvalue1~`year6n`year1w�`month�`month1��`day��`day1;`arru`st(_`timenowy` timeprint��`now%�`������`
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` worksheet��`
��beforesave��`
_b_var_chr\;`��_defaultj�`!����_b_var_sysdifficultygradenameflag_�`����_b_var_indentifydateflage`����_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�`���!7? a
�������������������������������������������79;
������������������e��������������������
���������������������������k����������"�@�� p0(p7��q� yx��!�2hh � ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(����gs9��u�������������������������x��me������������������������������������������������������������������������������������������������������������������������������������������������6
���������l����l���������
����l���������"����l���������
��������������������������
4 `���������k�������������p������z�����b��@������h�����h��@������x�����x@������h�����@������8�����@��@(����� ������������@����������������`������������
������������`��������� ��`� ����������`�.����������`�"������������������ �����������������������%8������8������p �����x���8 �������������������������������p������������x����������������� h����>,xvz��@������� �� @������������ @�������� @��0������ @��h������ @��`������ @��x������ @��������� @��������� @�� t����� @������p��� �� @��`�����@p�����@������@����� ��6�\*2@��0����� @�� �����@�������� �p"@��������`�x"@��p������ ��'@������������`h�'.0�r����@������������ @������������ @����������@��x������ �p=@�������� x=��|����ht@��������@"����������@�������� (�f@��ht���� �f@����d�����@pt�����@���d����� �hn@���4���� ��n@����$�����@�������� �t@������� ��t@����������� @�p������@����������@�p��������b��d@��������� ��h@������� ��h�v@��(������ @}@��`����� p(}x(�@��������� �`�@�� p���� ������ �@����`�����@8p�����@��( @����� @ �@��� 0���� p ( �` ( �� x�@h �����@��� ����� � � �@���������� � � ������ ��&>������������������������� �����������������������������������������������������������8fa$*\rffff*0?628a8ca7*\r1*#3cb*\r1*#30d*\r1*#268*\r0*#17$*\rffff*0=628a8ca6*\r1*#118*\r1*#31$*\rffff*0a628a8caa*\r1*#1be*\r1*#119$*\rffff*0<628a8ca6*\r0*#2*\r1*#0*\r0*#f*\r0*#1����� h"�h�p�:x�.��6��" �"h�.p��� )���� : �� ;�8�@�;h�;h�;��>;��"
��:�
"p�,`�$��>;��,]�� (� ~@�$u��p1�� 8�x�x� �����>l������
��
�����"c�� � "@�
h� ������wp���;��� �(�.=0�
`�, x���;��;������*�*r0�`�x�%0��%d��% �% �%0 �%h �%,h �%&� � � �#6m� �$j
�$"`
�(,3�
�(p3�
�(`� (�����,l,h�4ji��<(� <�����?
0�d6h@�d0&x�hb<��he�� "
�g8
�h
h
�m4dp
�n�k�
�n&�n8[8�n
p� ,��i�� �����d��@��,
�� ,�����0
��48h��40& �8 <p�8ep� "��g��h
��m4d��n�k�n&��n8[��n
�� ,�i0� �����48�0@�)"h�<(p� <�����<0
��h6h��h0&�pb<0�pex� "��g��h
��m4d��n�k�n&��n8[��n
�� ,�i8� �����h@�<h�("p�,8hx�,0&��0 <��0e� " �gh�h
x�m4d`�n�k��n& �n8[h�n
�� ,��i�� �����,��(��$��$m��
� <� "p�(l7h�(&��(
��(�� �)$� 0� >8�,x�,�� (��,&��40m��,
�, �,0� 8�
@�p�(x�����*���� $,����
���f7��� ��4 ��=��1�������4 � $h� p�=��p1��,���4 �=h�1`�p� x� ;�� ;�� ;���� x�"�`�h�x�2��$��@��6(�`�*p�:�������� ������� ������ �,8�h�p�x� ����������a--------------------------------------------�����ʼу��-----------------------------------------�]�@]�x� ijһ���͵ı�ʶ�������кź�����ʽ��3:1;2��]�p� ��ʶ����(ĭ�ϱ�ʶ�����զ����ʶ)]���(ijһ���͵ı�ʶ���飨�����кź�����ʽ��]���ijһ���ͱ�ʶ�ľ���ֵ]����զ����ʶ����������]������%�ѽ�¼ϊ�յ��кŷž�������]� >!n'��"��ȡ��������ŀ ����0��������ŀ����ȷ������������ģ����ٽ��д�у��a@,�1qaz�d�$>b@�|���k����1qaz�d�$>b@b�1qaz�d�$>b@b�1qaz�d�$>b@b x$v!pb@�-$ÿ�ο�ʼ���ʱ���ѵ�����ϣsheet���,�'z�������ϣ��¼��ʼ�����'��.�ô�у���у���¼�ƿ��д�����֣�����ϣ���у�� �(��'��#ĭ���϶����ѽ�������δͨ��у���'�ĭ���϶�����δͨ��у�� x$v!pb@�-$ÿ�ο�ʼ���ʱ���ѵ�����ϣsheet���, �a65530�$>%%�!'���ȡ���������xcna = worksheets(1).range("1:1").find(what:="*", after:=[a1], searchorder:=xlbyrows, searchdirection:=xlprevious).column �iv5 6%%�!<'�����failurea@\�& ��ȡ�ƿ�у��ɹ���־��Ԫ����ֵ��ʼ��ϊ0�'���ռ�¼����ʼ��ϊ0 * 2��"
����ʱִ��d� ��ʼу�鰴ť�¼�ʱִ���
a9:iv65536�$>%!b��1���������������ͺ������9�9q���
a9:iv65536�$>%� 9�(����������������@9
�#�����������ı���ʽq����.��ȷ����ʼ����� �������у�����ر�excel���
$.�������ܵ������ݶ�ʧ����ʧ�� 0���ܰ��ʾ$, 2�d���1qaz�d�$>b@�|���k���k����.�$>!b(d�)��ҳǩ����ϊ��ɫ ����"û�в��ҵ�ѧ����ϣ��������у�飡a@,�'*�1qaz�d�$>b@��1qaz�d�$>b@�|��k���'���ô�у���у���¼�ƿ��д�������$>!��д�����ϣ���£�a@r ��
�� � �� ��'��<"ִ�� ����һ���ǿ�у�� �ĵ�Ԫ����ŀ�'��;6ִ�� ����һ���ǿ�у�� �ĵ�Ԫ��������ϊ�����ϲ������ŀ�'��'��'��5"����һ���ǿ�у��ʱ����¼����Ԫ��'��9�ƿ�ϊ��ч��¼ �'|�c��¼��у�����ǰ���ƿ����д����'��;��¼�ա����������ƿ��д�� "�� ��� "�$>%p!�'��o��һ���б�ʶ��ֵ�'��2=�ж�forѭ�����ƿ����callfunctionxqstart ��û����ִ��ĭ�ϸ��� ����<�����ʶ����ϊ�� ��-$�'��g��ʽ��1��4-3:2��5 ��:$�'�h6��ʽ��3:2��5����ȡ���ı�ʶ�����в�֣���ֳ��кź��� �����dj�����ҫ���ּ������ϵ������ҫу�飨��ĭ��у�����͵������զ���у������ � ��� ����y& 1����ϊ�����е�һ��Ԫ��ϊĭ��у����� $��:$�'��v*����ȡ���ı�ʶ�����в�֣���ֳ��кź����$�'��s�զ����ʶ���������� ���$��;$�'��c�զ����ʶ���͵ľ���ֵ� � �� ����g�ա�ʶ�����б��� $�� " �a@��}���ݱ�ʶ��ֵ�����ö�ӧ�ķ��� "�$>%p'��h����������ȥ�������ַ��ķ��� �$h' � � "�$>%p'��{��ȡ���б�ͷ��������� ��� "��е������ ��f���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨ϊȫ�����ͣ����飡'��'��^����у��ʱ������д�����ϣ��� "�$>%p!n(p����ӻ�ɫ���� �a@r�n%isvalidatecount = isvalidatecount 1k��h��@k��8� �� ����$��;$�'��p����ȡ���ı�ʶ�����в��� � �� ����w�ա�ʶ�����б��� $�� " �a@� "�$>%p'��h����������ȥ�������ַ��ķ��� �$h' � � "�$>%p'��{��ȡ���б�ͷ���������� ��� "��е������ ��f���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨ϊȫ�����ͣ����飡'��'��^����у��ʱ������д�����ϣ��� "�$>%p!n(p����ӻ�ɫ���� �a@r�n%isvalidatecount = isvalidatecount 1k������k��� ��e�j��ʽ��3:2��5�$'��q�զ����ʶ���������� ���p�����ʶ���е��������ڵ�ǰ�����$�;$�'��e�զ����ʶ���͵ľ���ֵ� � �� ����k�ա�ʶ�����б��� $�� " �a@������ݱ�ʶ��ֵ�����ö�ӧ�ķ��� "�$>%p'��h����������ȥ�������ַ��ķ��� �$h' � � "�$>%p'��{��ȡ���б�ͷ��������� ��� "��е������ ��f���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨ϊȫ�����ͣ����飡'��'��^����у��ʱ������д�����ϣ��� "�$>%p!n(p����ӻ�ɫ���� �a@r�n%isvalidatecount = isvalidatecount 1k������k���d�-ֻ��ĭ��у������ʽ��1��4�$��;$�'��h����ȡ���ı�ʶ�����в��� � �� ����o�ա�ʶ�����б��� $�� " �a@� "�$>%p'��h����������ȥ�������ַ��ķ��� �$h' � � "�$>%p'��{��ȡ���б�ͷ��������� ��� "��е������ ��f���������ַ�����^ , ; ' <> " ? �ո� �س��������뷨ϊȫ�����ͣ����飡'��'��^����у��ʱ������д�����ϣ��� "�$>%p!n(p����ӻ�ɫ���� �a@r�n%isvalidatecount = isvalidatecount 1k��8 ��0 k��( k�� � "�$>%p(� "��� 6ִ�� ����һ���ǿ�у�� �ĵ�Ԫ��������ϊ�����ϲ������ŀ �� � ����� ��е������ ����������һ������д��ȷ������'��'��8����у��ʱ������д�����ϣ �a@r ��'�d��� �'�tÿһ�кϼ��е�ֵk��� ��
��<,һ�����������ؼ��ֶ�ȫ������������ɾ�� � � ��'��,"��������ϣ���еĸ��д�����ϣɾ����� � z � z�� z � x$v%vb@x�r
�ѹ���ɾ��� �� z �'z |'�k���� ��k���� �� ����6
ɾ����ч�� $�'� ��� �a@t�b
�ѹ���ɾ��d��8� � a@t�h
�ѹ���ɾ��k��� �� ��
���˴�у����ɾ���� ��@����ч���ݣ�����������֤�����ж�у��ʧ�ܻ�ϊ�ռ�����ϊ��ч���ݣ�a@,k��x ���*�д�����ϣ����鿴��������ϣ��������������a@,��$>!b(d x$vb@hd���'&�a@ &��'%ִ��у���ظ����ݷ���,���û���ظ�������������ƿ�����ҫɾ������ч����� у��ͨ��!a@,�.�$>!b(d����successa@\�: ��ȡ�ƿ�у��ɹ���־��Ԫ����ֵ��ʼ��ϊ0��� a@>d����*���ظ����ݣ���鿴��������ϣ��������������a@,��$>!b(d x$vb@hk���k����1qaz�d�$>b@��1qaz�d�$>b@��1qaz�d�$>b@�o���q-------------------------------------------------���ظ�����ijһ��------------------------------------------------� ]�`�x]���� �a65535 n%%�!'�2��������scripting.dictionary$.$�o8�o n%!�'&�>��ȡѧ����������������� (� &��%"��ѧ���������֤�������ݽ��б��� (�� ( $%*��-�������֤�ų����� (� $b@,�&#add��������һ��ϊkey���ڶ���ϊvaluek��k���� !.' �sheet2$>��g:g7b@ �!2%4 !n�g17,0q�����.o�������x�����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�h2).h3_sas(msgb��).cell�]learco�tnts '�����ؼ���ʱ����ɂ` ���,c7cur�]��= 1 'g� a�����
h�aserror�=fals`h�ôb��/�у��� ƿ���!���֣����r�� �happlication.screenudpd�ng�
�
sysdifficultygrad�e�fla�0�b o�϶����ѽ��������δͨ��!!cinde�ofy� �eo����m�?,?,-, rna��hrange("a65530").n(xlup)..@1��h��/����dcw 1:1�f�(what ]*", after:=[a1], s`dchorbdaxlby`
s1�dir e�2:=xlprevio�us�kolum�t�b$1.$iv5��toleftks�� t®xq 2,a8, "fa�ilure"��ag!7�ɹ�������Ԫ�������ֵ��ʼ��ϊ0�� ƙ�� �a��p�`x issavebutton��vbok� ���ʱִe�e�z�^`ӱ�ť0�¼�)�with �99:iva:6a1�q�����������׀����ͺţ
�.�z�"���b娒.siza�1�1cᑡ' c
3`�.horiz@alali�gnm`d xla7������i�berforma@tlocal�@�"z�ı��ss���a_("�`�ȷ���k�� ������e�������excel��" & chr(1�l& "������ܵ������ݶ�ʧ���ʧ���@01can�p'��ܰ��ʾ�")�� � q �
���e�eq �e3 qf�ktab�ulori�lx�
-4142{ҳǩ!%ϊ�����
pgstarttitle �]�vt`3 "���в��ҵ �ѧ���[��0��qv�9���osq64:�8�oy�oy�uv�נ��h�mïm�m�!q1write�log�a2>p*ֲq�����£���qka> o ��3��9 i�"�2 |toah��=e`aonenq��= pv�r ����һ���ǿ��a! ���z��op����`������ϊ��������?�totalmoxney�o*e��2 "�?�
���"�m��j�����is`ti���eh�sϊ0ѧ1ϟ�5/inie '�����!�ǰ��q���c0??9dczt���ա������a���}�-�j�
1�,ј�
w�=�9��(1, j).��q���������֥�_iis� = $�ж�forѭ�����
��ӂ��rlfunc���xqs�y ��aw���5�䗞p^1w
<> p&^ '�������>�!�/���= 2s �t(�0s-"��) '��ʽ��1��4-3:�2��5
$rowtype = split(tvalue,0 ":"������ȡ������ʶ�����в�֣����кź ���'�if ubound(bs�) <> 0 then '�����ҫ���ּ������ϵ�����у�飀���ĭ�ρ<�͵���ѐ��զ���
��'h��for m��l�a 1 to�l' 1����ϊ�����е�һ���Ԫ��ϊ�a�@�valentity�rt(m)�r�o��rows"%(0��e����������о�3;�{@��i�)�e,���'@>��ga1�b;���b�ľ����ֵ���rnn��r�)�q�'���gx����?�� callfunctionx�qstart `(n`1, i, j�s��ida(tec�t`����#ֵ�����ö�ӧ����#�u��worksheets(1).@cells()_
_
#'������!ȥ��̀����ַ�?(remove�special@>�charact�er(��_$�f g,`�lem,sg��5skti4tl@�j��aӹ��б�ͷ��p����9)error"�� " & i`"�
�aja�е�������f& "���څ@��^ , ; '��"" ? �ո� �س��������뷨ϊȫ��a�������飡"�_
ahase�
`tbr�1'��̂s����x�д������ϣ��ot8.inp ior.colv= 65535 '���ӻ��ɫ������write�log u��'ilo= ?p�_en�d if
/��next�5 _� �m�����s�s= fals�e2�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������������������
jworksheets(1).cells(i, j).interior.color = 65535 '���ӻ�ɫ����m�writelog err ormsgm0'isvalidat�ecountk� 1�:end if
3)nexto�&�else if ub�dd(rowtype) <> 0 then '��ʽ��3:2��5��2#t�row^�(0) '�������ʶ������������{@ci�( aa�(���е���������ڵ�ǰ�;�jval�split�1�s, ";"n%�ľ���֮��)yf�}n��l�a�) to�c�'��� ����б����� callfunctionxqstart `(n)�, 1, a���y '����$4������ö�ӏ��ķ���� �ue %v�__#'������!ȥ��������ַ�?(removes0pecibp�chparac`�(�)��#�m �m���(title��5sltaa� '��ȡ���б�ͷ�����>���)%�"�@�" & i`"t��aja�@fʀ����a&& "����e ����^ , ; '!["" ? �ո� �س��������뷨ϊ�����u���뀼�飡"_
_hase��{p
tr�1'՟�����_8������������_��� ���������ߍ������� 'ֻ��ĭ��������í�1��4�0�ppsp.szbs1���ez�b�1d���ħr����//�x�x��x�v�v�%�?bc�:�://� �r�r�kk= ��r���r �����r��r�r���r�r���r�sg�t�r�r�r�r_?�
�r�r2�ʱ������д����� ϣ
jworksheets(1).cells(i, j).interior.color = 65535 '���ӻ�ɫ����m�writelog er@rormsgm0'isvalida�tecountk� 1�:end if
)ne|xt��!��
׆l ockedofa�lse_*�3 j� 'ִ�� ����һ������у�� �ĵ�Ԫ��������ϊ�����ϲ�ԁ����ŀif atlea�onenull�~�<> 0 ah��=��then�ea��@i"��" �& i�"���,�����&e��a��?���?����д��ȷ����0��"��has�
= true� '����)_�e��sv�n 5
�e�mitotalmoneysu&m1� � 'ÿһ�к�ȼ��@4ֵ�i�c�o�> 1 �i$ '��ё������ؼ�����ȫ��������������ɾ��_�isawrowarr(�num�) !i r ��e���) `'����<��-�%��� �i
f��p�cu#a� - -.to^ �� fsc�msg"name).s(x).delet�p�ѹ��_9/�spo�� =��oohe��inu��3� ��)�?;� rq� 0 i/@!1 '�%��ч���
� rowd�ata,/�4q)���@?t_c��d�"�a,1,)'�#or�os- q� ������q�u�rtk�!zw ; ��box �"�˴�an��r���rw�j& x����ݣ�����������֤��������br��ܻ�@ϊ�ռ�;���6�ox���3_y������@�鿴���q���a�����8������ta�b3�index�1^6���m�ms)c����%��0s q0���#checkd�xqnew p��a�not (0nf �ظ�!����,�sû�<��d���,�������ƿ�@����ҫ�f������ͨ���!�� ���`-4142��setq�0uuexq 2,!8, "success"� '��ȡ!��ɹ���־�����������ʼ�����0f
���g�qgna����,u,,�?:�,�,,�;�protect password�:="1qaz� q2).�3
|�rd:="1qaz"
end �sub
'--���ظ�����ijһ�� -~
x checkthesame()
dim mydic as obje�ct,key�variant($, vardata'rna = activesheet.range("a65@535").��(xlup).row '������1 set idnumh= @create�j("scripting.�tion�ary"b i@o8", " o" & r).value '��ȡѧ����������� �f�݃gfor each car1k in�o4'�ԁ�������֤���� ���б���c iff@<> "" �an�nog?.ex�ists()b@ '�����`�����ga.adde, nu�ll 'add������һ�� ϊkey���c�a�if�ihnex cm�y��=�.�s�with wohrksa�s�p�2#gm�g:g@�clearconte\nt��4�1@r@esize(b�.@count)a�p�plica��.ffun�on.t�ranspos�
�'d��4�'*���= �ah@���
����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ru����~| u�"�9aq�9 a����t�ii��� a����pqq���)a�� �q������0`\���"1iqqay������ y y a� � q!�!x�")"y"h@)����$
���
0l���i����������(��]�@� 't�'��'���:��n����
6������t�;:��%p�(��%��$
���
dp���)��p�;:��%p�(��%��$
���
dp��� )��p�;:��%p�(��%��$
���
dp��� )��p�;:��%p�(��%��$
���
dp��� )��p�;p�:��
%��$
���
dp�w������)��p�5��
�{
�z"�� ��$
��
���(����`�(����p�;p�:��
%��$
���
dp�w������)��p�5��]��������%:��%p�(��%��$
���
dp������>���a��uz)��p�6������u��������%��'��%:��%$
����������p�p�a����"�z)��p�6����1:��nt�t�(��(��(��0�
6
������t�0�(���� �u����l:��%p�(��%��$
���
dp������a������q�)��p�5��:�� %l��c!(��%l��c"
�q�c:��%p�(��%��$
���
dp�����������q��)��p���������%l���c#:��$%l���c%
�q��w�
��
&'��'0�:��'nt�t��:��(�����:��)���^��6������t�0���t�;:��%p�(��%��$
���
dp���)��p�=(����%p�(��%��$
���
dp�w��*�c )��p�5��u��� 't�'��'���:��,n����
6������t��z;:��%p�(��%��$
���
dp���)��p�;:��%p�(��%��$
���
dp���)��p��zrp�(��%��$
���
dp�w��!:��-���`������
./��)��p�6������u��w(�� ��ud���h��w(����/(����0(����1 2��3:��2��4(������uz5�z6(����ud���ht�m(��%����@p�(��%��$
���
dp������a��7��h�)��p�5���z8h�:��2]�@�3������:��9n����h�������
:����x�/��5��3������:��;n����h�������
:����d�/��5��x��5i�����5,x��5i�l���i��t�x��5i����i���h4�
it���@x�������������:��;n������������
:����h�/��6����(��%h�������(�
��(��3� h(��%h�������������:��<n������������
:����8�/��6����&8��5i�l�i��$�8��5i����i���h�� <$���@8������q��������(��l����
=-�6������e����@����@p�(��%��$
���
dp���������)��p�����
>������
���� d(��%����@p�(��%��$
���
dp���������)��p�k:��?������:��@��������:��a��t�����0�:��b����`��36������t�0�����z[������%����@����@p�(��%��$
���
dp������=��c�cd)��p�6����3��
.5��$��~�pt��~4�wu8��0h(��%x�������������:��<n������������
:����8�/��6����&8��5i�l�i��$�8��5i����i���h��0<$���@8������q��������(��l����
=-�6������e����@����@p�(��%��$
���
dp���������)��p�����
>������
���#d(��%����@p�(��%��$
���
dp���������)��p�k:��?������:��@��������:��a��t�����0�:��b����`��36������t�0�����z[������%����@����@p�(��%��$
���
dp������=��c�cd)��p�6����3��
.5��$��~���
�d��5i������(��%d�������(�
��(��3�h(��%d�������������:��<n������������
:����8�/��6����&8��5i�l�i��$�8��5i����i���h���<$���@8������q��������(��l����
=-�6������e����@����@p�(��%��$
���
dp���������)��p�����
>������
���zd(��%����@p�(��%��$
���
dp���������)��p�k:��?������:��@��������:��a��t�����0�:��b����`��36������t�0�����z[������%����@����@p�(��%��$
���
dp������=��c�cd)��p�6����3��
.5��$��~����h(��%x�������������:��<n������������
:����8�/��6����&8��5i�l�i��$�8��5i����i���hp��<$���@8������q��������(��l����
=-�6������e����@����@p�(��%��$
���
dp���������)��p�����
>������
����d(��%����@p�(��%��$
���
dp���������)��p�k:��?������:��@��������:��a��t�����0�:��b����`��36������t�0�����z[������%����@����@p�(��%��$
���
dp������=��c�cd)��p�6����3��
.5��$��~p��m�f��%����@����@p�(��%��$
���
dp������ce)��p�5�����~t�l"0(��]�<��0/�/���'����7:��?������:��f���4���:��g��t�`��36������t���z3��
.5����(�����������`�1������`���(��]�tj��u ��"�� �(�������� �&v
�i��������p�v
���i���h0�mmv
�i��������%p�:��
%��$
���
dp�����h����i)��p�5��p��~0��v
�i���������"{
u5z���~��(�� � �(�������h� ��"��pz� �(��]�3�z�m��@(����
j6����,kz�d�� �����������(��t�
j6����t� ��~�� �(��]�tv7'0�'t�'���:��k �����:��l���
6
������t�0�u� 't�'��'���:��mn����
6������t�=(��%p�(��%��$
���
dp�w��*�c )��p�5��1p�:��
%��$
���
dp���n)��p���zo(����
p6���� uo�� 't�'��'���:��qn����
6������t�=(����%p�(��%��$
���
dp�w��*�c )��p�5��1:��rnt�t�(��(��(��0�
6
������t�0�,m��@(��(��(��t�
s6������t�� 't�'��'���:��tn����
6������t�=(��%p�(��%��$
���
dp�w��*�c )��p�5��1p�:��
%��$
���
dp���n)��p�;:��%p�(��%��$
���
dp���)��p�;:��%p�(��%��$
���
dp���)��p�;:��%p�(��%��$
���
dp���)��p�|@���*���������t�d�4�������������p�@�0�������p�����t�x�$�p�d� �����`�h���`�h�8�(� ����4
�����p�������t�0���0�� f�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������l�������i������������������������������x��me�����������������������������������������������������������������������������������������������������������������������������������������������(6
���������l����l����������f�`������������
@�����i�h����������`�i�j���������������`�l����������r�`������������
������i�t���������������\x`������������
8���� �i�t���������������f`������������
������i�h������������i�h������������i�j������������i�j���������������t�`������������
x����#�i�h����������x�i�h������������i�j���������������~�`������������
�����.�i�h�����������i������������8�i�h����������x�i�j����������x�i�������������������`������������
�����}}c�i��������������i�h�����������i�h����������8�i�j����������x�i�����������������`������������@������������`�����������x`������������
������i����������� �i�����������������`��������� ���`������������
�������i���������������� (p `������������
�����
��i�h�����������i�*����������8�i�,���������������`�.�������� ��>0
`������������
�����
��i�h������������i�h������������i�@�����������i�������������������`������������
p������i��������������i�f������������i�h���������������@�l����������th`������������
(�����i�h����������h�i�p���������������z�
`������������
�����
!�i�h������������i�p���������������\� `��������x
�k( ����%�i�h��������h �i�h��������h �i�@��������� �i��( ����������h
`������������
� ����*�i�h����������
�i�h����������(
�i�@����������������p`������������
�
����.�i�������������
�i�h�����������
�i�h�����������
�i�@���������������@�l����������@�^����������@�l�����������8`������������
�����g�i�h������������i�h������������i�@���������������`�f����������`�b����������`�d����������h����`������������
x����
w�i�����������������@�����������������h
�p8������x���������0� �����h�p����������������x�����d������p
��������������%��������h ����� ����h �����
������������������������������������h�����`�������������������������������������������������������������
0@\����l����� �
������������>@���h��� �� @��xx����� @���h����� @������d��� �� @���4����� @���$����� @����������� @����������� �������������������������8����������������������������(
������������������������������8fa$*\rffff*0<628a8ca6*\r1*#3cb*\r1*#30d*\r1*#268���a� ����� �b��� ���� ��������� ���� ����� �b��������� ��b�h�
p���2������ ����� p�� `b�x� 8��$��8��"�@� phb��� 8��
��
�$0�
x�$`�
���� ����� x�b���48�(p�*��$����� 8�bh���0��!���x�`�h�p� �x� � � �� �
b�(
�0
� 4p
�$�
�"�
��
�"�
��
�.(�x�p�0������*��� �.0�`�x�.��
����0��
�
�68
�
p
��
�6�
�
�
��
�8�
�
0�@�6x�
����(��
����(�
0�@�2x�����&��
����4�
8�h�:`�
����<��
��<0�
p���:��
����� ������ ����� f� x�������>��&�
8� xh������� h��8�*p� ������j��&(�
p�`�p�x��� `����(� 0� hh�(x�� h�(�p� h��(p8� h��(��� �� &��
�������� n��h�x��� �� 8��(��� 8��(��� �� &��
�������� p��h���(���� ��8��$�� 8��$�0� � & �
@ �$p � x � 8� �(n� � 88!�(np!� �!� �!� &�!�
"�("�0"�p"� �x"��"�(�"� #�h8#��#��#��#��#��#��#��#�$�$�$�x$�&p$�
�$��$� �$��$��$��$� b%� h%��%��%��%��%���%�&x&�
�&� �&��&��&��&� ����� b�&�0'�h'�`'�ph'�&�'�
(�(�(�8(� f@(� �(��(��(��(� �(� 8)�(�h)� 8�)�(�(*� �*� &�*�
�*� � �0 � f8 �� � �����$� �&� � |,� &�,�
�,� �,��,� ������,��,� b-�h-�x-��-� t�-� &.�
@.� �����p.�x.�x.� b�.� �.�/� /�0/��8/�&�/�
�/� �/�0�0�(0� ^00� �0��0��0��0�x�0�&@1�
h1� �����x1��1��1� ^�1� 2�(2�82�h2�vp2�&�2�
�2� �����3�3�(3� ����� ����� ^03� �3��3��3��3�t�3�&84�
`4� p4�x4��4��4� n�4� 5�85�p5�"`5���5�&6�
86� h6�p6�x6�x6� j�6� �6� 7�07�"@7��h7�&8�
@8�p8�x8�x8� ����� ����� p�8� �8�9�&(9�"p9�@x9�&�9�
�9��9� ������9� :� ����� :�0:� �����p:�&`:�(�:��:�&�:�(�:�;� �����;� �����;�8;� ����� ����� n@;� �;��;��;�"<��(<�&�<�
�<� ������<��<�=� p =�p=��=��=���=�&0>�
x>� h>�p>�x>��>� r�>��>�?�(?�x0?�&�?�
�?� �?��?��?��?� b�?�`@�$x@��@�@�@�&�@�
a� a�$(a�pa�xa�xa� `�a��a� �a�b�@b�&xb�
�b��b��b��b��b��b� `�b�hc� `c��c�@�c�&�c�
�c�d� d�(d�0d�pd� bxd��d� �d��d�@e�&@e�
he�xe� �e��e��e��e� x�e�(f�@f�`f�@hf�&�f�
�f��f��f�rg�xg�&`g�
�g��g� ������g� ������g��g��g� ����� ^�g�8h� ph�ph�@xh�&�h�
�h��h� �h�i� i�@i� ����� ����� ^hi��i��i��i�@�i�&j�
@j� �����pj�xj�xj� ����� ����� ^�j��j�"�j� k�r(k�&�k�
�k��k�"�k��k��k�l� zl�xl��l��l�@�l�&�l�
m� ����� m�(m�hm� ^pm��m�&�m� ������m�@�m�&8n�
`n�pn�&xn��n��n��n� |�n�po�$ho��o�(�o�@�o�&p�
(p� �����8p�"@p�hp�pp��p� |�p�q�"0q�xq�@`q�&�q�
�q��q� �q�r�r�(r� ����� �0r��r�(�r��r�s�s�0s�8s�hs�`s�hs��s��s��s��s�@�s�&t�
(t�8t� @t�`t�ht��t� ����� v�t�u� u�8u�pu�`u�xu��u��u��u�x�u�&(v�
pv�`v�hv��v� z�v�w�((w�pw�pw�xxw�&�w�
x�(x�0x�px� |xx��x�$�x�y�@ y�&`y�
�y��y�$�y��y��y��y� d�y�`z� xz�@�z�&�z�
[�[�2[�p[� ����� xx[��[�6�[�.(\�x\�h\�(p\�2�\�(�\�1�\�(�\�2�\�(�\�1�\��\��\�j]�`]�x]��]��]��]� f�]� ����b�^� ^�<^�p^� p^��^�$�^�$�^��^�_� ����� �_� \�_� ����b�`�,0`� 0``�@�`�"�`� ^�`� 6xa��a��a��a��a�0b�d8b��b��b��b��b��b��b� ��b� "hc� �c� .�cb��c�
�c�$�c�b d�hd�xd��d��d��d��d��d��d� ��db�xe�`e� �e��e� ��e� @f� xf� pf� �fb��f�"�f��f��f��f�g�g�g� g�88g�pg�2xg��g� �g��g��g�h�h�
h� h�f@h��h��h��h�
�h� *�h��h� ��h� �i� �ib��i��i�*�i� 4j�hj� �pj� �j� kb� k�*(k�xk� �`kb��k�<�k� jl�8l� �@lb��l� �l��l� �mb��m� �m� "�m� �m�8n�2pn��n� �n��n��n��n��n�
�n��n�"o�0@o� po�(�o��o��o�&�o��o�
�o�p� �pb��p��p�v�p� q� 8@q� xq�
�q�:�q�4�q�$ r�hr�"`r��r��r��r� ��rb�0s�8s�6@s�xs��s��s��s��s��s� ���������s��-----------------------------------------у��у����������д�����ϣ��ʾ�� ��ע��-----------------------------------------------------------��
��Ԫ������]�� h j n%p'l l���'fd��(�'fk��i����--------------------------------------------д��־ ��¼������ϣ����ʾ��һ��������ϣ����--------------------------------------------�� t z� x$v,p z�'zi��x��--------------------------------------------д��־ ��¼������ϣ���ú�ɫ������ʾ��������ϣ����--------------------------------------------�� t'^ t z� x$v,p�� ^ z� x$v%p%`!b(d z�'zi��p�i--------------------------------------------������ע�������ʼу�飩-------------------------------------�errorinfo��ע�����x�1worksheets(sheetindex).unprotect password:="1qaz" j h j h$>%pb@l��� h j h$>%p!n(p�w���ӻ�ɫ����� h j h$>%p!r(@i���i--------------------------------------------ɾ����ע�������ʼу�飩-------------------------------------��1worksheets(sheetindex).unprotect password:="1qaz" h j h$>%pb@v h x j z�� h j h$>%p!n(dd��` | h j h$>%p!n(dk��0i��(�r---------------------------------------------�����ʼу�� �ƿ����ӻ�ɾ����ע���õķ���----------------------------�� ������у��ʧ�� h j h$>%p!r���d�ж���עϊ�� h h j �a@f�v������ע����d�"����ϊ�գ���ȥ����ǰ��ע���������� h h ja@t�n�����ע���� h h j �a@fk����1 msgbox "��" & rowindex & "�������" & errormsgd�
:���у��ɹ����ж��ƿ�����ע���������у��ʧ��ʱ����עȥ�� h h ja@t ���,#�������ȥ���ո���,����������ʾ��� h��у��� j��у���������ַ��"$. ��"$.�"�а����˿ո�ϵͳ���զ�ϊ�������a@rd��`k��xk��pi��h��----------------------------------------------------------------------------------------------------------------------------------�y--------------------------------------------���ݱ�ʶ�������ö�ӧ�ķ���(�����ʼу��)-------------------------------------��----------------------------------------------------------------------------------------------------------------------------------��ѵ�����ϣд�������б��� h j h$>%p'� � j h$>%p'��j��ȡ���б�ͷ������ �������ϊ�ϲ��еı�ͷ �� j h$>%p'� h �e � j� h$>%p'�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�-������у�� checkxl�1,8,0'�� checkpmmc'� ��checkxne� ���ѧ��у���1'��checkxn'� �� checkrxfse�-�����ѧ��ʽ checktysf�1'�� checkrxfs'� �� checktysfe�-����������ݲ���ϊ�� checktysf�1'�� checktysf'� ��checksfzzjye�/����������ݲ���ϊ�� checktysf�1'��checksfzzjy'� ��checkyesnoxse�0����������ݲ���ϊ�� checktysf�1'��checkyesnoxs'� �� checktbpce�-����������ݲ���ϊ�� checktysf�1'�� checktbpc'�k��� ���_=================================����1 ִ�еķǿ�у��==========================================��ѵ�����ϣд�������б�� checknullkt h h j$�'� ����� h��е������ ������ϊ�գ�����'��'��)����у��ʱ������д�����ϣ �a@r�rmsgbox "��" & rgold.row & "�е������" & chr(10) & titlemsg & "����ϊ�գ�����"k��x h � h j �a@~�'��a=================================����2 ִ��ѧ������у��==========================================� checknamekt h h ja@��@����ȥ���ո�ķ��� h j h$>%p!�'� �$�'� ����� h��е������ ��;��д����ȷ������ϊ���֣����ȴ���1�����ܳ���20���ַ�������'��'��%����у��ʱ������д�����ϣ �a@r ��'�k���
h � h j �a@~�'��z================================= ִ�еij���у��==========================================�checklenkt � �$�'� �� ��,$�'��$�� �����` �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��.��д����ȷ���������ϊ�ա�����д���ȱ���ϊ�$��
λ������'��$�� ���e�d �������ϊ�dz������ϊ���ȷ�χ��� h��е������ ��4��д����ȷ���������ϊ�ա�����д���ȱ�����ڵ����$��λ���ҳ������$��
λ������'��$�� ���e�d �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��&��д����ȷ�������ϊ�գ��ҳ��ȱ���ϊ�$��
λ������'��$�� ���e�d �������ϊ�dz������ϊ���ȷ�χ��� h��е������ ��,��д����ȷ�������ϊ�գ��ҳ��ȱ�����ڵ����$��λ���ҳ������$��
λ������'�k��p �'��0����у��ʱ������д�����ϣ �a@rk��0 h � h j �a@~�'��h================================= ִ�еij���у�飨number���ͣ�==========================================�checknumkt � �$�'� �� ��,$�'��$����@ �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��g��д����ȷ���������ϊ�գ�����д�������ϊ���֣�����0������λ���ȳ������$��λ����с��λ�������$��
λ������'��$��e�d �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��?��д����ȷ�������ϊ�գ��ұ���ϊ���֣�����0������λ���ȳ������$��λ����с��λ�������$��
λ������'�k��p�'��0����у��ʱ������д�����ϣ �a@rk��0 h � h j �a@~�'��i================================= ִ������30%у�飨number���ͣ�==========================================� checkpmmckt � �$�'� h h�$�'��n��ȡ��д���� �� ��,$�'��$����@ �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��?��д����ȷ�������ϊ�գ��ұ���ϊ���֣�����0������λ���ȳ������$��λ����с��λ�������$��9λ���ҳɼ������α����ڳɼ�������������10%-30%֮�ڣ�����'��$��e�d �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��?��д����ȷ�������ϊ�գ��ұ���ϊ���֣�����0������λ���ȳ������$��λ����с��λ�������$��9λ���ҳɼ������α����ڳɼ�������������10%-30%֮�ڣ�����'�k����'��0����у��ʱ������д�����ϣ �a@r �$� ��333333�?$�
e ��,$�'��$����@ �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��?��д����ȷ���ɼ������α����ڳɼ�������������10%-30%֮�ڣ�����'��$��e�d �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��?��д����ȷ���ɼ������α����ڳɼ�������������10%-30%֮�ڣ�����'�k���'��'��0����у��ʱ������д�����ϣ �a@rk��� h � h j �a@~�'��}=================================15 checknumyn ִ�������ƿ�ϊ���ǡ������ж��ƿ����--==================================�
checkname1kt h h�$�'��k��ȡ��д���� h h�$�'� �$� ���������?$� �$� ��333333�?$���1,8,0'� � �$�'�d��p"�0,8,0'� � �$�'� ��� h� h$v,pk���!k���! ����� h��е������ ��)ֻ�����뺺��,���ַ��������ϊ20λ������'��'��(����у��ʱ������д�����ϣ �a@rd��p!�
checkyesno h h ja@�k��(! h � h j �a@~�'��[=================================ִ��ֵ��χ��у��==========================================��ѵ�����ϣд�������б��checkvalkt � �$�'� �� ��,$�'���� h��е������ ��$��д����ȷ���������ϊ���֣����ڵ����$��
���ҳ������$��������'��'��-����у��ʱ������д�����ϣ �a@r�k��` h � h j �a@~�'��\================================= ִ����ѧ��������у��у��==================================� checkpzjekt ��1,6,0$�'� ����� h��е������ ��b��д����ȷ�����������ұ���ϊ����������0���ҳ�����48000������'��'��)����у��ʱ������д�����ϣ �a@rk��� h � h j �a@~�'��_=================================ִ�е�ϊ����ֵ��у��==========================================��ѵ�����ϣд�������б��checkintkt � �$�'� �� ��,$�'��$����@ �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��8��д����ȷ���������ϊ�գ�����д�������ϊ���������ڵ����$�����ҳ��ȳ������$��
λ������'��$��e�d �������ϊ�dz������ϊ�̶����ȶ�� h��е������ ��0��д����ȷ�������ϊ�գ��ұ���ϊ���������ڵ����$�����ҳ��ȳ������$��
λ������'�k��0�'��0����у��ʱ������д�����ϣ �a@rk��� h � h j �a@~�'��`================================= ִ�е�����֤����у��==========================================�
checksfzjhkt � j$�'��k����֤��у�� ���7�������������֤у�������� h��е������ ��m��д����ȷ���������ϊѧ������֤�ţ��������һλ���ϊ��ĸx�ı����д������'��'��0����у��ʱ������д�����ϣ �a@r ��'�k��( h � h j �a@~�'��\================================= ִ��ѧ���ŵ�у��==========================================�checkxjhkt ��1, 1, 50$�'� ����� h��е������ ��e��д����ȷ�������ϊ�գ��ҳ��ȱ�����ڵ���1λ���ҳ�����50λ������'��'��0����у��ʱ������д�����ϣ �a@rk��� h � h j �a@~�'��[=================================ִ�����п���у��==========================================��ѵ�����ϣд�������б�� checkbankkt �$�'� ����� h��е������ ��$��д����ȷ���������ϊ���֣����ڵ����$��
���ҳ������$��������'��'��-����у��ʱ������д�����ϣ �a@r�k��� h � h j �a@~�'��w=================================ִ�����у��==========================================��ѵ�����ϣд�������б�� checkyearkt � �$�'� ����� h��е������ ��*��д����ȷ�������ʽ��2012��2002�ȣ�����'��'��-����у��ʱ������д�����ϣ �a@rk��� h � h j �a@~�'��w=================================ִ��ѧ��у��==========================================��ѵ�����ϣд�������б��checkxnkt �$�'� ����� h��е������ ��g��д����ȷ��ֻ����д��ǰѧ�������һѧ�꣬�����ʽ��2012-2013�ȣ�����'��'��-����у��ʱ������д�����ϣ �a@rk��� h � h j �a@~�'��w=================================ִ���·�у��==========================================��ѵ�����ϣд�������б��
checkmonthkt �$�'� ����� h��е������ ��&��д����ȷ�������ʽ��01��12�ȣ�����'��'��-����у��ʱ������д�����ϣ �a@r�k��� h � h j �a@~�'��g=================================����3 ִ�е�����у��(�dz���)==========================================��ѵ�����ϣд�������б�� checkdatekt� �$�'� ���2�����������у��ʧ����� h��е������ ����д����ȷ����д��ʽϊ�"$.�xxxxxxxx�"$.� ����20130221������'��'��-����у��ʱ������д�����ϣ �a@r�k��� h � h j �a@~�'��c=================================ִ�е�����у�飨�����==========================================��ѵ�����ϣд�������б��checkdatenecessarykt�& �$�'� ���2�����������у��ʧ����� h��е������ ����д����ȷ����д��ʽϊ�"$.�xxxxxxxx�"$.�= ����20131221������ֻ�����õ���֮ǰ��ʱ�䣨�������գ�������'��'��-����у��ʱ������д�����ϣ �a@rk���
h � h j �a@~�'��i=================================����ʱ���ƿ�һ�����ϣ������==========================================��ѵ�����ϣд�������б�� checktysjkt� h��$>%p!�$�'� ���2�����������у��ʧ����� h��е������ ����д����ȷ������'��'��-����у��ʱ������д�����ϣ �a@rd��]�x h��$>%p!�'�]���� z�yyyymmdd$�'� � �' �' ��*�����������у��ʧ���һ������ h��$>%p(�k��h �'�� �����������у��ʧ���һ������ h��$>%p(�k���
k���
h � h j �a@~�'��g=================================ִ�еij�������у�飨�����==========================================��ѵ�����ϣд�������б��
checkbirthdaykt�! �$�'� ���2�����������у��ʧ����� h��е������ ����д����ȷ����д��ʽϊ�"$.�
xxxx-xx-xx�"$.� ����2013-12-21������'��'��-����у��ʱ������д�����ϣ �a@rk�� h � h j �a@~�'��j=================================����10 у��绰����======================�
checkphonekt �$�'� ����� h��е������ ����д����ȷ����д��ʽϊ�"$.�����-�̶��绰 �� �ֻ������"$.� ������'��'��%����у��ʱ������д�����ϣ �a@r�k��� h � h j �a@~�'��l=================================checkoption у�鱸ע ======================�checkoptionkt ��b$�'� ����� h��е������ ��)��д����ȷ�����ȳ��ܳ���200���ַ�������'��'��%����у��ʱ������д�����ϣ �a@r�k��0 h � h j �a@~�'��\================================= ִ���϶����ѽ�������у��==================================�
checkdiffnamekt�
checkdiffname � �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd����
checkdiffname h h ja@�k��� h � h j �a@~�'��y================================= ִ���϶����ѧ����у��=================================�checkxlkt�checkxl ��1$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd��h�checkxl h h ja@�k��@ h � h j �a@~�'��y================================= ִ���϶��������ݵ�у��=================================� checktysfkt� checktysf � �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd���� checktysf h h ja@�k��� h � h j �a@~�'��\================================= ִ����ѧ��������у��у��==================================� checkrxfskt� checkrxfs � �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd���� checkrxfs h h ja@�k��x h � h j �a@~�'��r=========================== ִ���϶�ʵ�����у��==================================� checksfjekt ��1, 4, 0$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd��e �$��@���� h��е������ ��#��д����ȷ,����ֵֻ��ϊ8000������'��'��'��)����у��ʱ������д�����ϣ �a@rd��`dk��xdk��pd h � h j �a@~�'��x================================= ִ���϶�ӧ�����у��==================================� checkyfjekt� checkyfje � �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd��c� checkyfje h h ja@�k���b h � h j �a@~�'��x================================= ִ���ƿ�������ҵу��==================================�checksfzzjykt �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rk���a h � h j �a@~�'��x================================= ִ���ƿ�������ҵу��==================================�checkyesnoxskt�checkyesnoxs � �$�'� ����� h��е������ ��#��д����ȷ������ֻ������д��,����'��'��'����у��ʱ������д�����ϣ �a@rd��@@�checkyesnoxs h h ja@�k��@ h � h j �a@~�'��t================================= ִ�������у��==================================� checktbpckt �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rk���> h � h j �a@~�'��x================================= ִ������֤������у��==================================�checkidcardtypekt�checkidcardtype � �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd���=�checkidcardtype h h ja@�k��x= h � h j �a@~�'��v=================================14 checkgender ִ�������ƿ�ϊ���с���ů��у��--==================================�checkgenderkt�checkgender ��0$�'� ���'��-�ա��д���������у������֤�ŷ�� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd���;�checkgender h h ja@�k���; h � h j �a@~�'��u=================================14 checkyesno ִ�������ƿ�ϊ���ǡ�����у��--==================================�
checkyesnokt�
checkyesno ��1$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd�� :�
checkyesno h h ja@�k���9 h � h j �a@~�'��}=================================15 checknumyn ִ�������ƿ�ϊ���ǡ������ж��ƿ����--==================================�checksnumynkt h h�$�'��k��ȡ��д���� ������1,8,0'� � �$�'�d���8�0,8,0'� � �$�'� ��� h� h$v,p� h�
h$v,pk��p8k��h8 ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd���7�
checkyesno h h ja@�k���7 h � h j �a@~�'��o================================= ִ�е����ֲ�����8000���飩==========================================checksjje� checksqjekt h h�
$�'��רҵ�շѽ��'� ��@��������8000'��@'�k��x6 ��1,6,0 �$�'� ����� h��е������ ��5��д����ȷ�����������ұ���ϊ����������0���ҳ����� ��������'��'��-����у��ʱ������д�����ϣ �a@rk���5 h � h j �a@~�'��s================================= ִ�е����ֲ�����һ�е�ֵ���飩==========================================checksjje� checksjjekt h h�$�'��k��ȡ��д���� ��1,6,0 �$�'� ����� h��е������ ��i��д����ȷ�����������ұ���ϊ����������0���ҳ�������������������'��'��-����у��ʱ������д�����ϣ �a@rk���3 h � h j �a@~�'��u=================================14 checkyesno ִ�������ƿ�ϊ���ǡ�����у��--==================================�
checksqyynamekt�
checksqyyname � �$�'� ����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rd��`2�
checksqyyname h h ja@�k��02 h � h j �a@~�'��]=================================checkterm ִ��ѧ��у��--==================================� checktermkt� checkterm � �$����� h��е������ ����д����ȷ������'��'��(����у��ʱ������д�����ϣ �a@rk���0 h� checkterm � �$� h j �a@~�'��r=================================checkatleastonennull ִ������һ�����ϊ�ǿ�--==================================�checkatleastonennullkt ��'��a"ִ�� ����һ���ǿ�у�� �ĵ�Ԫ����ŀ �$� ����=��������ϲ��� � �'� j� �ktf � �'� �ktf � �'� �ktf � �'� �ktf � �'�n��/d������ϲ��� ��'��f6ִ�� ����һ���ǿ�у�� �ĵ�Ԫ��������ϊ�����ϲ������ŀ � �� '�k���.�'�n��p.i��h.�_--------------------------------------------�����������ʽ-------------------------------------��]�@��vbscript.regexp$.�7regexϊ�����������ʽ� (��4����ȫ�ֿ����vba��\����ת�� (�.������ʽ� (
�5�����ƿ����ִ�сд�� � %'�3ִ������������.i���,��-----------------------------------------------------------�°� у���ظ���˵���ѿ�û�и�ʽ����------------------------------------------------------------�v-----------------------------------------------------------1����ѧ���������ڱ��ڲ����x�(sheetѧ������ �a65535 $v%%�!'�*cna = gettotalcolumncount(sheetindexvalue) x$v!pb@�1&ÿ��у���ظ�ʱʱ���ѵ�����ϣsheet���,�'z�������ϣ��¼��ʼ�����x==============================��ѧ���������ڱ��ڲ���==================================�0����ð������ÿ��Ԫ�غ�����֮ǰ�������н��бƚ�� � �� � $v%p'� "� �� �� " $v%p'$ $��.���ѧ������ͬ��˵�����ظ����ݶ�� "��е����ݺ͵� ��������ظ�������!!!!'� �a@r�*�ѵ�����ϣ����'&k��p)��h)��@)i��8)��-----------------------------------------------------------��һ���� ����ֵ��ȡ��ֵ������------------------------------------------------------------�����ֵ�����ҵ�ֵ���ڵ��л����keyword ���ҵĺؼ����'kbn ���������л��� ֵϊ ��row�����row���'(]�x�the find result object� *�2 6�4 :�8� a1:a65535 h$>%%0.. .�� ,�row� .!'(d��`' .!<'(k��h'k��@'i��8'��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------�p�1qaz�d h$>b@b � h @ h$>%p(�i��x&��------------------------------------------------------ ִ������ڹ���у��(����ϊ��)-------------------------------------------------------------�value ���������value1 cell�������у�鲻��ȷ����false�у����ȷ����true�0 h�0��˵��ϊ�dz����� f$j���'�z��%k���$k���$]���'n�ijһ������ļ�¼�� �a65535 r$v%%�!'p�b�������'� r ��row$('l�=��ȡ��������������� � l p� � r$v%p �� n�'nd��$y���#k���#� ��� "� l l n�� "� r$v%px fx ��l�жϲ��������ƿ��cell������'�y��h#k��`#� "���#��ʱcount��ŀϊ�ù������е�������ŀi��#��------------------------------------------------------ ִ��ɾ��ijһ�в�����excel�ܱ����ģ�-------------------------------------------------------------�sheetindex �����rownum �к����1qaz�d h$>b@b p h$>%vb@x�/
�ѹ���ɾ���- worksheets(sheetindex).protect password:=123i���!��------------------------------------------------------ ִ��ɾ��ijһ�в�����excelû�б�����-------------------------------------------------------------�sheetindex �����rownum �к��h p h$>%vb@x�/
�ѹ���ɾ��i��� ��------------------------------------------------------ ��ָ��cell����ֵ-------------------------------------------------------------���1qaz�d h$>b@b � h @ h$>%p(�i�����------------------------------------------------------ ��ȡָ����cellֵ-------------------------------------------------------------�� h @ h$>%p!�'�i����------------------------------------------------------ ���ݴ�����е���������ֵ��ǰ��ʱ�������ѿ�ͨ����у�飩-------------------------------------------------------------�h
]�� �8 h @ h$v%p!�x 'l�'n�ijһ������ļ�¼�� �a65535 r$v%%�!'p�f������ r ��row$('l�a��ȡ��������������� � l p� � r$v%p �� n�'nd��(y�� k��� ��� "� l l n�� "� r$v%p!�x 'f f lx ��1�жϲ��������ƿ��cell����� "� r$v%p!�'^ ^x h @ ` h$v%p(�y��@d��8� h @ ` h$v%p(�k��� "��i�����------------------------------------------------------ ȥ��cell�еŀո�-------------------------------------------------------------�p]�����Ԫ�����������]�� �3blength1��ʾcell��ԭ���ij��ȣ�length2��ʾִ��ȥ���ո����ַ��������'��ĭ��ϊû��ȥ���ո��2 worksheets(sheetindex).unprotect password:="1qaz" h @ h$>%p!�'f f'b b��gzj�*"�����Ԫ��ϊ�գ�����ȥ���ո���� f� �'d�%length2ϊ�ո��һ�γ��ֵ�λ�� d�������ַ��������ո� f� �$f'f fx h @ h$>%p(��'�k��hi��`��------------------------------------------------------ ������ȥ�������ַ�����-------------------------------------------------------------�8]���-[\uff00-\uff06][\uff09-\uffff]|[\s,;'<> "?^] ' �$��'hd��h�'hk��xi��p����h����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��&�ue15llqxoo��.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(�d titlems*ghs�t,, �) '��ȡ���б�ͷ@�������if `"" then '������ϲ��е��n/j - �1l�(elsed���thead���g�=�!
;�c�end( iffd�ar�gs�!"0"��j� like "checklen*�m���������у��g�d �midǜ9�i~ed��#eh%o 1h&numl&@be�r�&�2 �&@�&����&ֵ��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��`?:�] � � kyfjeic ���_�e��q�coc�rpmmc���� �mxl���~ ,8,�y15� �"� �.@ay|xn� �ѧ���e����0��rxfs���ѧ���ʽdtys�5 �q q} � � c�� ���ۡb�����ϊ��s�
� �.@� �� �� sfzzjy� ��ݯ �a 1??� �o/e/rlxs�� � �obj ~�%�� �tbpz9oq��o�o1n�� ,��select 0case�
'=�k1 �´a̷ǿ�=?�ѵ�����ϣд�~��a�g�
� ��nxullxy�1�mm�ethodxq`z�require>d8�?�2�?� � n�ot�6��۫ r error��"���" &��"!�����#��& "%4�������/�0hase�`tra��'����q�ȱ��a���%�
fwritelo\g e��'
box 5
gold.rowo
& c�hr(10)��
^� "����ϊ�գ����@��"
e nd if\begincheck_comment sheetin@dex, c2methodxq, row0olumnerrormsg^isfor = true
'=����2 ִ�����������8���6@case "aname��remove�spacexq
|�t '���������ո� ķ����y valuezwork��s(�).c ells(�/).�)
�-�stuk(�)
if not�p then�
�eq�"��" &�{�"�������������title�|���д����ȷ������ϊ���������ȴ� ��1��������20��������#hasea�#� '�����ʱ�������д�����ϣ�3wri�telog v� isvalid@atecou��=�n 1�?�1��&�kԃi��!1_i m �hilen0ic) �m=�@�t, functionar�gspv�w%�)ar��split�(�, ","�g�
�� (0)@r0� a�ubfd
��1�l '!u����ϊ������a����ϊ�̶�a2�jo��s�s��a���ԡš����!w����a#wa{ m1)�|λ��c���else�'n
�'2�'���χ?�'��'�'�'a����b�v(��ҳ��a�1-2?-?-sp(s*�1*�7*��**�����n1$_d_dpd�r*x���)ed��)��ύ
�)_�=rr�=�)��=�)__�w<�w_�wq=)v (��)dz)<r���~�~�~�o�
�� �d������� ������/�yx�}��number�������s��|um�}�
����1��}�}g�ȿ�r_/]x���u�x�}�}]�j��}q��{�{�%�>�>>>���{p��{�{��q��>0�������λ�h�f�ї�s�?с����/@��oviv//�l!\�////���g��0�~�0�_�j��u�� �k�� haserror = true '��������ʱ������д����ϣ
�8writelo�g e�msgd@end ifbegincheck_comment sheeti�ndex, cmethodxq , rowolumn�isf!�}
'= ��������30%����number���ͣ�|case "�ipmmc"��{�قa1(value, functionargs)�#resultgetcellvacoun0txq( zgv3) '��ȡ��@д����i f not�h t8hen�e��/ar�a�split(��, ","�6�@!�l(0)@<1�" '������ϊ�dz������ϊ��������ȟ ���"��" &f��"�е�ʀ������title@��ar����ȷ���!����ϊ�գ��ұ���ϊ���֣�����0��@����λ&�`������m81�)λ�с��
2e��ҳ�0����[���������� �10%-@^֮�ڣ������t�"aels�e�0�0ގa
�0�0�0��0s�v(�0ta�0����0a u]��_�_�f_�f�d���) > �d�* 0�.`���
�a`r���?w�������w�w����xo=�v@a��z<^?y[a�
�"1,8,0�c�2�stu�e�a>1��i�5�a2�"0�c@��2vk�j���s��s��).a��s(��5��"���;� ���
��?��o�_ywy�@����뺺��,���ַ�!����ϊ2�0�������q�q�q?\qq %yse�tdmbcod�ڀyesno",*q�7c7p_*qo��w�w�w�wh�ormsg
isfor = true
'=ִ��ֵ��χ��у��`@]�ѵ�����ϣ�����б��case "checkval"�methodxq�)(value, functionargs)=��if no�t �&then��.ar�split(�, ",�"=�#err�`"��" & r�owindex"�е���� ���
title�
��������ȷ���������ϊ���֣����ڵ��#�'�t(0)a���ҳ�������1����8���^a.�hase�1�0a� '������ʱ�������ѕ{u writelo,g �e�'�end if�beginc�_comment she�et�^,��,�d�olumnd _)k��� ���ѧ���������r��e;h�pzje�o�]=�numtosq�g"1,6�,0�wfd�e%]9]��bxc^����c^0�z480h00�x �w�w �w@ vrqck�q��_�kk!p��ϊy ֵ��a �tintw�ru ���_v����x_�� �m��= 0 1a� '����ϊ�dz������ϊ���������7�mn�esg�e����ϊ���\��qg����7�f�gspq(�d�:�g��yq2gλ/;�aelse��m=� 1������z�z��������_{�u��
i���ro~t�_*-�~k4�� ��s�|�s�|ϱz_t{o��|������֤����o| �rsfz|jh�r�
�i�ti�sid`ber�t�c��) '�������c82m��������������?7?7?7?7aձѧ��5
�u׀��һλqwϊ��ĸx���a9��д�h
���1�1�1��1�1 �is@�idat�ecou��= � 1y6;���88888848ѧ���>�o����7xjh�7v
ϊ��len��50� 1, 5o���0m����2�2�����������" & ti@tlemsgp"��д����ȷ����������ϊ�����ҳ���������ڀ����1λ,������50�����"
haserror = true '����у��ʱ�������������ϣlwriteloxg er�2�e nd if�begincheck_comment sheetin@dex, c�methodxq, rowolu�mntisf��
'=ִ�����п���ł�@��[д����б��@case "�7bank�xj>�u�
(value)��tif not�n� then���qq�"��a�e[a���g�a�ϊ���֣�e��functionarg�sarr(0)a���1������-��'� u`__ck__vt�_^�za^����]��]"*�]year��]�]a�], �g�_��'�_f��_�ty���ʽ��2012��2002�|ȣ�wb$�w�� ��w��w� ww��wowѧ��gwwy�xn?w�'x�noz<ozxq�*�ߟ*fqozψňր�����ǰ��������һ���w,�-�,3o,� o,������ o,*j��/x�o,߇/x`�߇s�g�k,�u
�s�{,�=ay��oy�oy _�hymon�th�-�t=t��.�..,���߶�/ݶ#,01��1�ox�� � � �� �"[?��,�,,�,,or�xo'�����3 ! @�������x(��dz���)�?� � � � da�te" �p#o,�birthda>y�,v��,�, '!�ճ����ʧ��@�....&��..ϊ�ch�r(34��xl� ���\02210����z
��0�0�0��0�0[���0��0�0�0�0�0��0� g�=ִ�е�����у�������������*
'�ѵ������ �д���� ��
case "checkdatenecessary" '( 4.meth�odxq = now=(value)aif not8$then '��������~ʧ��$kerrormsge"��" & rowinde
x"����������
title�& "��д����ȷ������ʽϊ��chr(34) x ����20131221������ֻ�����õ���֮ǰ��ʱ�䣨����� �����@���"ihasea5�4tru�e '�������ʱ�����w\writelog ei�end if�beginc��_comment sheet5�x,kq,�^olumnd �isf|or:@�������[�ƿ�һ������c����tysj��work"*s(1)�.cells(ex`, 7).�i�i�߃��i&e`2�i �i]�w]]�� ]��pelse/m�7dim mm as� doublx��= �:���
xaa, b� ac9@lmat(��, "ymmdd"x��b� a -@!w �b < 1z0 ?�e/�;(1�8$c�"�~��8�����b>=�j�l� �>���ovo�/����^�^��z�^�^� �^ ���^�_ñ�8��^_����birt�hda��y���������(��3�����\�y�&\�`q|�-xx ����-�12-���`�
��`�?��o/
�`; ���?4��2�2�2/�r���2'�,����10 q!�����?���-phone/h��t��num�,4?,�@�1,o��a\x*����-�̶�� ��� �ֻ�o o*�$
b�)�)�)o)o)� �� _(c_(_(�_(_(_(�_(o%�o@option�(��ע /(`r?��(�(���c(, �66����o��(�(r���䳤�ȳ�೬��200���ַ��� �� haserror = true '��������ʱ������д����ϣ
�
writelo�g e�msgn'.end ifbegincheck_comment sheetindex, cmethod�xq, row`olumn�ilsf�>'= ִ���϶����ѽ������ɓ��=�o@case "adiffname"���
s�σmb(�, value, functi�onargs)�)@if not�� �then��"�q@ �"��" &\�"�е���� ���title����������ȷ�������t:�?�@�else?������ _^f^���ѧ�����^�ak �]�xl?]xq/]�f\h"1"_[k��_[o�r�u= _[ _[a-�p_[}��
_["_[j[�b i��z���z?�?��3sj�zq��z��������ݟz��z�tysf�z�z"���-@執�"���[s�g�[�[�._�_�*� .� .y�[�t?.���o&a?.���[_�_���_�o�c?.[^.#.�ѧ�����e��[~_.���rxfs_.b
o�p��td��_./� _.�@�\�r_.el�,/��/�/�
�_._._.��_._. _.y^.t_.�_.y�_.g_._._.�_.�vo6�_.ω�*\ʵ������-���-�-sfje�-�-�-num(�"1, 4,� 0/���,�,�w��,�,߶[[��,�,��,*[���,z ��#) <> 8�000?:��o�?&��b�,����ֵֻ��ϊ9a��_�k��fa�l��h���]ococ5��t0�� end ifd
� \fbegincheck_comment sheeti�ndex, cmethodxq , rowolumnerrormsg~isfor = truhe
#'= ִ���϶�ӧ�����pу��=@c ase "ayf�je"���
qs�dmb(�, value, functionargs)�'if not�� thenc���>"��" &��"�е��������title@[���д����ȷ������t9�haseaj��b '����vʱ������д�� ���ϣ�*wr�itelog }8els{a�se�t@xcod�g,���қ�%?�?�u(w���ƿ�������ҵ_aekha@sfzzjy�axnq@�a#(b`�^k�ņ�^����^ �^tm��^�^ �^��<�s߯�߯߯¯�$��tb�t���i�esno�xst�ql=����d��� ߵm&����������ֻԉ���a���,ݷ?�,�[�[�,�� ��[y�[f���[�:e�1�߉߉� ߉i�3��j� ˉ��.� �.���|���x��{�.t�bpc�.� �.@����x�c�,p\߇�|��x߇&�x߇��� �� � �,, &q��&q3�&�&�&��?�#�&&�#r&����֤����|�Ϳ&-��&4�idcardtyp�e'
''�u��u���c?�s**t�w5f**_���*�**�**!�v���v*�v�)_0"��6_0_0_0_0��&_03o,14��)ge
�\r�������1�ϊ���с����ů��2�--?2423�1=p ,�·��1"0>"߲��/�/�c� haserroridnum = true '�ա��д���������у�������֤��
� "e�msg�"��" & row index"�е������title-& "��������ȷ������"�f�������ʱ�����������ϣdwritelog z�else�setdmbcode "checkge��r",@ sheet�,�, column7nd if��
beginc�2_comment�2�?methodxq:,�aisflor\!'=14���yesnoִ�������ƿ�ϊ���ǡ����h�o--�=�?casew����?7�0�g(f�, value, "81")�@.�if not �th�en��?�?�?ģ���^�^� �^��e�^�`k�^�^��^
�^�15���yn�!�^�ж�aa�����_=�_sb
5�@result_g�etcellv]countxq(�28) '���>���!v4\ b�"�h�" �aa1`"�1,8,0ue'��ke)(�sa1�s ):sa2�0�ck��2� �!��{�) sa�s�0). !4s(��, 9)&���, 10� �6�4����q�� �f�
��������q�������ο������b�'y���q�?ji���7q�����e*ob����q�{ qp��ֲ�����800�0���飩���5sjj�����sqje�2�psp13�>���i� רҵ�շ�ѽ��o��1�(�>= q)r�a�����������1_"�1_"�b�j=s��d�to�v�z6�zd�r�?xq�j�������¬�����s@ŭ�ұ���ϊ���h���1&0�@��������i?�� �c�c�c� � ?d?dq�==�=��=���='�8�l=��һ�p��ֵ�=��=� �=�p?�0r�0/�/�au�p~4?��k_2�_20���c_2o2o2��o2o2o2o2i2v�����ϊ����������0���ҳ���������������������"
haserror = true '����у��ʱ������д������ϣ�writelogd eomsg/e nd ifbegincheck_comment sheetin@dex, cmethodxq, rowolu�mn@isf�w�
'=14�a� 0"[ '�� ���ϲ����5qtot�alb@z� �a��select }�:c�uoi��b@aojiaobc=r:isu~m�?
_� h�uoshi� ��h� � �� �zhusu� ��g� �� �� �others� �h� � � ��oc*?%��| '�2첻3 �=pg�>/6�>�>�>�¡ϊ��@k�e��� ��h " �jb�`���xu �f�� �-�����������ʽo-
�
� reg��(��}��dimaex as obfj�i7set�=� create("vbscript.regexp")�'regexϊ����g�ex.gl�obal�f2�}'����ȫ� ֿ���''vba��\��� �ת��pa�ttern���b r��ʽ�i gnoreb8= |fa��������ִ�с�x�����3�t8est�ggb.�����������hin��$?$o ��°� 5�ظ���˵���ѿ�û��аt��裩�� �1����ѧ���������ڱ��ڲ�\�ؚ-b}p�s��x qnew(��2)� '�w(na�
sq�s:.ran��ge("a65535").end(xlup).r ow
'cna = gettotalcolumncount(sheetindexvalue
)hs2s(msgname).cells.clearcontents 'ÿ��у���ظ�ʱʱ���ѵ�����ς�_���,y�curmsg��1 '*��¼��ʼ���� ,'=��ѧ���������ڱ����c��f'����ð������ÿ��Ԫ�غ�����֮ǰ�������н�@�бƚ�for i�astarttitle 2 to rna��baby�id1���2���(i, ��dž":j:i - 1�2�j�aif(�1�the�n '����c����ͬ��@˵��������&�erro�@'"��" & j�"�е�����i��������!"wri@telog f'!�����has6s��@&trufe�
�� if�n8extgc�
function
'-7��һ���� ����ֵ��ȡ��ֵ�������
7�c
�����ҵ��
��� л����ke@yword ��@�ؼ����bnbca ֵϊ ��row@�����
b
get��o� �li!�(by��� �b, #$�
as strin(g) @i@�ge.r�-�
�7-�bdim c�object 'the find res`ult o�g7s�et= �kb&s�� �anb�1:ưf� (what:=flooki n:=xl�s,
!a@xlwhloli��lno�i�s h� algedqk != "�*"7��!c�áel�s�[r� m`���]�u ��ָ��c �����֎����oset�ٓ�1��xq;, �*!�r, cot, va��tbunprot�kpassw�e:="1qaz�(�t"�(o).bs�y�
� � @ִ����s����q|(�����ϊ��)�aq����1 ������@a'!����ȷ����fna�(r5t�wvccheckdmb(�$1, fla�g�r�3��"0�1 '�hϊ�dz �����4tr�im1)q�4q2< �0/a�4xi�t g/ss�b��idatt��(0 'ijһ���1���ʤ��num0��area�swi��q�'����v�(
f��
-m@(�,ch) �'�he�`�咕q��owp���������%/q�s �/nze�otc1i{ �i�1�������u�cj(��0�3>)�&�r
�
q
'0�ж�aq2�����#p����a5�)��^j�'����cq���ŀ���������;qoh�?obhɾ���.�в�����ex�ܱ�����ģ���g�1 �����14�к�hadelete�p2�`��e�[2__[_7ob�s_�.d�� @�����!��'߇�).p~f�123_�_�uû��q_o�__n² vlno �m��po�w?��7a0w[���_-��o����\��rowindex , col�va�lue)
worksheets(�).unprotect password:="1qaz"tcells(��).{ =
end function
'-2 ��ȡ�ָ����cxlֵ3f�
h (get�dv��co untxq��, p��{���e����ݴ�����е���������ֵ��ǰ��ʱ����ѿ�ͨ����у�����s�w setdmbcode(�, ��s dibm�[data��d�ee�|�^ ���[cstr(s�\h�~@0 'ijһ������ļ�¼���g��num� !areai�range("a65@535").@�(xlup).ro�w '���ќ#�:�get@or*c��(k,��, �"@ ") 'á(���������їfor i�`
@�to�*�g1a�if ��&i, 1)��8 th>e`wd���&� �1kelse !�exit �l��ifgnext 6i��j� ��-��
�1�d��6#j, 3��hc_�a�%k &p)�# '�жρ2�����ƿ�́a�����{� �c@ey2�2��� e:�r��ab�!k �� ��umnp�lus$%�0!!�8"�>!a$�ezx�"(ӥ
!̎gj��� ȥ���#9�ŀո�8(�remove�space�g>��$qas @�ing '��Ԫ��������(�length1 integer�, 328 't��ʾԭ���ij��ȣ���ִ��a�����ַx���aw�
p%fa�!�u���ϊ�û�&' �s�`�_�_� r�>?2_0s0.54len�cl1x0p@0�?�0�$� '����ϊ�գ����������ז�w�2�inal;��^ q^�a����һ�γ��ֵ�λ�ãg6 2 <> d �b�������3�$= repl�(��@"�??���).��xo� �"tru�c>q���6 �����������1����?=pecialcharactenr����eg�reg�"[\uf�f00-b6]�9�ff]|[\s,;'�""?8^] 3p`�ch�eck1(���#i��� `f�z��"628a8ca7����� �� �� �b��� ���� ��������� ���� � �(� �� �b�������� �h(�p����������� ��b�0�8�p�x�`�h� �p� � �d��� �(�0�8�@� hhb��������������� h�b�x�`�p�x������� ����� h�b��� �(�@�h�p�x�`� ����� ����� �hb������������������� ����� n�� h � ` b�� �,� �$� �� �
�h
�`
�h
�p
� �����x
�"�
��
� ������
��
��" �h�p�4`��� ��� h� hb������������������� ��� h
� �
b��
��
�6�
��
��
����� | � �� �b�����0���(�0�8�@�h� xp� �� �b��� �8�@�h�p�x�`������������� x�� 0� pb�h�p�x������������� |�� p� pb�����$�������������� |�� x� �b�����f��(�8�@�h�p�x� |`� �� b�� �(�@�p�x�`�h�p� �x� � (b�@�h�p�x�x��������������(�@�x�`�h�p�x����������������� ������������� �(�0�8�@�h�p�x�`� ����� �h� � b�8�@�p�x�`�h�x��������� ����� ��� .8b�h�
p�
�������������� ��� .hb������������������� ��b���������&����������d�4h��� ������������������ �b���������&��������� �(�(0�x�"`�����d��4�� � �( �0 �p �p �x �� �� �� � �� b� !�(!�@!�h!�x!�`!�h!� p!��!�"�!��!��!�<�!�"�"� "�("� �0"b��"� ����� �"�d#�p#�h#�p#� �����x#��#��#�&�#��#��#��#��#� �#�$�"$�@$�h$�p$�$x$�"�$��$��$��$� �$��$��$�%� %�(%�0%�>h%� �%�4�%� �%� �%��%��%�&� �&b��&� ����� �&�d�&�'�0'�8'� ����� �����@'�x'�`'�&p'��'��'��'��'� �'��'�"�'�(�(�,(�h(�p(� �����x(�$`(�"�(��(��(��(� �(��(�)� )�()�0)�8)�>p)� �)�4�)� �)� �)��)� �����*�*� �*b��*� ����� �*�d�*�( �@ �h � �����p �h �p �&� �� �� �� �� � � �� �"� �,� ,�$(,�"p,�x,��,��,� �,��,��,��,��,��,�-�>-� x-�4x-� �-� �-��-��-��-� ����� ��-� `.� �.b��.��.��.��.��.��.��.��.��.� ��.� �/� �/b��/��/��/��/��/��/� ��/� �0� �0b��0��0� �0��0�1�1�1�1� 1� �(1� �1� �1b��1�2�2� 2�02�82�@2�h2�p2� �x2� �2� 3b�(3�03�83�x3�h3�p3�x3��3��3� ��3� @4� `4b�x4� &�4� $�4� �4� �4�&5�*(5�"x5�$�5��5�(�5��5�6�06�p6�`6�h6� ������6� �����2�6��6�"�6�7�87� ����� �����@7�x7�p7�8�7��7��7� ��7b�h8�p8�x8��8��8���8�09�p9�`9�h9�p9�x9��9��9��9��9��9� ��9� 8:� x:b�p:�x:��:��:�&�:��:��:��:��:��:�l�:�h;�x;�`;�h;�p;�x;� ����� ����� ��;b� <�d(<�p<��<��<� ������<��<��<�&�<��<��<�=�=� =�0=�"8=�`=�h=�p=��=��=��=�$�=�"�=��=�>�>� >�8>�h>�h>�p>�x>��>�>�>� �>�4�>� 0?� 8?�@?� �����h?�p?� ����� ��������`?��-----------------------------------------1 ��������,���д�����ϣ��ʾ�� ������ϣsheet��---------------------------------------� ��ʱ����0�
��ϊ��ʱ����1��
��Ԫ������]�� h j h$>%p'l l���'�d���'�k���i�����-----------------------------------------2 у��ѧ������ ҫϊ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� �$j���'�z��k��]��%^([\u2e80-\ufe4fo��]|[a-za-z]){1,20}$'�3�ģ�����у����ƨ�� �$��'�d����'�k���i��x�|-----------------------------------------3 у��������ڸ�ʽϊ2012-05-09(����ϊ��)---------------------------------------�0 �$j���'�z���k���]����reg = "^((19)|(20))\d{2}-((((0?[13578])|(1[02]))-((0?[1-9])|([12][0-9])|(3[01])))|(((0?[469])|(11))-((0?[1-9])|([12][0-9])|(30)))|((0?2)-((0?[1-9])|([12][0-9]))))$"��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����b-----------------------------------------3 у��������ҵ---------------------------------------�� ������'�d��h�'�k��xi��p�b-----------------------------------------3 у��������ҵ---------------------------------------� ������'�d����'�k���i����b-----------------------------------------3 у��������ҵ---------------------------------------�h ����һ������'� ���ڶ�����e�'�d����'�k���i����|-----------------------------------------3 у��������ڸ�ʽϊ2012-05-09(����ϊ��)---------------------------------------��]�(��^((19)|(20))\d{2}-((((0[13578])|(1[02]))-((0[1-9])|([12][0-9])|(3[01])))|(((0[469])|(11))-((0[1-9])|([12][0-9])|(30)))|((02)-((0[1-9])|([12][0-9]))))$' �$��'�d����'�k���i����h-----------------------------------------4 у������֤����---------------------------------------����ϲ���true������ϲ���false�@]�79058421637905842���0��ȩ����]�10x98765432���0у���� �$j'�� ȥ���ո�]���� @ ����6)���������֤��ϊ��,������ϊͨ��у����� �'�z��k�� ���gzj ���$�$��gzj ��*[0-9x]�gzj� ���� � �$�'� ���g�
'�j � � �$� �'���0 ��
'� ��$� . ���$��g�'�ji�����----------------------------------------5 -у��ѧуѧу��ʶ�� 42λ�����һλϊ���ֻ�x-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�8]���^[1-9]\d{40}[\dx]$' �$��'�d����'�k���i����z----------------------------------------6 -у�黧������ -------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]��.^(\u519c\u6751)|(\u53bf\u9547)|(\u57ce\u5e02)$' �$��'�d��x�'�k��hi��`�u-----------------------------------------7 у����ѧʱ��-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�(]���'^(((19)|(20))\d{2})((0[0-9])|(1[0-2]))$' �$��'�d��h�'�k��8i��0�q-----------------------------------------7 у�����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ��� ����,���ϊ�dz�����'�k��8z��0k��(]� �^((19\d{2})|(2\d{3}))$' �$��'�d��`�'�k��pi��h�q-----------------------------------------7 у���·�-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�8]���^((0[0-9])|(1[0-2]))$' �$��'�d��h�'�k��8i��0�v-----------------------------------------9 у��ѧ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]��^\d{4}[0-7]\d{3}[0-3]\d{7}$' �$��'�d�� �'�k��i���v-----------------------------------------10 у��绰����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�(]���^\b((1(([38]\d)|(4[57])|(5[0-35-9]))\d{8})|(0((10)|(2[\d]))-[2-9]\d*)|(0[3-9]\d{2}-[2-9]\d*))\b' �$��'�d����'�k���i����v-----------------------------------------11 у�����п���-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]��^[1-9]\d{14,20}$' �$��'�d����'�k���i�����-----------------------------------------checkxn у��ѧ���磨2012-2013��-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�]�x]���^(20\d{2}-20\d{2})$' �$� ��-$�'��$��$���]���� z�yyyy$�'� z�m$�' �
�]�� ��'��$� � ��$� ���'�d��� �'�k��� d��� �'�k��p k��h ���$� ��]�� ��'.�$� .��'�d�� �'�k���d����'�k���k���d����'�k���d����'�k���i�����-----------------------------------------checkoption у�鱸ע�磨����с��value2��-------------------------------------------------------------����ȳ�с��200����false�����true� f���'�z���k��� f �
��'�d��x�'�k��hi��`��------------------------------------------------------�ƚθ�с(с�ڵ��ڷ���true)----------------------------------------------------------------�'value1����value2����false ����true�� fx'f �x'� f �
��'dd��p�'dk��@i��8��------------------------------------------------------�ƚθ�с(с�ڵ��ڷ���true)-dec---------------------------------------------------------------�'value1����value2����false ����true�
f$4'f �$4'� f �
��'�d�� �'�k��i���}------------------------------------------------------у�鳤��---------------------------------------------------------------��
��,$�'��'� ����$����/���ϊ�dz������'�k��z��k�� �����,-�±��0��ʼ����ֵϊָ��������ά���õ�����±� ��$�$4 ��$�$4��'�z��pk��hd�
˵����у��̶����� ��$�$4��'�z��k��k��i���}------------------------------------------------------у������---------------------------------------------------------------� ��,$�'��'� ����$����/���ϊ�dz������'�k��z��k��� �$���&�����ϊ����z��� ��.��e� �������с����z��� �$4�e�% ���с��0z��pk��h �����,-�±��0��ʼ����ֵϊָ��������ά���õ�����±� ��$�$4 ��$�$4��'�z���k���d�
˵����у��̶����� ��$�$4��'�z���k��xk��pi��h��------------------------------------------------------у����ֵ��χ---------------------------------------------------------------�� ��,$�'��'� ����'�z��� k��� �$���)�����ϊ����z��h �$4�e�) ���с��0z��8 k��0 �$4�$�$4 �$4�$�$4��'�z���k���i�����------------------------------------------------------у�����ֳ���(number,����ϊ����ҳ����ϊс������с��0)---------------------------------------------------------------���������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$' �$�z���k��� ��,$�'��'� ����$����/���ϊ�dz������'�k�� z��k�� �$���%�����ϊ����z��� �$4�e�% ���с��0�'�z���k����$�'�� ������������$�'��.с�������λ�� ��.�'��'��'� ����"˵��û��с���� �$4'� ��$�$4��'�z���k���d������с���� �� ��.��$�'��d��Ԫ�������ֵ�����λ � ��.��$�'� ��$�$4 ��$�$4��'�z��k��k��i�����------------------------------------------------------у�����ֳ���(number,�����ֵ0)---------------------------------------------------------------����������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$' �$�z���k��� ��,$�'��'� ����$����/���ϊ�dz������'�k��xz��pk��h �$���%�����ϊ����z�� �$4�e�% ���с��0�'�z��� �$4 �$4
e�/����������ֵ�'�z���k����$�'�� ������������$�'��.с�������λ�� ��.�'��'��'� ����"˵��û��с���� �$4'� ��$�$4��'�z���k���d������с���� �� ��.��$�'��d��Ԫ�������ֵ�����λ � ��.��$�'� ��$�$4 ��$�$4��'�z��k��k���i�����------------------------------------------------------у�����ֳ���(number,����ϊ��������с��0)---------------------------------------------------------------�(
��������������ֲ��ɼӷ����<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$' �$�z���k��� ��,$�'��'� ����$����/���ϊ�dz������'�k��hz��@k��8 �$���%�����ϊ����z�� �$4�e�% ���с��0z���k����$�'�� ������������$�'��.с�������λ�� ��.�'��'��'� ����"˵��û��с���� �$4'� ��$�$4��'�z��k��d������с���� �� ��.��$�'��d��Ԫ�������ֵ�����λ � ��.��$�'� ��$�$4 ��$�$4��'�z��@k��8k��0i��(��-----------------------------------------checkisint у�鲻с��0������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��
]��^0|[1-9]\d*$' �$��'�d�� �'�k��i����-----------------------------------------checkisnumber у��ϊnumber����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true� �'� �$���'�k��i����-----------------------------------------checkmoney у����0-9999������-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]���^(([1-9](\d{0,3})|0)|0)$' �$��'�d����'�k���i�����-----------------------------------------checkmoneytj у����0-9999с�����һλ-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��]�x�^([1-9]\d{0,7})$' �$��'�d����'�k���i�����-----------------------------------------checkpersonnum у������������һ����------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�p]���^(([1-9]\d{0,3}))$' �$��'�d����'�k��xi��p��-----------------------------------------checkidnumlink у������֤�����ա�ͳ����������û���д���ƿ�һ��------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true��� if colindex = jhridcolumn then� checkidnumlink = true� exit function� end if]���%�ա������֤�����ƿ��ӧ]���$�������ں�����֤�����ƿ��ӧ]������ڵ�һ�γ��ֵ��±�]���"�ա�,��Ԫ��֮�ڵ�����]���$���ݺž�ȡ������]��!��������,��Ԫ��֮�ڵ�����]��"���ݺž�ȡ������]�0�h�#�������]�`�x�%�����·�]����]�� ���$�'� ���$�'� ��
���(�����ڶ�λϊ��������ϊ������� h � p$v,pd������ڶ�λϊż������ϊů���ů h � p$v,pk���
���$�'� ���$�'� ���$�'� ��- ��- � h � p$v,p�'�i��0
��-----------------------------------------3 у��������ڸ�ʽϊ2012-05-09����������δ��ʱ��(����ϊ��)---------------------------------------��]�8]�p]�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]))))$' ��yyyymmdd$�'� � �
��'�z���k��� �$��'�d��h�'�k��xi��p��----------------------------------------- у��ѧ������ ҫϊ����-------------------------------------------------------------���ʽ����ȷ����false���ʽ��ȷ����true�� ��,$�'��'� ����$����/���ϊ�dz������'�k�� z��k��]��*^[\u2e80-\ufe4f��]{1,20}$|^[a-za-z]{1,20}$'�8�ģ�����у����ƨ�� �$��'�d����'�k���i�����------------------------------------------------------у�����ֳ���(number,�����ֵ0)---------------------------------------------------------------�0�<^(([1-9][0-9]*)|(([0]\.\d{1,2}|[1-9][0-9]*\.\d{1,2}))|0{1})$' �$�z��pk��h ��,$�'��'� ����$����/���ϊ�dz������'�k��z���k��� �$���%�����ϊ����z��� �$4� e�$ ���с��0�'�z��� �$j���
e�(�'�z��`k��x�$�'�� ������������$�'��.с�������λ�� ��.�'��'��'� ����"˵��û��с���� �$4'� ��$�$4��'�z���k���d������с���� �� ��.��$�'��d��Ԫ�������ֵ�����λ � ��.��$�'� ��$�$4 ��$�$4��'�z���k���k���i������������ �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 �necessark5~ "^(�`�\�ub�u�_�u�3�u;e�uqeg��/q�?2;2�o��24� a���֤������%���`ϲ���ѥ��'��i$�� isidnumberh(by�� �7�,^ �p�"×)�b oolea4�co`nst w' "7905842163���@'���ȩ�����c�10x987�65432c�a�ِ���'=�%)�ȥ����,��!-sinteger, i=�t��bv= �babyidc��< a!q�a�g '�������:,������ϊͨ���a
�|��f�lae��o� u� !�
len(<>h 18� �3not0 eric(mid�, 1� 7))����5like "*y��x]�_ �
for�= 1 t�o 17c�t��qw����v0 �1��1s�ps ;i! * tnext��s mod 1�� �� if right(idnumber, 1) = mid(c�, t 1h�then is��true
end funct�ion
'-$5�-у��ѧ��ʶ�� 42λ�����һ��ϊ���ֻ�x%]'���������ȷ�����fals�`6'�
� tjh checkschcode(value)
�[dimp reg��"^[1-9]\d{40}[\dx�]$"��c�%��,(, �& ��߃ �7�eu�;�fd��if%6�6� �d��������� ]�q]famtyp`](\u519c\�u6751)|�3bf\u954"7�7ce�e0�2)td�"]d� d]7 ���ѧ0ʱ��?c1crxdat1^(((�19�.20))a2})((0[0��b�12])�0�e)�bc}0�_0_)�$d0���8�?���1�yearï, f��argsxarr�@���#"�"�'czb���0� '���ϊ�dz������'���a�����aŏ�xit���/�*�a��"j19�i|(23}�g���, p��g� 8?�qd/�1d�za��2�r�@�< d�o>= a�sp�&= ��b�x.� checkxn = false
�0end� if
`ex��if b <=� 8 then
{years(1
)$a$ dim c as dpoubl�c�zap - 1
0 x �1>=#�c b ��tru:3� � ��
v��)�v�&�
���funct�io�x
'-%�op@�у�鱸ע�������с��value2����
�$���a200����fac�'�����t/y�1cc&(� 1,z �")ˊ�����"�"t����:= ӕ� �exit �s��g\��lend)� >���0��f�}�g?c�<�ƚθ�с(��7����6)��$@�7��ema �c ucompare�bbcint�e3�f�2�e�2�j�'j�9c� 8�7��o�5�x�,x5dec�r�%�5c
�n" �dec6 c��(26�6�� h�6�m� �6���w!r�i#�i, fbar�gs�iarrp@split(y,� ","8�g���/�3��xl0l(0)0"s '���ϊ�dz�������^$�a�k55�v�]��0
uboundz��
2�
�±��0��ʼ����ֵϊָ��������ά�����������qpps1�c=�/��1)) a��� ���2�2���<8���m]ap �'˵����.�̶�a.�����s��)�o����_��
��q?gv[�9�������?
@�o�@�
$�8@@�π��@�z�@`m �@�@�b�� ��r@��@
not isnupmeri�k�'3j��ϊ�>(����� instr�>i0."`�> �o����с�����oo� 6`wsr�� �0��~�p?p�!8?p?p?p�rkr@?p?p}wb??p?prr�(?p�|o$��^� end if
�else '˵��������̶�������if len(value) = cdec(functionargsarr(1)) thendrcheckintgtrue.exit f?k,�w��'-2����ֵ��lχ� �
�f ��val��, �)�r���spli�t��, ","��fazg�q�p�@""�jhsg�c�`a{�not is�numeric�a� '������ϊ�����(?e��}a�����<= 04�с��~0��d�e��>���0��a��#��o��ȟ^b'`1�^y-�^���(8ber,����ϊ� ���ҳcс@������".)?�
:�c��cc;'����������h���ɼ������reg!]^(([1-9�][0�*)|�0]\.\d{10,2}|h�))|0{1})$"o# @ay
c���x(��, �o˞04�c� ��8?{gs2{�"�?{߆��f���q0�� gϊ�dz������'��bt#���i�v�"aa-?��,����@
ls<�z��e max�����5!
/1) '�h���������@double2ao���λ�"�6int�gt�h�instr�4<".�b�
��hue��0pa,��������4g!a�����o �{j�{��{�z�{�pa�t�{ �{(d�{�� douvalue = 0
�if int@lengtht then '˵��û��с�����dtn�@cdec(v�)vfc(2) <=4functionargsar�r(1))�fzchecknum�to�true.�exit f�4@end if�
else '��"�&�mid��, 1, instr�".") - 1) '��Ԫ��������������λok�-� � � �k �^a�aawj>2bjallk�`l ��lae��'-2у��al����(�ber,� ���ϊap����с��0)ssf
e* n1ői�h�='��� �����*���ɼӷ���greg�f"^(([1-9][0�*)|�0]\.\d{1,2}|h�))|0{`1})$"� {nhot �
cara(��, ��pyt;e5gl��split(��, ","(!&&y�fa�w*b "�"t���(0)0�c�ϊ�dz������gave�is�e�a<#�d.�is`peri�h�ϊ!u��$�@
h���)�z �1�maxi"��(� ���g�������ak
�doub�le��2��c���λ����c����nt�e������8� ��c?���b*���o#�o�y`%�s��чu�s�s�s�se�x�s���cay�sg
�1�$��zh���so�c��s�'��m/��s0uqeh
�
s�j��
is?� �r$q3�?@��ʽ����ȷ����f��]'q5t����s���stbdim�j�?#�j`="^0o\d�*�m��_mue��h= '_�'fj��?ont� bϊ����Ϳ??�? ���b!pv�*�0o �)o�p�/��w�_��2%@� ��� _$--a� ѧ������ ҫ�ϊ������?�#'�1����stuname1#-, f��argfs4)arr`s`plit(y�,�5!r����c! �>"��1��(0
qu0� ������dz������5�um���i%�z���a>@(���"^[\u2e80-\ufe4f��]{1,20}$|^[a-pza-z"�h�ģ�����a!��ƨ�����-g/��
o1dz
?�n��}��
?�%$&o�����ֳ���(p�ber,������ֵ0ox��yumtosq_o,b,u�ԃq*!n[00]\.u�}|rֳf))|0{�1}y�not�ן����#�#7<.$�5�5���01[s�5��a �1�5�5�5�s�$w��5a�2cs�]r�p
isp��eric(value) then '�����ϊ����
exit f�unctionhelseif cdde�< 0�����0�checknumtos�q = fac!!ltrim�> 04800pegnd if&maxi�ntl�= f�argsarr(1) '��������������ȏdou(ble 2 с����λʊ�i�stdo�le
h%^*\g{00�020430-c
0046}#2.0#0#c:\windows\sysw ow64\e2.tlb#ole automation`�eoffdic�eof�i�c�e�����e2df8d04c-5bfa-10�1b-bde5�etaa�c4�2�e2�ef:\����`\wps �. 1�1.1.0.1^3\o>6\ksoapi.dll#microsoft� 16.0 ob�� lib0raryj�msforms>sf�rms3��d452ee1-e08"f_a-8-02608c4d0hbb4�row�rf�m20.dllh'�b @_�&/;"~1�j�pa�p0�0}#0�p#��ў50�� ��ab657946e-ec3e-4b4d-bef3-b86f81a4a4cbfd�users\48955\appdata\local\temp\vbe\�dt.exd�;�!��.e
���.`�m�e�������»thisworkbookgt�t@�i�kwnkb�okt�2��thb1����b,�!zl"b
��qshee�t1g�
s�e�_�t1 �u�2�!�
��
�hu�
6�
6�
6�
6j�
-�
��
���ӡԤ��g�sbps`��ȉ�e2�jo
�p
�!�(e)����ߺ���c
�]wq��qpec
ec
eo
do��(��k
@� ����g�;�x�f"a2fo$�o�&���!h���oe�eo
�vo
~��k
!l���gbq�;nz�^bm�2�oy9ou!�2showa�g�`6�\ow���3me2ro1@��]jn�o(��l5խ^5�^5�^5�^�zh��^ �printc�r�in��%�j\2o�d��0ʘ���������������������������������������������������ru���
��������$�
`������������n�������������������������ru���
i������a4� �����������������������������������������������������������������������������������������������������������������`������������������������������������������������������������ru��� ��������@n��������������������������������������������������������������ru��� 8
���)��qp�q������i/4 )1������������` ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������x��"l�
�"�
�
��
�"��
�"\�
'��'��'��:\�l���l�:<���,�����:������������:����������:|���l�\���l�:<���,�^�z6$l�l�,���������������l�\�l�,������u����
�����$�tl�l�,���������������l�\�l�,������4x����������������������������������������������������ru����~|
0��k��������������������������������������������������������<�jx����h��#����������<�����e\�n��11�> �fy�u�p*xn��t.`�������������xy�u�p*xn��t.`����e\�n��11�>��me�����������������������������������������������������������������������������������������������������������������������������������������������(sl����s����s�����6"������n0{00020820-0000-0000-c000-000000000046}��������������(����������%����h���������`��������������%��6�����������������������%����`��������������������������������������������h8@dd����������������������0�8fa$*\rffff*0a628a8caa�����4����������x������attribute vb_name = "she@et1"
�bast0{000�20820- c$0046}
|global!�spac�falsedcreatablpre declaid�tru
bexposetemplatederiv$�bustomizd2��ru��� ��������@,`8��������ii#n�������t��6d
��zl��#����������<���eld�zb�ኙ
[$�f���xa,5j�@d���)�������������x���xa,5j�@d���)��eld�zb�ኙ
[$��me�������������(���������������������������������������������������������������������������������������������������������������������������������sl����s����s�����6"�����������������
���������
����<,��<0��<4��<8��<<��<������n0{00020819-0000-0000-c000-000000000046}����`$����`����������k@����8 �i�&��������`�i�(����������������������������������%����������������������������%�� ����������������������%����`����@�������������������������������������������������������������������������������������������������������������������������������������������.0,*24@��l����� @��\����� @��0l����� @��x<����� @��h,����� @��`����� @�������� @��������� @��������� @��������� @��������� @��8������ @�������� @�� ������ @��p������ @���|����� @��hl����� @���\����� @���l����� @���<����� @���,����� @�������� @������� @��(������ @��@������ @������������ @������������ ���������������������������������������������@<8������������������������8fa$*\rffff*0b628a8cb8*\r0*#f*\r0*#1*\r0*#17$*\rffff*0=628a8ca6*\r0*#2$*\rffff*0?628a8ca7�����4�� "�����������
��� ���������� ��)���ƿ�ȷ�ͻ�ҫ�����excel���籣�棬�����"$.�ȷ���"$.�,�
$.�&ϵͳ��ҫ���м��у�飬�粻���棬�����"$.�ȡ���"$.�? 0$,'* * 2�a@4d��p�'(k��@o��8����0����ڱattribute vb_name = "thisworkbook"
�bas�0{00020p819-0c$0046}�
|global�spac�falsedcreatablpred�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�������ӡ��π���ϣ�
egp��p= fe nd if�
a�i
����������������'�����#��������������������������x��me���������������������������������������������������������������������������������������������������������������������������������������������(sl����s����s�����<������n0{00020820-0000-0000-c000-000000000046}����@���������(����������%����h����@������������������������������������������������������������������������������������0�8fa�����������x������attribute vb_name = "she@et6"
�bast0{000�20820- c$0046}
|global!�spac�falsedcreatablpre declaid�tru
bexposetemplatederiv$�bustomizd2�����������������������������������������������'��h���#��������������������������x��me���������������������������������������������������������������������������������������������������������������������������������������������(sl����s����s�����<������n0{00020820-0000-0000-c000-000000000046}����@���������(����������%����h����@������������������������������������������������������������������������������������0�8fa�����������x������attribute vb_name = "she@et5"
�bast0{000�20820- c$0046}
|global!�spac�falsedcreatablpre declaid�tru
bexposetemplatederiv$�bustomizd2������������������������������������������l����� ��n����������������������������x��me�����������������������������������������������������������������������������������������������������������������������������������������������(sp����s����s����s�������0{1d348156-a4fd-4809-af6e-cbe2f43d12b0}{2b9f411a-95bc-49e4-89d4-e4bd4fa32e4a}�����8@�����������������������������<���������������������������������������������������%�����������������������%��������@���������������������@���������������������������������������������������������������8fa����
"���
�0� �����
8"�h�p�
x�h� ��������x�ȡ����'� ��b@:o��h�ȷ���@ �'� ��b@:o����������r�attribute vb_name = "showform"
�bas|0{1d348156-a4fd-4809-af6e-cbe2f43d12b0}{2b9f411a-95bc-49e4-89d4-e4bd4fa32e4a}
dglobabl�spacofalse�cre atablpr@edeclai"d�tru
bex0pose0templatederiv�customiz�d'ȡ`��
p�� sub cancelbutton_click()
notcontinuebool�t me.hidzend!
'ȷķ�,onfտ,9�-fl��;/���������������������������������������������������������ru����~| ��"�9a ��0��0���0���0��x0��0���0���0���0��x0���$0��p0��00���0��h��<:4�%d��x�%h�$
�h�
dd���)h�d�j�$�%��d��x�%h�$
�h�
dd�����c)h�d�5���p�x�(�l�h�d��0��� 0��h
0��p0��8
�����������������������������������������������������h�l����o���ʘ����������������������������x��me�����������������������������������������������������������������������������������������������������������������������������������������������(sp����s����s����s�������0{e6f409dd-f842-4889-8304-548ba2d72e64}{b50bf05f-a5df-45ae-a557-4c3fc685ebc1}����p���0��(����������%�����������x��0��������%����������������������������������������0����������������������������������������������������`�8fa�����������x�����attribute vb_name = "printform"
"
�bas�0{e6f409dd-f842-4889-8304-548ba2d72e64}{b50bf05f-a5df-45ae57-4c3fc685ebc1}
dglobal!�spacofalse�creatablpre declaid�tru
bexpose0templatederiv�customiz�d�������������������������������������������������ru��� ��������,�`������������a�//(�`�������������0(�`�������������08�`�������������a��////0!`�������������a�///<i`��������������a�/////<q`������������9�a�q/////,�`������������y�//(�`�������������/0� `���������������8
`�������������a��////09`������������� !///,a`�������������9//,�
`�������������9//8�`�������������a��////0�`�������������a�///8`��������������a�////0)`�������������a�///(q`�������������/n����������������������������������ru����~| p������������������������������������������������������ru��� ���������$)n����������������������������������������������ru����~~{
������������
���� ������������rowindexcolumnindexcontent
sheetindex errorinfocheckmethoderrormsgtypevalisvalidatecountregvaluesheetindex2keywordkbncolindexvalue1flagrownumidnumberfunctionargsarrvalue2functionargsmaxnumidnum !� ! saveasuicancel�����������������������������ru���~| ##0��0���0��00���0��0��h0���0��@0��80���0��(0���0��80���0��(0���0��0�� 0��� 0��
0���
0��0���0��0���0��(
0���
0�� 0���0���0��p0���0���0���0��0
!">��������������������������������������������������������ru��� ��������0�`�������������a�///(�`�������������/(�`�������������/(�`�������������/(!`�������������/(i`�������������/(q`�������������/,�`������������q�(�`�������������/(� `�������������/(
`�������������/,9`�������������q//(a`�������������/(�
`�������������/(�`�������������/(�`�������������/(`�������������/,)`������������ �//,q`������������ �//,y`������������ �//,�`��������������//,�`��������������//, `��������������//,1`��������������//0y`���������������///,�`��������������//(�`�������������/(�`�������������/(�`�������������/(!`�������������/(i`�������������/0q`�������������a�///(� `�������������/,�!`��������������//,�"`��������������//n������������������ru��� ��������$�`������������$�`������������n������������������������������������������������������������������������������������������x��me���������������������������������������������������������������������������������������������������������������������������������������������(6
����<��<��<������x�<����`������������
����������������:������p��������������%����������������������������������������������������h����������������������������@�8fa$*\rffff*0@628a8ca7���"�� � (� h�h����x���ѧ����ϣ��ӡģ��$>(@�ѧ����ϣ��ӡģ��$>b@b��ѧ����ϣ��ӡģ��$>(@o������������attribute vb_name = "����Ԥ��"
sub browse_print ()
worksheets("ѧ����ϣlģ��").visibla�true"d^p@review2cend �
����������thisworkbookthisworkbooksheet1sheet1���ߺ����]wq�qpe�����xfу�麯��!h���qpe������;nz�^showformshowform��ӡԤ��sbps��ȉprintformprintformsheet5sheet5sheet6sheet6������������ ���.�ne������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �a�.� �a�.� �a�.
��������
�����oh�� '��0�h�pxdt
����xy@���&��@�m�2c�microsoft excel����������������������
��՜.�� ,��d��՜.�� ,���h(�08@��0t�|��ksoproductbuildvericv�2052-11.1.0.10463!e7ba589982984e48823d263ff3294643����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
���������������� !"#$%&'()* ,-./0����2����4567����9����;<=>?@abcdefg����ij����lmnopqrstuvwxyz[\����^����`abcdefghijklmnopqrstuvwxyz{|}~������������������������������������������������������������������������������������������������������������������������������������������������������
����
�������� !"#$%&'()* ,-./0123456789:;����=>?@abcdefghijklmnopqrstuvwx����z[����]^_`abcdefghijklm����opq����stuvwxyz{|}~���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
!"#$%����'()* ,-./012����456789:;<=>����@abcdefghijklmnopq����stuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{����}~���������������������������������������������������������������������������������������������������������������������������������������
!"#$%&'()* ,-./0123456789:;<=>?@abcdefghijk����mnopqrstuvw����yz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������