• ベストアンサー
  • 暇なときにでも

【Excel】罫線の作成

Excel2003を使用しています。 罫線を引く際、線を引きたいセルを選択して、罫線メニューから「外枠」や「格子」等のボタンを押せば、簡単に引くことができますが、同じようなボタンを独自に作ることはできませんか? 希望としては… 3行4列のセルに(例えばA1:D3とした場合) A1:D1→上罫線 A3:D3→上罫線+下二重罫線 複数のシートに渡って、この罫線を引くのですが、選択するセルが違うので、作業グループではできません。罫線メニューのボタンをクリックするのと同じような操作で、罫線が引けると嬉しいのですが。。。 よろしくお願いします。

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

  • 回答数5
  • 閲覧数663
  • ありがとう数6

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

  • ベストアンサー
  • 回答No.2
  • zap35
  • ベストアンサー率44% (1383/3079)

「選択範囲に上罫線と下二重線を引く」ようなマクロを作成し、ショートカットキーを割り付けておけば、だいぶ楽になると思います。 まず適当なセルを選択した状態で、「ツール」→「マクロ」→「新しいマクロの記録」を選択します。ここでショートカットキーとして任意の文字を指定しておきます。 次に「右クリック」→「セルの書式設定」→「上罫線と下二重線を指定」→、「ツール」→「マクロ」→「マクロ記録の停止」 シートに戻りセルを選択し「Ctrl+指定した文字」を押下すると、選択範囲に上罫線と下二重線が引かれるはずです。どのブックでもこのショートカットキーを使用したいなら「新しいマクロの記録」を選択したときに表示される画面で保存先を個人用マクロブックにしてください。

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

質問者からのお礼

回答ありがとうございます。 「新しいマクロの記録」でできたコードに少し手を加えることで、希望通りのことができました。 ショートカットキーを設定してもよかったのですが、クリックの方が作業の流れとしては操作しやすいので、#5でもアドバイスいただいたように、今回はこのマクロをボタンに登録しました。 複数のブックで、この罫線を引きますので、保存先を「個人用マクロブック」にして、無事完成しました。 細かいところにまでアドバイスいただきまして助かりました。 ありがとうございました。

関連するQ&A

  • エクセルの罫線の太さ

    エクセルで表を作ったのですが、罫線が太すぎてもっと細くしたいのですが、選択する所が見当たりません。あの太さはもう変更できないのでしょうか? 図形で線を引くと細くはできるのですが・・・めんどくさい。 ボタンひとつクリックすれば罫線をひけるあの格子とか外枠とかを選べる罫線のところでは太さはもうきめられてしまっているのでしょうか?

  • 罫線ツールバーの罫線ボタン?にある水平線の使い方

    Word2000を使って勉強しているのですが、 罫線ツールバーの罫線ボタン?(外枠や格子などがある)にある水平線のコマンドは、どういう時に使うものなのでしょうか? いまいち使い方がピンとこないもので、どなたかご存知の方、教えて下さい。

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

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

その他の回答 (4)

  • 回答No.5
  • zap35
  • ベストアンサー率44% (1383/3079)

#02です >罫線メニューのボタンをクリックするのと同じような操作で… でしたね。ツールバーにボタンを追加して、そのボタンに#02で作成したマクロを割り当てることも可能ですよ。 ツールバーのエリアで右クリックし「ユーザ設定」→「コマンドタブ」→「マクロ」→「ユーザー設定ボタンをツールバーにドラッグ」します。 そのボタンを右クリックし「マクロの登録」で開く画面から先のマクロ名を選択します。 なお#02の操作で「新しいマクロの記録」を選んでから、別のセルを選択してはいけませんよ。そうすると「セルを選択する動作」もマクロに記録されてしまいます。ALT+F8でマクロ一覧を開いてマクロを削除することができますから、もし思い通りのマクロにならなかったら削除して再度登録してください

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

  • 回答No.4
  • imogasi
  • ベストアンサー率27% (4625/16542)

