Tag: 系列

Excel创builddate和小时系列

我想在Excel中创build一个列，例如A，date和时间系列，具有一定的时间步长。 例如： 14.10.2016 00:00:00 14.10.2016 04:00:00 14.10.2016 08:00:00 等等….. 然后，只需拖动单元格，然后按照我想要的那样继续前进。 任何想法？ 提前非常感谢！

如何自动填充一个简单的Excel的公式整个列

我有一个上面的健康logging（准确的说，免疫接种），看起来像附加的图像的Excel文件。 我需要的格式是将下面的loggingdate在整行文件中排成一行。 所以，它看起来像： dtap dtap dtap dtap dtap tdap MMR MMR 因此，对于第一个学生，考克斯，每一个date需要填写一行，每个免疫date列。 我试图使用的公式（系列）是： dtap 1 dtap 2 =B5 =B6 =B22 =B23 =B39 =B40 数据集中的每一种疾病都会跳过17，这在整个文件中是统一的，所以我认为这是一个简单/有效的方法。 我无法弄清楚如何在文件中填写这个系列。 当我说= B5例如，它填写适当的date，但我不能得到它填补“公式系列”，如果你愿意，一路下来。 “向下填充”选项似乎要一路填充随机date。 试了几个不同的方式，我无法得到它填充我的增量17整个文件的公式。 如果有帮助，我正在使用MAC OSX的Excel 2011。

Excel：可以通过哪种方式创buildChartGroups？

我有一个Chart包含两个ChartGroup 。 我从来没有故意这样做过，所以我猜不出是什么原因造成的。 任何人都可以提供所有选项（无论是VBA或其他）？ 如果我知道可能采取的行动是什么，我可以意识到并控制/避免它们。 PS：这个缺点是我有很多使用PlotOrder识别Series的代码。 如果有多个ChartGroup ，则PlotOrder不是Chart Series的唯一标识符（它在ChartGroup是唯一的）。 从长远来看，无论如何，我将不得不调整我的代码。 但是目前来说，我可以尽可能地将图表调整为拥有一个ChartGroup 。 有没有简单的方法来重新分配一个Series的ChartGroup ？ （这将使一个单一的职位有两个问题…） 这个问题源于 Excel：图表中两个系列的重复PlotOrder 编辑 ：我在这里列出一些有趣的发现（围绕这个主题，但不回答具体问题）。 我在官方网站find了这个 ChartGroups Collection ：“ 指定图表中所有ChartGroup对象的集合，每个ChartGroup对象表示一个或多个以相同格式绘制在一个图表中的系列。 ”即使我没有明确指出它，似乎每个XlChartType （一个Series的.ChartType的Enumerationtypes）显然会和一个给定的格式相关联，例如带有scatter的xlXYScatter 。 ChartGroup对象 ：“ 表示一个或多个以相同格式在图表中绘制的系列。 ” ChartGroup所有Series应具有相同的“ 格式 ”。 但是相反的情况是不正确的：在不同的ChartGroup可能有相同格式的ChartGroup 。 请参阅下面的第3点和示例。 从ChartGroup对象 ：“ 因为如果用于该组的图表格式发生更改，特定图表组的索引号可能会更改，则使用其中一个指定的图表组快捷方式可能会更容易返回特定的图表组。方法返回图表中饼图组的集合，LineGroups方法返回折线图组的集合，依此类推。 “例如， LineGroups Method 。 这允许点2： PieGroups将返回ChartGroup的集合。 可能有不止一个这样的ChartGroup ，并且所有的系列将具有Pie格式。 返回特定图表组的可用命名图表组快捷方式并不全面。 例如，没有XYScatterGroups方法。 作为第二点的例子，我有一个XYScatter格式的图表。 5个可用的XlChartType （根据XlChartType Enumeration的数值和描述）是 xlXYScatter […]

使用图表系列上的滚动条更改select个案

第一次在这里发布。 我有一个简单的折线图，其中有一系列来自表格的值。 本系列可以根据导入到我的电子表格中的数据集而变化。 我需要一个dynamic图表来绘制一个滚动位置，这是在图表系列中select的数据。 我有三个单独的工作很好，但是我想把它们合并到一个滚动条，我可以点击上下调整图表的范围从完整的值，一半的价值观，四分之一的价值观范围。 Sub HalfChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 2) End Sub Sub QuarterChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 4) End Sub Sub FullChartDataRange() Dim Rng As Range Set Rng = Sheets("Raw Data").Range("Stats[RollPos]") ActiveChart.SetSourceData Source:=Rng.Resize(Rng.Rows.Count / 1) End […]

为每个新的范围行添加系列图表

我需要创build一个包含多个只有一对值的序列的图表。 它看起来像这样： 图片显示了一个坐标的六个系列。 系列和值的名称取自三个不同范围的单元格（每个范围只有一列，所有配对数据在同一行但范围不同）。 创buildbutton，触发添加/删除行并相应地调整范围。 是否可以添加/删除系列的每个新的范围大小调整？ 即使这意味着每次删除现有的图表，并绘制新的图表。 基本上需要对行的范围进行计数，并对每一行进行一系列的处理。 希望我能够解释我自己。 我会很感激任何指针。

