小编Icy*_*rts的帖子

我正在尝试构建一个基本的条形图，但我在标题中收到错误。我已经使用alert()来验证我想要用保存数据填充图表的数组，但仍然无法使用语法正确地找出某些内容。有人可以检查并让我知道我需要做什么才能更好地生成图表吗？

    var ctx = document.getElementById('cvtree').getContext('2d');
var chart = new Chart(ctx, {
    type: 'bar',
    data: { 
        labels: yoylabels,
        datasets: [{
                label: 'Pay By Person',
                backgroundColor: 'rgba(0, 129, 214, 0.8)',
                data: numericdollarvals
            }]
    },
    options: {
        },
        legend: {
            display: false,
            position: 'top',
        },
        scales: {
            yAxes: [{
                    ticks: {
                        beginAtZero: true,
                        callback: function (value, index, values) {
                            if (parseInt(value) >= 1000) {
                                return '$' + value.toString().replace(/\B(?=(\d{3})+(?!\d))/g, ",");
                            } else {
                                return '$' + value;
                            }
                        }
                    }
                }]
        }
});

在VBA中,我知道您可以使用此语法从日期中减去一年

Dim testdate As String, DateTest As String
testdate= "03/21/2017"
DateTest = Month(testdate) & "/" & Day(testdate) & "/" & Year(testdate) - 1

但是你怎么能找到给定年份的第一个和最后一个日期？例如,让我们使用相同的日期

testdate = "03/21/2017"

并获得以下值

firstdate = "01/01/2017"
lastdate = "12/31/2017"

我试图从我的工作簿中加载的加载项中按名称选择工作表.我的代码迭代到With worksheets(ws1)它然后抛出一行

键入不匹配错误

在该工作表上执行操作并使用该with功能的正确方法是什么？

Dim ws2 As Worksheet, ws1 As Worksheet
Dim aData

Set ws2 = ActiveWorkbook.ActiveSheet
Set ws1 = ThisWorkbook.Worksheets("Tastatas")

With Worksheets(ws1)
aData = .Range("a1").CurrentRegion
End With