使用活动工作表中的单元格值命名图表

时间:2017-01-09 20:57:29

标签: excel-vba excel-charts vba excel

我在工作簿中有几张纸。每张表都包含具有相同格式的测试结果。我想创建一个宏,在每个工作表中创建一个图表,仅绘制来自该工作表的数据。我已经走到了这一步:

DATABASES = {
'default': {
    'ENGINE': 'django.db.backends.postgresql_psycopg2',
    'NAME': 'mlb_data',
    'USER': 'postgres',
    'PASSWORD': 'pw',
    'HOST': 'localhost',
    'PORT': '5432',
 }
}

import dj_database_url

DATABASES['default'] = dj_database_url.config()

SECURE_PROXY_SSL_HEADER = ('HTTP_X_FORWARDED_PROTO', 'https')

ALLOWED_HOSTS = ['*']

DEBUG = False

try:
    from .local_settings import *
except ImportError:
    pass

但是,最后一条声明未能成功创建活动工作表中单元格R1C2的链接。

截图:

有什么想法吗?

1 个答案:

答案 0 :(得分:0)

您在名称分配中使用字符串文字:

ActiveChart.FullSeriesCollection(1).Name = "='sSheetName'!R1C2" 

除非您有工作表" sSheetName"否则,这将失败。这样做:

ActiveChart.FullSeriesCollection(1).Name = "='" & sSheetName & "'!R1C2" 

这会使用您之前分配给变量sSheetName

的值