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

[µo°Ý] ¶Ç¦^¤u§@ªí¥i¨£ªº²Ä¤@­Órow ??

[µo°Ý] ¶Ç¦^¤u§@ªí¥i¨£ªº²Ä¤@­Órow ??

¥»©«³Ì«á¥Ñ t8899 ©ó 2021-1-30 10:06 ½s¿è

¶Ç¦^¤u§@ªí¥i¨£ªº²Ä¤@­Órow ??
¬O¤u§@ªí¤£¬O§@¥Îµøµ¡
¦p¹Ï  row=28

  1. Sub zz()
  2. Debug.Print ActiveWindow.ActivePane.VisibleRange(1, 1).Row
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# ikboy

¤u§@ªí¤£¬O"·í«eµøµ¡" ???

activewindow ¥Î¤£¤W

TOP

¦^´_  ikboy

¤u§@ªí¤£¬O"·í«eµøµ¡" ???

activewindow ¥Î¤£¤W
­ã´£³¡ªL µoªí©ó 2021-1-31 12:00


¬O¤u§@ªí
¤u§@ªí¤£µ¥©óactivewindow

TOP

¼Ó¥D·í«e¦³¦h­Ó¤u§@ïµøµ¡? ©Ò­nÀò±oªºRow¸¹¬O§_·í«e¤u§@諸·í«e¤u§@ªí? ¨ä¹ê°N­n¬O·í«e¤u§@ªí, ³o¬q¥N½X¬O¥i¦æªº¡C
  1. Sub zz()
  2. Debug.Print ActiveWindow.ActivePane.VisibleRange.Rows(1).Row
  3. End Sub
½Æ»s¥N½X
­Y¨ä¥L§@ïµøµ¡ªº·í«e¤u§@ªí,
  1. Sub zz()
  2. Debug.Print Windows(¸Óµøµ¡¦W©Î¸Óµøµ¡index).ActivePane.VisibleRange.Rows(1).Row
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# ikboy

Windows(¸Óµøµ¡¦W©Î¸Óµøµ¡index).ActivePane.VisibleRange.Rows(1).Row
¦pªGÀɦW¬Oabc.xlsm (µ¡¦W¬°abc) ¤u§@ªí¬°sheet1 ¡]¶È¾A¥Îsheet1)
«h»yªk¬O¡H¡H

TOP

§Ú°N¯à¥Î²Â¤èªk:
  1. Sub zz()
  2. Application.ScreenUpdating = 0
  3. Dim ws As Worksheet
  4. Set ws = ActiveSheet
  5. With Workbooks("abc.xlsm")
  6.     .Sheets(1).Activate
  7.     Debug.Print ActiveWindow.ActivePane.VisibleRange.Rows(1).Row
  8. End With
  9. ws.Activate
  10. Application.ScreenUpdating = 1
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# ikboy

§Ú¥D­n¥Øªº¬O¤£ª¾¤U­±³o¥y©ñ¦bWorksheet_Calculate¦³®É·|¥X²{¿ù»~¡H¡H¤~·|·Q¥Î§Oªº¤èªk´À¥N
Private Sub Worksheet_Calculate()
IF ActiveSheet.Name = "good" Then

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD