PKKO

¤p§Ì¤£¤~,¥Î¦Û¤v·Qªº¤è¦¡,±z¸Õ¸Õ¬Ý,§Ú¬O°²³]§Aªº¤é´Á¬O¦ì©óAÄæ
,­Y­n§ó§ï,½Ð¦b¤U­±³o¦æªºA:A´«¦¨§OÄæ
rng = Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Address

1. Sub test()
   
2. Application.ScreenUpdating = False 'Ãö³¬¿Ã¹õ
   
3.     Dim rng$
   
4.     Columns("A:A").NumberFormatLocal = "0.00_);(0.00)" '¼Æ¦r®æ¦¡
   
5.     '§ä¥X³Ì¤j¼Æ¦rªº¦ì¸m
   
6.     rng = Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Address
   
7.     Columns("A:A").NumberFormatLocal = "yyyy/m/d" 'Âà´«¦^­ì¥»¤é´Á®æ¦¡
   
8.     'range(AA)´N¬O§A­nªºµª®×=>³Ì¤jªº¤é´Á
   
9.     'rng ¬O³Ì¤j¤é´Áªºµ´¹ï¦ì¸m
   
10.     MsgBox Range(rng)
    
11. Application.ScreenUpdating = True '«ì´_¿Ã¹õ
    
12. End Sub

½Æ»s¥N½X

¦^´_ 1# s13983037

PKKO

¦^´_ 4# s13983037

«e­±¤j¤j»¡ªº¨S¿ù,³o¼Ë¤ñ¸û§Ö
¦pªG±zªº¸ê®Æ¦bAÄæ
¨ç¼Æ½Ð¿é¤J:
    =TEXT(MAX(AA:AA),"YYYY/MM/DD")