調試.Cells（i - 3，「A」）。Formula =「= Sheet2！A」＆i＆「」

非專業VBA試圖調試我的代碼。製作這些代碼的人已經過世了。此子是這樣的：調試.Cells（i - 3，「A」）。Formula =「= Sheet2！A」＆i＆「」

Sub UpdateFormulaCUI() 
Dim i As Integer 
i = 6 
With Sheets("CUI") 

    Do Until Sheets("Sheet2").Cells(i, "A") = "" 


     .Cells(i - 3, "A").Formula = "=Sheet2!A" & i & "" 
     .Cells(i - 3, "B").Formula = "=IFERROR(VLOOKUP(A" & i - 3 & ",Purchases!A:P,7,FALSE),"""")" 
     .Cells(i - 3, "D").Formula = "=GETPIVOTDATA(""Sum of Inventory"",Sheet2!$A$3,""Inventory" & Chr(10) & "Number"",A" & i - 3 & ")" 
     .Cells(i - 3, "E").Formula = "=GETPIVOTDATA(""Average of Cost $"",Sheet2!$A$3,""Inventory" & Chr(10) & "Number"",A" & i - 3 & ")" 
     .Cells(i - 3, "F").Formula = "=D" & i - 3 & "*E" & i - 3 & "" 

    i = i + 1 
    Loop 
End With 
i = 6 
With Sheets("CUI") 

    Do Until Sheets("Sheet2").Cells(i, "A") = "" 


     .Cells(i - 3, "A") = .Cells(i - 3, "A") 
     .Cells(i - 3, "B") = .Cells(i - 3, "B") 
     .Cells(i - 3, "D") = .Cells(i - 3, "D") 
     .Cells(i - 3, "E") = .Cells(i - 3, "E") 
     .Cells(i - 3, "F") = .Cells(i - 3, "F") 

    i = i + 1 
    Loop 

End With 

End Sub

在這篇文章的主題線路被停止。憑藉我對VBA的有限瞭解，我無法理解"=Sheet2!A" & i & ""代表什麼。
請幫忙！

來源

2014-12-04 clic

請問你能解釋一下更好的問題是什麼？你想讓人們回答什麼？ – Elisha 2014-12-04 15:52:45

代碼使用i作爲變量在每次循環時添加（1），以便公式中的引用隨着循環而變化。根據i的值，Ai可以是A1，A2，A3，A4。這個＆是VB注意到你要添加更多引用內容的方式。 'str =「this」-------「Hope」＆str＆「helps」 – peege 2014-12-04 17:05:42

這條線：

.Cells(i - 3, "A").Formula = "=Sheet2!A" & i & ""

指出式在特定細胞被設置爲特定字符串。變量'i'是一個在循環中改變的數字。例如，當i = 5，你已經基本上得到了：

.Cells(2, "A").Formula = "=Sheet2!A5"

如果步宏並停止它，你會發現，你所引用的單元格有一個公式現在在裏面，它應該be = Sheet2！A5

如果工作表不存在，那可能會導致您的錯誤。

當這停止時，它是否會給出特定的錯誤？

在此處添加信息 - 上面的參考是指工作表的名稱，而不是您在宏編輯器中看到的列表。

所以，如果你Sheet11（Sheet2），那就是你正在引用的那個。如果您看到Sheet2（銷售），那張表的名稱是'銷售' - 這就是您在公式中使用的內容。

來源

2014-12-04 16:04:49 asylumax

這回答了我的問題。你可以添加鏈接到這個類型的單元格引用的類型被描述的庫嗎？我的意思是「＆i＆」 – clic 2014-12-04 17:36:16

現在，這裏是截圖的鏈接：https://www.dropbox.com/s/jy3jki3qf644epk/Screenshot%202014-12-04%2012.49.28.png?dl=0 so在左側面板中可以看到Sheet11（Sheet2），然後再往下看Sheet2（Sales）。那麼現在我們之前提到的這個參考是指哪一個？謝謝 – clic 2014-12-04 17:51:33

clic - 請參閱答案中的其他信息。 – asylumax 2014-12-04 18:49:15

調試.Cells（i - 3，「A」）。Formula =「= Sheet2！A」＆i＆「」

回答

相關問題