根据第一列分系列自动画图问题，谢谢

patroon

各位大侠，我查了一下坛子里的帖子，都没有讲这方面怎么自动画图的，就是某一列a，b，c等，根据这个生成相应的系列，作图数据则是另外的列。下面传的文件chart是我想要的效果，请问怎样才能通过vb实现呢？实际的数据很多，怎样才能在语句里让它自动识别第一列名称相同的范围呢？谢谢

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

jiulongpo

试一下，是不是这样
Private Sub CommandButton1_Click()
Dim MyChart_Name As String
Dim Mysher As Integer
Dim MychSE As Series
Dim Mych As ChartObject     '声明变量为嵌入式图表对象

MyChart_Name = "我的图表"

On Error Resume Next     '如出错,则从出错行下一行开始执行
Set Mych = ActiveSheet.ChartObjects(MyChart_Name)     '设置对象
'MsgBox Err.Number
If Err.Number <> 0 Then    '设置对象出错,没有对象
   Set Mych = ActiveSheet.ChartObjects.Add(200, 80, 680, 360)     '添加嵌入图表,设置对象
   Mych.Name = MyChart_Name     '设置对象名称
End If
Err.Clear   '清除Err对象
'On Error GoTo Myerr     '如出错,则执行Myerr语句

With Mych.Chart
   .ChartType = xlXYScatter       '图表类型为散点图
   For Each MychSE In .SeriesCollection
      MychSE.Delete     '删除图表中的所有系列
   Next
End With


Mysher = Range("A65536").End(xlUp).Row
csh = 2
For i = 2 To Mysher
If i > 65536 Then Exit For
If Cells(i, 1) <> Cells(i + 1, 1) Then
   Set MychSE = Mych.Chart.SeriesCollection.NewSeries     '添加系列
   MychSE.XValues = Range(Cells(csh, 3), Cells(i, 3))     '设置x值
   MychSE.Values = Range(Cells(csh, 2), Cells(i, 2))     '设置y值
   MychSE.Name = Cells(i, 1)     '设置名称
   csh = i + 1
End If
Next i

With ActiveChart.Axes(xlCategory)     '设置X轴
   .MinimumScale = 0     'X轴的最小刻度值
   .MaximumScale = 180     'X轴的最大刻度值
   .MinorUnit = 4     'X轴次要刻度单位
   .MajorUnit = 20     'X轴主要刻度单位
   .Crosses = 0     'X轴与Y轴相交的点
End With

With Mych.Chart.Axes(xlValue)     '设置Y轴
   .MinimumScale = 0.01     'Y轴的最小刻度值
   .MaximumScale = 1000     'Y轴的最大刻度值
   .MinorUnit = 10     'Y轴次要刻度单位
   .MajorUnit = 10     'Y轴主要刻度单位
   '.Crosses = xlCustom       'Y轴与X轴相交的点
   .CrossesAt = 0.01       'Y轴与X轴相交的点
   .ScaleType = xlLogarithmic     '设置Y轴的刻度类型
End With
Mych.Activate     '对象激活

Myerr:
   Exit Sub

End Sub



测试.zip (53.86 KB, 下载次数: 174)

2010-7-20 21:49 上传

点击文件名下载附件

patroon

恩，太感谢了

zeuger

这个太好了，偶也用上了。。。

huosx

好高深的东西

fortr

看一下。看一下。看一下。

wuhuohuan

非常有用!

q313971654

jiulongpo 发表于 2010-7-20 21:49
试一下，是不是这样
Private Sub CommandButton1_Click()
Dim MyChart_Name As String

高手，很赞。不知道不使用VBA能实现这种画图吗？