標題: 上移 [打印本頁]

---

作者: myleoyes    時間: 2010-6-13 14:06     標題: 上移

各位前輩你們好!
　　      前輩!問題如附檔案說明　
              Sub 位移()
            If ActiveWindow.ScrollRow > 90 Then
            ActiveWindow.ScrollRow = 2
            Else
            ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 10
            End If
            End Sub
          請知道的前輩,不吝賜教謝謝再三!!

---

作者: GBKEE    時間: 2010-6-13 17:44

回復 1# myleoyes

1. Sub 位移()
   
2.     Dim 位移數%
   
3.     位移數 = 12
   
4.      If ActiveWindow.ScrollRow > 位移數 Then
   
5.         ActiveWindow.ScrollRow = (ActiveWindow.ScrollRow + 位移數 + 1) - ActiveWindow.ScrollRow Mod 位移數
   
6.      ElseIf ActiveWindow.ScrollRow <= 位移數 Then
   
7.         ActiveWindow.ScrollRow = 位移數 + 1
   
8.      End If
   
9. End Sub

複製代碼

---

作者: myleoyes    時間: 2010-6-13 18:34

回復 2# GBKEE
GBKEE前輩你好!
　　　　 良師!!真是感恩...謝謝再三!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)