いつも大変お世話になっています。
データーが入力されている行に罫線と1行おきにストライプをいれたい。
A6からU6で始まり、データは増え続けていきます。
①入力済の行(可変)まで自動で罫線を引きたい。
②1行おきに一番淡い緑色でストライプにしたいです。

VBAでコードのご教授お願いします。

A 回答 (4件)

No.3 追補



a1. データが入力されると自動的に変更(行が増えるとパフォーマンスが下がります)の場合は対象のシートモジュールに以下を記入して下さい。A列に合わせて変化します。
----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call Sample
Application.EnableEvents = True
End Sub
----------------------------------------------------------------------------
    • good
    • 0
この回答へのお礼

いつもアドバイスありがとうございます。
この方法でできました。
感謝申し上げます。

お礼日時:2017/03/22 09:22

とりあえず、こんなものではいかがでしょうか?


----------------------------------------------------------------------------
Sub Sample()
Dim 行 As Long
Dim 終 As Long
With Range(Cells(6, 1), Cells(Rows.Count, 21))
.Borders.LineStyle = False
.Interior.Pattern = xlNone
End With
終 = Cells(Rows.Count, 1).End(xlUp).Row
If 終 < 6 Then 終 = 6
For 行 = 6 To 終
With Range(Cells(行, 1), Cells(行, 21))
.Borders.LineStyle = True
If 行 Mod 2 = 0 Then .Interior.Color = RGB(204, 255, 204)
End With
Next
End Sub
----------------------------------------------------------------------------
※ 仕様
a2. 手動でマクロを実行する
b2. 偶数行
c1. RGB(204, 255, 204)
d2. ある
    • good
    • 0

罫線やストライプはどういう場面で変更したら良いのでしょうか?


a1. データが入力されると自動的に変更(行が増えるとパフォーマンスが下がります)
a2. 手動でマクロを実行する
a3. その他 ← 具体的に提示してください

淡い緑色に着色する行は?
b1. 奇数行
b2. 偶数行

淡い緑色のカラーコードは?
c1. RGB(204, 255, 204)
c2. その他 ← 具体的に提示してください

途中に空白行は有りますか?
d1. ない
d2. ある
    • good
    • 0

ググれば、この手のやり方はすぐに見つかります。

    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング