• ベストアンサー
  • 困ってます

Excelに初期設定されている罫線の太さを細くするには?

Excelの罫線ボタンで引ける線は2種類ですが、細い方を選んでも上司には気に入られず、「太い」といわれます。そこで表を作るたびに 「メニューバー」→「書式」→「セル」の手順で線を引かなくてはなりません。 Excelの初期設定を変更して、ツールバーの罫線ボタンをクリックしただけで一番細い線が引けるようにはできないでしょうか? よろしくおねがいいたします。

共感・応援の気持ちを伝えよう!

質問者が選んだベストアンサー

  • ベストアンサー
  • 回答No.1
  • baboooo
  • ベストアンサー率35% (17/48)

初期設定では無理だと思いますが、マクロを使用してなら ツールバーにそのような処理をするボタンを登録することは可能です。 【方法】 ・最初にマクロを登録します。 (1)「ツール」→「マクロ」→「●新しいマクロの記録」で任意のマクロ名を設定し「OK」を押す (2) 適当なセルで罫線の設定を行う (「メニューバー」→「書式」→「セル」をやる) (3)「ツール」→「マクロ」→「■記録終了」 ・次にツールーバーを設定します。 (4)「メニューバー」→「表示」→「ツールバー」→「ユーザー設定」を選択しダイアログを表示 (5)”コマンド”タブの左側の”分類”の”新しいメニュー”を選択 (6)”コマンド”タブの右側の”新しいメニュー >” をツールバー上にドラッグ&ドロップ (7)”コマンド”タブの右下の”選択したボタンの編集”が使用可能になるので、クリックします。 (8)任意の名前を設定し、”マクロの登録”を選択 (8)作成したマクロを選択し「OK」を押す

共感・感謝の気持ちを伝えよう!

質問者からのお礼

ありがとうございました。 マクロでできるらしいことはわかっていたのですが本のとおりにやってもできませんでした。 今回のあなた様のアドバイスがシンプルかつ丁寧でしたのでひとつクリアーできました。ありがとうございました。

その他の回答 (3)

  • 回答No.4
  • moon00
  • ベストアンサー率44% (315/712)

すいません、補足です。 各コマンドの「.ColorIndex = xlAutomatic」の行は不要です。 それと、線の種類を表すコード等、マクロの参考になるURLを 付けておきます。

参考URL:
http://www.sigoto.co.jp/excel/

共感・感謝の気持ちを伝えよう!

  • 回答No.3
  • moon00
  • ベストアンサー率44% (315/712)

罫線ボタンで線種まで選択できるといいのですが。 私も同じように、一番使うのが「細かい点々の線」なので、 業を煮やして(笑)マクロを組んでツールバーにしてしまいました。 #1さんの回答にあるように、「マクロの記録」を元にしてアレンジしたものです。 ネットを探せば、マクロのヒントはいろいろ転がってますので、 これを機に挑戦してみるのもいいかと思います。(実は私がそうでした) 参考までに私の使っているマクロを書いておきます。 「ツール」→「マクロ」→「Visual Basic Editor」で 「VBA Project(personal.xls)」に標準モジュールを挿入し、 そこにペーストしてください。(このあたり分かりにくかったら、すいませんが マクロ関連のHP等を参考にして下さい。すいません。) これで、いつExcelを開いても使えます。 私はそれぞれをカスタムコマンドボタンに登録して、ツールバーとして使用しています。 (これも登録の仕方は割愛します。説明が必要でしたら補足でお願いします。) ここからマクロ------------------------------------ Sub lunder() ' ' セル範囲の一番下に罫線を引きます ' With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub Sub lleft() ' ' セル範囲の一番左に罫線を引きます ' With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub Sub lright() ' ' セル範囲の一番右に罫線を引きます ' With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub Sub ltandu() ' ' セル範囲の一番上と一番下に罫線を引きます ' With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub Sub linside() ' ' セル範囲の内側のタテヨコに罫線を引きます ' Dim arow As Integer, acolumn As Integer arow = Selection.Rows.Count acolumn = Selection.Columns.Count If arow + acolumn = 2 Then MsgBox "2つ以上のセルを選択して下さい", vbExclamation '1つのセルを選択した場合、内部がないのでメッセージボックスで警告します ElseIf arow = 1 Then '列が1列しかない場合 With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With ElseIf acolumn = 1 Then '行が1行しかない場合 With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With Else With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End If End Sub Sub lhinside() ' ' セル範囲の内側の横罫線を引きます ' Dim arow As Integer arow = Selection.Rows.Count If arow = 1 Then '1列しかない場合警告を出します MsgBox "2列以上選択して下さい", vbExclamation Else With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End If End Sub Sub lvinside() ' 'セル範囲の内側の縦罫線を引きます ' Dim acolumn As Integer acolumn = Selection.Columns.Count If acolumn = 1 Then '1行しかない場合警告を出します MsgBox "2行以上選択して下さい", vbExclamation Else With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End If End Sub -------------------------------------------------- お役に立てるといいのですが。

共感・感謝の気持ちを伝えよう!

質問者からのお礼

