標題: 請教個定位問題 [打印本頁]

---

作者: vic    時間: 2015-7-22 12:57     標題: 請教個定位問題

1.    If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
   
2.       ActiveWindow.ScrollRow = xRow - 5
   
3.    End If
   
4.    ThisWorkbook.Save
   
5.    Beep

複製代碼

以上的寫法應該是可以把紀錄下來的資料,將畫面定位在某一列,
不過當我同時開啟兩個excel檔的時候,是會互相干涉嗎?
譬如一個定位在20列30秒紀錄一次,一個定在30列1分鐘紀錄一次
變成每個30秒,兩個excel檔都會定在20列,另一個沒紀錄的也會移動到同一個列

---

作者: Min    時間: 2015-7-25 01:04

If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
      ActiveWindow.ScrollRow = xRow - 5
   End If

改成這樣呢?

   If  xRow > 20 Then
      Sht1.ScrollRow = xRow - 5
   End If

可以的話，修改ThisWorkbook.Save這一句，
指出明確要存檔的Workbook。

---

作者: vic    時間: 2015-7-25 13:06

[attach]21477[/attach]回復 2# Min

你好 會卡住

---

作者: GBKEE    時間: 2015-7-26 08:06

回復 3# vic

試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer
   
4.     With Workbooks(1)       '第一個活頁簿
   
5.         .Activate           '成為作用中的活頁簿
   
6.         With ActiveWindow   '作用中的活頁簿
   
7.             .NewWindow   '新開Window(視窗)
   
8.         
   
9.         End With
   
10.     End With
    
11.     Windows.Arrange ArrangeStyle:=xlHorizontal
    
12. 
    
13.     'Arrange : 對螢幕上的視窗進行排列。
    
14.     With Workbooks(1).Windows
    
15.         '第一個活頁簿,Windows 集合，此集合代表指定活頁簿中的所有視窗。
    
16.         For i = 1 To .Count
    
17.             .Item(i).ScrollRow = i * 15
    
18.         Next
    
19.     End With
    
20. End Sub

複製代碼

---

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