[已解决]excel 问题，请高手指教！

devilavatar · 发表于 2011-12-10 23:10

我有一些产品名称和编号等资料，现在我想把这些资料做成一个整体，每当我用的时候只要输入编号，相关资料就能自动输入，有没有相关函数或者用VBA能实现？

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-11 00:18

devilavatar 发表于 2011-12-10 23:26
vlookup 只能一个编号对应一个零件，现在我想一个编号对应几个零件

vba

Book1.rar (11.5 KB, 下载次数: 12)

liyh67 · 发表于 2011-12-10 23:16

用手机上的，没看附件，感觉可以用VLOOKUP函数来做。

devilavatar · 发表于 2011-12-10 23:26

liyh67 发表于 2011-12-10 23:16
用手机上的，没看附件，感觉可以用VLOOKUP函数来做。

vlookup 只能一个编号对应一个零件，现在我想一个编号对应几个零件

Zipall · 发表于 2011-12-11 00:18

这个最佳答案由 Zipall 给出，感谢 Zipall 的回答。

单击隐藏图章

devilavatar 发表于 2011-12-10 23:26
vlookup 只能一个编号对应一个零件，现在我想一个编号对应几个零件

vba

Book1.rar (11.5 KB, 下载次数: 12)

devilavatar · 发表于 2011-12-11 13:11

Zipall 发表于 2011-12-11 00:18
vba

非常感谢你的指教，我要的就是这种，不过不是很明白代码的意思，如果能解释一下就好了，或者说一下怎样增加数据源数据也好，感激万分！

Zipall · 发表于 2011-12-11 13:53

devilavatar 发表于 2011-12-11 13:11
非常感谢你的指教，我要的就是这种，不过不是很明白代码的意思，如果能解释一下就好了，或者说一下怎样增 ...

Private Sub Worksheet_Change(ByVal Target As Range) '在单元格修改时触发时间
'On Error Resume Next
With Target.Cells(1) '如果修改了多个单元格,只对其中第一个判断
      If .Column <> 2 Then Exit Sub '如果修改的不是第2列,退出
      If Len(.Value) = 0 Then Exit Sub '如果填写的是空值,退出
      v = .Value
      With Sheets("数据源")
         r = .Range("a:a").Find(v).Row '在数据源的a列查找填写的产品编号并返回其所在行号
         t = .Cells(r, 3).End(xlDown).Row - r + 1 '返回行数
         arr = .Cells(r, 1).Resize(t, 4).Value '获取该区域的值
      End With
      Application.EnableEvents = False
      .Resize(t, 4) = arr '将值填写到相应区域
      Application.EnableEvents = True
End With
End Sub

有效性的list是通过定义名称得到的,你可以ctrl+f3看到它.
数据源中在G列追加内容可以扩充list值
数据源中在A:D列添加数据(以空行分隔)可以扩展数据源.

devilavatar · 发表于 2011-12-11 14:36

Zipall 发表于 2011-12-11 13:53
Private Sub Worksheet_Change(ByVal Target As Range) '在单元格修改时触发时间
'On Error Resume ...

虽然还不是很明白代码的意思，但基本上可以解决问题。不过还有一点可以完善就好，就是如果我把产品编号删除，相应输入的资料也删除，还有如果输入产品编号时，相应的资料输入是重叠就自动增加行或提示出错。如果可以的话帮解决一下，谢谢！并希望多多指教

Zipall · 发表于 2011-12-11 14:48

devilavatar 发表于 2011-12-11 14:36
虽然还不是很明白代码的意思，但基本上可以解决问题。不过还有一点可以完善就好，就是如果我把产品编号删 ...

可以,但要复杂很多.
我想问的是你的记录是逐条追加的? 还是随时修改现有记录的?

devilavatar · 发表于 2011-12-11 15:17

本帖最后由 devilavatar 于 2011-12-11 15:18 编辑

Zipall 发表于 2011-12-11 14:48
可以,但要复杂很多.
我想问的是你的记录是逐条追加的? 还是随时修改现有记录的?

不断增加的，产品名称经常相同，不过增加后一般很小改变，是一条一条增加

Zipall · 发表于 2011-12-11 15:18

如果是逐条追加,那么删除和插入的功能可以不要.

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

[已解决]excel 问题，请高手指教！

相关帖子

评分

评分