[已解决]按选择的条件赋予单元格数值并向下填充一定的行数

ckoeng

求助，希望用VBA实现，详细说明如附件所示，谢谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-3-21 16:01

附件请测试

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> [b2].Address Then Exit Sub
   
3. If Target.Count > 1 Then Exit Sub
   
4. Dim rng As Range, rw&
   
5. rw = [b65536].End(3).Row
   
6. Set rng = [g12].CurrentRegion.Find(Target, lookat:=xlWhole)
   
7. [c11] = rng.Offset(1)
   
8. [d11] = rng.Offset(2)
   
9. [e11] = rng.Offset(3)
   
10. [c11:e11].AutoFill Destination:=Range("c11:e" & rw), Type:=xlFillDefault
    
11. End Sub

复制代码

跳转到最佳答案楼层

QLZ0602

不明白，只看到产品A

ckoeng

QLZ0602 发表于 2014-3-21 15:47
不明白，只看到产品A

D2单元格为可选的

QLZ0602

选了以后，要做什么呢？ 最好做一下示范

ghostjiao

{:091:}学习一下

ckoeng

QLZ0602 发表于 2014-3-21 15:54
选了以后，要做什么呢？ 最好做一下示范

“例如产品A有10000个产品，其“下限”、“目标值”“上限”如附件表格所示，要求在D2选择为“产品A”后在“下限”、“目标值”“上限”下一行开始填入相应的值并向下填充10000行。”如附件，这样是否明白？

大灰狼1976

附件请测试

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> [b2].Address Then Exit Sub
   
3. If Target.Count > 1 Then Exit Sub
   
4. Dim rng As Range, rw&
   
5. rw = [b65536].End(3).Row
   
6. Set rng = [g12].CurrentRegion.Find(Target, lookat:=xlWhole)
   
7. [c11] = rng.Offset(1)
   
8. [d11] = rng.Offset(2)
   
9. [e11] = rng.Offset(3)
   
10. [c11:e11].AutoFill Destination:=Range("c11:e" & rw), Type:=xlFillDefault
    
11. End Sub

复制代码

ckoeng

ghostjiao 发表于 2014-3-21 15:56
我也没看懂，那你的第二列数据怎么来的，需要填充的部分，而且只需要填充一个产品的啊？

第二列的数据是从设备导出的，但产品的目标值、上下限等都是人为设定的，要求就是选择不同产品就在CDE的相应位置显示出与产品对应的值并且向下填充与产品数量相同的行数。

ckoeng

大灰狼1976 发表于 2014-3-21 16:01
附件请测试

就是这样的，以为大家都不明白呢！非常非常感谢！