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

Excelで、コメントの表示・非表示の設定について教えてください。

シートごとに一括でコメントの表示・非表示を設定したいと考えています。

ツールバーから、「表示 > コメント」として、「すべてのコメントを表示する/しない」で、作業する方法も考えたのですが、それでは、他のシートにも影響を与えてしまって、上手く出来ませんでした。

1つのファイルにたくさんのシートがあるため、これでは効率が悪くて困っています。

他のシートには影響を与えずに、その1つのシートだけに、一括してコメントを表示・非表示する方法があれば、ぜひ教えてください。

もしなければ無いで、無いと教えてください。

ご存知の方、宜しく御願い致します。

●質問者: mi313
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel コメント ツールバー ファイル
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● にぎたま
●27ポイント

かゆいところに手が届かないエクセルですね。

ちょっと試してみました。

1.ツールバーの[チェック/コメント]を表示させる。

2.セルA1にカーソルを合わせておく

3.[次のコメント]ボタンをクリックする

4.[コメントの表示/非表示]を押す

これじゃダメですよねぇ?。いけてない。

てなことで、マクロを書いてみました。

Sub hoge()

Dim AllComments As Comments '1シートにあるコメントコメント全部

Dim NumComments As Long '1シートにあるコメントの数

Dim i As Long 'ループ用のカウンタ

'表示中のシートからすべてのコメントを取得

Set AllComments = ActiveSheet.Comments

'コメントの数を取得

NumComments = AllComments.Count

'コメントの数を表示(デバッグ用)

'MsgBox (NumComments)

'ひとつずつ表示(true)にしていく

'非表示にしたい場合は false に書き換えてください

For i = 1 To NumComments

AllComments.Item(i).Visible = True

Next i


End Sub


これでいけるっぽいですよ。

ガサツなコードで申し訳ない。

◎質問者からの返答

すみません。

マクロについて、よく知らないです。

もっと、簡単に、ツールなどで設定できないものでしょうか?


2 ● minkpa
●27ポイント

http://blog.goo.ne.jp/santaro2006

マクロの作り方

◎質問者からの返答

ありがとうございます。

コメントをいただいた方も、ありがとうございます。

参考にして、マクロを試してみたいと思います。

皆様に感謝いたします。


3 ● qazu
●26ポイント

作業をしたいシートを表示して

Ctrl+A

で全セルを選択してから

「表示」

「コメント」

「全てのコメントを表示」または「全てのコメントを表示しない」

ではダメですか?

◎質問者からの返答

それで出来ますか?

関連質問


●質問をもっと探す●



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