|
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方法，可以实现的功能提供给我们更多可选择，所以，在编程当中根据实际情况应用。 |
|
|
