用户表单VBA中的格式下拉列表

Question

>我在增值税税率的参考选项卡中有一个列表，显示为 0.0%、2.0%、5.0%、17.5%、20.0%，但是当这些添加到用户表单时，它们将更改为以下格式：0.00、0.02、0.05、0.175 和 0.2。

谁能建议我如何更正格式？

#importing the VAT Rate list
NewRangePlan.VATRateDD.List = Ref.Range("AE2:AE7").Value

Answer 1

使用MMult()的简短.List赋值

如果您可以接受下拉列表中没有百分号("%"(的显示，您可以通过 WorksheetFunctionMMult()尝试以下方法; 否则，正如braX的评论中所述，您"将不得不循环遍历它们并格式化它们"。

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

进一步说明

不要寻址表单的默认实例。如果要引用控件，则在 UserForm 代码模块中，可以使用Me限定符来寻址窗体的当前实例。-仅供参考 建议阅读UserForm1.Show？ 以获得更深入的见解。