![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?a65a0e2)
No.1ベストアンサー
- 回答日時:
初期設定では無理だと思いますが、マクロを使用してなら
ツールバーにそのような処理をするボタンを登録することは可能です。
【方法】
・最初にマクロを登録します。
(1)「ツール」→「マクロ」→「●新しいマクロの記録」で任意のマクロ名を設定し「OK」を押す
(2) 適当なセルで罫線の設定を行う (「メニューバー」→「書式」→「セル」をやる)
(3)「ツール」→「マクロ」→「■記録終了」
・次にツールーバーを設定します。
(4)「メニューバー」→「表示」→「ツールバー」→「ユーザー設定」を選択しダイアログを表示
(5)”コマンド”タブの左側の”分類”の”新しいメニュー”を選択
(6)”コマンド”タブの右側の”新しいメニュー >” をツールバー上にドラッグ&ドロップ
(7)”コマンド”タブの右下の”選択したボタンの編集”が使用可能になるので、クリックします。
(8)任意の名前を設定し、”マクロの登録”を選択
(8)作成したマクロを選択し「OK」を押す
ありがとうございました。
マクロでできるらしいことはわかっていたのですが本のとおりにやってもできませんでした。
今回のあなた様のアドバイスがシンプルかつ丁寧でしたのでひとつクリアーできました。ありがとうございました。
No.4
- 回答日時:
すいません、補足です。
各コマンドの「.ColorIndex = xlAutomatic」の行は不要です。
それと、線の種類を表すコード等、マクロの参考になるURLを
付けておきます。
参考URL:http://www.sigoto.co.jp/excel/
No.3
- 回答日時:
罫線ボタンで線種まで選択できるといいのですが。
私も同じように、一番使うのが「細かい点々の線」なので、
業を煮やして(笑)マクロを組んでツールバーにしてしまいました。
#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の勉強です。
かなり専門的なアドバイスをいただき今後おおいに役立ちそうです。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- Word(ワード) Word 段落罫線の上下のスペースを広げるには 3 2023/08/04 10:52
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- Excel(エクセル) 【Excel】グラフの罫線の引き方が教えてほしい。 2 2022/08/02 19:42
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Word(ワード) Wordで作った「表の罫線を部分的に削除したい」 4 2023/07/24 07:00
- プリンタ・スキャナー Excelの罫線印刷 4 2023/05/18 06:53
- Excel(エクセル) 条件付き書式で太罫線を引く方法 3 2023/05/29 12:17
- Excel(エクセル) Excelで、Excelの小テストで、中央揃えとかありますが、右クリックで、セルの書式設定から中央ぞ 3 2022/12/29 12:43
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセルの線の太さのデフォルト値
Excel(エクセル)
-
Excelの外枠太罫線を2~3倍さらに太くしたい
Excel(エクセル)
-
EXCELの罫線をもっと細くしたいのですが。
Excel(エクセル)
-
-
4
罫線の色を薄くしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式設定の太い...
-
Excelの外枠太罫線を2~3倍さ...
-
エクセルで文字を入力すると罫...
-
エクセルで罫線も一緒に並び替...
-
EXCELで、下線の太さを変...
-
excel2003 罫線だけを保護したい
-
EXCELのオートフィルタで罫線が...
-
罫線の色を薄くしたい
-
パワーポイントで、表の一部を...
-
【エクセル】謎の枠線の消し方
-
エクセルのアンダーラインについて
-
エクセル 入力されていない線...
-
エクセル
-
<EXCEL>ページ最後の行の罫線...
-
エクセル の縦線
-
エクセルの罫線の表、点線を実...
-
WORDで点線が実線に変換されて...
-
罫線が引かれているセルの個数...
-
エクセル 罫線入りの文字 文...
-
Excelでアンダーラインに文字が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの外枠太罫線を2~3倍さ...
-
Excelの条件付き書式設定の太い...
-
excel2003 罫線だけを保護したい
-
EXCELで、下線の太さを変...
-
エクセルで文字を入力すると罫...
-
罫線の色を薄くしたい
-
エクセルで罫線も一緒に並び替...
-
【エクセル】謎の枠線の消し方
-
エクセル 入力されていない線...
-
パワーポイントで、表の一部を...
-
エクセルのアンダーラインについて
-
決まった罫線のなかで、文章入...
-
EXCELのオートフィルタで罫線が...
-
エクセル の縦線
-
エクセル
-
罫線が引かれているセルの個数...
-
エクセル表の罫線(縦)が消せ...
-
Wordで表のセル幅を超えたら次...
-
勝手に背景に色が付いて困っ...
-
罫線の色をまとめて変更する
おすすめ情報