VBA找到excel中列間的距離

Question

我決定通過例子問這個問題。我試圖解釋整個項目，但如果你還沒有在同一個項目上工作，那麼我們就去了。

作爲我正在編寫的代碼的用戶，您需要確定您希望程序實際獲取哪些列以及將所有計算寫入哪裏。總共有9個用戶可以玩，但我會專注於前四個，所以它不會太複雜。

前兩個是我的程序需要執行計算的列（稍後解釋），它是整個項目運行的基礎。我們稱它們爲Data_Before和Data_After。

接下來的兩列是根據Data_Before和Data_After中的信息進行的計算。這兩列是差異和百分比。像標題所示，Diff是Data_After - Data_Before，Percent是Diff/Data_Before。

截至目前，列必須緊挨着彼此。因此，如果Data_Before在列「A」中，那麼Data_After必須出現在「B」中，差異在「C」和百分比在「D」中。這是因爲我的計算來自記錄宏功能。用於填充在DIFF和百分比細胞中的代碼是下面

' Diff column 
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]" 
' Percent column 
ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-3]" 

對不起在代碼中，「差別列」和「百分比列」的怪異着色是註釋。無論如何，在這裏我們有FormulaR1C1，這使得程序不靈活。問題是，如何找到差異列和Data_Before或Data_After列之間的距離，以便用戶可以在列「A」中具有Data_Before，在列「B」中具有Data_After，但是可以在任何他們想要的位置使用Diff和Percent列？

對不起，問題的長度。

Answer 1

我只是在完成下面的步驟後纔看到您對程序設置的評論，希望能夠以某種方式提供幫助。

Sub InsertDiffPercentCalc(ByVal rngDataBeforeColumn As Excel.Range, ByVal rngDataAfterColumn As Excel.Range, ByVal rngTargetDiffColumn As Excel.Range, ByVal rngTargetPercentColumn As Excel.Range) 

' Diff column 
rngTargetDiffColumn.FormulaR1C1 = "=RC" & CStr(rngDataAfterColumn.Column) & "-RC" & CStr(rngDataBeforeColumn.Column) 
' Percent column 
rngTargetPercentColumn.FormulaR1C1 = "=RC" & CStr(rngTargetDiffColumn.Column) & "/RC" & CStr(rngDataBeforeColumn.Column) 

End Sub 

基於您的評論，你可以創建一個無參數子，但在任何情況下，你仍然必須確定目標列（或至少他們的地址） - 你怎麼做呢？ 編輯剛剛看到您的其他評論。

Sub InsertDiffPercentCalc() 

Dim rngDataBeforeColumn As Excel.Range 
Dim rngDataAfterColumn As Excel.Range 
Dim rngTargetDiffColumn As Excel.Range 
Dim rngTargetPercentColumn As Excel.Range 

Set wksSettings = ThisWorkbook.Sheets("<settings sheet name>") 
Set wksTarget = Application.Workbooks("<target workbook name>").Sheets("<target sheet name>") 

Set rngDataBeforeColumn = wksTarget.Range(wksSetting.range("A2").Value & ":" & wksSetting.range("A2").Value) 
Set rngDataAfterColumn = wksTarget.Range(wksSetting.range("B2").Value & ":" & wksSetting.range("B2").Value) 
Set rngTargetDiffColumn = wksTarget.Range(wksSetting.range("C2").Value & ":" & wksSetting.range("C2").Value) 
Set rngTargetPercentColumn = wksTarget.Range(wksSetting.range("D2").Value & ":" & wksSetting.range("D2").Value) 

' Diff column 
rngTargetDiffColumn.FormulaR1C1 = "=RC" & CStr(rngDataAfterColumn.Column) & "-RC" & CStr(rngDataBeforeColumn.Column) 
' Percent column 
rngTargetPercentColumn.FormulaR1C1 = "=RC" & CStr(rngTargetDiffColumn.Column) & "/RC" & CStr(rngDataBeforeColumn.Column) 

End Sub 

其中wksSetting是設置表的名稱，wksTarget是目標（輸出）表的名稱。

Answer 2

根據您的評論，似乎您確切知道在哪裏放置輸出。對？所以，如果B列是數據之後列A是數據前，用戶想要在G列DIFF列，您可以使用此爲您的DIFF公式：

Range("G1").Formula = "=B1-A1" 

還是我誤會？

編輯

你可能這樣的事情後：

sheet1.Columns(15).column - sheet1.Columns(13).column ' returns 2 

你可以用它來創建一個R1C1公式。