次の方法で共有

Comment.Previous メソッド (Excel)

  • [アーティクル]

前のコメントを表す Comment オブジェクトを返します。

構文

式。先の

式Comment オブジェクトを返す式。

戻り値

コメント

注釈

このメソッドは 1 つのシートだけで実行されます。 このメソッドをシートの最初のコメントで使用すると、前のシートの最後のコメントではなく Null 値が返されます。

例

次の例では、Previous メソッドで移動しながら、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 = 10 To 1 Step -2 
 Range("A" & yNum).Comment.Previous.Shape.Select True 
 Selection.Delete 
Next 
 
MsgBox "Deleted every second comment"

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。