No.3ベストアンサー
- 回答日時:
VBAでこんな感じでしょうか?
行と言われてもどこまでかわからないので、A列からE列までとしています。
値の判断はA列で行っています。
Sub test()
Dim i As Long
Cells.Borders(xlEdgeBottom).LineStyle = xlNone
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = "N100" Then
With Range(Cells(i, 1), Cells(i, 5)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
Exit Sub
Else
With Range(Cells(i, 1), Cells(i, 5)).Borders(xlEdgeBottom)
.LineStyle = xlNone
End With
End If
Next i
End Sub
この回答への補足
早速の返答、ありがとうございました。
このプログラムは、エクセルのマクロから「Visual Basic Editeor」に入力するということでしょうか?
No.5
- 回答日時:
幾つの条件があるのかわかりませんが、
If Cells(i, 1).Value = "N100" _
Or Cells(i, 1).Value = "N110" _
Or Cells(i, 1).Value = "N110" Then
単純に「OR」で繋げばよいかと。
この回答への補足
返答、ありがとうございました!!
条件は、たくさんあるのですが規則性があまりないので単純に「OR」で繋ぐしかないですか?
また、全体の列が15列で条件が入っているのが14列目だったので、下記の様に変更したら線は、引けたのですが3行までしか線をひく事ができませんでした。何か、行数の指定もする必要があるのでしょうか?大体、4000行あります。
本当に何度もすみませんが教えてください。よろしくお願いします!!
Sub test()
Dim i As Long
Cells.Borders(xlEdgeBottom).LineStyle = xlNone
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 14).Value = "N100" Then
With Range(Cells(i, 1), Cells(i, 15)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
Exit Sub
Else
With Range(Cells(i, 1), Cells(i, 15)).Borders(xlEdgeBottom)
.LineStyle = xlNone
End With
End If
Next i
End Sub
表のイメージはこんな感じです。(列は、省略してます)
9101860みかん N100 D
9202368りんご N100D
9302067パイン N100 D
9502626キュウイ N110D
9502704すいか N110D
9502705マンゴ N110D
9600694いくら N120D
9600706えび N120D
9600744回想 N175D
No.4
- 回答日時:
>このプログラムは、「Visual Basic Editeor」に入力するということでしょうか?
はいそうです。
プロジェクトのところで右クリックして標準モジュールを追加して、その中に
貼り付けます。
この回答への補足
返答をありがとうございました!!
早速、実際に貼り付けてみたらできました。
ただ、このプログラムはN100に関して線を引くようになっているようですが、他の例えばN110とかN210とか複数条件がある場合は、プログラムの「Value = "N100" Then」の"N100"のところに"N110"と付け足して行けば良いのでしょうか?
何度も申し訳ございませんが教えてください。
よろしくお願いします。
No.1
- 回答日時:
条件付き書式を使えば範囲内のシートの地の色を変更する事や罫線を変更する事は可能ですが、太線にする事はできないようです。
ですが地の色を別の色にするなどして色の変更で確認する事は可能です。設定方法は、範囲指定後、[書式]から[条件付き書式]で[セルの値]が次の値に等しいの後に値を入れていきます。この後、[書式]をクリックして、任意の[書式]に変更します。
ただし、一つのセルに設定できる書式は3つまでです。
参考URL:http://hamachan.fun.cx/excel/jyoken.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) 【エクセル関数】アルファベットで以上だったらカウントする 4 2022/07/09 14:07
- その他(スマートフォン・携帯電話・VR) Google Keepで数字に勝手に下線が引かれるのですが??? 1 2022/09/24 11:09
- Excel(エクセル) 条件付き書式で太罫線を引く方法 3 2023/05/29 12:17
- 電気工事士 来月から電気管理技術者のお仕事を始める者です。東京電力パワーグリッドへ情報提供の依頼をする方法がTE 1 2022/06/27 06:48
- Android(アンドロイド) Androidスマホのデータ移行が終わらない 1 2023/08/04 17:25
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) エクセルで重複データを行ごとに抽出したい 4 2022/12/05 08:18
- 電気・ガス・水道業 配電線の電線の太さ 6 2023/03/23 23:41
- Excel(エクセル) 更新前と更新後の差分をVBAを使って抜き出したい 5 2023/06/01 14:35
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
excel関数式の一部を太字にする
-
Excel 書式を関数で判断。
-
エクセル:一定以上の数値にな...
-
Excel 条件付書式で土日の左・...
-
EXCEL 表の書式のみ変更不可(...
-
excelで選択範囲の反転をしたい...
-
エクセルで、書式は変えずに連...
-
エクセルで2つのシートで重複し...
-
エクセルのピボットテーブルの...
-
Excel 条件付書式で二つの条件...
-
VBAで転記すると元のシートの条...
-
条件付き書式の条件に時刻を指...
-
Excelで、塗りつぶしを含め同じ...
-
指定した期限が近づくとセルの...
-
エクセルで1年前の日付になった...
-
条件付き書式 A1,B1,C1の何れ...
-
Excelでこういう年を切り替えら...
-
Excel:書式を残しながら条件付...
-
VBAでシート書式の自動変換を作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
Excel 書式を関数で判断。
-
excel関数式の一部を太字にする
-
EXCEL 表の書式のみ変更不可(...
-
エクセルのピボットテーブルの...
-
excelで選択範囲の反転をしたい...
-
エクセルで、書式は変えずに連...
-
Excel 条件付書式で土日の左・...
-
エクセルで2つのシートで重複し...
-
VBAでシート書式の自動変換を作...
-
エクセルで1年前の日付になった...
-
エクセル:一定以上の数値にな...
-
Excel 条件付書式で二つの条件...
-
条件付き書式の条件に時刻を指...
-
VBAで転記すると元のシートの条...
-
Excelで、塗りつぶしを含め同じ...
-
条件付き書式(色変更)は、予...
-
エクセル→貼り付けのオプション...
-
条件付書式で色づけしたセルの...
-
エクセル関数で、Falseの場合赤...
おすすめ情報