如何用VBA代码实现关键字查询和结果输出 ？

sheyg

如何用VBA代码实现在查询条件区输入了相应的内容后，可以根据录入的内容从原始数据区中查询出成绩并显示到查询结果中？
详情请见附件

池盛龙

用VLOOKUP公式
即可，没必要用VBA

sheyg

程序开发需要

不知道为什么

sheyg 发表于 2018-7-8 22:04
程序开发需要

http://club.excelhome.net/thread-673472-1-1.html

刚被人顶上来的贴子，可以参考

sheyg

不知道为什么 发表于 2018-7-8 22:09
http://club.excelhome.net/thread-673472-1-1.html

刚被人顶上来的贴子，可以参考

不好意思 ，初学，没怎么看懂

ww87725244

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim ar, i&
   
3. If Intersect(Target, Range("f3:g3")) Is Nothing Then Exit Sub
   
4. ar = Range(Cells(3, 1), Cells(UsedRange.Rows.Count, 3))
   
5. For i = 1 To UBound(ar)
   
6.     If ar(i, 1) = Range("f3") And ar(i, 2) = Range("g3") Then
   
7.         Range("h3") = ar(i, 3)
   
8.         Exit For
   
9.     Else
   
10.         Range("h3") = "无此数据"
    
11.     End If
    
12. Next
    
13. End Sub

复制代码

excel玉米

用2003版本做的。试试看吧