質問: エクセルで罫線の色変更 エクセル2000で作った罫線入りのデータがあるのですが、罫線全ての色変更をしたいのです。 「セルの書式設定→罫線タブ→色」で変更出来ますが、いちいち選択しなければなりません。 シート全体を選択して上記操作をしても変更されませんでした。 シート内全体(もしくは選択範囲全て)の罫線の色と簡単に色変更をする方法ってあるでしょうか?
回答: vbaを使う方法があります。 以下はよそからの転載ですが、参考までにどうぞ。 罫線を赤に変換するコードです。 alt+f11を押してください。 [挿入(i)]-[標準モジュール(m)] をクリックして、 以下のコードを貼り付けてください。 ''''''''''ここからコード'''''''''''''' sub test() dim i as integer, r as range, myrange as range dim mycolor as integer on error resume next mycolor = 3 '使用済みセルを対象にする set myrange = activesheet.usedrange for each r in myrange for i = 5 to 12 '罫線が引かれていれば色を変える if r.borders(i).linestyle <> xllinestylenone then r.borders(i).colorindex = mycolor end if next i next r end sub ''''''''''''ここまで'''''''''''''''''' alt+f11を押してエクセルに戻ってください。 [ツール(t)]-[マクロ(m)]-[マクロ(m)]-test を選択して実行してください。 mycolor = 3 を他の数字などに書き換えると違う色に変換できます。