", vbYesNo + vbQuestion) If 実行確認 = vbNo Then Exit Sub '''''''''''コメント追加と一括編集処理'''''''''' On Error Resume Next '''''コメントを新規追加''''' With 選択セル 'コメント追加. AddComment 'コメント表示 sible = True 'コメント選択入力 True. Text:=コメントデフォルトテキスト 'フォント = 変更フォントサイズ = 変更フォント名 'サイズデフォルト設定 = コメントデフォルト幅 = コメントデフォルト高さ ' オブジェクトの位置関係 If 位置関係区分 = 2 Then. = xlMoveAndSize 'セルに合わせて移動やサイズ変更をする ElseIf 位置関係区分 = 1 Then. = xlMove 'セルに合わせて移動するがサイズ変更はしない ElseIf 位置関係区分 = 0 Then. = xlFreeFloating 'セルに合わせて移動やサイズ変更をしない End With '''''全コメントを一括編集''''' '範囲指定 Set 複数範囲セル = cells. SpecialCells(xlCellTypeComments) '全てのコメント Set 複数範囲セル = Selection '選択セルのみ Set 複数範囲セル = edRange '全有効範囲 '複数範囲セル分ループ For Each 既存コメントセル In 複数範囲セル If Not 既存コメントセル. Comment Is Nothing Then With 既存コメントセル ' フォント変更 '位置変更 '行の表示・表示、行の追加・削除などでズレまくった場合、コメントの位置をセルの近くに一律移動 '位置設定 = - 7. 8 = + + 11. 2 '表示編集 'ちょっとカッコよく形を変えたい場合の処理です。お好みの形に変更ください。 '形状を角丸四角形に変更. = msoShapeRoundedRectangle '塗り色・線色 変更 = RGB(128, 128, 128) = RGB(240, 240, 240) '影 透過率 30%、オフセット量 x:1px, y:1px = 0. エクセルのコメント（メモ）を一括で表示・非表示にする2つの方法 | パソコン教室, パソコン 仕事, パソコン エクセル. 3 = 1 '太字解除 = False '中央揃え.
エクセルのコメント(メモ)を一括で表示・非表示にする2つの方法 | パソコン教室, パソコン 仕事, パソコン エクセル
= xlHAlignCenter '表示/非表示 If 表示非表示区分 = 1 Then sible = True '表示 ElseIf 表示非表示区分 = 0 Then sible = False '非表示 '自動サイズ調整 If 自動サイズ調整区分 = 0 Then. = False '自動自動サイズ調整off ElseIf 自動サイズ調整区分 = 1 Then. = True '自動自動サイズ調整on 'サイズ1行目を固定とし、テキスト内容から幅を自動調整 コメント文 =.
●エクセルマクロで仕事の評価が上がる理由 仕事効率化に必要な考え方 仕事の効率化を目指すときのポイントは、以下の記事で解説しています。ぜひ合わせて読んでみてください。 ●生産性の低い職場の特徴 ●仕事の段取りを組むときのコツ ●職場の無駄を省くためのヒントやポイント ●効率化のアイデアを出すための考え方 ●ムダな会議を減らすためのコツ ●会社のムダをなくすための取り組み事例 エクセルを使った仕事の自動化や仕組み化を行う 業務自動化(エクセルマクロVBA)に関連する情報は、こちらの記事で解説しています。ぜひ合わせて読んでみてください。 ●エクセルで仕事の流れを改善した事例 ●エクセルマクロVBAを習得した人の体験談 ●エクセルマクロVBAで在庫管理する方法 ●エクセルマクロVBAとは何か? メリットや意味 ●エクセルマクロVBAで出来ること ●エクセル関数よりエクセルマクロVBAを習得した方がいい理由 ●今すぐ使えるマクロVBA入りのエクセルをダウンロード