- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2016-2-9 13:36 ½s¿è
¾P³f³æ¸¹¦³¥H¤U°ÝÃD, ¥i¯à¶·¦Ò¼{¡G
¢°¡D¤é´Á¥i¯à¤£¬O·í¤Ñ¡Ä¨Ò¦p¡G¥ý¥H¤â¶}³æ¥X³f¡A¹j´X¤Ñ¸Éµn
¢±¡D©Î¦]Á{ªñ¤ëµ²¤é¡AÀ³«È¤á³W©w¶·p¤J¤U¤ë±b¡A«h¶·¥H¸ó¤ë±b¤é´Á¿é¤J¡A
¡@¡@¨Ò¦p¡G¨C¤ë¤ëµ²¤é¬°¢±¢¯¤é¡A¦]«È¤á¥i¯à¢±¢°©Î¢±¢±¤é¤~¦¬¨ì³f¡A
¡@¡@¥»µ§³f´ÚÀ³p¤J¤U¤ë±b¡A¬°¨ÏÀ³¦¬±b´Ú¤é´Á¤@P¡A¥i¯à¶·±N¾P³f³æ¤é´Á§ï¬°¢±¢°¤é
¢²¡D¾P³f³æ¥i¯à¦³¬Y¨Çì¦]¦Ó§R°£¡A³o·|²£¥Í¡e¸õ¸¹¡f¡A
¡@¡@Y¶È¥H¤é´Á¥hpºâµ§¼Æ¡A¦A¥H¡eµ§¼Æ¡f¥[¤@¡AÀ³ÁÙ¤£¬O³Ì¥¿½Tªº°µªk
³Ì¦n¯à¥H¡eFIND¡f¾P³f©ú²Ó¤¤¡e«ü©w¤é´Á¡DEMMDD]³Ì«á¤@µ§³æ¸¹¡A¥H¨ä¡e§Ç¸¹¡f¥[¤@¡I
°²³]¡G¢Ï¢±¬°¡e¾P³f¤é´Á¡f¡D¢Ï¢²¬°¡e¾P³f³æ¸¹¡f¡A¾P³f©ú²Ó¤u§@ªíªº¡e³æ¸¹¡f¦b¢ÐÄæ¡]¦³±Æ§Ç¡^
Dim DD&, xF As Range, S%
DD = Format([A2], "emmdd")
Set xF = [¾P³f©ú²Ó!B:B].Find(DD, SearchDirection:=xlPrevious)
If Not xF Is Nothing Then S = Right(xF, 3) + 1 Else S = 1
[A3] = DD & Format(S, "-000") |
|