ThisworkBokk の workbookのBeforeRightClick イベントに Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Target.Borders(xlEdgeTop).LineStyle = xlContinuous Target.Borders(xlEdgeTop).Weight = xlThick Target.Borders(xlEdgeBottom).LineStyle = xlDouble Target.Borders(xlEdgeBottom).Weight = xlThick End Sub をコピペ。 どのシートでも使えるのですが、 罫線範囲を範囲指定して、そのままでマウス右クリクすると罫線が引かれる。 これでどうですか。 ただし、マウスの右クリックのメニューが使うと罫線までついてしまいますが。 このほか、少しはたやすく改良できます。 両サイドを縦罫線追加など。色をつけるなど。 ーーー ボタンにキッカケを与えるのは Private Sub CommandButton1_Click() Selection.Borders(xlEdgeTop).LineStyle = xlContinuous Selection.Borders(xlEdgeTop).Weight = xlThick Selection.Borders(xlEdgeBottom).LineStyle = xlDouble Selection.Borders(xlEdgeBottom).Weight = xlThick End Sub だが、他シートではボタンが見えない。 他にメニュー、ツールバーボタン、ショートカットメニューにキッカケを与える方法があるので、後でやってみます。

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

質問者からのお礼

回答ありがとうございます。 イベントマクロを使用する方法でもうまくいきましたが、右クリックはこのブックでの使用頻度が結構高いので、今回はボタンに登録する方法にしました。 丁寧にアドバイスしてくださり、ありがとうございました。

  • 回答No.3
  • mu2011
  • ベストアンサー率38% (1910/4994)

安直ですが、書式→オートフォーマット→会計1あたりで如何でしょうか。

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

質問者からのお礼

回答ありがとうございます。 今回は他の回答者様の方法でうまくいきました。 また機会がありましたら、よろしくお願いします。

  • 回答No.1
  • E07Kaz
  • ベストアンサー率15% (5/32)

難しいですねぇ。 一個目のシートに真面目に作成して、 2個目以降のシートに、 右クリック→形式を選択して貼り付け→書式 では、だめですか? 文字色やセルの塗りつぶしも張ってしまいますど。

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

質問者からのお礼

回答ありがとうございます。 やはり難しいですか。。。 罫線メニュー内の組み合わせですので、できないかなぁと期待をしつつ質問させていただきました。 文字色やセルの塗りつぶしはありませんので、おっしゃる方法でもできなくはないのですが、何せシート数が多いもので…(^_^;)

