如何在VBA UserForm中让所有英镑使用国匹配对应会计数字格式？

很简单，咱们可以通过两种常见方式来扩展你的代码，让所有使用英镑的地区（英格兰、威尔士、苏格兰、北爱尔兰）都能自动应用对应的会计格式：

方法1：使用Select Case语句（可读性强） #

这种方式逻辑清晰，后续要添加新地区也很直观：

' 用于确保会计格式与贷款提取国家匹配的消息框
Dim targetRegion As String
targetRegion = txtloanwithcountry.Value ' 先获取控件输入的地区值

Select Case targetRegion
    Case "England", "Wales", "Scotland", "Northern Ireland"
        NumberFormat = "_(£* #,##0.00_);_(£* (#,##0.00);_(£* ""-""??_);_(@_)"
    Case Else
        MsgBox "贷款提取国家使用的货币必须与数字格式匹配"
End Select

小提示： #

如果担心用户输入的地区名有大小写差异（比如输入"wales"小写），可以改成大小写不敏感的判断：

Select Case UCase(targetRegion)
    Case "ENGLAND", "WALES", "SCOTLAND", "NORTHERN IRELAND"
        ' 格式设置代码不变
    Case Else
        MsgBox "贷款提取国家使用的货币必须与数字格式匹配"
End Select

方法2：使用数组判断（扩展性好） #

如果以后可能需要添加更多使用英镑的地区，用数组存储目标列表会更灵活：

' 用于确保会计格式与贷款提取国家匹配的消息框
Dim poundRegions As Variant
Dim targetRegion As String
Dim isPoundRegion As Boolean

' 定义所有使用英镑的地区数组
poundRegions = Array("England", "Wales", "Scotland", "Northern Ireland")
targetRegion = txtloanwithcountry.Value
isPoundRegion = False

' 遍历数组检查输入是否匹配
Dim i As Integer
For i = LBound(poundRegions) To UBound(poundRegions)
    ' 同样可以加UCase()处理大小写问题
    If poundRegions(i) = targetRegion Then
        isPoundRegion = True
        Exit For ' 找到匹配项后直接退出循环，提升效率
    End If
Next i

' 根据判断结果执行对应操作
If isPoundRegion Then
    NumberFormat = "_(£* #,##0.00_);_(£* (#,##0.00);_(£* ""-""??_);_(@_)"
Else
    MsgBox "贷款提取国家使用的货币必须与数字格式匹配"
End If

小提示： #

后续要新增地区，只需要修改Array()里的内容就行，完全不用改动判断逻辑，维护起来特别省心。

两种方法都能满足你的需求，选哪种取决于你后续的维护场景哦～

内容的提问来源于stack exchange，提问作者Gjovis