![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
タイトルの通りです。
選択範囲に罫線を引くマクロを作成しました。
外に太い枠線、中は点線を引き、選択範囲の一番上の行を灰色の塗りつぶしにしたいのです。
しかし、罫線はうまくいきましたが、一番上の行の指定がうまくできません。
Sub 罫線をひく()
'
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlHairline
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlHairline
End With
ActiveWindow.SmallScroll Down:=12 ←ここを変えたいのですが、どうすればよいかわかりません。
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
End Sub
どうすればよいか、もしご存知の方がいらっしゃいましたら、ご指導ください。
よろしくお願いたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
お試しください
Sub 罫線をひく2()
With Selection
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlHairline
.BorderAround Weight:=xlThin
With .Rows(1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.PatternThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
End With
End Sub
No.2
- 回答日時:
>選択範囲の中で、更に一番上の行を指定したい!
選択範囲の1行目は
Selection.Rows(1)
Sub 罫線をひく2()
With Selection
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlHairline
.BorderAround Weight:=xlThin
With .Rows(1)
'↓以降は2007の環境が無いので確認できていません
.Pattern = xlSolid
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
.PatternTintAndShade = 0
End With
End With
End Sub
丁寧に教えて頂きありがとうございます。
私の技術不足かちょっとうまく動きませんでした。
もう少し勉強してみようと思います。まだメソッドとプロパティの意味もよくわかっていないので…汗
ありがとうござました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル、ページをまたがった...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
PowerPointの表の罫線を二重罫...
-
Excelの表をWordにリンク...
-
ワードで勝手に点線ラインがでる
-
ワードの表の罫線が見えるけど...
-
(Word)点線枠の消し方を教えて...
-
[Word]スペースに囲み線はつけ...
-
wordで罫線が引けない・・・
-
Wordで左右に分割
-
PDFファイルの罫線を消す方法
-
エクセルで遥か下まで線が出来る
-
罫線を引いて保存しても消えて...
-
エクセルの表をワードに貼り付...
-
googleスプレッドシートで「塗...
-
オプションボタンの背景を透明...
-
ホームページの表をワードに貼...
-
エクセル 罫線の色が変えられ...
-
Wordのページの上下に罫線みた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル、ページをまたがった...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
Excelの表をWordにリンク...
-
Wordで左右に分割
-
(Word)点線枠の消し方を教えて...
-
PDFファイルの罫線を消す方法
-
ワードで勝手に点線ラインがでる
-
wordで罫線が引けない・・・
-
PowerPointの表の罫線を二重罫...
-
ワードの表の罫線が見えるけど...
-
エクセルの表をワードに貼り付...
-
罫線を引いて保存しても消えて...
-
[Word]スペースに囲み線はつけ...
-
googleスプレッドシートで「塗...
-
エクセル 罫線の色が変えられ...
-
オプションボタンの背景を透明...
-
エクセルで遥か下まで線が出来る
-
WORD- - - - -点線が消えません
-
Wordのページの上下に罫線みた...
おすすめ情報