関連するQ&A

  • 罫線の消去

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

  • 罫線について教えてください。

    セルA1,A2,A3に100000と入力したとき、 下3桁に罫線を入れることは可能でしょうか?? A 1 100|000 2 100|000 ← こんな感じです。 3 100|000 実際は罫線はつながっています。 以上よろしくお願いします。

  • [Excel]罫線から数字に変換したい

    マイクロソフトのExcel2003を使ってます。 条件付き書式を使うことで、数字を書いたセルに自動で罫線を引けることは分かりました。 今回私がしたいのはその逆。「罫線から数字にする」ということです。 例えばExcelのセル上で下のように セルA1、B1、C1に対して罫線がひかれていた場合 ____________ ____________ ____________ |セルA1| セルB1 セルC1|   ̄ ̄ ̄ 四方を罫線で囲まれているセルは(今回の例ではセルA1)→8 上に罫線をひかれていたら(今回の例ではセルB1)→1 上と右に罫線がひかれていたら(今回の例ではセルC1)→4 と言った感じにセルA1、B1、C1に表示させたいです。 やり方を知っている方がいたら教えて下さい。 MSExcel2010やOpenOfficeならできるといった情報でも構いません。 よろしくお願いしますm(_ _)m

  • Excel2000:罫線パレットを使い易くアレンジしたい

    Excelのツールバーに設定されている罫線パレットには12種類のパターンがありますが、 これ以外の罫線を頻繁に使用する為、標準パレットが変更出来ないかと思っています。 特に使用する罫線は細線(「スタイル」の左、上から2つ目)で、 格子、外枠、上下左右の罫線です。 マクロによる作業の場合、マクロ初心者にも分かり易い説明をお願いします(^^;

  • VBA(Excel)セルの罫線について・・・

    VBAで、セルに罫線をつけたいのですが、選択範囲の外枠だけに罫線を ひきたいのに、選択範囲内全ての罫線がひかれてしまいます。 以下のようなものを実行しました。 Public sub Sample() Range("A1:C3").Select With Selection .BorderAround .Borders.ColorIndex = 1 '線の色を黒にする .Borders.Weight = xlThin '線を細い線にする End With End Sub どうしたら、選択範囲の外枠だけに線をひけるでしょうか? よろしくお願いします。

  • 罫線と罫線の間に絵を入れてWEBにすると罫線が太くなる(Excel2002)

    Excel2002です。 A1~C1 A3~C3のセルの上部に、罫線(細)を引いています。  ABC 1─── 2 3─── その罫線で囲った中(A2~C2)に、絵を入れています 。 Excel画面上では、綺麗に絵が入っているのですが、それをWEBに保存してIEで見た時、上部の罫線は2倍ぐらい太い罫線になっていました。 絵のほうをどんなに小さくしても、上部の罫線は必ず太くなってしまいます。 原因が分からず困っています。 対処法を教えてください。 宜しくお願いします。

  • 罫線について

    1)表の罫線を引く場合、罫線メニュー→線種とページ罫線と網かけの設定→罫線タブ→次に罫線の種類を選択する場合に、囲む・すべて・グリッド・指定をありますが、この中のグリッドと指定の意味と使い方が解かりません。解答宜しくお願いします。 2)1)に関連してなんですが、例えば罫線で四角形(格子)の場合外枠と中の(縦横)線の色が違う場合に一度にダイアログボックスを使って操作するにはどう言う操作がいいんでしょうか? 解答宜しくお願いします。 Word2003を使用しています。

  • コピー→貼り付けしたら、セルの元の罫線のままにしたい

    Excel2000だと思います。 Excelで作った表、色々な罫線を引いてあります:二重線、点線、太さ違いの線、色違いの線・・・ AセルをコピーしてBセルに貼り付ける場合、Aセルの罫線も一緒にBセルに貼り付けられてしまうのを避ける為に、「形式を選択して貼り付け→罫線を除くすべて」若しくはそのショートカットキーAlt+E+S+Xを利用してきました、しかしこのような操作は頻繁にしなければいけない状況なので、実に面倒に感じました。 罫線を一括固定する(?)こうのような方法はありますか?理想はそのままコピー→貼り付けしても罫線除き貼り付けられた効果にしたいです。 ご存知の方どなたか教えてください!よろしくお願い致します。

  • EXCEL2010罫線が印刷できない

    EXCEL2010であるシートを印刷すると罫線の一部が表示されません。 ※EXCEL2013では印刷できます。 サイズはA3でそのプリンタからしかA3は印刷できません。 一部の行を非表示にしています。 ※罫線が印刷されない部分は非表示のセルと隣接していません。 罫線は一番細い点線です。 上手く印刷する方法はないでしょうか? ・印刷品質600⇒200 罫線が表示されて印刷されたが全体が大きくずれた ・罫線の引き直し   黒色の線で引きなおしたが効果なし ・非表示のセルを表示してから印刷 罫線が問題なく印刷できた  ※印刷はしたくないが必要なデータなので非表示のまま罫線を印刷したい ・行の高さの変更  効果なし

  • EXCEL2000 VBA レコードの入っているセルにのみ罫線

    EXCEL2000です。 CSVファイルを取り込んでエクセルシートに貼り付け(値だけを貼り付け)、罫線を受けて書式を整えるマクロを記録したいと思っています。 が、読み込むファイルのレコード数が毎日違う(10から100件程度)ので、取り込んだエクセルシートのセルに罫線がうまくつけられません。先に200程度セルに罫線をつけておく事も考えたのですが、そうすると印刷時にレコードのない部分まで印刷されてしまいます。一枚の紙に15件ほどしか入らないので、10の時に200だと何もレコードの入っていない紙が13枚ほど出てきてしまうのです。 レコードは横もちなのですが、ところどころ虫食いもあります。ただ、必ずB列だけはレコードがあります。 いくつかロジックを考えてみました。 1)Bのセルがnullでなければ、その横A1-D1までに罫線を引く。Bのセルがnullになったら罫線は引かない。それぞれセルごとに罫線が要ります。 2)Bのセルがnullでないセルまでを選ぶ方法。印刷のオプションに選択した範囲を印刷、というのがあるので、レコードが入っている範囲を選択する方法があればそれでもできるかなと。 どなたか教えていただければ幸いです。また、他に案があればよろしくお願いします。