[µo°Ý] ¦p¦ó¥Îvbaª¾¹D¿ï¨ú°Ï°ì§@¥ÎªºÀx¦s®æ&Äæ&¦Cªº­ºÄæ¦C¤Î§ÀÄæ¦C¦ì¸m

toromru

¦pÃD¡G

§Ú·Q³z¹L¥¨¶°ªº¤è¦¡¿z¿ïÄæ¦ì­È«á
±oª¾¤@³¡¥÷°Ï°ìªº¿z¿ï«áªºÀx¦s®æ¡A
·Qª¾¹D­ºÄæ¦C¤Î§ÀÄæ¦Cªº¦ì¸m

¦p¿z¿ï¥Xªº­È¸¨¦b  A50:A90  
´N¬O·Qª¾¹D Àx¦s®æ A50:A90  ¤£ª¾¹D ­n¦p¦ó¼g  

³Â·Ð¦U¦ì¤j¤j¤F

ikboy

¿ï¨ú°Ï°ì§@¥ÎªºÀx¦s®æ&Äæ&¦Cªº­ºÄæ¦C¤Î§ÀÄæ¦C¦ì¸m
debug.print Selection.address
or
debug.print Selection.address(0,0)

no3-taco

¦^´_ 1# toromru

³o¸Ì¦³Ãþ¦üªº°ÝÃD¥i¥H¸Ñµª
http://forum.twbts.com/thread-10166-1-1.html

toromru

¦^´_ 3# no3-taco


    ¥L³o½g§Ú¦³¬Ý¨ì@@

     ¦ý¬O¥L¥u¦³Åª¨ú¨ì¤@Àx¦s®æªº¦ì§}

      §Ú¬O·Qª¾¹D ÀY§ÀÀx¦s®æªº¦ì§}!!!  ÁÂ

toromru

¦^´_ 2# ikboy


   
   ±z¦n~  

     ·Q¸ß°Ý ¦³¿ìªk¦Û°Ê§ì¨ú ¿z¿ï¥X¨Óªº­Èªº¦ì§}¶Ü?!

    ¿z¿ï«á ¦ü¥G¤£·|¦Û°Ê¿ï¨ú....

ikboy

±µ¤J±zªº¥N½X¸Õ¬Ý, ¦ý¥Ñ©ó¤£ª¾¿z¿ïªº¹ê»Ú°Ï°ì,¤U­±¥N½X¬O¥H[a1]¬°·Ç
Sub zz()
If ActiveSheet.FilterMode = True Then
    Set rng = [a1].CurrentRegion
    zr = rng.Rows.Count
    zc = rng.Columns.Count
    For i = 2 To zr
        If rng.Cells(i, 1).RowHeight > 0 Then Exit For
    Next
MsgBox rng.Cells(i, 1).Address(0, 0) & ":" & rng.Cells([a1].End(4).Row, zc).Address(0, 0)
End If
End Sub

toromru

¦^´_ 6# ikboy


    §A¦n :

     «Ü·PÁ±z´À§Ú¸Ñµª¡A§Ú¿z¿ïªºÄæ¦ì¬°d1  

    ¥Ø«e¨Ï¥Î§Aªºµ{¦¡½X ¤£ÅÜ a1ªº¸Ü ¥X¨Óªº°T®§¬° A381:D806  

    Dªº­È¬O¹ïªºµL»~¡A¦ýA381¯à§_°»´ú¬°D381©O?!

    ·Q­nªº­È¬° D381:D806  !!!

    ¦ý§â§Aµ{¦¡½X¤ºªºa1§ï¦¨§Ú¿z¿ïªºd1  ¥X¨Óªº°T®§«h³£¬O A381:D381 ¤Ï¦Ó¬O½T»~ªº!!!

    ¦A³Â·Ð±z¨ó§UÀ°¦£  ÁÂÁ !!

toromru

¦^´_ 6# ikboy


     §A¦n:
   
              ¤S©ÎªÌ ¯à§_¥u»Ý­n±o¨ì値©O?!

              ¤ñ¦p¤W«h¤Þ¥Îªº °T®§¦³¥X²{ A381:D806

              ¯à§_°T®§¥u¥X   381:806 ³o¼Ë!!

ikboy

Sub zz()
If ActiveSheet.FilterMode = True Then
    Set rng = [a1].CurrentRegion
    zr = rng.Rows.Count
    zc = rng.Columns.Count
    For i = 2 To zr
        If rng.Cells(i, 1).RowHeight > 0 Then Exit For
    Next
MsgBox rng.Cells(i, zc).Address(0, 0) & ":" & rng.Cells([a1].End(4).Row, zc).Address(0, 0)
End If
End Sub

­ã´£³¡ªL

Set fa = [d2:d65536].SpecialCells(xlCellTypeVisible)(1)
Set fb = [D65536].End(xlUp)
MsgBox fa.Address(0, 0) & ":" & fb.Address(0, 0)
MsgBox fa.Row & ":" & fb.Row

¤£ª¾¨ú³o¦ì§}¥Øªº¬°¦ó¡H