Question

我需要我的用户能够在工作簿中的每张工作表上选择相同的单元格），但我不能让他们必须进入代码来更改它。代码需要保持受保护。我看过帖子指示使用shift键突出显示所有选项卡，然后在一张纸上选择适当的单元格，并在所有其他纸张上选择相应的单元格。我对这种方法的问题是，其他工作表的相关区域不一定是可见的，用户仍然需要滚动。

我找到了一些我能够修改以满足我的需求的代码，它很容易更改单元格引用，但我需要用户能够这样做而无需进入代码。

Sub GoToSelectCellOnEverySheet()

Dim i As Long

For i = 1 To 32
Worksheets(i).Activate

Range("A1").Select

Next i

Worksheets(1).Activate

End Sub

我遇到了其他我认为可以修改的内容，但这只是在我试图引用用户输入的地方。我已尝试过该行代码的各种变体，但无济于事。我不知道我是否遗漏了一些简单的东西，或者我的方法是否完全有缺陷。它到达

时就会死掉

Range.("rRange").Select

非常感谢任何帮助。谢谢！

Sub RangeDataType()

Dim rRange As Range

    On Error Resume Next

        Application.DisplayAlerts = False

            Set rRange = Application.InputBox(Prompt:= _
                "Please Select A Cell", _
                    Title:="SPECIFY RANGE", Type:=8)

    On Error GoTo 0

        Application.DisplayAlerts = True

        If rRange Is Nothing Then

            Exit Sub

        Else

Dim i As Long

For i = 1 To 32

Worksheets(i).Activate

Range.("rRange").Select

Next i

Worksheets(1).Activate

        End If

End Sub

Answer 1

尝试做这样的事情：

Set rRange = Application.InputBox(Prompt:= _
            "Please Select A Cell", _
                Title:="SPECIFY RANGE", Type:=8)

If rRange Is Nothing Then Exit Sub

Dim i As Long
For i = 1 To 32
    Worksheets(i).Activate
    Range(rRange.Address).Select
Next i

Excel VBA代码，允许用户在每张工作表上选择相同的单元格

1 个答案: