如何划分和获取用户表单中两个不同文本框的值的百分比?

Question

我是 VBA 的新手，目前正在为我们的一个 LOB 创建一个评估表单。我很难理解我当前的代码有什么问题，它不会划分两个文本框的值。当我尝试将一个文本框的值除以一个数字时，它会起作用。但是这不是我要找的，因为文本框中的值取决于表单问题(有些问题是 NA(。

我已经尝试了下面的代码，但它不起作用。

Sub CusImp2_div()
CusImp2.Value = Val(CusImp1.Value) / Val(CusImp3.Value)
CusImp2.Value = Format(Me.CusImp2.Value, "0.00%")
End Sub
the source of the values are...
Sub custotal_mulcal()
Me.CusImp1.Value = Val(CustTotal1.Value) * (0.33)
Me.CusImp1.Value = Application.WorksheetFunction.Round(Val(CusImp1.Value), 2)
Me.CusImp3.Value = Val(CustTotal2.Value) * (0.33)
Me.CusImp3.Value = Application.WorksheetFunction.Round(Val(CusImp3.Value), 2)
End Sub

当我运行公式并激活用户表单时，我遇到了调试问题，我似乎不知道该怎么做。

我希望输出是输出的百分比，例如 96%

我真的希望有人可以帮助我解决这个问题，我真的很沮丧，因为我在截止日期后跑步。

谢谢！

Answer 1

"我想我找到了这个问题的答案。我在 Youtube 中找到了下面的公式，表单现在运行良好。唯一的限制是，即使我试图改变我的答案，百分比也不会改变(我将研究如何解决这个问题(。

Sub CusImp2_div()
Dim a As Double
Dim b As Double
Dim answer As Double
a = CusImp1.Value
b = CusImp3.Value
answer = a / b
If b <> 0 Then
answer = a / b
End If
Me.CusImp2.Value = answer
Me.CusImp2.Value = Format(Me.CusImp2.Value, "0.00%")
End Sub