下一個沒有錯誤的Excel VBA

我不明白爲什麼這個代碼有編譯出錯Next，卻沒有對請幫助:(下一個沒有錯誤的Excel VBA

Sub DefColorCodes() 

    For i = 2 To 5 
     Range("actReg").Value = Range("Sheet1!A" & i).Value 
     ActiveSheet.Shapes.Range("actReg").Select 
     With Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color 

    Next i 

    Range("B17").Select 
End Sub

來源

2014-12-04 Milo Kang

你**的**下一步之前 – 2014-12-04 16:00:32

您還沒有結束你With。在某些時候添加End With線。之前你Next i線

Sub DefColorCodes() 
    For i = 2 To 5 
     Range("actReg").Value = Range("Sheet1!A" & i).Value 
     ActiveSheet.Shapes.Range("actReg").Select 
     With Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color 
     End With 
    Next i 
    Range("B17").Select 
End Sub

在這種情況下，它很可能你並不想使用With都：

Sub DefColorCodes() 
    For i = 2 To 5 
     Range("actReg").Value = Range("Sheet1!A" & i).Value 
     ActiveSheet.Shapes.Range("actReg").Select 
     Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color 
    Next i 
    Range("B17").Select 
End Sub

來源

2014-12-04 16:00:35 grovesNL

需要一個**尾隨着**謝謝你，它的工作循環！ – 2014-12-04 16:07:00

@MiloKang：太好了！如果你能接受我的答案，這將讓用戶知道該解決方案爲你工作。歡迎來到堆棧溢出！ – grovesNL 2014-12-04 16:26:47

您使用的是With語句中你與老了End With

來源

2014-12-04 16:00:53 bowlturner

謝謝你的工作！ – 2014-12-04 16:07:37

下一個沒有錯誤的Excel VBA

回答

相關問題