Question

Apollogies，我知道已经发布了数百次，但我看了看它们仍然无法解决这个问题

所以我有一本工作簿（第一次使用vba）第一张图是一张图第二张是包含节点和压力值的工作表第三张是包含节点和压力值的工作表等至第17页

我在表1中有一个压力与数字的关系图，它只包含表2“stress1”和表3“stress2”的数据

尝试创建代码以将stress3的值添加到工作表1中的图表

CODE

private boolean isLeapYear(int year) {
    //in general we have every 4 years an aditional day in february
    if (year % 100 == 0) {
        //... unless its a full century (1900,2000,2100) then it also must be divisible by 400
        if (year % 400 == 0) {
            return true;
        }
    } else if (year % 4 == 0) {
        //every 4 years
        return true;
    }

    //no leap year by default
    return false;
}

除最后一行之外的所有内容都有效，抛出错误1004，我认为这是因为我必须做一些事情来允许访问其他表格？

我也试过

ActiveSheet.ChartObjects("Chart 1").Activate

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(x).Name = "=""Stress3"""

ActiveChart.SeriesCollection(x).Values = ThisWorkbook.Sheets("Stress3").Range("B9:B782")

作为最后一行，同样的错误

Answer 1

解决

我是一个白痴，因为我把x = 3放在我的代码顶部，让它工作然后不注意并删除它

问题是（x）当我删除x = 3时，工作表尝试从工作表x中获取值它不知道x是什么

通过读取x = 3或将（x）更改为数字

来修复

VBA代码，错误1004

1 个答案: