VBA如何跳轉到工作表任意位置，一個方法實現，想去哪裡就去哪裡

2021-06-08 10:44:30

No.1

Excel工作表中的單元格定位是一個很有用的功能，可以說沒有這個定位，就無法進行資料處理。

本節介紹一個方法，實現任意單元格定位。

如上圖所示，Application.Goto方法就是這個功能是一個語句。

它是Application物件下的方法，有兩個參數可選。

如下圖所示：

Reference 定位單元格，它可以是Range物件，也可以是包含R1C1樣式單元格地址。

Sroll 可定位視窗到左上角顯示。可選True或False值。

語法：

Application.Goto (Reference， Scroll)

示例：

Application.Goto Reference:=Range("A10"),Scroll=True

本語句可定位到當前工作表A10單元格，並選中A10單元格。

No.2

下面是具體演示程式碼：

Private Sub CommandButton1_Click()If VBA.CLng(Me.ComboBox1.Value) > ActiveSheet.Rows.Count ThenMsgBox "跳了個寂寞！"Exit SubEnd IfApplication.Goto reference:=ThisWorkbook.Worksheets(1). _Range("A" & Me.ComboBox1.Value), Scroll:=True '定位到目的單元格ActiveSheet.Cells.Clear '清除表格ActiveSheet.Rows(ActiveCell.Row).Interior.Color = QBColor(12) '設定行背景顏色With ActiveCell.Value = "當前是第" & ActiveCell.Row & "行" '單元格賦值.Interior.Color = QBColor(11) '設定單元格背景顏色End WithWith Me.ComboBox1.Top = ActiveCell.Top '定位組合框上邊距End WithWith Me.CommandButton1.Top = ActiveCell.Top '定位按鈕上邊距End WithWith Me.CommandButton2.Top = ActiveCell.TopEnd WithEnd Sub

表格定位還有一個方法Select，此方法與 Select 方法在以下方面不同：

如果在不在最上面指定的工作表上指定一個範圍，Microsoft Excel在選擇之前切換到該工作表。此方法有Scroll 參數，可以滾動目標視窗。可以使用該功能快速跳過選定區域，選定區域最多為四個。Select 方法具有 Replace 參數;Goto 方法沒有。無論如何Goto方法，可以實現的功能提供給我們更多可選擇，所以，在程式設計當中根據實際情況應用。

歡迎關注、收藏

---END---

VBA如何跳轉到工作表任意位置，一個方法實現，想去哪裡就去哪裡

熱門文章