Excel 不会在单元格中输入值

Question

我在更新单元格的值时遇到问题。下面是我正在运行的测试代码，以确保我可以更新单元格值。没有错误，但在运行代码时单元格保持为空。

编辑：我不是很精通 vba 语法，所以我更新了下面的代码以显示我正在尝试做什么。基本上我想找到与某种材料对应​​的值，然后总结找到的所有值。我知道你说我不是在输入值，而是在拉动它们。我相信我正在初始化变量。我该如何输入值？

Sub MaterialSort()

Dim deut As Double
Dim am241 As Double
Dim pu238 As Double
Dim pu239 As Double
Dim pu240 As Double
Dim pu241 As Double
Dim np237 As Double
Dim u238 As Double
Dim u235 As Double
Dim u233 As Double
Dim am243 As Double


deut = Worksheets("Material PEC").Cells(2, 2).Value
am241 = Worksheets("Material PEC").Cells(3, 2).Value
pu238 = Worksheets("Material PEC").Cells(4, 2).Value
pu239 = Worksheets("Material PEC").Cells(5, 2).Value
pu240 = Worksheets("Material PEC").Cells(6, 2).Value
pu241 = Worksheets("Material PEC").Cells(7, 2).Value
np237 = Worksheets("Material PEC").Cells(8, 2).Value
u238 = Worksheets("Material PEC").Cells(9, 2).Value
u235 = Worksheets("Material PEC").Cells(10, 2).Value
u233 = Worksheets("Material PEC").Cells(11, 2).Value
am243 = Worksheets("Material PEC").Cells(12, 2).Value


For j = 2 To 82 Step 8
For i = 3 To 70

    k = j + 5

If Not IsError(Worksheets("Master PEC").Cells(i, j)) Then

    If Worksheets("Master PEC").Cells(i, j) = "Deuterium" Then

        deut = Worksheets("Master PEC").Cells(i, k).Value + deut

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Am-241" Then

        am241 = Worksheets("Master PEC").Cells(i, k).Value + am241

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Pu-238" Then

        pu238 = Worksheets("Master PEC").Cells(i, k).Value + pu238

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Pu-239" Then

        pu239 = Worksheets("Master PEC").Cells(i, k) + pu239

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Pu-240" Then

        pu240 = Worksheets("Master PEC").Cells(i, k) + pu240

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Pu-241" Then

        pu241 = Worksheets("Master PEC").Cells(i, k) + pu241

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Np-237" Then

        np237 = Worksheets("Master PEC").Cells(i, k) + np237

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Dep. U-238" Then

        u238 = Worksheets("Master PEC").Cells(i, k) + u238

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Enr. U-235" Then

        u235 = Worksheets("Master PEC").Cells(i, k) + u235

    ElseIf Worksheets("Master PEC").Cells(i, j) = "U-233" Then

        u233 = Worksheets("Master PEC").Cells(i, k) + u233

    ElseIf Worksheets("Master PEC").Cells(i, j) = "Am-243" Then

        am243 = Worksheets("Master PEC").Cells(i, k) + am243

    End If

End If
Next
Next
End Sub

Answer 1

你的任务没有正确完成。我会做的是：

Dim deut As Double
deut = 2
Worksheets("Material PEC").Cells(2, 2).Value = deut

等等...