
こんにちは、宜しくお願いします。
(Visual Basicのカテゴリに失礼します。)
添付画像のような表があったとして、A1~C1までと、A8~C8までは文字が入るとします。
その文字がABAと表示されたら、すぐ3つ下のセルまでに斜線を引きたいと思っています。
過去の質問を参考に頑張って考えてみた結果、
Sub AAAに罫線()
Dim c As Range
'一旦斜罫線無しの状態にする
Range("A1:C1").Offset(1, 0).Borders(xlDiagonalDown).LineStyle = xlNone
Range("A1:C1").Offset(2, 0).Borders(xlDiagonalDown).LineStyle = xlNone
Range("A1:C1").Offset(3, 0).Borders(xlDiagonalDown).LineStyle = xlNone
Range("A8:C8").Offset(1, 0).Borders(xlDiagonalDown).LineStyle = xlNone
Range("A8:C8").Offset(2, 0).Borders(xlDiagonalDown).LineStyle = xlNone
Range("A8:C8").Offset(3, 0).Borders(xlDiagonalDown).LineStyle = xlNone
'AAAなら1行下~3行下までのセルに斜罫線を表示
For Each c In Range("A1:C1,A8:C8")
If Format(c.Value, "aaa") = "ABA" Then
c.Offset(1, 0).Borders(xlDiagonalDown).LineStyle = xlContinuous
c.Offset(2, 0).Borders(xlDiagonalDown).LineStyle = xlContinuous
c.Offset(3, 0).Borders(xlDiagonalDown).LineStyle = xlContinuous
End If
Next
End Sub
自信はありませんが、こんな感じで動きはしたのですが、もう少しコンパクトに
なるのではないかと思い質問してみました。
なにぶん初心者ですので、おかしな所があると思います。
添削していただけないでしょうか。
宜しくお願いいたします。

No.1ベストアンサー
- 回答日時:
こんばんは!
コード内の
>If Format(c.Value, "aaa") = "ABA" Then
が何を意味しているのかイマイチ判らないのですが、
値が「ABA」という解釈での一例です。
Sub Sample1()
Dim c As Range
Range("A2:C4,A9:C11").Borders(xlDiagonalDown).LineStyle = xlNone
For Each c In Range("A1:C1,A8:C8")
If c = "ABA" Then
c.Offset(1).Resize(3).Borders(xlDiagonalDown).LineStyle = xlContinuous
End If
Next c
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) excel VBA if文について 3 2022/03/27 17:42
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) Excelで縦1列に並んだ大量の数字から、一定間隔で平均値を出したい。 2 2023/02/20 09:17
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
おすすめの美術館・博物館、教えてください!
美術館・博物館が大好きです。みなさんのおすすめをぜひお聞きしたいです。
-
モテ期を経験した方いらっしゃいますか?
一生に一度はモテ期があるといいますが、みなさんどうですか? いまがそう! という方も、「思い返せばこの頃だったなぁ」という方も、よかったら教えて下さい。
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
エクセルの質問です。条件によってセルに斜線を引きたいのですが。
その他(OS)
-
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
条件付き書式で自動で斜線の罫線を引く
Excel(エクセル)
-
-
4
罫線の斜線を自動で引くマクロ
Excel(エクセル)
-
5
Excel データ入力に応じて自動的に斜線を引きたいのですが
Excel(エクセル)
-
6
Excel(VBA)データ入力に応じて複数範囲のセルの上に1本の斜線を引きたい
Excel(エクセル)
-
7
特定の値のセルに罫線を引くマクロ
Excel(エクセル)
-
8
vlookupで返された値が空白だったら斜線をひく
会計ソフト・業務用ソフト
-
9
「B列が日曜の場合」C列に/(斜線)が入るようにならないものでしょうか?
Excel(エクセル)
-
10
エクセル 結合セル内に空白なら斜線を引くマクロ
Excel(エクセル)
-
11
斜め罫線の判定 ExcelVBA
Excel(エクセル)
-
12
エクセルで条件付きで罫線の斜線を引きたいです。
その他(Microsoft Office)
-
13
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
14
エクセルで自動に休日の列に網がけする方法を教えてください
Excel(エクセル)
-
15
土曜・日曜・祝日に罫線を引く VBA
Visual Basic(VBA)
-
16
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
17
エクセルで複数のセルに一本の斜線を引く場合
Excel(エクセル)
-
18
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
19
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
20
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル、ページをまたがった...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
PowerPointの表の罫線を二重罫...
-
Excelの表をWordにリンク...
-
ワードで勝手に点線ラインがでる
-
ワードの表の罫線が見えるけど...
-
(Word)点線枠の消し方を教えて...
-
[Word]スペースに囲み線はつけ...
-
wordで罫線が引けない・・・
-
Wordで左右に分割
-
PDFファイルの罫線を消す方法
-
エクセルで遥か下まで線が出来る
-
罫線を引いて保存しても消えて...
-
エクセルの表をワードに貼り付...
-
googleスプレッドシートで「塗...
-
オプションボタンの背景を透明...
-
ホームページの表をワードに貼...
-
エクセル 罫線の色が変えられ...
-
Wordのページの上下に罫線みた...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル、ページをまたがった...
-
パワーポイントの表
-
ワードの文章囲み枠(?)を消...
-
Excelの表をWordにリンク...
-
Wordで左右に分割
-
(Word)点線枠の消し方を教えて...
-
PDFファイルの罫線を消す方法
-
ワードで勝手に点線ラインがでる
-
wordで罫線が引けない・・・
-
PowerPointの表の罫線を二重罫...
-
ワードの表の罫線が見えるけど...
-
エクセルの表をワードに貼り付...
-
罫線を引いて保存しても消えて...
-
[Word]スペースに囲み線はつけ...
-
googleスプレッドシートで「塗...
-
エクセル 罫線の色が変えられ...
-
オプションボタンの背景を透明...
-
エクセルで遥か下まで線が出来る
-
WORD- - - - -点線が消えません
-
Wordのページの上下に罫線みた...
おすすめ情報