標題: 請問 Ctrl + Home 應該點寫 [打印本頁]

---

作者: enoch    時間: 2012-6-21 15:52     標題: 請問 Ctrl + Home 應該點寫

請問到視窗右下角 end+home  是 xlLastCell
若果想到視窗左上角, 應該點寫呢
請指教

---

作者: alex_wu    時間: 2012-6-21 18:04

Range("A1").Select

---

作者: enoch    時間: 2012-6-27 10:57

當凍結視窗後, 如何返到作用視窗的左上角

---

作者: register313    時間: 2012-6-27 11:17

回復 3# enoch

與凍結視窗無關
返回作用視窗的左上角
Range("a1").Select
Cells(1,1).Select
[a1].Select

---

作者: GBKEE    時間: 2012-6-27 11:50

本帖最後由 GBKEE 於 2012-6-27 11:51 編輯

回復 3# enoch

1. Option Explicit
   
2. Sub Ex() '凍結視窗 分割視窗 中  移動到作用視窗的左上角
   
3.     Dim Rng As Range, xlRow As Integer, xlCol As Integer
   
4.     With ActiveWindow
   
5.         If .Split = False Then          '沒分割視窗
   
6.             [a1].Select
   
7.             Exit Sub
   
8.         End If
   
9.         Set Rng = Selection.Cells(1)    '設立 作用中的儲存格
   
10.         xlRow = .SplitRow               '分割成窗格處的列數
    
11.         xlCol = .SplitColumn            '分割成窗格處的欄數
    
12.     End With
    
13.     If Rng.Row <= xlRow Then            '所在列數 小於等於 分割成窗格處的列數
    
14.         If Rng.Column <= xlCol Then     '所在欄數 小於等於 分割成窗格處的欄數
    
15.             Cells(1, 1).Select
    
16.         Else                            '所在欄數 大於 分割成窗格處的欄數
    
17.             Cells(1, xlCol + 1).Select
    
18.         End If
    
19.     Else                               '所在列數 大於 分割成窗格處的列數
    
20.         If Rng.Column <= xlCol Then
    
21.             Cells(xlRow + 1, 1).Select
    
22.         Else
    
23.             Cells(xlRow + 1, xlCol + 1).Select
    
24.         End If
    
25.     End If
    
26. End Sub
    
27. Sub Ex_1() '凍結視窗 分割視窗 中 移動到右下視窗的左上角
    
28.     Application.SendKeys "^{HOME}"
    
29. End Sub

複製代碼

---

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