VBA：如果其他單元格的內容爲其他單元格的內容添加註釋= 1

Question

如果cell.offset（，45）= 1

我需要使用cell.offset（，23）

這是我嘗試：

Sub CellToCmt2() 

    Dim c As Range 
    For Each c In Selection 
    If target.Offset(, 45) <> 1 Then Resume Next 
    If target.Offset(, 45) = 1 Then 
     Application.EnableEvents = False 
     On Error Resume Next 
     With c.Offset(, 23) 
     .NoteText Text:=.Value 
     End With 
     target.ClearContents 
     On Error GoTo 0 
    End If 
    Next c 

End Sub 

但因爲我有一點VBA的知識，我不斷收到錯誤。

任何幫助，將不勝感激

編輯：這是我的作品的代碼

Sub CellToCmt2() 
Dim c As Range 
For Each c In Selection 
If c.Offset(, 45) = 1 Then 
    On Error Resume Next 
    With c 
     c.NoteText Text:=c.Offset(, 23).Value 
    End With 
    target.ClearContents 
    On Error GoTo 0 
End If 
Next c 
End Sub 

Answer 1

原因之一，此位不執行任何操作：

If target.Offset(, 45) <> 1 Then Resume Next 

不管條件是否滿足，你沿着下一步移動。也可以把它拿出來。

此外，當我使用宏錄製輸入評論我得到的代碼：

c.Comment.Text Text:="test" 

所以也許嘗試 「Comment.Text」 而不是 「NoteText」

編輯：

你可能想改變

With c.Offset(, 23) 
    .NoteText Text:=.Value 
End With 

要

c.NoteText Text:=c.Offset(, 23).Value 

Answer 2

應該target是c？例如：

If c.Offset(, 45) <> 1 Then Resume Next 
If c.Offset(, 45) = 1 Then