[已解决]查找定位求教

股网千王

弟子在学习查找定位，一直搞不好这个，请老师指教。要求在附件内。 查找定位求教.zip (8.65 KB, 下载次数: 5)

2014-4-19 08:24 上传

点击文件名下载附件

点击按钮后在模板区找到产品名称，并将

模板区该模板下的材料代码填入出库单的材料编码下

模板区下基本用量乘以出库单的数量，填入 出库单的数量单元格内。 就像现在这样

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-19 09:09

e2、g2输入条件产生结果

跳转到最佳答案楼层

冠军欧洲2010

......

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$E$2" Or Target.Address = "$G$2" Then
   
3.      Union([a4:a1000], [h4:h1000]).ClearContents
   
4.      With Sheet2
   
5.         Set rng = .Rows(1).Find([E2], lookat:=xlWhole)
   
6.         If Not rng Is Nothing Then
   
7.             l = rng.Column: n = [g2]
   
8.             h = .Cells(Rows.Count, l).End(xlUp).Row
   
9.             For i = 3 To h
   
10.                 Cells(i + 1, 1) = .Cells(i, l - 1)
    
11.                 Cells(i + 1, "h") = .Cells(i, l) * n
    
12.             Next
    
13.         End If
    
14.     End With
    
15. End If
    
16. End Sub

复制代码

dsmch

e2、g2输入条件产生结果

股网千王

dsmch 发表于 2014-4-19 09:09
e2、g2输入条件产生结果

下载不了啊。老师

股网千王

多谢各位老师