嘗試使用VBA更改工作表中特定單元格的值失敗

Question

我的目標是嘗試遍歷Excel 2010工作表中的一組單元格，並在同一工作表中更改另一個單元格的值。這是我試圖用VBA做到這一點的嘗試。當我嘗試更改moCost定義的單元格時，出現「Type MisMatch」錯誤。

另外，我假設當我更改（使用工作表更改事件）我的工作表的單元格中的任何一個變量的值我使用設置它將更改moCostAfford si的值更正？只是想確認。

任何幫助/方向將不勝感激。

這裏是我的代碼：

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Me.Range("I4:K42")) Is Nothing Then 
    On Error GoTo haveError 
    Application.EnableEvents = False 
    Dim moCost As Range, moCostAmount As Range, moCostManual As Range, moCostAfford As ValueChange 
    Dim cell As Range, affordabilityRowValues As Range 
    Set moCost = Range("A13") 
    Set moCostAmt = Range("B13") 
    Set moCostManual = Range("B14") 
    Set moCostAfford = Range("C13") 
    Set affordabilityRowValues = Intersect(Target, Me.Range("I4:K42")) 
    For Each cell In affordabilityRowValues.Cells 
     If cell.Offset(0, 1) = moCost And cell.Offset(0, 2) = moCostAmount And moCostManual = "0" Then 
      moCostAfford = cell.Offset(0, 3).Value 
     Else 
      moCostAfford = moCostAmount 
     End If 
    Next 
    Set affordabilityRowValues = Nothing 
    Set moCostAfford = Nothing 
    Set moCostManual = Nothing 
    Set moCostAmount = Nothing 
    Set moCost = Nothing 
    Application.EnableEvents = True 
End If 
Exit Sub  

haveError: 
    MsgBox Err.Description 
    Application.EnableEvents = True 

End Sub 

Answer 1

範圍對象的分配是畸形的，但除此之外，他們也被分配每次什麼東西在工作表中的變化，你做任何決定，甚至在然後使用。在退出分組之前將它們設置爲無效也是很好的做法。這是一個你可能想要擴展的簡化版本。

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Not Intersect(Target, Me.Range("I4:K42")) Is Nothing Then 
     On Error GoTo haveError 
     Application.EnableEvents = False 
     Dim moCost As Range, moCostManual As Range, moCostAfford As ValueChange 
     Dim cell As Range, affordabilityRowValues As Range 
     Set moCost = Range("A13") 
     Set moCostManual = Range("B14") 
     Set moCostAfford = Range("C13") 
     Set affordabilityRowValues = Intersect(Target, Me.Range("I4:K42")) 
     For Each cell In affordabilityRowValues.Cells 
      If cell.Offset(0, 1) = moCost And cell.Offset(0, 2) = moCostManual Then 
       moCostAfford = cell.Offset(0, 3).Value 
      End If 
     Next 
     Set affordabilityRowValues = Nothing 
     Set moCostAfford = Nothing 
     Set moCostManual = Nothing 
     Set moCost = Nothing 
     Application.EnableEvents = True 
    End If 
Exit Sub 

haveError: 
    MsgBox Err.Description 
    Application.EnableEvents = True 
End Sub 

隨着大批您正在使用的細胞，我可能會切換到以存儲單元格的值，而不是細胞本身的變量工作。更好的是，直接使用單元格而不是名稱較長的變量。如果只是簡單地使用名稱而不是單元格範圍參考，請考慮花時間在Formulas ► Name Manager中創建一系列命名範圍。如果您將moCost分配給A13，那麼您的代碼可以使用Range("moCost")而不是聲明變量並將其設置爲A13。