邢唷> i}h  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgtwklmnopqrsvxyz{|Root Entry Fs茴d}苁凓i呤j+Workbook0_VBA_PROJECT_CUR"繧Gj}苁磈}苁VBA 繧Gj}苁囔}苁  衫\pmenovo User Ba= ThisWorkbook=x-#8X@"1媅SO1媅SO1媅SO1媅SO1媅SO1媅SO1Q媅SO1Q媅SO1Q媅SO1Q媅SO1.Times New Roman1.Times New Roman1媅SO13媅SO1 媅SO1.Times New Roman1.QTimes New Roman1.QTimes New Roman1 媅SO1$媅SO1媅SO1. Times New Roman1.Times New Roman1媅SO1媅SO1媅SO1媅SO1.媅SO1媅SO18媅SO1.Times New Roman1.5Times New Roman1媅SO15媅SO1*@ MS Sans Serif+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)+""#,##0;\-""#,##05""#,##0;[Red]\-""#,##07""#,##0.00;\-""#,##0.00A""#,##0.00;[Red]\-""#,##0.00e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- 0.00_ 0_  mmm/yyyy yyyy\-m\-d                   , * + )   1 1  1 1 1  1 1 1 1 1 1" 1 1 1 1" 1 1 1      1  X  1  1 1  1 1      1  1     !1*\ 1*\  1* 1*\ 1* 1*\ 1* #1 #1L  `#珗軴i柡NnNi柾y軴USf譙蕍篘Х軴9峺槍VV CheckAllCells"饅餈7 3 A@@  3;鶴u錯g 7翄鯪{|媁 7翄鯪鱏x 77bM| 77b鉙@b(W0W 7ZZ鸜秗礠 7l蟚 7 uX[軴i栄憜樦S筫_軴9 7軴潣 7c歔uHe錯h譥 7Y鑜 7Y(uW[祂2 7Y(uW[祂3 79嶔晹 7軴ig魰h譥 7i柾y鉔x 7譙蕍篘{|媁 7譙蕍篘覻 T 7'`+R 7譙蕍齆潣 7梴筫T 7梴膲R 7t^褢_薡啒諷h譥 7t^褢啒諷{|媁 7 齆pe  7uHe錯g 7)R啒諷筫_ 7w崋樺eg梴{|媁 7韣軴h譥 7珗軴篘覻 T 7珗軴篘廭鱏 7LN 7tT嵮憀^鰯L 77b T 7^鱏 7aSUS鱏x 7 t^褢_薡啒諷t^劅/t^g 7譙蕍z槒^ 7錧蛓 7珗軴篘ID 7 軴ig魰  7T TID 7i柾yx 7;Nix 7N珗軴篘sQ鹼 7>y軴h皨 7 珗軴i柡NID(/UN) 7#嶜N鉔x 7軴9峺樸Nx 7軴9峺RM懺k噑 7軴9峺RM懷憹 7ON49 7*N篘49 7*N篘陙㏑49 77b鱏 7{|+R 7XT錧覻 T 7;N珗軴篘ID 7軴i枴R 7eQ鳶錯g 7錧D 7  g TUS/鄀 TUS  7珗軴篘篘pe 7 茤SO軴US鱏(颯 NkX) 7SO纇 7Yt筫_ 76e9嵐e_ 79峵^g 79峵^gh譥 749嵞R 7R_^\膲R 79崌s 7MQT崫 7T嵷N詋婳 7 Y(uW[祂1 7SavePolType(:N軴hQ緥n-昩軴US/軴USh譥) 7螛i枲R9嵮憹 7 T TID 7 珗軴i柡NID 7 i柾yID(i柾y/UNh譥) 7鷁軴aS鱏 7@鹹≧5u輯 7@OO匸5u輯 7@禰璣OO@W 7禰璣異 7@齆pe 7SO纇鱏x 71 7i柾yID1 700 70 7軴hQ燫篘uHe錯 71 2008-7-14 7 2008-7-15 7 2008-12-3 7 2008-10-7 7 2008-7-16 7 2008-11-7 7 2008-8-08 7 H朞e 7320524195502242946 7A 7 1955-02-24 74Tl 7320504197703251017 7 1977-03-25 7R誵NS 7310228195308040424 7 1953-08-04 7轛Z 7120102197210231729 7 1972-10-23 7恄Oe 7320586198711306136 7HN5 751011219610923001X 7蒪蒪 7663586198711306136 7jl噀o 7320524197308175830 7 1987-11-30 7 1961-09-23 7 1973-08-17 72345678 2008-12-2 7 " &,4 pZ t^   ! $"#cc  衫  '8  d褚MbP?_*+%MEPSON LQ-680K ESC/P 24C飥 4dA4DINU"4G噲" d??U} } 7} } }  } } @ } } } @ } } } } } @} } }  '} '} `}  } } @}  } #} (} `(} }  }  } @ } !" } ##} $3 } 4 * 4$D$$$$$$$$ B C* D7 E8 F9 F G- G: H H H H D D D D F; F' H H$ F! F" F# D< D= D> D? D. DV DQ DW DR DS !DT "DU #H^  [  [  Z [ Z Jg !\ !Z I[  %j  "]  Ih  Z  Z Z Z "i &Z '[ Z Z Z Z Z #Z $ X #%`      Z [ Z Jk !\ %Z I]  %m  "]  Il  Z  Z Z Z "i &Z &[ Z Z Z Z Z #Z $ X #%a   Z [ Z Jn !\ %Z I[  %p  "]  Io  Z  Z Z Z "i &Z &[ Z Z Z Z Z #Z $ X #%b   Z [ Z Jq !\ "Z I[  %s  "]  Ir  Z  Z Z Z "i &Z &[ Z Z Z Z #Z (Z X #%f   Z [ Z Jt !\ Z I]  %|  "]  Iu  Z  Z Z Z "i 'Z &[ Z Z Z Z Z #Z _ #%d   Z [ Z Jv !\ Z I]  %}  "]  Iw  Z  Z Z Z "i 'Z &[ Z Z Z Z Z #Z _ #%e   Z [ Z Jx !\ Z I]  %|  "]  Iy  Z  Z Z Z "i 'Z &[ Z Z Z Z Z #Z _ #%c   Z [ Z Jz !\ Z I]  %~  "]  I{  Z  Z Z Z "i 'Z &[ Z Z Z Z Z #Z _ #%zzz鹌甬(  饃  6预 XPP?  i]4@预 F 6旬_)I殌媬} <yangtao: 皊h:y齎M|<87 ~饉  <` XPP?]4@` F 濽 L粪筠钉 <3user: 1-(WL 2-O 3-粂O 4-vQ諲< # 饎  養l`  XPP?w<]4@l` F 泭6TAzO愁`⑹t <;user: 00-,g篘 01-M憊P 02-P[sY 03-vQ僛< # es~饉  <衊 XPP?]4@衊 HF c漘▇罫庼q縌牓 <!user: 鲖 c珗軴i柡Nz槒^kX橯< # x饎  養4a  XPP? Z]4@4a F |1尤塭O曶$鷯S <7rfd: 1-->y軴 2--G曒O 3--vQ僛 4--鄀< 饎  養榓  XPP? w]4@榓 2F .PF┩芫K'H~z 0<#sinosoft: 0-7u 1-sY<0-     x饃  6黙 XPP?   ]4@黙 2F dbc錮E柎O嬌坹nX <-sinosoft: @A @7 Sheet1ggD  衫 h緈  d褚MbP?_*+%M\\10.1.3.5\lQ(uHP LJ4250S 4dA4PRIVB0''''@P4(△囷+@IUPH dA4 [鄀]e] [鄀]e]媅SO4P览览 d?ADMINISTRATOR<陙≧>Od j.k k m m EXCEL.EXE" d??U} ` 7}  )} 8}  <}  9} )}  7} @:} :} :} 2} 2} @2}  2} `2}  2}  2}  2} 2} `}  } `4}  2}  ;}  *} `*} `2}  +}  +} +} )} @:} !!` *} "" *} ##*} $$@:} %% +} &&`+} ''@*} ( *((((((((( AY @ 5* 6( ,+ 0 , -A -B -C  . .) . .D .E .% . / 0 F G 1 2 3   2 H I J   !K " # $-L %$ &$ '*M88888880 鹭 鹄(  饎  養  XPP?`]4@ F |{+L%淥亝鷩 RTD  < sinosoft: < ?  ~饉  <実 XPP?  0]4@実 (F 馕鑀A奠)駢 <-sinosoft: D-)Y M-g Y-t^ < ? H 饎  養餲  XPP?   ]4@餲 (F <gC長段P駂 B<sinosoft: --0 N歔g4 -笉4 -t^44 -c[4 -JSt^4 -g4 鲖9hnc N T剉i柾y 愰b N T剉499嵐e_ < ? "B ~饉  <Th XPP?R 0]4@Th 4 F 9罟('H歲^<+  <sinosoft: 鲖< ?  饎   養竓  XPP?A = ]4 @竓 4 F 馇v鴉NC W迠传 <'sinosoft: 1210071 ^t弝穇9(u媁釼SO;S梪軴iA>k 1250021 ^t弝穇lQqQ愨VSOaY$O砙軴i 1250221 ^t弝穇f[u|^?QaY$O砙軴i 1220051 ^t弝穇釼SOOOb;S梪軴i 1250091 ^t弝穇釼SOaY$O砙鼅T軴i 2240211 ^t弝穇圼Nu釼SO蛻'Y緐舥軴i 1220011 ^t弝穇aYOOb栤VSO歔潣;S梪軴i 1240141 穅hQ釼SOyr歔緐舥 1250191 ^t弝穇鷁Q{絜錧篘XT鼅T釼SOaY$O砙軴i 1230081 ^t弝穇t媁釼SO;S梪軴i 1250011 ^t弝穇~歑N篘XT釼SOaY$O砙軴i 1250041 ^t弝穇僗匭舉LaY$O砙軴i 1210021 ^t弝穇f[u|^?QOOb9(u;S梪軴i 1240061 ^t弝穇釼SO2柣l蛻'Y緐舥軴i 1240151 ^t弝穇弝PN鄀鏮釼SO蛻'Y緐舥軴i 1240021 ^t弝穇f[u|^?Qyr歔緐舥軴i 1240121 ^t弝穇釼SO2柣l蛻'Y緐舥軴i朼g>k癳Hr < ? j 饎   養i  XPP?o ]4 @i F 』M=恛隚Q挴7= 1(<csinosoft: 0 - h垰[9崌s 2 - h垰[9崌s榖cb 3 - 歔9崌s 9hnc N T剉i柾y 愰b <( ? ' u0 1 O饎   養i  XPP?!` (G]4 @i ?F 蔠^蛆鏓仅z竬S :<usinosoft: 9hnc N T剉i柾y 愰b 婳俌01250091 ^t弝穇釼SOaY$O砙鼅T軴i0kX橯俌 NpeW[ 50 100<  h: 饎   養剸  XPP?A `]4 @剸 @F 美呹粿塂幗梤Ra <'sinosoft: 鲖鹠eQ鴙擽剉軴潣 < ? ` 4~饉   <詵 XPP? 80]4 @詵 BF  R8釱B{/m  <Asinosoft: 鲖搹eQ鴙擽剉軴9 俌済/f軴潣梴軴9 N(ukX橯< ?  ~饉  <8 XPP?+ !0]4@8 dBF ?兪汖K扢歘\ !<Csinosoft: 鹠eQ鍕i柾y N亯昩軴剉齆pe N鹠橯貫:NN齆 < ? ! 00~饉  <湕 XPP?b 0]4@湕 銬F R吩熯)L嶚M{7 &<Msinosoft: Y t^ M g D 錯 A 乗< ? & 饎  養糭  XPP?  ]4@糭 銭F !U蘋(9蜯獦qZ杉 9(<ssinosoft: 1--/}飝uo` 2--啒諷皊褢 3--礲4軴9 4--vQ諲 5--瀀潣n 9hnci柾y 愰bkX橯 <( ? 20 h8 9 ,~饉  <xU XPP? 0]4@xU DFF Y. ,N獧俶)\ <\O: 鲖 ci柾yz槒^'Y\kX橯< ! xi柾y\OFtpDown FtpDownFtpDownFtpDown FtpDown FtpDown FtpDown FtpDownFtpDownFtpDown FtpDown FtpDown FtpDownFtpDown FtpDown> @  7<!< 鲖(W9嶔晹枔廵QpeW[\  Sheet2  衫   d褚MbP?_*+%M\\10.1.3.5\lQ(uHP LJ4250S 4dXXA4PRIVB0''''@P4(△囷+@IUPH dA4 [鄀]e] [鄀]e]媅SO4P览览 d?ADMINISTRATOR<陙≧>Od j.k k m m EXCEL.EXE" dXX??U} *}  (} @+} @}  @} @} @} ` @} } } } } } @}  *}  @}  *@ N + O  6      - &  ?===?>>>=鸷0 稷(  饉  <,f XPP? 0]4@,f 4JF  矗嶕虨@[7鄅 <user: 鲖 cT Tz槒^kX橯< # `饎  養f  XPP?  0]4@f 4KF  М1Ay9 <=sinosoft: - - - - - < ?  饎  養f  XPP? 0]4@f 擪F ? Kk棦K曣鵲阝 </sinosoft: k 1250021 ^t弝穇lQqQ愨VSOaY$O砙軴i 1250221 ^t弝穇f[u|^?QaY$O砙軴i 1220051 ^t弝穇釼SOOOb;S梪軴i 1250091 ^t弝穇釼SOaY$O砙鼅T軴i 2240211 ^t弝穇圼Nu釼SO蛻'Y緐舥軴i 1220011 ^t弝穇aYOOb栤VSO歔潣;S梪軴i 1240141 穅hQ釼SOyr歔緐舥 1250191 ^t弝穇鷁Q{絜錧篘XT鼅T釼SOaY$O砙軴i 1230081 ^t弝穇t媁釼SO;S梪軴i 1250011 ^t弝穇~歑N篘XT釼SOaY$O砙軴i 1250041 ^t弝穇僗匭舉LaY$O砙軴i 1210021 ^t弝穇f[u|^?QOOb9(u;S梪軴i 1240061 ^t弝穇釼SO2柣l蛻'Y緐舥軴i 1240151 ^t弝穇弝PN鄀鏮釼SO蛻'Y緐舥軴i 1240021 ^t弝穇f[u|^?Qyr歔緐舥軴i 1240121 ^t弝穇釼SO2柣l蛻'Y緐舥軴i朼g>k癳Hr < ? j 1~饉  <f XPP? )0]4@f 躆F 鑶覦祺m@珦=@7 Sheet3  衫  ck  d褚MbP?_*+%"??uXU} }  }  }  }  }  } @}  } @} } }    g           P /  0 1 2 3 #4 #5 #6    0疰@鹞(  饃  62f XPP?  Z]4@2f 怸F ?B~F沄琚n <%sinosoft: 鲖 ci柾yz槒^kX橯<- `x饃  6\3f XPP?  Z]4@\3f 餣F %m疕 H40XJ鍙X (<1sinosoft: N珗軴i柡Nu槴堓O篘ID鴙鵞擽<(- l  $~饉  <3f  XPP?  p]4@3f [F c;6@﨟-燮 0<%sinosoft: 1210071 ^t弝穇9(u媁釼SO;S梪軴iA>k 1250021 ^t弝穇lQqQ愨VSOaY$O砙軴i 1250221 ^t弝穇f[u|^?QaY$O砙軴i 1220051 ^t弝穇釼SOOOb;S梪軴i 1250091 ^t弝穇釼SOaY$O砙鼅T軴i 2240211 ^t弝穇圼Nu釼SO蛻'Y緐舥軴i 1220011 ^t弝穇aYOOb栤VSO歔潣;S梪軴i 1240141 穅hQ釼SOyr歔緐舥 1250191 ^t弝穇鷁Q{絜錧篘XT鼅T釼SOaY$O砙軴i 1230081 ^t弝穇t媁釼SO;S梪軴i 1250011 ^t弝穇~歑N篘XT釼SOaY$O砙軴i 1250041 ^t弝穇僗匭舉LaY$O砙軴i 1210021 ^t弝穇f[u|^?QOOb9(u;S梪軴i 1240061 ^t弝穇釼SO2柣l蛻'Y緐舥軴i 1240151 ^t弝穇弝PN鄀鏮釼SO蛻'Y緐舥軴i 1240021 ^t弝穇f[u|^?Qyr歔緐舥軴i 1240121 ^t弝穇釼SO2柣l蛻'Y緐舥軴i朼g>k癳Hr <0- -   #-+ ;-C Q-Y e-m {- - - `- - - -  -# 3-; I-Q a-i w- ~饉  <$4f  XPP?  ]4@$4f 餦F 斑u鎕g&M敶v_娔愓 @<;sinosoft: i柾y:N1230081R008100 <@-  $ * $ ~饉  <4f  XPP? w ]4@4f 餧F 祌7[.XA┸r=橰 Kh<sinosoft: i柾y1230081  USMO49008120 USMO鉔4008121 *N篘49008122 lQqQ&7bUSMO49: 008123 <h-  B <$" <'$. <3$: `B'J K~饉  <4f  XPP?  ]4@4f 館F !N汵琭u喤1  ; <wsinosoft: 鍕49峺樰O9峘S 軴9峺RM懷憹 剉詋婳8^:N1 h:ykXeQ剉軴9峺RM懷憹榮S:NT49峺橓[擽剉軴9 < )  F;so~饉  <P5f  XPP?   ]4@P5f 餩F !糇揕A91{k+)  <-sinosoft: T軴9峺橈SRM憚v軴9;`潣< )  H桚l鑞H桚l鑞H桚l鑞H桚l鑞H桚l鑞H桚l鑞H桚l鑞>@7 Sheet4 ThisWorkbook Sheet1Sheet2)Sheet39  !"#$%&'(*+,-./012345678:;<=>?@ABCDEFGHJKMNOPQRSTVWXYZ[\]^_`abcdfghijklmnopqrtuvwxyz{|}~ 箬#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}x h@%@@" j(  保全加人时候的提示信息_注意：保全加人信息录入时‘保全加人生效日’列为必录项！契约磁盘投保信息录入请不要填写该列。 谢谢A@7K7A B@铿$ % B@Ho80Attribute VB_Name = "ThisWorkbook" 孊as0{00020P819-0C$0046} |GlobalSpac扚alse dCreatablPred恊claIdTru BExposeTemplateDeriv払ustomi6zD2P Sub 厬_Open() '保全加人时候的提示信息MsgBox "注意：录入时畢 生效日’列为必录项！契约磁盘投保请不钚锤昧小 谢谢ESheet1.ActivZA Cells(2, 36).Select End8 #xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxòAttribute VB_Name = "She@et1" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2Q#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxòAttribute VB_Name = "She@et2" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2c.#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxòAttribute VB_Name = "She@et3" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2rU~|   9rU ,$`,`ay0(,`//(`&(!!jWW1 ~>__SRP_2I__SRP_3L=Sheet4 U00`h  p0 2    (H2X     8  J@   V      0   8 4 0 P  X  h     L  L0 B           "  &  0@  p x     &    ( ,@ p x   ,    > ,X      , ( 0,@px     $  &>(hp x  . H`hp x  | F`h p x    ,HP X ` p,   ,(0 8 @ >`,    ,0`hp x,     ^ P Jp x ,8 ^hB &8HP`"x  8, 0.8 hp ,xD  "8 ` : ( : P :hB $ >  ` >pB &   " ( HX h x   "  ,   0 @ P` h  " 0  ,  u,[{嫰(xME(`凘`凚`凞****`凢`凥****@凧 $4@凩 单 @凬 保`凱`凴(`凾@刅 @刋 X`刏`刓`刕`刞Hj`刡 刣趄%`刪 Tq`刯+`0 i儓Pi儕`剬(w@剮 @剱 @@剴 `刕膥 `( ##I儨 HlI優 豔@劆 @劉 糹劋 @刕 @@劍 +``@  i儤+`i儼  0` `劧葰`凥  p`  `99@劶 屧@劸 @劺 熔@劼 @勀 泰@勂 @勅 I`勈`勌き`勎`勑舸`勔`勗 `勚``填`查`第 ` 日填`` 身```2校`条记`重复` @`"H`$ `& `* `,`.保险`0H+~p ` ppi傿Ce`刪 tion`6ext(+|H ` 88i傿.Wor`劧Cell`8.Ce`:matL`剱@< 下一 t ` i> 当前i傿8`刕****鈥(  @* H@鈥.P$@0p` p H 0 P位身&(  H P ,X 擩$*\Rffff*0=4d596535o 0 ,P  (    8 P"h p 0 ( 0P p    8P6` $  ( 8@ X,x 2  8"P"x   4   ($@ 4h    > X x     ! 8!@!H!P!X!`!2x!  !!\!0"F8" """@".":#.P#  ## F# >#($ 0$@$6H$$ B$ @$.%:@%.%  % %%%% R&  (X&&  t& ' '( ',H'  x'''''b'0(h8(  <((  t(8`)  ))))))))  ))*\*Fh* ***@*.+.@+p+>x++6+ @+.8,.h, 2,  ,,\-h- tp-8-  2 .X.`.h.  p..... ..\. F/ `/p/x/@/././  0>(0h0 6p0 @0.0.1 2H1  11\12t 282  42333  383@3H3P3 X3`3\h3 F3 4 4(4@04.p4.4 4>45 6 5 @X5.5.5 25  06P6\h66t68H7  27777 7 7778 88\8 Fx8 888@8. 9.P9 9>99 69 @:.H:.x: 2:  :;\;x;t;8;  20<h<p<x< <<<<< <<\< F(= p===@=.=.> 0>>8>x> 6> @>.>.(? 2X?  ??\?(@t0@8ˊ  4郂A A(A 0A @APAhA AF怉谹 >郃  B >@BB B 圔 怋4燘  谺養鳥C  C (C0C8CD@C圕怌楥 (燙菴郈 D RD hD pDxDD  H圖 蠨 郉鳧 E0E  PE ,hE楨 癊窫 蠩谽 >郋> F`FhF pFxF F楩  癋蠪 0餏   G8G PGXG pGxG BG>菺HH H H(H  0H (HHpH 圚燞  窰 豀B`I↖癐 窱繧 菼PJ  $XJJ  楯窲r繨8K PKhK pKB怟豄郖 鐺餕鳮LL 4L ,HL 4xLB 癓 窵繪萀蠰 鐻^M 4`M 楳 燤∕癕 萂 郙6N窷繬 萅 蠳  郚鳱&O (O HO POXO  `OxO"O ∣  &窸 郞4餙(P0P8P @P HP6XP怭楶燩 ≒癙窹繮萈 "蠵 鳳 "Q" 8Q @QHQhQ Q怮 燪

