我怎麼能循環使用Excel VBA

我有一個4列的表這是目前設置有以下的列日到這個SQL表：我怎麼能循環使用Excel VBA

保險人/承銷商，代理，日， Budgeted_Amount，

承保人/保險商將具有相同的保險公司的12個條目，但是它們將被分配到一個不同的月份和具有從78行運行不同的預算量

承保人/承銷，代理列和預算量到行有一個入口urer和代理，但隨後也有對預算金額

在行77也有12個月的一年12個月列，我需要的是某種形式的循環，將會把日在相關入口

這是我當前的代碼，這是填充保險公司，代理人和幾個月 - 它通過重複的行範圍11次，得到整年值得條目做到這一點，但日期無法顯示

STARTCOLUMN = 26，

MaxColumn = 37

For CurrentColumn = StartColumn To MaxColumn 

StartRow = 78 
EndRow = 375 
For CurrentRow = StartRow To EndRow 



    Insurer_Underwriter = Sheet8.Cells(CurrentRow, 2) 
    Agent = Sheet8.Cells(CurrentRow, 3) 
    Day = Sheet8.Cells(CurrentRow) 
    Day = Format(Day, "dd-MM-YYYY") 
    Budgeted_Amount = Sheet8.Cells(CurrentRow, CurrentColumn + 10) 





    sSQL = "INSERT INTO [C3 Forecast].Budget_Data_Dan VALUES ('" & Insurer_Underwriter & _ 
    "','" & Agent & "','" & Day & "','" & Budgeted_Amount & "')" 
    Cn.Execute sSQL

請可能有人指出在何處放置循環拿起日期上排77，列36至47

感謝丹

來源

2016-07-26 Dan Tracey

這是得到的答覆是：

Day = Sheet8.Cells(CurrentColumn + 10)

謝謝，丹

來源

2016-07-26 10:24:58

我怎麼能循環使用Excel VBA

回答

相關問題