Comment.Next メソッド (Excel)
次のコメントを表す Comment オブジェクトを返します。
式。次に
式Comment オブジェクトを返す式。
コメント
このメソッドは、1 つのシートだけで実行されます。 シートの最後のコメントでこのメソッドを使用すると、次のシートのコメントではなく、Null 値が返されます。
次の例では、Next メソッドで移動しながら、2 番目のコメントをすべて表示します。
注意
既存のコメントがない新しいブックでこの例をテストします。 ブックからすべてのコメントをクリアするには、[イミディエイト] ウィンドウで を使用 Selection.SpecialCells(xlCellTypeComments).delete
します。
'Sets up the comments
For xNum = 1 To 10
Range("A" & xNum).AddComment
Range("A" & xNum).Comment.Text Text:="Comment " & xNum
Next
MsgBox "Comments created... A1:A10"
'Deletes every second comment in the A1:A10 range
For yNum = 1 To 10 Step 2
Range("A" & yNum).Comment.Next.Shape.Select True
Selection.Delete
Next
MsgBox "Deleted every second comment"
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。