ModelName: 模块1

)

Description: 对excel数据进行检查

%

Copyright: Copyright (c) 2005



Company: sinosoft

 @author zhangjt! @CreateDate：2008-07-16 13:30:47]@ ]@爢 ]]0 ]P****************** 数据检查按钮******************被保险人$4B@H险种保单 %6(8保费项 %6(8受益人 %6(8*将屏幕自动更新设置为否，以便提高宏运行效率 :(<廬] 8P]h性别， 0：男；1：女；词Y}]]](]@]Xp]]] 被保险人年龄]被保险人$4.d填写信息的最大行数 d!l!n!p'b b +导入模版中填写被保人信息记录行数超过65535！A@r`kX第三行开始为填写客户的实际信息 b 导入模版中没有填写被保人信息！A@rk从第3行开始循环处理S\S'@ B @ b 如果合同id 和序号不为空P B$  B$ st k = k + 1d@成功检查 B @  条有效记录！A@PPD b BAtDrk循环过滤每一列的首尾空格E ^\3\ B ^$ $v B ^+ ows B ^$ $x B ^+ et ^PS 首先校验非空 B$ 第 B行填写的合同ID错误，请检查！A@rk校验合同ID是否重复 B B$  @ 第 B行填写的合同ID错误，请检查！A@rXkP被保险人序号置为合同ID B$  B+ 校验被保险人姓名是否为空 B$ $z第 B行被保险人姓名不能为空！A@rk填写的被保险人性别的检查 B $  B $  B $ 第 B行被保险人性别填写不规范！A@+'迟rkk填写的被保险人生日的检查 B$|第 B行被保险人生日填写不规范！A@rhk` 身份证校验 B $  B$~r k2校验本条记录是否和上一条记录证件号码和证件类型重复 H B @ B @ H $  B $ X  H $ X  B $  H $ 第 B行被保险人身份证号码与第 H行被保险人身份证号码重复！A@rkk HkCells(x, 10) = Application.WorksheetFunction.Text(Cells(x, 10), "yyyy") & Application.WorksheetFunction.Text(Cells(x, 10), "mm") & Application.WorksheetFunction.Text(Cells(x, 10), "dd").Cells(x, 10).NumberFormatLocal = "@" '水平居中标签，继续处理下一条记录 B标签， 用户填写信息异常rp :(燆鵒h当前操作校验完毕！ :(W[o8E*********************************************************************身份证号码规则校验E*********************************************************************]p]]]]检查15位身份证 X 判断15位的身份证中是否有字符 ^ $v ^$$第 行身份证号中不能包含字符！','k ^判断格式是否相符 Z'19 $v$X' $v $X' $v $X'判断月份  第 行身份证号月份非法！A@'zkx判断日期  第 行身份证号日期非法！A@'zk4,6,9,11月份日期不能超过30        y第 行身份证号日期非法！A@ QP'zhk`判断2月份的日期j  X$  ~1.H第 行身份证号日期非法！A@'zk  e第 行身份证号日期非法！A@'zkxkp'检查18位身份证 X e 判断前17位的身份证中是否有字符 ^ $v ^$$第 &行18位身份证号中的前17位不能包含字符！A@'zk ^ '判断最后一位是否是字母若是字母则必须是x $v$$ $v$X第 G行身份证号最后一位错误！包括如果是18位最后一位不能是小写x，必须是大写X.A@'z k 判断x的位置 $vX  $vX $vx  $vx第 行身份证号X输入位置不正确! $vxA@'z k 判断年度、月份、日期 $v$X' $v $X' $v $X'  Z$ l 第 行身份证号年度非法!A@'z k 判断月份  第 行身份证号月份非法！A@'z8 k0 判断日期  第 行身份证号日期非法！A@'z k 4,6,9,11月份日期不能超过30        第 行身份证号日期非法！A@'z k 判断2月份的日期  X$  第 行身份证号日期非法！A@'z k  e第 行身份证号日期非法！A@'z8 k0 k( 'k i W***************************************************************************************身份证最后一位加权校验CSrc是身份证号码,可以是15位也可以是18位,15位时只能返回验证码方式使用riChk参数取值真假,真代表校验Src是否18位身份证，并且校验第18位是否正确号码而确定是否有效身份证,返回只值为true或false%假代表返回正确的校验码，返回值为(1~x)W***************************************************************************************]h 10X98765432'#7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,$'   ^k  ^ $ ^+  ^$ ^$ '8    $ $$'& 返回结果，TRUE为合法身份证验证码d''!返回结果，FALSE为非法身份证验证码hkd'#因为不是18位身份证所以返回FALSEIkPdH  Je G $19  $'jop ^ted  ^ $ ^+Rot  ^$ ^$ 'x    $'D返回正确的验证码tedd0'#输入不不是15位或18位身份证号kki4****************************************************Rot校验是否是闰年nv4**************************************************** Ro  Ro' d   ePR'd'ki8********************************************************E计算年龄 8******************************************************** `y  Z$詖@'Ei ********* *********]]130981198204210310'K(B AC $'HMsgBox maCall IDCardCheck(s, 1) #o`*******a*******e0 :(2x1 当前操作：正在校验，请耐心等待！ :((J :(apa :(<elo T :(u TA@tat :(pano ************u # ************an p*将屏幕自动更新设置为否，以便提高宏运行效率 :(<vel](@7MsgBox ThisWorkbook.ActiveSheet.UsedRange.Columns.Count联系方式 %6.被保险人 %6.受益人 %6.险种保单 %6.保费项 %6.责任项 %6.投资规则 %6.]X]p]]]]第二行]$各表中“被保险人ID(唯一标志)”所在列联系方式的业务处理 1:17 % 'F3求空单元格的数目， column最大值256，row最大值65536' 7  7 7 %'c求有值的最大行 hd`General  7   7 7(@ 7  7 7(@  7   7 7(@ 7  7 7(设置单元格格式 7 7 7 %'^求有值的最大列7  7 7B@B复制有值的数据列q  d 7  7 7C@T粘贴kx  7   7 7C@X粘贴General  7   7 7(@ 7  7 7(@  7   7 7(@ 7  7 7(设置单元格格式   d  7  7 7  7  %   7 ("计算区域内满足给定条件的单元格个数x 1   7   7 7  7    7 7B@ 排序  '  7   7 7B@ 7  7 7C@复制并粘贴缺少的有效数据k`X  8 7 !  7    7 7 %   ;  7 !  7    7 7 %   ; 6返回符合特定值顺序的项在数组中的相对位置，并写在空列中1  7   7 7 7    7 7B@  7   7 7B@排序kPHq@]]]0]H受益人的业务处理 '1:17 % 'J3求空单元格的数目， column最大值256，row最大值655367 7 7 %'[求有值的最大行  8d0General  7   7 7(@ 7  7 7(@ 7  7 7( 7  7 7B@@复制有值的数据列q@ 7  7 7C@\粘贴General  7   7 7(@ 7  7 7(@ 7  7 7( 7  7 7 %'计算需要排序表中的id的数量    7 ! 7   7 7 %   ; 1  7   7 7 7    7 7B@  7   7 7B@,求出需要排序的列在受益人中的相对位置，并排序k q险种保单的业务处理]`]x]] '1:17 % 'L3求空单元格的数目， column最大值256，row最大值655367 7 7 %' ]求有值的最大行 dGeneral  7   7 7(@ 7  7 7(@ 7  7 7( 7  7 7B@>复制有值的数据列q 7  7 7C@a粘贴General  7   7 7(@ 7  7 7(@ 7  7 7( 7  7 7 %'计算需要排序表中的id的数量    7 ! 7   7 7 %   ;  1  7   7 7 7    7 7B@  7   7 7B@.求出需要排序的列在险种保单中的相对位置，并排序k  q 保费项的业务处理]]]]  '1:17 % 'H3求空单元格的数目， column最大值256，row最大值655367 7 7 %'Y求有值的最大行  d General  7   7 7(@ 7  7 7(@ 7  7 7( 7  7 7B@>复制有值的数据列q  7  7 7C@Z粘贴General  7   7 7(@ 7  7 7(@ 7  7 7( 7  7 7 %'计算需要排序表中的id的数量    7 ! 7   7 7 %   ; 0 1  7   7 7 7    7 7B@  7   7 7B@,求出需要排序的列在保费项中的相对位置，并排序k@8q0责任项的业务处理] ]8 ]P ]h  '1:17 % '&H3求空单元格的数目， column最大值256，row最大值655367 7 7 %' Y求有值的最大行 ((d General & 7  & 7 7(@ &7  &7 7(@ 7  7 7( 7  7 7B@?复制有值的数据列q0 &7  &7 7C@Z粘贴General & 7  & 7 7(@ &7  &7 7(@ 7  7 7( 7  7 7 %'$计算需要排序表中的id的数量 " $ " 7 ! &7   &7 7 % " & ; 1 & 7  & 7 7 7   & 7 7B@  &7  & 7 7B@,求出需要排序的列在责任项中的相对位置，并排序k(q投资规则的业务处理] ] ] ]  '1:17 % '0F3求空单元格的数目， column最大值256，row最大值655367 7 7 %'*W求有值的最大行 *2xdpGeneral 0 7  0 7 7(@ 07  07 7(@ 7  7 7( 7  7 7B@?复制有值的数据列q 07  07 7C@V粘贴General 0 7  0 7 7(@ 07  07 7(@ 7  7 7( 7  7 7 %'.计算需要排序表中的id的数量 , . , 7 ! 07   07 7 % , 0 ; ?1 0 7  0 7 7 7  * 0 7 7B@  07  0 7 7B@.求出需要排序的列在投资规则中的相对位置，并排序k>2>q> :(< :( 调整完毕！ :( 调整完毕！A@ :(0 4% (#$将按钮置为前一按钮未点击时的原始状态o >7*******************************************************处理excel某一行的数据7******************************************************* ]@  身份证校验 B $ X  B $ X 身份证合法性校验', B $ X B$'h h'~z<k<d<第 B,行被保险人身份证号码长度不对，应为15或18位！A@'~zh<k`<"身份证最后一位的校验，只校验18位的 B $  B $ X $'h h第 B:行被保险人身份证号码不是有效的身份证号码, 请检查最后一位！A@'~z;k;kx;B如果生日和性别都没有填写，则根据身份证号码自动生成出生日期 和 性别 首先是性别15位省份证号码 B $ 如果没有填写客户的性别信息 B $ $z 偶数为女奇数为男 B $ $v$  B + dH: B + k(:d : B $ $v$ X B $ $z第 B&行被保险人身份证号码与性别信息不匹配！A@'~z9k9k918位身份证号码 B $ e如果没有填写客户的性别信息 B $ $z B $ $v$ 奇数为男偶数为女 B + d8 B + k8d8 B $ $v$ X B $ $z第 B&行被保险人身份证号码与性别信息不匹配！A@'~z7k7k7k7然后是出生日期"15位身份证号码信息中的生日信息校验 B $ 如果填写了生日信息 B $  填写的生日信息的格式校验 B $ $- B $  $- B $  $ B $ $第 B*行被保险人身份证号码与出生日期信息不匹配！A@'~zH6k@6d8619 B $ X $- B $ X $- B $ X $ B + k518位省份证号码信息中的生日校验 B $ e如果没有填写客户的生日信息]X B $ X $- B $ X $- B $ X $'6 B $  6 B + d4 6 B $ $z第 B*行被保险人身份证号码与出生日期信息不匹配！A@'~z4k4k4k4'~i3-*********************************************&对录入的被保险人生日信息、格式进行检查-*********************************************p ] ] ] B $   B $ ': :X  :X   :$- :$-第 B行日期格式必须是yyyy-mm-dd！A@'|zX2kP2  : : $'8 81 82 83 84 85 86 87 88 89 80 8-第 B行被保险人出生日期填写不规范！A@'|z81k01  校验是否闰年] B $ $$z' 02 2'|z0k0处理闰年的问题]0 B $  $X'< < B $ $X$ < *日期格式有错误，请注意闰年二月的日期格式！A@'|z/k/d/ < ,日期格式有错误，请注意非闰年二月的日期格式！A@'|z`/kX/kP/kH/k@/'|i0/***************************删除多余无效记录***************************H ] ^ > B  B !@%nB@ ^oh.`.Attribute VB_Name = "模1" '

Model h: ` pDescription: 詄xcel数据进行检查 XCopyr@ight:  (c) 2005 UCompany: sinosoftF@author zhangjt嘆CreaHteD：K8-07-16 13:30:47$O Expli刢i6Priv0 boolFla@g As Be anStafferID(5 燭o 10)S渘gGlobal ErrC@ontentD@im ANus Iger 翨 '* CΠ磁Sub CheckAllCells() Worksheets("被保险人").Sel別c俆his繞k.S 险 直５ダ Visibl羷True 保费勏頴 受益 6将屏幕自动更新设置为否，以便提高宏运行效率 ApAra.Scre enUpdng酅癋als+AYY1 dkLonPg, xnl'n aiP, ajkh 乑'性别 0：男1：女；1C Sex{Gst竢MsB滶扗1@z23A唽 I竛de, i!, jMaxrow htEdi&DIDf噈a3EG年龄nsuredag俥 Set s = f 狾%填葱畔⒌淖畲笮惺 =%.UsedR纜e.Row@s.CounVIf $> 6553sheav  *Box "导入模版中 人 记翨紒 超过b&♂ Go纚No`坅NeedToDeal End IfB第锌嘉 客户的愂导! < 3 Tb@}8没,从第3#循环处理 k繼P2 F@@kc$+ 1 '如果合琲d 和序号不为空 c噚, 1) <> "" O魊 2! 賮k E!Cae2成功" & (x - 刱) "条覢z3F Call 螼therRe郼ord(v`?aa6Ae7a C'!&过滤 恳涣朽7孜`部崭衩'i謇'1'25F i)RTrim.(h+L4Ne0xt i '紫刃Ｑ榉炃1 `/@")$K珒(^卺*x!*蠦K的= .芐肣`Not y.0Z@9!oi 1 不规范(X1a生日Q c扞nputBi@rthDay>m衋t(x_5gsd) O F O '郎矸葜&6[G)R)0>dPO黱ePq駄 忈Q.咎躐X仭.和上一证件号码労蛻类型g@;罶m"盷Tk 繱tep -鄃1 xaf檖v沓m癵A@B+缼)12)B6q?G1騏'/Q_/X/3補与狄$m3Z$B n11! I_o 1襥甿E?'0!AC)功烣uncB篢oH0), "ysm& 0睡s(憠mm盼眻dd"詚 .簣berALoc鄓@" '水 骄又6敱签，继续I下1 鄆@nue: "x" 用户脩CＲ斐DisplayP鑤usBar5撠I"当 安僮鱍E完尡%s琒ub1 :*5 '身葜ず怕牍嬖蛐Ｑ(6 8 Public Function IDCardCheck(Idc As String, myrowLong)Boolean Dim$dateD yeaJrmddiIntege '检查15 位儑 If L0en(CP刉)) = 15 TheKJ'判$断 的!中是否有字符For i眮! To$ 5(IsNumeric(Mid(RTrim;, i, 1?<> Tprue)ACE恟rCo6nt@"第" &U& "行C%号胁荒馨猬A&！"!AiAFalseE nd@*Next i翨格蕭紸@相?my耾= 噊myAo翪f("19.蠤@7, 2))m杕 9 dd 11 2月份F纈> 12 Or <= 0cMsgBox a非法宊_ Exit営$ e0日期&脌 > 31@1Ha +G丱 4,6,9,11!%乂超过30( 0= 4Qd1= 6&9&11爥WC5 54 I氞K琫!_6旻 62的'#O= 2Pa燣eapY酄(鈎`啩曖i`"29 ?$郘pB %擢3'K藨fE朏8_{u?iO瓠),F B018)i(tx0K"A_] 11输入不震!翖S 煁3 g""G年度洹q、媞1- 牐4ǎr矁 =纑= y13[9 >: A(伅 d< 190O壜弶沂6鸔aw!3繅櫦o3up0!>3?58))''OZ &0R搊崔1   碵 苟 Function End If 4'4,6,9,11月份日期不能超过30 PIf (mm = 4 Or  6911) Audd > 3`0 The 濵sgBox "" & myrow"行身@份证号姺狼法！" >IDCardCheck慒alsBeExit7屌愋断2亰的F7/2pLeapYear(CInt(myy<))k倸29<瀬鉖 楻mD 褮Eg686期讌"6彂5: 圝═ru AG '*?1 僯最笠晃患尤 ㄐＱSrc是En码,梢允15灰瞕8位,时 兎祷匮橹ぢ敕绞绞褂脿iChk参数取值真假,真代表a 1 否1 ，惒⑶褹第是否正确号码而确劧!有效,!只值为"t(或f儅'糔賏 的A 耄(1~) P Sub main(BDss Str豬ngAmA"s "1309811982042`10310d0 lzs, !`1退8( '舳mS'"(︶App 菒 px3$Ap衹ca戂.DisplayStatusBarp a "当前操作：正在;，请膧托牡却Scre餰nUp@ 聩str3 t)4/#z"##繿ddall'将屏幕远律柚梦瘢员闾岣@吆暝诵哎戮黍> 'LinkSht, 燢suShouYiXP4ZhongBaoFe亙ZeRenXR餞ZGZS%ThisWork@book.A傈veSheet.UsedRange.Columns噋bＡ_Set P 澋kSht = ThisWorkbook.Sheets("联系方式")  Set Insu缺槐Ｏ杖 dShou刌ih受益 2XianZhong5险种保单 jBaoFej保费项 2@ZeRenX3鹑 TZGZ投资规騻2儨Dim LastCol A俿eger 亜狹axRow楲in諛ad鑟ne a塂Aw'第二行&d - '各表中“E|ID(唯一标志)”所在D '厯的襽滴翊鞢郬ith 7 K= 257 - 力s仴Function.CountBlank(.Range("1 :1"))('罂盏ピ竦氖浚 column最大值256，rowC65536IB>(TP*飶麸鸾镲oto颱1)1齥X遶l兌stCol), .Cells(65536, TZGZLa).NumberFormat = "@" .Range(t2, 粘號 2姃1 +^線2n 繥en餰ral脣W /搽@uuHas.両Workshee`tFuncAZ@lu皀tA(/)BV'计算需要排序表@中的idA|縼@獴眬2 T黲 #A僰瓵(Oe烈,Match济 +.Value & ""s团A 呌/F{ 鄙續0B:Ne旅蝑萌B).Sort 耞=Key1酃k] , order@ xlAsc纄nding .;H9S 乛Delete Shift:=xlToL efC凙 '求鰠@的列在投资规则B相对位粥茫⒘DA醼If Toto: 莻Applic.Scre enUpdng丂ATrue IDisplayStatusBar"调整 瓯希wMs鄃Box J FalsChe4ck@=2W}2)$O啦0" '磁ブ梦 耙籥未点击时的原始状态Sub '*1 处韊xcel某恍p镰? a Priva`>e dealOne牸Data(x As Long)Boolean醳Dim I Dflag'矸葜ばＱ閬@ If Len(CStr(-C選舌N)915 Or8 Thve 銏 偵c 篳戏ㄐ郧 ErrConten/傝偡c=Ca宺d<0, x脽恽Not%K'凥Exi黷 s%2'1V+"癗x馧行被保险人#号码ざ炔欢裕ξ15秽18位r/ 3. i b 最后一位劦腝，只q鵴的%値pchkIdiya@LqAK_|"a ?"?氩皇怯行У膚, 请鸺觳榈_[1QD绻蘸托员鸲济挥刑钚矗蚋軬 自动生成出期 和 1首先15位省垦9#S95枪7A 客话qp信息cTHrimG?9)!?""'偶蕗鎞捏2Rig衕t(R{10 暴@ Mod 2 0废 鍳9睪E7黩@+0,惍n/ 侽 DPw ! 燂F--蠥与U啦黄ヅ鋇,,,q,Q2鼴鸃'QB,CQp緽bCd(颻@'/(/(`/|)(M攊d%)繥17%顳i3 Eq'+,/(_$()(P岋Qx(/ 3((;(((((((q(Q2(d'然壶笫TDqRG*AM 1V羘#O+ = 0嵂  '如果钚戳松招畔 If Cells(x, 10) <> "" Th\enj'數數母袷0校验 L(Mid(]2), 7, 2) & X"-"911 ighte^0^8) sMsgBox " 趤;x丂行被保险人身份证号码愑氤l期亽不匹配！"媗)dealOneRowData = FalseExit F纔nctio埁!@End IfE = "19汎Str姮璓 XP 僘&*C'18螛皇N並中D吳苽4纴Len +繩18Hj陋没勇櫩突 Dim tBirthDay Asb @0ing= 聵8@4L B鱽瑧 3仴 = o 諄-厐7!@隩rimHW0)熆繽`_` _`弳慖biN Trum肁gk '*'对录入&伳！毥行检侧   chec kInpuF6Fo@rmat(x罺Long)Boo竘ea鄡?醄s馟chrF!`P&^铰ts燛玱酑= 锦瞣s=娐C9 郚ot (b 醏%仩N= 8 Orup10 A垺qe,t 5`)仭怜8嚙抁r喝掌趤7必须是y-mm-ddU3?p箶X塗#; s 1 To $#遟(F9銚'"sakce.h"1"A-)2U.3.45678i20>-"烮 "莥ya不锅娣y`63IupmNexXt sg'亸蕗欠袢蚰阦9!9mm:P= 2[俰, 6矋W硶2"0#2OFS5/-兘'处理q赖奈侍鈬纘earli7嵝CInt尃憵r)$> 27訧 Leap:Y(_阔3, 4)螧 袞 7>9Pf)臘有错误，请注意!二曾碌孽)_)V:俀?J 椓9 非/////:/;郿 3 o o劵}'境嘤辔扌Ъ锹 Sub delOtherRecord(Maxnu釧1eger, 丆/S5iaD# ip50!f- x4ThisWorkbook.A犌veSheet.嗍).D餰let允睲;! 7`/$I`$q`$`(`(( `(, `&(n耪#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxòAttribute VB_Name = "She@et4" 鐱ast0{00020820- C$0046} |Global!腟pac扚alse dCreatablPre declaId玊ru BExposeTemplateDeriv$払ustom izD2f硛0* pHd VBAProje坈t4@j = r 擩 J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2._VBA_PROJECTdirej__SRP_0s/__SRP_1addall誢`LinkSht琿`InsuSht鼋` ShouYiSht位` XianZhongSht霨` BaoFeiSht. ZeRenXShtつ`TZGZSht▂`LastCol64` InsuShtMaxRow LinkShtMaxRow鱜ad~\`oneH縛al哱`IdCol`WorksheetFunction&` CountBlank7`Range `CountA38` ToShouYiSht"` NumberFormat誖`Copy瓶`Paste` Destination谢`tagl 擿Value銴`CountIf`Sort`Key1O竊order1o璥 xlDescending>慲Match跼` xlAscending`郹Delete竫`Shift潆` xlShiftToLeft ` ShouYiLastCol78`ShouYiShtMaxRowV颼ShouYi_)`HasNum#`ToXianZhongSht偹`XianZhongShtMaxRow骮 XianZhong;`HasNumXianZhong`XianZhongLastCol艆` ToBaoFeiSht2 `BaoFeiShtMaxRowt胉BaoFei醀` HasNumBaoFeiw` BaoFeiLastCol拰` ToZeRenXSht+`ZeRenXShtMaxRowy蒨ZeRenX ` HasNumZeRenX4,` ZeRenXLastCol錢` ToTZGZSht萮` TZGZShtMaxRow磟`TZGZ` HasNumTZGZ` TZGZLastCol岟`Toto梧` CheckSht2綻 tBirthDay笶`chrCells%`strCellsB`yearlii繾Maxnum渜` ActiveSheet%N`Sheet4`#% ' C   lmp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E 忇.`孧   擩tlb#OLE Automation`僂OffDic凟Ofic侲瀫攢丒2DF8D04C-5BFA-101B-BDE5E訟AC42圗gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#僊 1@0.0 Ob伭 LibraryKMSForms>SFms3D452EE1-E08F`A-8-02608C@4D0BB4SF豈20L'B 繽&/;"1僯嘔qAHq00}#@8@q# 50 娎A46505EE4-FB70-4CB1-A34F-DE94D53086D86DOCUME~1\ADMINILOCALSTemp\Exc`el8.0纁B8.xexd萪U=#.E 忇厐.`孧 碅"掠陆ThisWorkbookGT@縤mW俹kbok* 2 狧B1箩嵗BE,!箬""+鈘SheetT1G Se郹t1 2 % 音 *2 2 2 2S .Q摁 3 35 3 3 )c.秒 ˉ模块)'!jWW)2"./亐[-(嫰!U364-4)4-4S?"耪)b揔*yrU~~~~~~~ ~b 3E苒T2N杭亰1②    ) A  q !9IaY q)9!A! VBAProject ThisWorkbookSheet1Sheet2Sheet3模块1Sheet4F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  蘟y *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{46505EE4-FB70-4CB1-A34F-DE94D53086D8}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E 忇.`孧   擩ThisWorkbook074d596502ThisWorkbook箬 Sheet1084d596502 Sheet1% Sheet2094d596502# Sheet2Q0% Sheet30:4d596502% Sheet3c.H%!jWW10=4d596535&!jWW1嫰`亰 Sheet40<4d596502C Sheet4耪x%H`x0榀?M痯隙朘蟛"'廟N'市扜扺1hZ%F C糚<答7鍱75"諩SC 餬諠滊K& _!劈┨,W 蹹O"/ZKmTh;Excel+`VBA麾`Win16羱`Win32`Mac巢`VBA6#` VBAProject究`stdole揱`Officeu`MSFormsC` ThisWorkbook|鉦 _evalsuate賎 Workbook_Open涐`MsgBox桼`Sheet1`Activate梶`Cells峘Sheet2`Sheet3`模块1芻`boolFlag趞` StafferID揧` ErrContenti篳ANum/`BNum鮜 CheckAllCells4` Worksheets鉴`Sheets `Visible队` Application*`ScreenUpdating! `Num1慮`kb`xo`ne`lc`md`ai僜`aj刓`ak匼`ah俓`SexNumWA`strMsgG&`a1k\`a2l\`a3m\`strIndexA`i``ja`Maxrow+哷shtEdit鲓` Worksheet窿`IDflag` Insuredage6` UsedRange葔`Rows`Count0v`NoDataNeedToDealku`delOtherRecord耟RTrim呂`LTrim鬮`Trim@颼checkInputBirthDayFormat `dealOneRowData#`Continue`DisplayStatusBar糟` StatusBar蕼` IDCardCheck猗`Idcard~O`myrow喕`mydate `myyear襍`mmC^`dd韁` IsNumeric$*`LeapYear`year6n`chkIdentiyCard誤iChk[ `myWiX檂myAiO朻mySrc;羆myCount7梎Split)`UCase5 `Right `CalcAge&鋊datEmpDateOfBirth`DateDiff￡`main,`sj`px絕`0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel !@0F C:\WINDOWS\system32\stdole2.tlbstdole  PL续-鶾藉D轗?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice y)`.E 忇.`孧 C:\WINDOWS\system32\FM20.DLLMSForms  p鋇PFpL迶0嗀7C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Excel8.0\MSForms.exd y  CheckAllCells IDCardCheckchkIdentiyCardLeapYearCalcAgemainpxaddalldealOneRowDatacheckInputBirthDayFormatdelOtherRecord <<, E~\AD渾~RrU IdcardmyrowSrciChkyeardatEmpDateOfBirthxMaxnum[ThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3模块1!jWW1Sheet4Sheet4ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkboPROJECTwmPROJECTSummaryInformation(DocumentSummaryInformation8ok/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=模块1 Document=Sheet4/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5D5FF123314F354F354A3A4A3A" DPB="8587291B795E965E96A16A5F96199DBB48991E3A1931E6111C371266F4E4673EA49620DD833B" GC="ADAF0173019A029A029A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=22, 29, 624, 507, Z Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=22, 22, 279, 361, 模块1=44, 44, 301, 383, Z Sheet4=0, 0, 0, 0, C 鄥燆鵒h珣+'迟0@HXl user Lenovo UserMicrosoft Excel@ 苣@ 媕}苁胀諟.摋+,0 PXd lt| dd'  被保险人 险种保单受益人保费项 工作表 FMicrosoft Office Excel 工作表Biff8Excel.Sheet.89瞦CompObjj

百度