- ベストアンサー
VBAで10行おきにセルの下に罫線を引く方法
Excel2003のVBAを使用し、10行おきに太い罫線をセルの下側に引きたいのですが、ご存知な方教えて頂けないでしょうか? 出来る事なら、セルの中に×が入っている行は自動的に省いて(選ばず)10行おきに罫線を引きたいと思っています。
- makabeti
- お礼率66% (6/9)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
No.2です。 >10行目の行全体に罫線が引かれるようコーディング頂けると大変助かります。 とありましたので・・・ 本来であればデータがない列まで罫線は必要ないであろうと思い データが入っている最終列を取得して、そこまでの列に罫線を引くようにしていました。 ご希望はデータがあるなしに関わらず最終列(Excel2003の場合はIV列)まで罫線を引きたい! というコトですね! ↓のコードに変更してみてくささい。 Sub Sample2() Dim i As Long, cnt As Long, c As Range Application.ScreenUpdating = False For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set c = Rows(i).Find(what:="×", LookIn:=xlValues, lookat:=xlPart) If c Is Nothing Then cnt = cnt + 1 If cnt = 10 Then With Rows(i).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium End With cnt = 0 End If End If Next i Application.ScreenUpdating = True End Sub 今度はどうでしょうか?m(_ _)m
その他の回答 (2)
- tom04
- ベストアンサー率49% (2537/5117)
こんにちは! 横からお邪魔します。 データは1行目からあるとします。 Sub Sample1() Dim i As Long, j As Long, cnt As Long, c As Range j = ActiveSheet.UsedRange.Columns.Count Application.ScreenUpdating = False For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set c = Rows(i).Find(what:="×", LookIn:=xlValues, lookat:=xlPart) If c Is Nothing Then cnt = cnt + 1 If cnt = 10 Then With Cells(i, 1).Resize(1, j).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium End With cnt = 0 End If End If Next i Application.ScreenUpdating = True End Sub こんな感じではどうでしょうか?m(_ _)m
補足
ご回答頂き有難うございます。 ただ、コーディング頂いた内容ですと、10行目の一列のみに罫線が引かれた状態になります。 10行目の行全体に罫線が引かれるようコーディング頂けると大変助かります。 ご面倒かと思いますが、今一度ご教示頂けますでしょうか?
- kybo
- ベストアンサー率53% (349/647)
例えば「セルの中に×が入っている行は自動的に省いて」というのがA10、A20などに入力されている場合は罫線を引かないという意味であれば、以下の様にしてみてください。 表の具体性がなかったので、A列の最終行まで罫線を引くものとし、行全体に罫線を引くものとています。 Sub macro() Dim C As Range For Each C In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) If C.Row Mod 10 = 0 And C.Value <> "×" Then C.EntireRow.Borders(xlEdgeBottom).Weight = xlThick End If Next C End Sub
お礼
ご回答頂き有難うございました。 VbA初心者ですので、またお世話になる事があるかと思います。 今後とも宜しくお願いいたします。
補足
ご回答頂き有難うございます。 ただ、コーディング頂いた内容で試してみたのですが、×もカウントされてしまいます。 説明が不十分だったと反省しておりますので、もう少し詳しく質問内容を補足致します。 例えば,A列に567467474H4と数字やアルファベットが11個並び、K列の10行目に×が入っていた場合、A列10行目に入っているHをカウントせず、A列の11行目に罫線を引きたいのです。 A列の最終行まで罫線を引き、行全体に罫線を引くのはご回答頂いた内容で間違いありません。 お手数ですが、今一度ご教示いただけますでしょうか?
関連するQ&A
- VBAを使用し10行おきにセルの下に罫線を引く方法
Excel2003のVBAを使用し、10行おきに太い罫線をセルの下側に引きたいのですが、ご存知な方教えて頂けないでしょうか? 出来る事なら、セルの中に×が入っている行は自動的に省いて(選ばず)10行おきに罫線を引きたいと思っています。 先日、解決した内容の質問ですが、新たに3行目から最終行までとか罫線を引きたい行を指定出来るようにコーディングいただけると大変助かります。
- ベストアンサー
- Visual Basic
- Excel 複数行のセル欄を罫線をなくしたい
Excel表で A B Cセル 1~8行だとして Cセル5~8行を一つの欄にしたいのですが 5~8行の罫線をなくすにはどうすればいいですか
- ベストアンサー
- Windows XP
- VBAでのセルの罫線を残す
ExcelVBAで外枠罫線の入った表の最終行のセル範囲をDeleteで削除すると下罫線も消えてしまいます。 罫線を消さないように削除できませんか? 削除後下罫線を引きなおさないとだめでしょうか?
- 締切済み
- Visual Basic
- [エクセルVBA]あるセルにおける罫線の種類を調べるには、どうしたら良
[エクセルVBA]あるセルにおける罫線の種類を調べるには、どうしたら良いですか? 罫線があるかないかを調べる術については分かったのですが、 さらに、罫線があるという場合に、その罫線の種類(線の種類や幅、色)について調べる方法については、ネット上を調べたのですが、見つかりませんでした。 この件についてご存知の方、教えて下さい。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルでA列セルが空白の時その行に罫線を引くには
エクセルでA列セルが空白の時、その行の下側のみに2重罫線を引くマクロを教えて下さい。 色々試しましたがうまくいきません。例えば下記の様な表で3行目、7行目、12行目の各下側にのみ2重罫線を引くマクロです。行数と空白行は、日々取り込んでいるデータによって変わります。知恵をお貸し下さい。(A列空白セルのC列にはSUM関数を入れております。うまく表記が出来ませんので念のため) A列 B列 C列 1行 123 酒 100 2行 123 酒 100 3行 ======================== 4行 215 ビール 200 5行 215 ビール 200 6行 215 ビール 200 7行 ========================= 8行 324 ワイン 300 9行 324 ワイン 300 10行 324 ワイン 300 11行 324 ワイン 300 12行 ========================
- 締切済み
- その他MS Office製品
- Excelのセルに沿って罫線や棒線を引きたい
Excel上の指定した二つのセルを結ぶような、横の棒線を引きたいのですが… 例えばセル番号 (x(1),y(1)) と (x(2),y(1)) で、上側の罫線でもなく下側の罫線でもなく、その中間に 引くイメージです。 また、上側の罫線を引く場合、もしくは下側の罫線を引く場合はどうしたらよいでしょうか。
- ベストアンサー
- Visual Basic
- VBA 罫線について
VBA初心者です。 (1)Sheet1のA1に罫線を引きたいセル数を入力 (2)Sheet2にS1A1に入力された数だけS2A1から横にセルが罫線で囲まれる 例 (1)S1A1・・・2 (2)S2A1、A2がセルごとに罫線が引かれる 罫線の引き方まではわかるのですが、常に数が変わる状態での引き方がわかりません。
- 締切済み
- オフィス系ソフト
- Excel2000VBAでのセル参照について
Excel2000のVBA自動記録である構文をつくりました。 その中で、セルやレンジを特定しているのですが (A1)や(A1:B10)とか.. その後シートの行や列を追加あるいは削除した時に、この部分を自動的に対象のセルやレンジに書き換わる方法というのはあるのでしょうか? (関数式なんかは、自動で参照するよう書き換わるのですが、そのようなイメージです) 初心者です。何卒よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
早速のご教示、有難うございました。 コーディング頂いた内容に間違いありません。 問題なく起動しました。 本当に助かりました。