VBA代碼通過動態拖動

Question

我需要編寫VBA代碼來改變列公式，其中細胞GQ4具有式

ActiveCell.Formula = "=SUM(CO4:CQ4)" 

現在有新的月份每月增加在Excel數據，因此該公式將也動態地每個月更改。 即下個月將是

"=SUM(CP4:CR4)" 

總之它是由1列拖動列選擇

請幫我寫個VBA代碼，將動態更改公式。

Answer 1

注意確定是否可以從自定義函數返回公式，但解決方案可能是編寫一個返回所需範圍的自定義函數，然後讓GQ4中的公式將範圍作爲參數。

或者你可以用普通的工作表公式來解決它。

=SUM(INDIRECT(ADDRESS(4;15));INDIRECT(ADDRESS(4;16));INDIRECT(ADDRESS(4;17))) 

將列號替換爲您可以通過使用日期函數獲得的基準+偏移量。例如。

=SUM(INDIRECT(ADDRESS(4;14 + =MONTH(TODAY())));INDIRECT(ADDRESS(4;15 + =MONTH(TODAY())));INDIRECT(ADDRESS(4;16 + =MONTH(TODAY()))))