[已解决]Application.Goto 方法

爱疯

说明

该方法与 Select 方法的区别：

• 如果指定的区域不在位于最前面屏幕的工作表中，Microsoft Excel 将在选定该区域之前切换至该工作表。（如果对不在屏幕的最前面的工作表中的区域使用 Select 方法，则选定该区域时并不激活该工作表）。
• 该方法具有让用户滚动目标窗口的 Scroll 参数。
• 当使用 Goto 方法时，前一次选定区域（Goto 方法运行前）被增加到以前选定区域的数组中（有关详细信息，请参阅 PreviousSelections 属性）。可以使用该功能快速跳过选定区域，选定区域最多为四个。
• Select 方法具有 Replace 参数，而 Goto 方法没有该参数。

请问后两点是什么意思？谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2010-2-10 11:09

Replace      Variant 类型，可选。如果该值为 True，则用指定对象替代当前选定区域。如果该值为 False，则延伸当前选定区域以包括任何以前选定的对象和指定对象。

Sub Test2()
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheet3.Select True
End Sub
Sub Test3()
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheet3.Select False
End Sub

跳转到最佳答案楼层

吕?布

第三条我理解是GOTO方法(定位)前的选取区域被添加到PreviousSelections所指的数组中，可以使用GOTO快速定位区域

第四条应没什么问题吧，就是说Select方法带有一个参数Replace，函数或方法带参数，这好象不用解释吧

爱疯

QUOTE:

以下是引用吕?布在2010-2-9 21:48:00的发言：

第三条我理解是GOTO方法(定位)前的选取区域被添加到PreviousSelections所指的数组中，可以使用GOTO快速定位区域

第四条应没什么问题吧，就是说Select方法带有一个参数Replace，函数或方法带参数，这好象不用解释吧

谢谢吕布！

第3条，我看了PreviousSelections的帮助后，

Sub a()
'选择A1单元格以后
MsgBox Application.PreviousSelections(1).Address
'为什么不返回A1的地址？
End Sub

第4条，我也没发现select有参数replace的帮助呀？可以举例一下这个参数么？

青城山苦丁茶

悄悄跟着看[em02][em02][em02]

喜多多

发现爱疯在学api

我我的进度还没有到api

leolee82

偷看下下

[em04]

爱疯

QUOTE:

以下是引用喜多多在2010-2-10 10:37:00的发言：

发现爱疯在学api

我我的进度还没有到api

我没学啊，我只是看到个想知道的东西，也忍不住问问[em06]

amulee

3、当运行GOTO时，才会记录地址。

Sub Test()
    Application.Goto Reference:=Worksheets("Sheet1").Range("A1000"), scroll:=True
    MsgBox Application.PreviousSelections(1).Address
End Sub

4、

MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\VBAXL10.CHM::/html/xlmthSelect1.htm#">msitstore:msohlp11.chm::/html/bluedrop.gif"/>应用于 Chart、Charts、msitstore:msohlp11.chm::/html/bluedrop.gif">Shape、ShapeRange、Sheets、Worksheet 和 Worksheets 对象的 Select 方法。

选定对象。

expression.Select(Replace)

expression      必需。该表达式返回上面的对象之一。

Replace      Variant 类型，可选。要替换的对象。

amulee

Replace      Variant 类型，可选。如果该值为 True，则用指定对象替代当前选定区域。如果该值为 False，则延伸当前选定区域以包括任何以前选定的对象和指定对象。

Sub Test2()
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheet3.Select True
End Sub
Sub Test3()
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheet3.Select False
End Sub

爱疯

谢谢阿木！

看示例就好明白了，学习[em04]