![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセルで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行 ========================
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
一例です。
Sub sample()
On Error Resume Next
With _
Range("a1", Cells(Rows.Count, 1).End(xlUp).Offset(1)).Resize(, 3)
.Borders.LineStyle = False
.SpecialCells(xlCellTypeBlanks).Borders(xlEdgeBottom).LineStyle = xlDouble
End With
End Sub
この回答への補足
ご回答ありがとうございます。
私の表記の仕方が悪かったようです。
A列が空白行のC列には合計が入っており、その部分には2重罫線が引かれませんでした。
時間のある時に、応用させていただきます。ありがとうございました。
No.2
- 回答日時:
Option Explicit
Sub Separator()
Const xKey_Col = 1 'Breakキー列
Const xKey_Col2 = 3 '合計列
Const xHeads = 1 '見出し行数
Dim xLast As Long
Dim nn As Long
ActiveSheet.UsedRange.Borders.LineStyle = xlLineStyleNone
xLast = Cells(Rows.Count, xKey_Col2).End(xlUp).Row
If (xLast > xHeads) Then
For nn = (xHeads + 1) To xLast
If IsEmpty(Cells(nn, xKey_Col)) Then
Range("A1:C1").Offset(nn - 1, 0).Borders(xlEdgeBottom).LineStyle = xlDouble
Else
' Range("A1:C1").Offset(nn - 1, 0).Borders.LineStyle = xlLineStyleNone
End If
Next
End If
End Sub
ご回答ありがとうございます。すでに表を整えるマクロを組んでおり、その最後に入れても問題なく動作しました。それと、直前に格子状の罫線を入れるマクロを入れてましたので、ActiveSheet.UsedRange.Borders.LineStyle = xlLineStyleNone
を削除させて頂きました。早速使わせて頂きます。ありがとうございました。
No.1
- 回答日時:
まぁ、一行ずつ舐めていっても大したことはないと思います。
sub macro1()
dim r as long
for r = 1 to range("A65536").end(xlup).row + 1
range("A1:C1").offset(r - 1, 0).borders(xledgebottom).linestyle = iif(cells(r, "A") = "", xldouble, xlnone)
next r
end sub
早速のご回答ありがとうございます。
このマクロを単独で動かすと問題なく出来るのですが、すでにいくつかのマクロを組み合わせており、その最後にこのマクロを入れるとコンパイルエラーと出ました。休日に原因を探り当て修正をかけて見ます。参考にさせていただきます。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) エクセル 自動計算 1 2023/01/30 13:28
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
EXCELにて複数列を同条件(色)...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
シート保護の状態で行の追加を...
-
エクセル VBA 指定の範囲内をコ...
-
Excelの非表示列も含めてコピー
-
行数が不規則な一週間ごとの合...
-
エクセル マクロ 貼り付け先が...
-
エクセルで表示された値だけ行...
-
Excel VBAで日にちを入力して線...
-
エクセルで反転コピー
-
Excel 条件に従いセル移動するには
-
最終行から上10行をコピーする...
-
【マクロ】IF複数条件の上限に...
-
マクロ 計算式
-
エクセルでA列セルが空白の時そ...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
エクセルの複数のセルを一括で...
-
参照先セルに値が入っていない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
Excel 条件に従いセル移動するには
-
VBAで同じブック内の別シー...
おすすめ情報