§ä¤é´Á¥X²{ "°õ¦æ¶¥¬q¿ù»~'91':¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ"

qaz200581

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

qaz200581

¦^´_ 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

qaz200581

¤w¸Ñ¨M·PÁÂ

qaz200581

¦³¤H¥i¥HÀ°¦£¸Ñµª¶Ü~~~¥u­n¯à°÷Àò¨úJ1ªº¤é´ÁµM«á¦b§Oªº¤À­¶§ä¨ì¨º¤Ñªº¤é´Á´N¦n¤F~~~