Question

我从excel vba开始，当我尝试根据cell中range的位置从range中选择一个range时，我遇到了一个问题。

更具体地说，我的目标是让用户键入Private Sub CommandButton1_Click() Dim enteredValue As String enteredValue = Range("A5").Text Dim focusArea As Range Set focusArea = Range(enteredValue) focusArea.Value = 10 facusArea.Cells(1, 1).Value = 23 End Sub（在A5中），然后将此范围的所有值都设置为10，除了左上角的单元格必须为23.我的第一个猜测是喜欢这个

UITableView

但是我收到了错误

424“需要对象”

因此，您是否有人知道如何在给定范围内进行此类操作？

Answer 1

最后一行是错误的。您已使用facusArea，而不是focusArea。在代码表的声明区域中始终使用Option Explicit的另一个好理由（工具►选项►编辑器►需要变量声明）。

由于以下原因，此问题可能会被关闭：

此问题是由无法再现的问题或简单的印刷错误引起的。虽然类似的问题可能在这里是主题，但这个问题的解决方式不太可能帮助未来的读者。通常可以通过识别并密切检查在发布之前重现问题所需的最短程序来避免这种情况。

但是，我希望使用With ... End With statement来确定范围，以提供无变量的替代方案。

Private Sub CommandButton1_Click()
    With Range(Range("A5").Text)
        .Value = 10
        .Cells(1).Value = 23
    End With
End Sub

使用给定范围内的相对位置编辑单元格

1 个答案: