Question

我正在

400错误

单击我的宏时，当我在Visual Basic中并使用 F8 进行步骤时它工作正常但是当我点击Calculate Stats宏时它会给出一个

400错误

并且除非我在其中一行中手动输入日期，否则不会运行它。我希望它在没有输入日期的情况下运行并自动计算日期。对不起，我是编程新手，不知道我能说些什么才有意义。请参阅以下代码：

<script type="text/javascript">
$('#button-refresh').on('click', function(e) {
    e.preventDefault();
});

$(document).ready(function() {
    var refresh = function () {
        $("#newtotalinbox").load(window.location.href + " #newtotalinbox");
        $('#menu_unread').load(window.location.href + " #menu_unread");
    }

    setInterval(refresh, 60  * 1000);
    refresh();
});
</script>

Answer 1

这是我对你要做的事情的最好猜测：

Sub CalculateStats_Click()

    Const RW_START As Long = 12
    Const RW_END As Long = 93
    Const COL_SUM_START As Long = 8 'H

    Dim i As Long, sht As Worksheet, c As Range

    Set sht = Worksheets("Analysts")

    'find the first empty header cell and populate the date
    Set c = sht.Cells(RW_START - 1, sht.Columns.Count).End(xlToLeft).Offset(0, 1)
    c.Value = Date

    For i = RW_START To RW_END
        sht.Cells(i, c.Column).Value = _
            Application.Sum(sht.Cells(i, COL_SUM_START).Resize(1, 2))
    Next

End Sub

Answer 2

我已经解决了这个问题。感谢您对此的帮助，但这是因为Macro未分配给正确的模块。

如何关闭此票？

Excel宏中的Visual Basics 400错误

2 个答案: