2012-06-12 64 views
1

嘿家伙我试图将数据序列的名称设置为包含Unicode字符的东西,而且我有一段时间。举例来说,我想该系列名称是这样的:在Excel中使用Unicode字符使用VBA的系列名称

ε= N 2 - K²

我看帖子了一把,但没有(我看到的)也有类似的情况。我刚接触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") 

调试器说,下面一行是错误的原因:

ActiveChart.SeriesCollection(1).Name = chart1 

回答

1

这是你正在尝试什么?

chart1 = ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & ChrW(&HB2) & " 6-5-2012" 

,因为它开始你得到的是错误的,因为它指的是它作为一个公式是“=”号

如果你想显示“=”号,然后才包括空间。例如

chart1 = " = " & ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & _ 
ChrW(&HB2) & " 6-5-2012" 

快照

两种方法的快照。

enter image description here

+0

修好了!图表的其余部分不起作用(每个图表上的所有系列),但我有一种感觉,我只需要查看如何在一个图形上使用多个系列来修复该问题。我把''=“'放在里面,因为那是录制的宏所做的,这就是我学习这个的基本原理。 –

+0

@that_physics_guy如果这个答案帮助你,然后考虑接受它,以便其他人可以看到你的问题已经解决。 – JimmyPena