[已解决]关于查询问题

jinru

见表格，查询问题，用VBA谢谢！

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2012-3-14 19:48

A22输入年份，后面的几列自动填写对应数据，几列都行，原数据有几列就会填写几列
查询问题.zip (9.5 KB, 下载次数: 20)

2012-3-14 19:47 上传

点击文件名下载附件

跳转到最佳答案楼层

zjcat35

代码在sheet1内
    更改A22的值，就会自动变化

hrpotter

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim ar, br(1 To 3), st
   
3.     Dim i As Byte
   
4.     If Target.Address <> "$A$22" Then Exit Sub
   
5.     Range("b22:d22").ClearContents
   
6.     ar = Range("a3:d18")
   
7.     st = Target.Value
   
8.     For i = 1 To UBound(ar)
   
9.         If ar(i, 1) = st Then
   
10.             br(1) = ar(i, 2)
    
11.             br(2) = ar(i, 3)
    
12.             br(3) = ar(i, 4)
    
13.             Range("b22:d22") = br
    
14.             Exit Sub
    
15.         End If
    
16.     Next
    
17. End Sub
    

复制代码

查询问题.rar (6.89 KB, 下载次数: 5)

2012-3-14 19:47 上传

点击文件名下载附件

fjmxwrs

A22输入年份，后面的几列自动填写对应数据，几列都行，原数据有几列就会填写几列
查询问题.zip (9.5 KB, 下载次数: 20)

2012-3-14 19:47 上传

点击文件名下载附件

sliang28

既然做了，还是上传一下吧！

jinru

谢谢各位2楼，3楼两位代码不错
fjmxwrs 代码最佳，
谢谢5楼，