求助：图表中这样的想法怎样实现？

fghgao · 发表于 2004-7-17 10:11

用定义名或函数很难办到，要不能版主就不会用VBA的了！

chenjun · 发表于 2004-7-16 23:25

以下是引用办公之星在2004-7-15 8:52:00的发言： 　　感谢chenjun。像你们这种程度，编程时需不需要先录宏再行调试、简化？

学VBA是这个体会，先看一些基本的入门部分，不清楚的对象应用可以录一个宏分析一下，试试删除其中的选择等一些多余的语句，尽量少进行表、区域等对象的选择。

chenjun · 发表于 2004-7-14 23:39

不是录制的宏，是按VBA的语法简化过的。说明如下：

Option Explicit'设置VBA中必须定义变量类型，如没有这句也可以的，但往往会出现变量类型不匹配的问题难查原因

Sub 宏1() Dim rng As Range, sht As Worksheet'定义变量类型，其中sht为工作表对象 Set sht = Worksheets(Range("D1"))'设定sht为D1格中的值所指定的工作表 Set rng = sht.Range("A1").Resize(Application.WorksheetFunction.CountA(sht.Columns(1)), Application.WorksheetFunction.CountA(sht.Rows(1)))'设定rng为指定工作表的指定区域，注意Resize属性改变A1区域为指定行数和指定的列数，此处就是有数据的区域，用工作表函数COUNTA求出行数和列数 ActiveSheet.ChartObjects("图表 6").Activate ActiveChart.SetSourceData Source:=rng, PlotBy:=xlColumns'设置图表6的数据源为rng，系列产生在列 ActiveSheet.Range("D1").Select End Sub

chenjun · 发表于 2004-7-12 10:05

表中的下拉框是用“窗体”工具栏做的，宏是在下拉框的右键中设置触发的。

chenjun · 发表于 2004-7-10 23:54

做汽车设计的，图表也经常用。

chenjun · 发表于 2004-7-10 23:45

直接用宏改变图表的数据源区域即可，见附件。

sIZTk1hg.zip (140.48 KB, 下载次数: 82)

		自动登录	找回密码
密码			免费注册