VBA用户表单公式

下午好，

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

公式

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) & """ 

所以它返回： "Z6532018-11-002-17"不只是文字。 文本需要在完成的公式中有一个"两端" 。