vba - Excel VBA Range(Cell).Value=sum 1004 :Application-Defined Or Object-Defined

Question

Function ChangeColVal(ByVal Rng As Range, ByVal ValueToChange As Integer)
    Dim Cell1, Cell2 As String
    Dim PosOfColon, TotalCell, Sum As Integer
    PosOfColon = InStr(1, Rng.Address, ":")
    Cell1 = Left(Rng.Address, PosOfColon - 1)
    Cell2 = Right(Rng.Address, Len(Rng.Address) - PosOfColon)
    If Left(Cell1, 2) = Left(Cell2, 2) Then
        TotalCell = Rng.Count
        For i = 0 To TotalCell
            If IsNumeric(Range(Cell1).Offset(i, 0).Value) = False Then
                GoTo 112:
            End If
            Cell2 = Range(Cell1).Offset(i, 0).Address
            Sum = Range(Cell2).Cells.Value + ValueToChange
            On Error GoTo 111
            'Here getting error...
            Range(Cell2).Value = Sum
            GoTo 112
111:
            MsgBox (Err.Number & ":" & Err.Description)
112:
        Next i
    Else
        MsgBox ("Select Column only...")
    End If
End Function

我想增加或减少所选范围的单元格值。
我在 Range(Cell2).Value = Sum 行出现错误

编辑
thanx 回复，在 Range(Cell2).Value = Sum 行中，Cell2 指向像 $E$6 这样的单元格地址。


如果除此之外还有其他选择，请告诉我

Answer 1

好的，米希尔。您不能使用 UDF(用户定义函数)来修改其他单元格，然后是使用公式的单元格。但是，可以通过从子中调用您的函数来解决此问题。我会告诉你怎么做。

打开一个新工作簿并使您的电子表格如下图所示。
在Sheet1的A列中填写一些随机数


然后打开 VBE 并创建一个新模块( Project Explorer > Insert > Module )并粘贴下面的代码

Option Explicit

Sub ChangeColumnValue()

   Dim rng As Range
   Set rng = Selection

   Dim inp As String
   inp = InputBox("Value to change:")

   Call ChangeColVal(rng, CLng(inp))

End Sub

Private Function ChangeColVal(ByRef rng As Range, ByVal ValueToChange As Long)
    Dim Cell1, Cell2 As String
    Dim PosOfColon, TotalCell, Sum As Long
    PosOfColon = InStr(1, rng.Address, ":")
    Cell1 = Left(rng.Address, PosOfColon - 1)
    Cell2 = Right(rng.Address, Len(rng.Address) - PosOfColon)
    If Left(Cell1, 2) = Left(Cell2, 2) Then
        TotalCell = rng.Count
        Dim i&
        For i = 0 To TotalCell - 1
            If Not IsNumeric(Range(Cell1).Offset(i, 0).Value) Then
                GoTo 112:
            End If
            Cell2 = Range(Cell1).Offset(i, 0).Address
            Sum = Range(Cell2).Cells.Value + ValueToChange
            On Error GoTo 111
            Range(Cell2).Value = Sum
            GoTo 112
111:
            MsgBox (Err.Number & ":" & Err.Description)
112:
        Next i
    Else
        MsgBox ("Select Column only...")
    End If
End Function

然后，返回您的电子表格并使用鼠标选择您的范围，如下所示:

好的，现在点击 ALT + F8至View Macros并运行 ChangeColumnValue宏。



系统将提示您输入要更改的值，所选范围内的所有单元格都将按该值增加/减少。


如果您键入 5，您的最终结果在提示框中会是这样的


祝你好运!