人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelマクロの質問です。
次のことが実現できるマクロを教えてもらえませんか?
コメントが多いのですが設定がめちゃくちゃなので整理したいと思います。
なお、はてなのコメント欄に追記しますが、もうひとつのマクロと抱き合わせで実行したいと思います。
よろしくお願いいたします。
なお大変恐縮ですがマクロ以外のご回答の方へのポイントは配布しない予定ですのでご承知置きください。

【行いたいこと】
アクティブシートに対し
すべてのコメントを対象(セルにはコメントがあるセルとないセルが不規則に存在する)として
コメントのプロパティを次のように変更
フォント 「MS明朝」
フォントサイズ「10ポイント」
コメントを可視設定(Visible = True)
コメントの自動サイズ調整をON(Autosize=Ture)


●質問者: Twill
●カテゴリ:コンピュータ
✍キーワード:Excel MS ON はてな ひとつ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● F-15X
●60ポイント ベストアンサー

Sub hoge()

    Dim SelCel As Range '選択セル

    

    Application.DisplayCommentIndicator = xlCommentAndIndicator

    ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select 'シート内のコメントが設定されているセルを選択

    

    For Each SelCel In Selection '選択セルにてループ

        SelCel.Comment.Shape.Select True

        With Selection.Font

            .Name = "MS 明朝"

            .Size = 10

        End With

        With Selection

            .AutoSize = True

        End With

    Next

End Sub

◎質問者からの返答

ありがとうございます!

変数もあわせていただきありがとうございました。

大変助かりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