如何用VBA查找，我的代码怎么运行错误？？

lushuchuan · 发表于 2014-10-1 22:25

本帖最后由 lushuchuan 于 2014-10-2 08:56 编辑

想做个产品登记系统,登记进口产品和内部产品,现在出现了问题(用VBA解决)

具体内容和要求在文件里：如何查找文件，我的代码为什么运行不了；不能取得类worksheet function的Vlookup属性？？是怎么回事啊？

高手请帮帮忙看看，多谢

lushuchuan · 发表于 2014-10-1 22:34

想做个产品登记系统,登记国外进口产品和国内产品,现在出现了问题(用VBA解决)
1. 想要实现Vlookup的查找功能,在"主界面"工作表,根据A列的产品代码,自动读取"基础信息表"中对应的"产品名称"填到C列中,同理,库位信息业根据代码填到G列. 我的代码不知问题出在了哪里?
2.请高手们帮忙看看,如何跟据C2内容来对F3的快递信息作出选择,即:当C2是Domestic(国内)时,F3的快递可选项只出现"基础信息表"的"国内快递"选项当C2是Imported时候,F3出现"基础信息表"的"进口快递"选项
3. 对于D2单元格的时间问题,只能使用"=TODAY()"吗,但是用这个会被看见,显得不专业,还有其他VBA解决方案吗?
还请各位大侠帮忙看看，多谢。

lushuchuan · 发表于 2014-10-2 08:57

本帖最后由 lushuchuan 于 2014-10-2 09:16 编辑

不能取得类worksheetfunction的Vlookup属性？

zax010 · 发表于 2014-10-2 09:09

lushuchuan 发表于 2014-10-2 08:57
不能取得类worksheet function的Vlookup属性？

worksheet function ?

Worksheetfunction !

lushuchuan · 发表于 2014-10-2 09:15

zax010 发表于 2014-10-2 09:09
worksheet function ?

Worksheetfunction !

原文件中是连在一起的，这个是书写错误

lushuchuan · 发表于 2014-10-2 15:43

有人知道吗？求高人指点

zax010 · 发表于 2014-10-2 18:38

问题1、3：
Sub chazhao()
Dim i As Integer, p As Integer, m As String, n As String
For i = 6 To 14
      If Sheet2.Cells(i, 1) <> "" Then
         m = Application.VLookup(Sheet2.Cells(i, 1), Sheet1.Range("A2:C8"), 2) '产品名称在第2列
         n = Application.VLookup(Sheet2.Cells(i, 1), Sheet1.Range("A2:C8"), 3) '库位在第7列
         Cells(i, 3).Value = m
         Cells(i, 7).Value = n
      End If
Next
Sheet2.[c15] = Date
End Sub

问题2不知所云。

zax010 · 发表于 2014-10-2 18:39

>>>>>>>>>>>>>>>>>>>>>>>>

Software-v.rar (40.43 KB, 下载次数: 14)

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA查找，我的代码怎么运行错误？？