哪位高手能指点一下

东方狐

哪位高手能指点一下，在执行


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$E$8" Then
     Worksheets(1).ScrollArea = "E8:X14"
    End If
End Sub


后如何再选择其他单元格，如何编写？

无聊的疯子

这个问题最好是用按钮来控制!!!

东方狐

无聊的疯子 发表于 2013-3-25 21:40
这个问题最好是用按钮来控制!!!

你意思是说点旁边按钮来释放吗？如何编写？请指教。

hwc2ycy

Worksheet.ScrollArea 属性
以 A1 样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String 类型，可读写。
语法

表达式.ScrollArea

表达式   一个代表 Worksheet 对象的变量。

说明


可将该属性设置为空字符串 ("") 以允许对整张工作表内所有单元格的选定。

无聊的疯子

东方狐 发表于 2013-3-25 21:44
你意思是说点旁边按钮来释放吗？如何编写？请指教。

帮助里不是有说明嘛!!
Worksheets(1).ScrollArea = ""

不信这样不重名

原来如此，过来学习了哈哈，还是要多看F1呀

东方狐

无聊的疯子 发表于 2013-3-25 21:52
帮助里不是有说明嘛!!
Worksheets(1).ScrollArea = ""

怎么能释放？我是新手，能详细写一下吗？

东方狐

无聊的疯子 发表于 2013-3-25 21:40
这个问题最好是用按钮来控制!!!

你好，最后还是用此方法解决了问题，可能我当时没有说清楚。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.MoveAfterReturnDirection = xlDown

Dim X As Integer
Dim Y As Integer

Y = 6
For X = 5 To 23
If Target.Row = 13 And Target.Column = X Then
    Cells(8, Y).Select
End If
Y = Y + 1
Next X

If Target.Address = "$X$13" Then
    Cells(16, 5).Select
End If

Y = 6
For X = 5 To 23
    If Target.Row = 21 And Target.Column = X Then
        Cells(16, Y).Select
    End If
Y = Y + 1
Next X



End Sub