【发布时间】：2014-02-25 16:11:54
【问题描述】：
我有一个包含 100 个项目编号的组合框。我希望我的用户能够选择一个项目编号，并将表格中的多个单元格输入到不同工作表上的单元格中。我可以创建一个庞大的 if/then 语句，但这会让人筋疲力尽。我希望有人知道更优雅的解决方案。
例如，我可以像这样编写一个嵌套的 if/then 语句：
如果 ItemNum.Value = "1001" 那么
Sheets(10).Range("A2").Value = Sheets(11).Range("F2").Value
Sheets(10).Range("A3").Value = Sheets(11).Range("F3").Value
Sheets(10).Range("A4").Value = Sheets(11).Range("F4").Value
Sheets(10).Range("A5").Value = Sheets(11).Range("F5").Value
elseif ItemNum.Value = "1002" 然后
Sheets(10).Range("B2").Value = Sheets(11).Range("G2").Value
Sheets(10).Range("B3").Value = Sheets(11).Range("G3").Value
Sheets(10).Range("B4").Value = Sheets(11).Range("G4").Value
Sheets(10).Range("B5").Value = Sheets(11).Range("G5").Value
等等。 100次
【问题讨论】：
-
1001是否对应列A和F，1002- 到B和G，1003- 到C和 @987654 @等等？ -
目前它不是那么简单，但我可以让它符合那个。
-
您能否描述更多如何填充这些值...根据您的示例，
1001使用 F 列中的值填充 A 列，1002使用 G 列中的值填充 B 列。 .. 你可以说得更详细点吗？我认为这可以很容易地完成，但在发布解决方案之前，我想确保我完全理解您的要求.... -
@Giraffe，如果可能的话，我可以用三行代码编写您的代码：) 还有一个问题：
ItemNum.Value包含 1001,1002,...1100？ -
这就是复杂的原因。项目编号有些随机（不幸的是我无法更改它们）。所以他们从1001-1007，然后是1017，然后是5001-5003，然后是9801等等。这完全是令人费解的，但他们必须与会计相匹配。此外，虽然大多数物品只有 4 个类别（尺寸、类型、反射器、瓦数），但还有一堆杂项有自己的类别。我想我可以将它们分成自己的 If/Then 语句。