根据单独的单元格值自动填充单元格字符串值 1

Posted 2023-04-13

【中文标题】根据单独的单元格值自动填充单元格字符串值 1

【英文标题】：Auto-filling cell string values based on seperate cell values1

【发布时间】：2019-08-06 15:04:19

【问题描述】：

我想创建一个工作表，操作员可以在其中填写各种信息（例如客户、零件号、序列号、检验文件#、验收标准#等）。

当操作员填写零件编号单元格（使用有效值）时，我希望检验文件#和验收标准#自动填写。

'part number = Shockwave1 (located at A14)
'inspection doc = REV ATZ 2175 (located at H14)
'since part number = Shockwave1, inspection doc is = REV ATZ 2175,
 thus H14 automatically updates to this value when part number is
 selected.

Sub Test()
    If Sheet1.Range("A14").Text = "Shockwave1" Then
        Sheet1.Range("H14").Text = "REV ATZ 2175"
    ElseIf Sheet1.Range("A14").Text <> "Shockwave1" Then
        Sheet1.Range("H14").Text = "_"
Application.ScreenUpdating
End If

我知道我可以使用 IF/ELSE IF 函数（没有 VBA）在 Excel 工作表中执行此操作，但我有 100 多个客户和零件编号，并且每个都遵循不同的检查/规范文档 #。如果我可以使用 vba，代码编写会容易得多。

【参考方案1】：

我认为 VLOOKUP 是您正在寻找的。将您的零件编号放入 A 列，将检验文件放入 B 列和验收标准以及 Sheet2 的 C 列，然后在 Sheet1 中运行 VLOOKUP，其中显示类似

=IFERROR(VLOOKUP(A1,Sheet2!B:B,1,FALSE),"No Inspection Document number")

这将带入检查文件编号。重复验收标准。

【讨论】：

经过进一步研究，我选择使用索引/匹配方法只是因为我要查找的这个表数组将在未来几年内逐渐扩展。不过还是谢谢你的回答！