我在参考标签中有一个列出的增值税税率，分别显示为0.0％，2.0％，5.0％，17.5％，20.0％，但是当这些税率添加到用户表单后，它们会更改为以下格式：0.00、0.02， 0.05、0.175和0.2。 谁能建议我如何纠正格式？ 答案 0 :(得分：0) 使用 如果您可以使用下拉列表中没有百分号（“％”）的显示器，则可以通过WorksheetFunction 更多笔记 不处理表单的 default 实例。如果要引用控件，则可以在UserForm代码模块中使用#importing the VAT Rate list
NewRangePlan.VATRateDD.List = Ref.Range("AE2:AE7").Value
1 个答案:
.List的{{1}}短分配 MMult()尝试以下方法；否则，您将注释中提到的“必须遍历它们并对其进行格式化” 。 MMult()Dim percents As Range
Set percents = Sheet1.Range("AE2:AE7") ' set percent data range to memory
Dim factor100 As Range
Set factor100 = Sheet1.Range("A" & Sheet1.Rows.Count).Resize(1, percents.Rows.Count)
factor100 = 100 ' write factor 100 to temporary range
With Me.VATRateDD ' assuming DropDown reference within the UserForm code module
.List = WorksheetFunction.MMult(percents, factor100)
End With
factor100 = vbNullString ' clear temp range
限定符来寻址表单的 current 实例。 - FYI建议阅读UserForm1.Show?以获取更深入的见识。