Question

我无法一次在多张纸上执行我的代码，我希望有人可以解决问题。我一次在4张纸上运行我的下面的代码，除了应该拖动公式的最后一行代码之外，它工作得很好。整个代码将在所有4个页面上运行，但最后一行只会在我正在查看的工作表上运行。有谁知道这是为什么，或者我如何强制代码执行所有选定工作表上的最后一行？以下是我正在使用的代码。谢谢！

Sub ChargeRent()
'selects first empty cell in tenant ledger
'keyboard shortcut = ctrl+q
ActiveSheet.Range("a8").End(xlDown).Offset(1, 0).Select
Dim todays_date As Date
todays_date = Range("F1")
If todays_date >= "1 / 1 / 17" And todays_date <= "1 / 31 / 17" Then
  'inputs date as first of the month and charges rent in appropriate cell
    ActiveCell.FormulaR1C1 = "='Jan-17'!R100C[3]-DAY('Jan-17'!R100C[3])+1"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "Rent"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R6C[-1],'Jan-17'!R3C[8]:R6C[10],2,FALSE)"
    ActiveSheet.Range("e8").End(xlDown).Select
    Selection.Resize(2).FillDown

代码在多个工作表上运行，除了一行？

0 个答案: