VBAオフセットセル値に基づいてコメントを挿入する機能

Question

2つのワークシートがあります。 1つは長期計画のカレンダーで、上部に日付が、左側にオブジェクトがあります。他のワークシートはデータシートです。各カレンダーエントリは独自の行で、他のシートのカレンダーエントリのセルアドレスを持つ列が1つあります。私はカレンダーワークシートにコメントを追加しようとしていますが、以下のコードでエラーが発生しています。私が間違ってやっていることに関する提案はありますか？ありがとう！

Sub UpdateLTP() 

    Sheets("Long Term Plan").Select 
    Range("A1").Select 
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 
    Selection.ClearComments 
    Range("A1").Select 

    Sheets("Data").Select 
    Dim rng As Range, cell As Range 
    Set rng = Range("AA2:AA" & Range("AA" & Rows.Count).End(xlUp).Row) 
    For Each cell In rng 
     If cell.Value <> "" Then 
      Sheets("Long Term Plan").Range(cell.Value).AddComment cell.Offset(0, -1).Value 
     End If 
    Next cell 

End Sub 

Answer 1

これは、コメントを作成し、コメントにテキストを追加するために機能します。オフセットセルの値が何もない場合、コードはエラーになります。いくつかのエラーチェックを追加する

Sub UpdateLTP() 

Dim xlRange As Range 
Dim xlCell As Range 

    Sheets("Long Term Plan").Select 
    Set xlRange = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)) 
    xlRange.ClearComments 
    Sheets("Data").Select 
    Set xlRange = Range("AA2:AA" & Range("AA" & Rows.Count).End(xlUp).Row) 
    For Each xlCell In xlRange 
     If xlCell.Value <> "" Then 
      With Sheets("Long Term Plan").Range(xlCell.Value) 
       .AddComment 
       .Comment.Visible = False 
       .Comment.Text Text:=xlCell.Offset(0, -1).Value 
      End With 
     End If 
    Next xlCell 

End Sub 

このコードは起こってからそれを妨げることはオフセットセルは

Sub UpdateLTP() 

Dim xlRange As Range 
Dim xlCell As Range 

    Sheets("Long Term Plan").Select 
    Set xlRange = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)) 
    xlRange.ClearComments 
    Sheets("Data").Select 
    Set xlRange = Range("AA2:AA" & Range("AA" & Rows.Count).End(xlUp).Row) 
    For Each xlCell In xlRange 
     If xlCell.Value <> "" Then 
      If xlCell.Offset(0, -1).Value <> "" Then 
       With Sheets("Long Term Plan").Range(xlCell.Value) 
        .AddComment 
        .Comment.Visible = False 
        .Comment.Text Text:=xlCell.Offset(0, -1).Value 
       End With 
      End If 
     End If 
    Next xlCell 

End Sub 

Answer 2

はこのコードを使用してください空でないことを確認してくださいがあります。私は、コードがかなりシンプルで、違いがどこにあるのかを見分けるのに役立つので、説明なしで得ることができれば幸いです。私は下のコードをテストして、うまくいきます。お役に立てれば。

Option Explicit 
Sub UpdateLTP() 
Dim xlCell, xlRange, SourceRange As Range 
Dim rowCount As Integer 
Set SourceRange = Sheets("Data").Range("AA2:AA" & Range("AA" & Rows.Count).End(xlUp).Row) 
    For Each xlCell In SourceRange 
     If xlCell.Value <> "" Then 
      If xlCell.Offset(0, -1).Value <> "" Then 
       With Sheets("Long Term Plan").Cells(xlCell.Row, xlCell.Column) 
        '' Clear Comments as needed from our source sheet. 
        .ClearComments 
        .AddComment (CStr(xlCell.Offset(0, -1).Value)) 
        '' Please change to false as needed. 
        .Comment.Visible = True 
       End With 
      End If 
     End If 
    Next xlCell 
End Sub