ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦³µL¨ä¥L¤è¦¡ª½±µ±oª¾©w¸q¦WºÙ½d³òªº¦C¸¹¶Ü¡H

[µ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

TEST-A1.rar (7.36 KB)

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Target.Column    '¿ï¨úÀx¦s®æ°_©l¦æ¼Æ
  3. Target.Row        '¿ï¨úÀx¦s®æ°_©l¦C¼Æ
  4. Target.Count      '¿ï¨úÀx¦s®æªº¼Æ¶q
  5. ..
  6. ...
  7. end sub
½Æ»s¥N½X
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

MsgBox Selection.Row - [student].Row + 1
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶W¯Åª©¥D¤j¤j¦n¡G

    ¤p§Ì¦b¦¹¯¬ºÖ¦U¦ì¤j¤j
¦³¤@¬ü¦nªº¤¤¬î¨Î¸`¡C

   ª©¥D¤j¤j´£¨Ñ¦p¦¹«K±¶ªº¤è¦¡
¯u¬O¥t¤HÆg½à¡C
  
·P®¦ª©¥D¤j¤j¡I

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD