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

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

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

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

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

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2020-8-6 06:21 ½s¿è
²Ä¤@¦æ¥[³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

TOP

]¦^´_ 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]
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2020-8-6 10:03 ½s¿è

¦^´_ 4# GBKEE

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




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

TOP

¦^´_ 5# t8899

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

TOP

¦^´_  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

TOP

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

TOP

¦^´_ 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.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2020-8-18 10:25 ½s¿è
¦^´_  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

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD