[µo°Ý] range ¤èªk worksheet ª«¥ó¥¢±Ñ

t8899

Private Sub Worksheet_Calculate()
If Sheets("§Y®É¦æ±¡").Range("az5") = 1 And Sheets("§Y®É¦æ±¡").Range("a2000").End(xlUp).Offset(1).Row = activewindow.VisibleRange.Row + activewindow.VisibleRange.Rows.count - 3 Then
Sheets("§Y®É¦æ±¡").Range("az5") = 2
Dim Aer
Set Aer = .Range("a2000").End(xlUp).Offset(-5)
ActiveWindow.ScrollRow = Aer.Row
Set Aer = Nothing
Sheets("§Y®É¦æ±¡").Range("az5") = 1
End If

¦pªG§Ú¤Á¨ì§Oªºsheet ¦³®É·|¥X²{ range ¤èªk worksheet ª«¥ó¥¢±Ñ,(¿ù¦b²Ä¤@¦æ)
§Ú¬dªº¸Ñ¨M¤èªk¬O¥²¶·¥ý¨Ï¥Î Worksheet ª«¥óªº Activate ¤èªk±Ò¥Î¤u§@ªí¡A¤~¯à¦b¨S¦³©ú½Tª«¥ó­­©wµüªº±¡ªp¤U¨Ï¥Î Range ÄÝ©Ê¡C
¤W­±µ{¦¡¤£ª¾¦p¦ó§ï ¡H¡H

­ã´£³¡ªL

²Ä¤@¦æ¥[³o¬Ý¬Ý~~
If ActiveSheet.Name <> "§Y®É¦æ±¡" Then Exit Sub

t8899

²Ä¤@¦æ¥[³o¬Ý¬Ý~~
If ActiveSheet.Name  "§Y®É¦æ±¡" Then Exit Sub
­ã´£³¡ªL µoªí©ó 2020-8-1 12:22

½Ð±Ð¦pªG¤W­±¬õ¦â³o¦æ¦pªG¦³¿ù»~¡A«h...........»yªk¬O¡H¡H
§PÂ_¿ù»~¦¹¦æ¬O­n©ñ¦b«e­±©Î«á­±¡H
¬O¥ÎIsError ©Î CVErr ¡H¡H

GBKEE

]¦^´_ 3# t8899
§Aµ{¦¡½X¦³»~  Set Aer = .Range("a2000").End(xlUp).Offset(-5)
¥[¤J  With Sheets("§Y®É¦æ±¡") ¸Õ¸Õ¬Ý
[codePrivate Sub Worksheet_Calculate()
If Sheets("§Y®É¦æ±¡").Range("az5") = 1 And Sheets("§Y®É¦æ±¡").Range("a2000").End(xlUp).Offset(1).Row = ActiveWindow.VisibleRange.Row + ActiveWindow.VisibleRange.Rows.Count - 3 Then
Sheets("§Y®É¦æ±¡").Range("az5") = 2
Dim Aer
With Sheets("§Y®É¦æ±¡")
Set Aer = .Range("a2000").End(xlUp).Offset(-5)
End With
ActiveWindow.ScrollRow = Aer.Row
Set Aer = Nothing
Sheets("§Y®É¦æ±¡").Range("az5") = 1
End If
End Sub
[/code]

t8899

¦^´_ 4# GBKEE

ÁÂÁ´£¿ô¡A§Ú­ì¥»´N¦³¥[¡A°¸¦ÓÁÙ¬O·|¥X²{¿ù»~¡A§ì¤£¥X­ì¦]¡A¿ù»~µo¥Í®É«ö¡§Ä~Äò¡¨¤£¨ü¼vÅT
·Q¥Îiserror ª½±µ¸õ¹L¡A¤£ª¾¦p¦ó°µ¡H

¤U¸ü (89.62 KB)

2020-8-6 10:01

³o¬O©ñ¦b Private Sub Worksheet_Calculate()

­ã´£³¡ªL

¦^´_ 5# t8899

µ{¦¡½X¤£§¹¾ã, ²q¤£¥X~~
µ{¦¡²Ä¤@¦æ¥Î ON ERROR RESUME NEXT §a!

t8899

¦^´_  t8899

µ{¦¡½X¤£§¹¾ã, ²q¤£¥X~~
µ{¦¡²Ä¤@¦æ¥Î ON ERROR RESUME NEXT §a!
­ã´£³¡ªL µoªí©ó 2020-8-6 10:46

Private Sub Worksheet_Calculate() ©³¤U­n¦n´X­Ó±ø¥ó¡A§Ú¥u·Q°w¹ï³o­Ó±ø¥ó¡A ©ñ¦b²Ä¤@¦æ¡H¨ä¥L±ø¥ó¤]·|¸õ¹L¶Ü¡H

­ã´£³¡ªL

On Error GoTo 999
If Sheets("§Y®É¦æ±¡2").Range("az5") = 1 And _
   Sheets("§Y®É¦æ±¡").Range("a2000").End(xlUp).Offset(1).Row = _
   ActiveWindow.VisibleRange.Row + ActiveWindow.VisibleRange.Rows.Count - 3 Then
   Sheets("§Y®É¦æ±¡").Range("az5") = 2
   Dim Aer
   Set Aer = Range("a2000").End(xlUp).Offset(-5)
   ActiveWindow.ScrollRow = Aer.Row
   Set Aer = Nothing
   Sheets("§Y®É¦æ±¡").Range("az5") = 1
End If
999: On Error GoTo 0

GBKEE

¦^´_ 7# t8899
Worksheet_Calculate()¤u§@ªí¼Ò²Õªº¹w³]¨Æ¥ó.
·í³o¤u§@ªí¼Ò²Õ¤Wªº¤u§@ªí,¥ô¤@Àx¦s®æ¤½¦¡­È§ïÅܮɷ|IJµo³oWorksheet_Calculate()

Private Sub Worksheet_Calculate() ©³¤U­n¦n´X­Ó±ø¥ó¡A§Ú¥u·Q°w¹ï³o­Ó±ø¥ó¡A ©ñ¦b²Ä¤@¦æ¡H¨ä¥L±ø¥ó¤]·|¸õ¹L¶Ü

³oWorksheet_Calculate() ¬O³oSheets("§Y®É¦æ±¡")¤u§@ªí¼Ò²Õ¤Wªº¶Ü?

½Ðªþ¤W§¹¾ãÀÉ®×,¦nÁA¸Ñ§Aªº°ÝÃD.

t8899

¦^´_  t8899
Worksheet_Calculate()¤u§@ªí¼Ò²Õªº¹w³]¨Æ¥ó.
·í³o¤u§@ªí¼Ò²Õ¤Wªº¤u§@ªí,¥ô¤@Àx¦s®æ¤½¦¡­È§ï ...
GBKEE µoªí©ó 2020-8-6 13:44

©êºp........Àɮפ£¤è«Kªþ¤W, ¦]¬°Àɮצ³¥Î¨ìDDE............
³o¥y¬O§_¥i¥H§ï©ñ¦b¨ä¥L¦a¤è¡H¹³Private Sub Worksheet_Change
¤£­n©ñ¦b Private Sub Worksheet_Calculate()¡A¦³®É·|¿ù»~ ¡H
¦bactive¤U ¤]·|¥X²{range ¤èªk¦³°ÝÃD
§Ú·Q¥Î on error resume next¡A¤£¤Ó¾A¥Î¦b Worksheet_Calculate ¡H