- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
  
|
DEAR SIR
©ó SHEET1 ¥[¤J¦p¤U§Y¥i¹F¦¨ A1¿ï¨ú B1 ¦Û°Ê¨q¥Xµ²ªG
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Select
A1 = Sheet1.Range("A1")
mymax = Evaluate("VLOOKUP(A1,¤u§@ªí2!B1:C5,2)")
Sheet1.Range("B1") = mymax
End Sub |
|