ありがとうございました。色々資料を作って会社に提案するために毎日がExcelの勉強です。 かなり専門的なアドバイスをいただき今後おおいに役立ちそうです。 本当にありがとうございました。

  • 回答No.2

初めまして。 >そこで表を作るたびに「メニューバー」→「書式」→「セル」の手順で線を引かなくてはなりません。 表が違えば、罫線の引き方も違うので表を作る度にこの操作をするのはやもえないと思います。 #1のご回答の方法で、マクロの操作をすると、同じ表の場合はいいのですが、違った表の場合には変なところに罫線が引かれてしまいますのでお気よつけ下さい。

共感・感謝の気持ちを伝えよう!

質問者からのお礼

ありがとうございました。 そのへんも念頭にいれておいてチャレンジしようと思います。

関連するQ&A

  • Excel 2013 で簡易罫線選択メニュー?

    添付図は Excel 2002 の[ツールバー]上の一つ[罫線]をクリックして現れた罫線メニューを示しています。詳細な設定は、Excel 2013 と同様に[セルの書式設定]から行なえるのですが、私はツールバーのもので殆どの場合事足りていました。 Excel 2013 でも Excel 2002 と同様に数種類の罫線を出せる設定方法があれば、その手順を教えてください。

  • 罫線の消去

    Excel2002です。 ある表データで格子状に罫線が引いて あります。 その一部のセルに斜め罫線が入っていますが、 その斜め罫線だけを消去したいのです。 ツールバーの罫線ボタンで「罫線の削除」を 利用しても メニューバーの書式より「セルの書式設定」より 「なし」で操作しても、そのセルの枠罫線まで 消えてしまいます。 対処の仕方をお教えください。

  • Excelの条件付き書式設定の太い罫線

    Excel 2000 です。 条件付き書式の「書式」ボタンを押して表示される「セルの書式設定」の罫線タブの「線」の「スタイル」には、太い線がありません。 条件付き書式では、太い罫線は設定できないということでしょうか。

  • エクセルの罫線が印刷されない

    エクセル2000で表を作って罫線をいれましたが、一部分だけ線が印刷されません。メニュー→書式→セル→罫線で確認しても確かに罫線は入っているのです。 印刷範囲ギリギリで表を作成していると一番外枠の部分で時々このような事があります。でも印刷範囲内なのです。 どうしたらきれいに印刷できるでしょうか?教えて下さい。

  • エクセル2007の罫線

    お世話になります。 エクセル2003ではツールバーに罫線ボタンが表示できて、鉛筆ボタンや消しゴムボタンであちこちの罫線を手軽にひいたり消したりできましたが、2007では鉛筆ボタンや消しゴムボタンが見当たらなくて困っています。 今はセルの書式設定でちまちまやってますが、罫線ボタン各種はどこにあるのか教えてください。

  • エクセルで罫線のツールバーが出なくなった

    初歩的な質問ですみません エクセルで罫線のツールバーが行方不明になってしまいました。罫線のツールバーは、しばらく使っていなかったのでなくなったことに気が付いたのは昨日のことでした。「書式」→「セル」→「罫線」からどうにか罫線は引いているのですが、不便でなりません。自分では覚えがありませんが、どこかをクリックして非表示にしてしまったものと思われます。どなたか復旧方法を教えてください。

  • エクセルの罫線ボタンのカスタム

    エクセルの書式設定の中に罫線のボタンがあると思います。(右側に黒い下向き▼のついた)この▼を押すと3×4 計12種類の罫線の種類が選べるのですが(枠無し、下罫線、左罫線など。。。)この中身を替えることはできないでしょうか? 破線や外枠二重線などを追加したいのですが。。 その都度セルの書式設定で線種を変えたりすることは出来ますが、よく使うような線種を予めボタンの中に表示して置きたいのです。 ユーザー設定のボタンの中にもそのようなボタンがみつかりません。そのようなことが出来るのかも疑問ですが、出来るか、出来ないかだけでも知りたいです。よろしくお願いします。

  • Excelで消したい罫線が残るのは何故?

    WindowsでExcelを使っています。 罫線のある表を、例えば行削除で消した後など、当然に表そのものは削除されて無くなるのですが、変な罫線(横線)が1本消えずに残ってしまうことが多々あります。 書式-セル-罫線でトライしてみても消えません。この不気味な線は何なんでしょう。そして消し方をご存じの方よろしくお願い致します。

  • EXCELでの罫線について

    罫線の色を変えたいのですが、セルの書式設定から罫線の色を変えても、実行されません。 図形描画のツールバーから線の色の横の下矢印をクリックしても、色を選択できるところが全て色がついておらず選択できません。 教えてください。EXCEL2000です。

  • エクセルの罫線

    エクセルでセルの書式設定で罫線を引いたにも 係らず、印刷すると罫線がでていません。 複数ページに渡る一覧表を作成しているのですが 一部のページの表の一番下の罫線が印刷されないのです(-ω-;) セルの書式設定を後で確認するとちゃんと罫線がひかれています。 これはどういう原因が考えられますか? プレビューを見ると罫線が消えています。 でも書式設定では引いてあります なぜなんでしょうーーーーーーーーーー(┰_┰)