2015-05-06 81 views
0

這應該非常簡單。但有困難。我創建了一個變量調用numCountRows,它將對一個範圍內的行數進行計數,然後添加13.我嘗試了以下代碼行,但這會導致運行時錯誤1004.您輸入的文本不是有效的引用或定義的名稱。PrintArea中的連接變量

ActiveSheet.PageSetup.PrintArea = "ActiveSheet.Range(""" & "A14:O" & numCountRows & ")" 

如果numCountRows = 1,一行代碼就這樣寫的:

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("A14:O14") 

我做錯了嗎?

回答

1

只包含單元格的範圍;不要包含工作表名稱。例如:

ActiveSheet.PageSetup.PrintArea = "A14:O" & numCountRows