excel中的goto

goto

1.goto 行標籤:vba跳轉語句:過程內跳轉並執行語句(示例3)

2.application.goto reference :=“語句或者過程名”  一種application方法

執行引用的語句(示例1)或跳轉到過程名指定的過程中(並不執行該過程)(示例2)

3.二者不能用混了,否則會出現語法錯誤


示例1

Sub mm()

    Application.Goto Reference:=Sheets("sheet1").Range("b5:e10"), scroll:=True

End Sub

選擇指定區域並轉到該工作表(不需要先用代碼激活該表),scroll決定是否選擇的區域滾動顯示在

左上角

示例2

Sub RngGoto()

    Application.Goto Reference:="mm"

End Sub

光標跳轉到指定的過程mm中(並不執行)


****************

示例3(來自excelhome網的網友)

本過程中跳轉執行

Sub GotoStatementDemo()

Dim Number, MyString

    Number = 1    ' 設置變量初始值。

    ' 判斷 Number 的值以決定要完成那一個程序區段(以“程序標籤”來表式)。

    If Number = 1 Then GoTo Line1 Else GoTo Line2

    

Line1:

    MyString = "Number equals 1"

    GoTo LastLine    ' 完成最後一行。

Line2:

    ' 下列的語句根本不會被完成。

    MyString = "Number equals 2"

LastLine:

    Debug.Print MyString    ' 將“"Number equals 1"”顯示在“立即”窗口。

End Sub




發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章