lpk187

¦^´_ 1# VBALearner


    µ{¦¡¦³»~¤wÀ°§A­×¥¿¡A¤é´Á¥²¶·«Å§i¬°Date ¡AFind¤~·|§ä¨ì
À³¸Ó­n¾i¦¨«Å§iÅܼƪº²ßºD¡I

1. Sub test()
   
2. 
   
3.     Dim rng1 As Range, rng2 As Range
   
4.     Dim ¤é´Á As Date
   
5.     With Sheets(1)
   
6.         ¸¹½X = .Cells(3, 18)
   
7.         ¤é´Á = .Cells(2, 19)
   
8.         '.Activate'³o¦æ¥i¥H¤£¥Î
   
9.         Set rng1 = .Columns(1).Find(¸¹½X)
   
10.         Set rng2 = .Rows(1).Find(¤é´Á, LookIn:=xlValues)
    
11.         .Cells(3, 19) = .Cells(rng1.Row, rng2.Column).Value
    
12.     End With
    
13.    
    
14. End Sub

½Æ»s¥N½X