使用Range.DataSeries 的数据插值

我有一些基于date的数据，我试图插入（水平）之间。 看到下面的图片，我发现一些类似答案的代码，但是当我适应它，它不是插值。 每行的起点和终点都等于0.例如第3行，9月15日。 我在哪里错了？ Sub interpolateData() Dim rng As Range With Sheets("Timeline") Set rng = .Cells(8, 4) Do While CBool(Application.CountIf(.Rows(8), 0)) With .Range(rng, rng.End(xlToRight)) .DataSeries rowCol:=xlRows, Type:=xlLinear, _ Step:=(.Cells(.Cells.Count).Value2 – .Cells(1).Value2) / (.Columns.Count – 1) End With Set rng = .Cells(8, 4).End(xlToRight) Loop End With End Sub

在Excel图表上添加一个空的系列

我正在尝试使用VBA将许多系列添加到图表中，如下面的代码所示。 For i = 0 To 9 Set serNew = chtMap.SeriesCollection.NewSeries With serNew .XValues = Range("Y4").Cells(1, 1 + 2 * i).Resize(32000, 1) .Values = Range("Y4").Cells(1, 2 + 2 * i).Resize(32000, 1) End With Next i 一些系列的范围在其细胞中还没有数据; 用户稍后将写入/加载这个数据。 这个想法是让他们做好准备。 问题 ：当循环遇到这样一个空的范围时，出现错误1004：无法设置Series类的XValues属性。 为什么还有解决方法？ 奇怪的是，在图表菜单 – > |源数据…手动完成工作非常好。 实际上，如果您手动执行此操作时录制macros，则结果如下所示： ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(4).XValues = "=Sheet2!R4C31:R32003C31" ActiveChart.SeriesCollection(4).Values = "=Sheet2!R4C32:R32003C32" 但是当重新播放这个macros时，Excel会给出一个错误！ 手动这样做不是一个愉快的前景。 […]

使用VBA在Excel系列名称中使用Unicode字符

嘿家伙我试图设置一个数据序列的名称，以包含Unicode字符，我有一个时间。 例如，我想让系列名称为： ε= n 2 -k 2 我看了几个post，但没有一个（我看到）有类似的情况。 我是新的Excel VBA脚本的事实意味着我可能忽略了一些简单的东西。 我知道特定的图表是存在的，因为这些代码只是我之前使用过的，在这里和那里增加了一些额外的位。 我不断收到错误“运行时错误（1004）：应用程序定义或对象定义的错误”。 这是我目前所拥有的： ActiveSheet.ChartObjects(1).Activate Dim chart1 As String chart1 = "= " & ChrW(&H3B5) & " = n" & ChrW(&HB2) & " – k" & ChrW(&HB2) & " 6-5-2012" ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).Name = chart1 ActiveChart.SeriesCollection(1).XValues = ActiveSheet.Range("F2:F602") ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range("N2:N602") debugging器说，以下行是错误的原因： ActiveChart.SeriesCollection(1).Name = chart1

每周从vba栏更改总数

更新：有一个公式的新问题，不能完全得到它的工作，因为公式中的文本，公式（如从Excel中取）应该是， =IF(D2<=0,"No Sales Price",E2/D2) 我尝试了尽可能多的组合，但是“不销售价格”导致了引号的问题。 我目前的代码是 For i = 2 To LastRowG Range("Q" & i).Formula = "=IF(D" & i & "<=0," & "(No Sales Price)", & "(E" & i & "/D" & i & "))" Next i 环顾四周，却看不出任何解决问题的办法，任何启蒙都会得到最大的赞赏 编辑：这是通过插入以下行来解决的; For i = 2 To LastRowG Range("Q" & i).Formula = "=IF(D" & i & "<=0," & […]

Excel 2007根据另一个字段更改单个系列中的小节条的颜色

我有一个数据透视表，如下所示： Chain Store Units Bob's BB Los Angeles 10 Bob's BB San Diego 12 Tom's TM Los Angeles 12 Tom's TM San Francisco 18 Kate's K Monterey 11 目前我有一个条形图，只显示所有的商店和单位降序，所以TM旧金山是第一，然后TM洛杉矶和BB圣地亚哥，然后K蒙特利等这就是我想看到的数据。 但是我也想给连锁店打码，所以Bob的店铺有一个红色的酒吧，Tom的是蓝色的，而Kate的是绿色的。 是否有可能做到这一点？ 我已经尝试了各种方式来设置数据透视表，但最终看起来很乱，我找不到在“链”字段上设置每个条的颜色的方法。 = 我正在testingmacros观解决scheme，但如果任何人有一个非macros观的解决scheme，那么请仍然回答。 🙂