- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
ÁÂÁ¶W¯Åª©¥D¡C
intersect¦³¾Ç¹L¡A«o
¤£À´±oÀ³¥Î¡C
¤p§Ì¯u¸Ó¥´§¾ªÑ¤F¡C
Sub aa()
Dim mSht As Worksheet
Dim mRng As Range
Set mSht = Worksheets("test")
With mSht
If Not Intersect(Selection, [student]) Is Nothing Then
If TypeName(Selection) = "Range" Then
Set mRng = Selection
MsgBox mRng.Address
End If
End If
End With
End Sub
·P®¦ª©¥D¤j¤j¡C |
|