VBA 用户表单公式

Question

下午好，

我已经建立了一个用户表单，用户表单使用偏移量等将数据填充到数据 table 上。我遇到的问题是其中一个公式是从列表中查找产品的描述一个单独的选项卡，但它会删除产品代码中包含的零，从而使公式无用，例如：

公式

ActiveCell.Offset(x, 17) = "=If(LEFT(" & ActiveCell.Offset(x, 16) & ",1)=""Z"",VLOOKUP(" & ActiveCell.Offset(x, 16) & ",Masterdata!A:B,2,0),VLOOKUP(TEXT(" & ActiveCell.Offset(x, 16) & ",0),Masterdata!A:B,2,0))"

正在查找的产品代码为Z6532018-11-002-17

VBA后有运行，单元格中的公式如下所示：

=IF(LEFT(Z6532018-11-2-17,1)="Z",VLOOKUP(Z6532018-11-2-17,Masterdata!A:B,2,0),VLOOKUP(TEXT(Z6532018-11-2-17,0),Masterdata!A:B,2,0))

产品代码中002-17的00已自动删除

关于如何阻止它的任何想法？

非常感谢

Answer 1

尝试使用单元格地址而不是引用：

ActiveCell.Offset(x, 16).Address(0,0)

如果您不想这样做，则需要在查找周围添加 "。

""" & ActiveCell.Offset(x, 16) & """

所以 returns: "Z6532018-11-002-17" 不只是文字。在完成的公式中，文本的两端都需要有一个 "。

VBA 用户表单公式

VBA userform formula

excel

vba

formulas