VBA实现当前工作表翻页

VBA实现当前工作表翻页

在Excel中工作表的切换都需要鼠标点击来切换,能不能还有更简便的呢,当然有~

输入如下代码:

 
  1. Application.SendKeys "{PGUP}", True   
  2.     Application.SendKeys "{PGDN}", True   
  3. 或者   
  4.     ActiveWindow.LargeScroll Down:=1  
  5.     ActiveWindow.LargeScroll Down:=-1  

当然这个代码可以利用控件按钮执行!效果不错!也可利用worksheet事件触发!

分享到: