次の方法で共有


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 のサポートおよびフィードバックを参照してください。