vba 如果组合框选择等于 "Location"，则写入 "Loc"

Question

我需要为组合框选择分配一个代码。所以我的组合框有位置列表。如果选择美国，则数据库中写入 US，如果选择英国，则写入 UK，如果选择菲律宾，则写入 PH。我不知道如何将其放入 vba 代码中，因为我必须将其与另一个组合框值(如字符串)组合起来。

 .Cells(iRow, 2).Value = cmbLoc.Value & "_" & cmbProg.Value

其中 cmbLoc 是我需要帮助的组合框。

Answer 1

假设您的表格位于 Info 工作表中，其中国家/地区位于 A 列，代码位于 B 列，请将代码更新为:

 Dim sCode as String
 sCode = Worksheets("Info").Columns(1).Find(cmbLoc.Value,lookat:=xlWhole).Offset(,1)

 .Cells(iRow, 2).Value = sCode & "_" & cmbProg.Value

请记住，我没有进行任何错误检查，因此我认为国家/地区将永远承担在那里。此外，如果您愿意，还可以使用 Application.WorksheetFunction.Vlookup。