No.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
No.2
- 回答日時:
こんにちは!
横からお邪魔します。
データは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行目の行全体に罫線が引かれるようコーディング頂けると大変助かります。
ご面倒かと思いますが、今一度ご教示頂けますでしょうか?
No.1
- 回答日時:
例えば「セルの中に×が入っている行は自動的に省いて」というのが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
この回答への補足
ご回答頂き有難うございます。
ただ、コーディング頂いた内容で試してみたのですが、×もカウントされてしまいます。
説明が不十分だったと反省しておりますので、もう少し詳しく質問内容を補足致します。
例えば,A列に567467474H4と数字やアルファベットが11個並び、K列の10行目に×が入っていた場合、A列10行目に入っているHをカウントせず、A列の11行目に罫線を引きたいのです。
A列の最終行まで罫線を引き、行全体に罫線を引くのはご回答頂いた内容で間違いありません。
お手数ですが、今一度ご教示いただけますでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Excel(エクセル) Excelのマクロを教えていただけないでしょうか? 1 2023/07/06 19:56
- Excel(エクセル) 罫線の横棒の隣に文字を書きたい 5 2022/11/28 17:31
- Word(ワード) ワードでの罫線の改行につい 4 2022/10/24 11:05
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- その他(IT・Webサービス) word2013 で罫線 便箋のように罫線を沢山書きたいのですが、調べても、1本しか引けません。 い 3 2022/06/26 19:36
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル 4行ごとに線を引きたい
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
ExcelのVBAにてページごとの枠線を引きたい
その他(Microsoft Office)
-
6
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
7
VBAを使用し10行おきにセルの下に罫線を引く方法
Visual Basic(VBA)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
【VBA】A列からU列まで罫線を引きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
空白セルをとばして転記
-
VBAを使って検索したセルをコピ...
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
VBAでのリスト不一致抽出について
-
VBAで重複データを確認したい
-
VBマクロ 色の付いたセルを...
-
VBAで、離れた複数の列に対して...
-
Cellsのかっこの中はどっちが行...
-
SetDlgItemTextの使い方について
-
【マクロ】列比較し色塗りしていく
-
重複データをまとめて合計を合...
-
VBA グラフX軸の変更
-
VBAコンボボックスで選択した値...
-
エクセルVBAで『A列』に新...
-
SUM関数の範囲を変数を代入して...
-
VBAの初心者なのですが、「並び...
-
A列B列どちらにもあるのを抽...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報