VBAで、セルに罫線をつけたいのですが、選択範囲の外枠だけに罫線を
ひきたいのに、選択範囲内全ての罫線がひかれてしまいます。
以下のようなものを実行しました。
Public sub Sample()
Range("A1:C3").Select
With Selection
.BorderAround
.Borders.ColorIndex = 1 '線の色を黒にする
.Borders.Weight = xlThin '線を細い線にする
End With
End Sub
どうしたら、選択範囲の外枠だけに線をひけるでしょうか?
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
以下の形で引けると思います。
Sub test()
Worksheets("Sheet1").Range("A1:c3").BorderAround _
ColorIndex:=1, Weight:=xlThin
End Sub
外枠以外(BordersStyle)の罫線の時は
Borders.ColorIndex = 1 やBorders.Weight = xlThin
にして、BoderAroundの罫線の時は
BorderAround ColorIndex:= 1 やBirderAround Weight:= xlThin
のようにスペースとコロンをいれればいいのですね?
No.3
- 回答日時:
##1で出ましたが
Sub test01()
Range("a2:d5").Borders(xlEdgeTop).LineStyle = xlThin
Range("a2:d5").Borders(xlEdgeBottom).LineStyle = xlThin
Range("a2:d5").Borders(xlEdgeRight).LineStyle = xlThin
Range("a2:d5").Borders(xlEdgeLeft).LineStyle = xlThin
End Sub
で最低限線が引けます。xlEdge○○が範囲周辺線を示す。
1
No.1
- 回答日時:
「新しいマクロの記録」では、
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
と出ました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ写真帳に一括で...
-
VBA Shapes コピーと名前
-
再度,ExcelVBA,public変数が消える
-
VBAで行コピーして挿入
-
エクセル連番自動印刷について
-
エクセルファイルを値でのみし...
-
VB.NETによるEXCELの行挿入
-
【ExcelVBA】マクロブックを通...
-
CSVデータをEXCELのテーブルに...
-
セルに入力するたびにマクロを...
-
Excelでマクロ実行中に画面を固...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
マクロの保存先、開いてるすべ...
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
【Excel VBA】マクロでExcel自...
-
Excel マクロの編集がグレーに...
-
エクセルの表を複数枚印刷した...
-
Excelのマクロでボタンを押すと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを値でのみし...
-
Excelでマクロ実行中に画面を固...
-
VBA Shapes コピーと名前
-
エクセル連番自動印刷について
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
エクセルVBAで納期管理システム...
-
エクセル マクロ写真帳に一括で...
-
エクセル 図形の寸法を取得したい
-
EXCEL 行番号や列番号が選択で...
-
ブックの共有でVBAエラー
-
EXCEL VBA 他のアプリケーショ...
-
ExcelのVBAで自動採番したい...
-
【ExcelVBA】マクロブックを通...
-
シート名を記入する
-
再度,ExcelVBA,public変数が消える
-
エクセルファイルの回数期限の...
-
エクセル メニューバーの中の...
-
worksheet_changeの一時無効化
-
VB.NETによるEXCELの行挿入
おすすめ情報