1

我在使用这段代码时遇到了困难。我正在努力做到这一点，以便根据单元格D25的值，值F25会发生变化。我在 VBA 中编写了代码（不知道这是否真的是最好的方法），它给了我一个424 runtime error: Object Required. 有人可以指出我正确的方向吗？

Sub Storage_vesel_Controle()

   Sheets("NSR Form").Select

   If Range("D25") = "1" Then Range("F25").Select.Value = "0"

   If Range("D25") = "2" Then Range("F25").Select.Value = ".95"

   If Range("D25") = "3" Then Range("F25").Select.Paste = ".98"

End Sub

另外，我需要添加什么才能使代码“始终运行”......我认为循环？

4

2 回答 2

2

除了我上面的评论之外，我不打算发布答案，但我认为我会引起您注意的事情很少，而且评论不会​​容纳这么多的文字。

我建议不要使用.Select来选择工作表，而是直接使用工作表（参见下面的代码）您可能还想查看此链接

Sub Storage_vesel_Controle()
    With Sheets("NSR Form")
        Select Case .Range("D25").Value
           Case 1: .Range("F25").Value = 0
           Case 2: .Range("F25").Value = 0.95
           Case 3: .Range("F25").Value = 0.98
        End Select
    End With
End Sub

编辑：

关于您的编辑。您可以使用Worksheet_Change事件来确保 F25 的值自动更新，或者如果您想要非 VBA 解决方案，则只需使用公式F25

如果你有兴趣Worksheet_Change那么看看这个。否则，像这样的简单公式F25将足以满足您的需求:)

=IF(D25=1,0,IF(D25=2,0.95,IF(D25=3, 0.98,"")))
于 2013-03-27T18:23:58.027 回答
1

稍微清理一下。使用一个Select Case语句比使用多个 If/Then 语句更容易使用。

Sub Storage_vesel_Controle()
    With Sheets("NSR Form")
        .Activate  '<this line is not actually necessary unless you want to be on the sheet.
        Select Case .Range("D25").Value
            Case 1
                .Range("F25").Value = 0
            Case 2
                .Range("F25").Value = 0.95
            Case 3
                .Range("F25").Paste = 0.98
            Case Else
                'do nothing, or, modify as needed
        End Select
    End With
End Sub
于 2013-03-27T18:23:28.617 回答