Excel 如何在userform中划分并获取两个不同文本框的值的百分比？

我是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

当我运行公式并激活userform时，我遇到了一个调试问题，我似乎不知道该怎么做

我预计产出占产出的百分比，例如96%

我真的希望有人能帮我，我真的很沮丧，因为我已经过了最后期限

---

谢谢大家!

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

Sub-CusImp2_div（）
将a调暗为双色
双倍调暗b
模糊的回答是双重的
a=CusImp1.值
b=CusImp3.值
答案=a/b
如果b0那么
答案=a/b
如果结束
Me.CusImp2.Value=答案
Me.CusImp2.Value=格式（Me.CusImp2.Value，“0.00%”）
端接头

是否“它不工作”意味着您收到了错误？什么是错误，在哪一行？嗨。我在CusImp2.Value=Val（CusImp1.Value）/Val（CusImp3.Value）上遇到了一个错误。我尝试了一遍又一遍，但是我不明白为什么我会遇到这个错误。你会遇到什么错误？发生这种情况时，CusImp1和CusImp3的值是什么？@Stacy771991是用户表单或模块中的子项吗？嗨。sub用于userform。CusImp1的值是一个临界状态下的总分，CusImp1是该临界状态下可用总分的值。有些问题有时会得到NA，公式也应该是灵活的。

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