单元格内选择或者输入完一个内容后，后面三格自动查找到其他三项的值

yiyaozjk

我希望用VBA实现 ：单元格内选择或者输入完一个内容后，后面三格自动查找到其他三项的值，公式太多了容易引起错误。。。

yiyaozjk

忘记了 上传附件

lsc900707

yiyaozjk 发表于 2018-1-3 21:28
忘记了 上传附件

写完才知楼主需要工作表事件：

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     With Sheets("数据源")
   
4.         r = .Cells(.Rows.Count, 1).End(3).Row
   
5.         arr = .Range("a2:e" & r)
   
6.         For i = 1 To UBound(arr)
   
7.             d(arr(i, 2)) = i
   
8.         Next
   
9.     End With
   
10.     r = Cells(Rows.Count, 3).End(3).Row
    
11.     brr = Range("c2:f" & r)
    
12.     For i = 1 To UBound(brr)
    
13.         If d.Exists(brr(i, 1)) Then
    
14.             n = d(brr(i, 1))
    
15.             For j = 2 To 4
    
16.                 brr(i, j) = arr(n, j + 1)
    
17.             Next
    
18.         End If
    
19.     Next
    
20.     Range("c2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
21. End Sub

复制代码

yiyaozjk

嗯， 需要工作表事件

lsc900707

yiyaozjk 发表于 2018-1-4 05:52
嗯， 需要工作表事件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 3 Then
   
3.         Set d = CreateObject("scripting.dictionary")
   
4.         With Sheets("数据源")
   
5.             arr = .[a1].CurrentRegion
   
6.             For i = 2 To UBound(arr)
   
7.                 d(arr(i, 2)) = arr(i, 3) & "/" & arr(i, 4) & "/" & arr(i, 5)
   
8.             Next
   
9.         End With
   
10.         If d.exists(Target.Value) Then
    
11.             s = Split(d(Target.Value), "/")
    
12.             Target.Offset(, 1) = s(0)
    
13.             Target.Offset(, 2) = s(1)
    
14.             Target.Offset(, 3) = s(2)
    
15.         Else
    
16.             MsgBox "对不起，没有此制令单号！"
    
17.         End If
    
18.         Set d = Nothing
    
19.     End If
    
20. End Sub

复制代码

yiyaozjk

楼主，是的，想需要你用工作表事件来实现，请版主出手。

ggmmlol

套用我做的智能查询、自动完成的表格模板，让你的制表速度从 石 器 时代，秒秒钟 进入 高 铁时代。

下面是效果图：只需输入少量字符和通配符，如  f*240002
程序即刻匹配到合适的数据，再按回车键就把高亮的项自动输入，并自动转入下一行等待输入。



楼主直接下载 此贴13楼的附件即可：
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1385647&pid=9364365