- ©«¤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
|
[µo°Ý] ½Ð°Ý¦³µL¨ä¥L¤è¦¡ª½±µ±oª¾©w¸q¦WºÙ½d³òªº¦C¸¹¶Ü¡H
¦U¦ì¤j¤j¡G
¤p§Ì¥t¦³¤@°ÝÃD½Ð敎¦U¦ì¤j¤j¡A
¦b¿ï©wªºÀx¦s®æ¦ì¸m¤w¥i§PÂ_¥X¬O
¦ì¦b©w¸q¦WºÙªº½d³ò¤º¡C¦]¦¹¡A¨ä
§ä¥X²Å¦XªºÀx¦s®æ¦ì¸m¨ä¦C¸¹¬°
«ü©wªº¤u§@ªí¦C¸¹¡A¦Ó«DÄÝ©w¸q¦WºÙ
ªº¦C¸¹¡C
½Ð°Ý¤@¯ë©Ê¬O¨Ì§ä¥Xªº¦C¸¹¦A¨Ì
©w¸q¦WºÙªº¦ì¸m˺â¥X¨ä©w¸q¦WºÙ
ªº¦C¸¹©Î¬O¥t¦³¨ä¥L¤è¦¡¥iª½±µ§ä
¥X©w¸q¦WºÙªº¦C¸¹¶Ü¡H
¨Ò¦p¡G¦³¤@¤u§@ªí
©w¸q¦WºÙ¡Gstudent
©w¸q½d³ò¡GC8-G14
²{SELECTION¦ì¸m¬°C12
¨ä¦C¸¹¥²¬° 12
¦Ó«D©w¸q¦WºÙªº¦C¸¹ 5
Sub aa()
Dim mSht As Worksheet
Dim mRng As Range
Dim mRow As Integer
Set mSht = Worksheets("test")
With mSht
If TypeName(Selection) = "Range" Then
If Not Intersect(Selection, [student]) Is Nothing Then
Set mRng = Selection
MsgBox mRng.Address
mRow = mRng.Row
End If
End If
End With
End Sub
ÁÂÁ¦U¦ì¤j¤j¡C |
|