將細胞值插入指定的細胞

我是一個完整的初學者與Excel VBA。我試圖製作一個時間表跟蹤器，它在「課程」工作表上提供所有正在運行的課程的教學信息。將細胞值插入指定的細胞

E欄使用公式來標識交叉引用職員和課程日期的單元格。

K列包含concat（文本&數值數據）語句，我需要將它插入「日曆」工作表（同一工作簿）上的正確位置。

代碼中，我迄今如下：

Private Sub BtnUpdate_Click() 

Dim w As Variant 
Dim c As Variant 
Dim i As Integer 
Dim n As Integer 

'Application.ScreenUpdating = False 
i = 1 
w = Sheets("Courses").Range("E" & i).Value 
c = Sheets("Courses").Range("K" & i).Value 

Do 
Sheets("Calendar").Range(w).Select 
ActiveCell.Value = c.Value 
Loop While n <> Range("E2").End(xlDown).Row 
'Application.ScreenUpdating = True 

End Sub

任何指導，將不勝感激。

來源

2013-07-30 Manda

所以什麼問題？ – Reafidy

道歉的模糊的問題......本質上我怎麼可以設置循環，以便它瀏覽E列中填充的單元格，每個單元格持有單元格引用。然後它應該轉到日曆表單上指定的單元格引用，並使用「課程」表單中列K（同一行）的值填充它。 – Manda

不是太清楚..但你可以試試這個..

Private Sub BtnUpdate_Click() 

Dim w As Variant 
Dim c As Variant 
Dim i, n As Integer 
Dim r as Range 

Set r = Range("E65536").End(xlup) 

'Application.ScreenUpdating = False 

For i = 1 to r.Row 
    w = Sheets("Courses").Range("E" & i).Value 
    c = Sheets("Courses").Range("K" & i).Value 

    Sheets("Calendar").Range(w).Select 
    ActiveCell.Value = c.Value 

    'Application.ScreenUpdating = True 

Next  
End Sub

來源

2013-07-31 00:56:56 matzone

感謝您的代碼，我已經嘗試過了，當我進入代碼時，我得到了第10行「表格（」日曆「...並且我收到一條錯誤消息，指出」運行時錯誤'1004'：應用程序定義的錯誤或對象定義的錯誤「 – Manda

然後或者你沒有名爲」日曆「的表或者變量w沒有包含正確的單元格地址，也不需要使用select。）.Range（w）.Value = c.Value' – Reafidy

將細胞值插入指定的細胞

回答

相關問題