2016-08-20 68 views
-2

我有一個相當長的宏,它在我的工作計算機上工作正常。問題在於它不能在我的家用電腦上工作。這些宏在漫遊時存儲在個人xlsm文件中。所以我只是將個人文件粘貼到我的電腦並運行宏。一切都是完美的,直到它需要從同一個Excel工作簿中的sheet2到sheet1中獲取數據。它給運行時1004對象定義的錯誤。有什麼想法嗎?我的vba代碼無法正常看到另一張表

Range("R2").Select 
    ActiveCell.FormulaR1C1 = _ 
     "=IF(RC[-2]<= " & MeanCov1 & ",-AVERAGE(Sheet2!R[3]C[-13]:R[3]C[12]),IF(RC[-2]<= " & MeanCov2 & ",-AVERAGE(Sheet2!R[3]C[-13]:R[3]C[" & WeekCov11 & "]),IF(RC[-2]<= " & MeanCov3 & ",-AVERAGE(Sheet2!R[3]C[-13]:R[3]C[" & WeekCov22 & "]),-AVERAGE(Sheet2!R[3]C[-13]:R[3]C[" & WeekCov33 & "]))))" 
    Range("R2").Select 
+2

幫助我們來幫助你,**發表您當前的代碼。** –

+1

變化'Thisworkbook'到'ActiveWorkbook'或甚至更好,定義和設置工作簿類型變量並使用[With ... End With語句](https://msdn.microsoft.com/en-us/library/wc500chb.aspx)。 – Jeeped

+0

它沒有這個工作簿或activeworkbook代碼。它在此之前激活。我不能粘貼所有的代碼,因爲它太長,但我可以發送一個有問題的部分。 Range(「R2」)。Select ActiveCell.FormulaR1C1 = _ 「= IF(RC [-2] <=」&MeanCov1&「,-AVERAGE(Sheet2!R [3] C [-13]:R [3] C [-13]:R [3] C [「&WeekCov11&amp; ]),IF(RC [-2] <=「&MeanCov3&」,-AVERAGE(Sheet2!R [3] C [-13]:R [3] C [「&WeekCov22&」]), - AVERAGE Sheet2!R [3] C [-13]:R [3] C [「&WeekCov33&」])))「 範圍(」R2「)選擇 – hakandeep

回答

-1

嘗試使用,而不選擇...範圍( 「R2」)。FormulaR1C1 = ...

相關問題