如何将VBA查找到的数据填入指定单元格内?

lk710618

各位老师，中秋好！前期在山风老师的帮助下，附件已实现单击指定单元格，自动在指定区域中查找到想要的数据，现在我希望能进一步降查找到的数据以折线图的方式直观呈现出来，就需要将查找到的数据自动填入指定位置，这对大神可能是小菜，对我这菜鸟可就吃不下了，特请大神们出手相助！

first236108

如何将VBA查找到的数据填入指定单元格内.7z (32.31 KB, 下载次数: 52)

2014-9-7 10:24 上传

点击文件名下载附件

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. On Error GoTo VeryEnd
   
4. If Target.Column = 9 Then
   
5.     Set r = Sheets("销售趋势").Range("A1:A40000").Find(Target.Offset(0, -8).Value, , , xlWhole)
   
6.     k = r.Row
   
7. Sheets("销售趋势").Select
   
8.     Sheets("销售趋势").Range("G" & k & ":" & "W" & k).Select
   
9. End If
   
10. If Target.Column = 12 Then
    
11.     Set r = Sheets("销售趋势").Range("a1:a40000").Find(Target.Offset(0, -11).Value, , , xlWhole)
    
12.     k = r.Row
    
13.     Sheets("总表").Range("q1:ag1").Value = Sheets("销售趋势").Range("g" & k & ":w" & k).Value
    
14. End If
    
15. If Target.Column = 13 Then
    
16.     Set r = Sheets("销售趋势").Range("a1:a40000").Find(Target.Offset(0, -12).Value, , , xlWhole)
    
17.     k = r.Row + 1
    
18.     Sheets("总表").Range("q1:ag1").Value = Sheets("销售趋势").Range("g" & k & ":w" & k).Value
    
19. End If
    
20. If Target.Column = 14 Then
    
21.     Set r = Sheets("销售趋势").Range("a1:a40000").Find(Target.Offset(0, -13).Value, , , xlWhole)
    
22.     k = r.Row + 2
    
23.     Sheets("总表").Range("q1:ag1").Value = Sheets("销售趋势").Range("g" & k & ":w" & k).Value
    
24. End If
    
25. 附件请测试：
    
26. VeryEnd:
    
27. End Sub
    

复制代码

lk710618

first236108 发表于 2014-9-7 10:24

非常感谢，超级棒！学习中

蓝桥玄霜

1. Sub yy()
   
2.     ActiveSheet.ChartObjects("图表 1").Activate
   
3.     With ActiveChart.Axes(xlValue)
   
4.         .MinimumScale = mn
   
5.         .MaximumScale = mx
   
6.         .MinorUnit = 10
   
7.         .MajorUnit = Int((mx - mn) / 4)
   
8.         .Crosses = xlCustom
   
9.         .CrossesAt = 0
   
10.         .ReversePlotOrder = False
    
11.         .ScaleType = xlLinear
    
12.         .DisplayUnit = xlNone
    
13.     End With
    
14. End Sub
    

复制代码

蓝桥玄霜

请见附件。

KCFONG

see if help you

lk710618

蓝桥玄霜 发表于 2014-9-7 10:51

蓝老师，您是在帮我解决坐标轴数据最小值问题吧？可是我把代码放进去，运行有报错，我看不懂，惭愧

lk710618

蓝桥玄霜 发表于 2014-9-7 10:54
请见附件。

附件正是我想要的结果，认真研究一下，非常感谢！老师，中秋快乐！

lk710618

KCFONG 发表于 2014-9-7 11:01
see if help you

感谢，完全是我想要的，认真研究下，节日快乐！

lk710618

蓝桥玄霜 发表于 2014-9-7 10:54
请见附件。

蓝桥老师，附件点击任何其他单元格时，都会默认在Q1：AG1单元格有个选中标识，可以取消吗？