こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

マクロで黒枠を入れたい

A1セルからJ列、もしくはM列(シート、データによってバラバラです)まで
結合を含めて黒枠を入れたいです。
A列の最後尾に「ここまで」と書いてあります。これもシート、データによってバラバラです。「ここまで」と書いてあるセルの一行上まで黒枠を入れたいです。
イメージ
https://www.dropbox.com/s/6yzez5gay3fse0r/1.jpg?dl=0
ご教鞭をお願いします。

投稿日時 - 2018-10-06 06:32:30

QNo.9544693

困ってます

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

Sub Test()
  Dim 最終行 As Long, 最終列 As Long

  最終行 = Cells(Rows.Count, "A").End(xlUp).Row
  最終列 = Cells(1, 1).End(xlToRight).Column
  '最終列がM列と固定なら
  '最終列=13
  Range("A1", Cells(最終行 - 1, 最終列)).Borders.LineStyle = xlContinuous
  '「ここまで」を消去
  Cells(最終行, "A").ClearContents
End Sub

投稿日時 - 2018-10-06 07:24:08

お礼

今回もありがとうございます。
おかげさまで動作できました。

投稿日時 - 2018-10-06 13:43:18

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

対象とするセルたちの範囲がバラバラなので、
その都度範囲を明示するために
「ここまで」を所定のセルに埋める方法を採用しているように思えます。

課題セル範囲をハイライト(選択)して、
添付画像の機能を使うという方法でもいいんじゃないかと思います。

いやマクロで、ということなら、
同じ要領(課題セル範囲をハイライトして)
以下のマクロを実行する方法でもいいんじゃないかと思います。

Sub Sample()
 Dim MyRange As Range
 Set MyRange = Selection
 MyRange.Borders.LineStyle = xlContinuous
End Sub
あるいは、
Sub Sample2()
 Selection.Borders.LineStyle = xlContinuous
End Sub

投稿日時 - 2018-10-06 09:55:15

お礼

回答をありがとうございます。
セル範囲をハイライトして画像のように格子をクリックすればいいのですが、
行は1万行ほどありまして、ハイライトするのに手間がかかりますので、マクロにしたいわけです。

投稿日時 - 2018-10-06 13:45:56

あなたにオススメの質問