Question

我正在尝试为DnD做一个Point Buy计算器。

代码跳过了13和15。

C11是从8开始的能力得分。G10是您在所述得分上剩余的可用积分。

Private Sub CONpointInc_SpinDown()

    If Range("G10").Value <> 0 Then

        If Range("c11").Value <> 8 Then

            Range("c11").Value = Range("c11").Value - 1
            Range("G10").Value = Range("G10").Value + 1

            If Range("c11").Value > 14 Then
                Range("c11").Value = Range("c11").Value - 1
                Range("G10").Value = Range("G10").Value + 2
            End If
        End If
    End If
End Sub

Private Sub CONpointInc_SpinUp()

If Range("G10").Value <> 28 Then

    If Range("c11").Value <> 15 Then

        Range("c11").Value = Range("c11").Value + 1
        Range("G10").Value = Range("G10").Value - 1

        If Range("c11").Value > 13 Then
            Range("c11").Value = Range("c11").Value + 1
            Range("G10").Value = Range("G10").Value - 2

        End If
    End If
End If
End Sub

当能力得分或C11在8到13之间时，它应该在G10上扣除/加1，这就是您还需要增加多少点。

当C11为14和15时，应在G10中减去/加2。

当它低于8（确实如此）并且经过15（因为它跳过15而无效）时，它应该不起作用。

Answer 1

也许这会有所帮助：

Private Sub CONpointInc_SpinDown()
    If Range("G10").Value <> 0 Then
        If Range("c11").Value > 8 Then
            If Range("c11").Value <= 13 Then
                Range("c11").Value = Range("c11").Value - 1
                Range("G10").Value = Range("G10").Value + 1
            ElseIf Range("C11").Value <= 15 Then
                Range("c11").Value = Range("c11").Value - 1
                Range("G10").Value = Range("G10").Value + 2
            End If
        End If
    End If
End Sub

Private Sub CONpointInc_SpinUp()
    If Range("G10").Value <> 28 Then
        If Range("c11").Value >= 8 Then
            If Range("c11").Value < 13 Then
                Range("c11").Value = Range("c11").Value + 1
                Range("G10").Value = Range("G10").Value - 1
            ElseIf Range("c11").Value < 15 Then
                Range("c11").Value = Range("c11").Value + 1
                Range("G10").Value = Range("G10").Value - 2
            End If
        End If
    End If
End Sub

P.S。 DnD会议愉快：）

根据单元格中的值进行加/减

1 个答案: