§ä¤é´Á¥X²{ "°õ¦æ¶¥¬q¿ù»~'91':¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ"
©«¤l 9 ¥DÃD 3 ºëµØ 0 ¿n¤À 13 ÂI¦W 0 §@·~¨t²Î windows 7 64 ³nÅ骩¥» office 2013 ¾\ŪÅv 10 ©Ê§O ¨k µù¥U®É¶¡ 2015-12-5 ³Ì«áµn¿ý 2016-7-11
§ä¤é´Á¥X²{ "°õ¦æ¶¥¬q¿ù»~'91':¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ"
Sub ¤é´Á¸õÂà()
'Âà´«¤é´Á
Dim today As Date
Sheets("¥D¶").Select
x = Range("J1").Value
DateValue (x)
MsgBox "" & x
Sheets("·í¤é¦¬¤ä").Select
Cells.Find(What:="" & x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
"°õ¦æ¶¥¬q¿ù»~'91':¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ"
쥻§äªº¨ìÃö±¼«¶}´N¤£¦æ¤F
©«¤l 9 ¥DÃD 3 ºëµØ 0 ¿n¤À 13 ÂI¦W 0 §@·~¨t²Î windows 7 64 ³nÅ骩¥» office 2013 ¾\ŪÅv 10 ©Ê§O ¨k µù¥U®É¶¡ 2015-12-5 ³Ì«áµn¿ý 2016-7-11
[ª©¥DºÞ²z¯d¨¥] GBKEE(2016/3/7 19:01): ªþÀɬݬݤ~²M·¡¨º¸Ì¥X¿ù¡C
¦³¤H¥i¥HÀ°¦£¸Ñµª¶Ü~~~¥un¯à°÷Àò¨úJ1ªº¤é´ÁµM«á¦b§Oªº¤À¶§ä¨ì¨º¤Ñªº¤é´Á´N¦n¤F~~~
©«¤l 9 ¥DÃD 3 ºëµØ 0 ¿n¤À 13 ÂI¦W 0 §@·~¨t²Î windows 7 64 ³nÅ骩¥» office 2013 ¾\ŪÅv 10 ©Ê§O ¨k µù¥U®É¶¡ 2015-12-5 ³Ì«áµn¿ý 2016-7-11
©«¤l 9 ¥DÃD 3 ºëµØ 0 ¿n¤À 13 ÂI¦W 0 §@·~¨t²Î windows 7 64 ³nÅ骩¥» office 2013 ¾\ŪÅv 10 ©Ê§O ¨k µù¥U®É¶¡ 2015-12-5 ³Ì«áµn¿ý 2016-7-11
¦^´_ 4# asd16801680
Cells.Find(What:=x , After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
xª½±µ³]´N¦n