質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.44%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

1回答

210閲覧

Excelのマクロ(VBA)を使い、指定のシートの複数のセルに斜線を表示したい

myukyu

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2024/05/21 10:23

実現したいこと

ExcelのVBAを使い、特定の文字列が入力された時のみ指定のセルに斜線を表示したい。

前提

エクセルで「入力」「出力1」「出力2」「出力3」・・・「出力30」とシートがあります。
「入力」の"C7"セルに「A」「B」「C」の3パターンが入力された場合に「出力1」シートの"B5""C5""D5""J5"のそれぞれのセルに書式設定の斜線を表示したいです。"C7"セルに「D」「その他」「 」(未入力)の時は斜線は表示されないようにしたいです。
同じ感じで「入力」の"C8"のセルに「A」「B」「C」と入力されたときは「出力2」に斜線表示、"C9"は「出力3」…といった感じで処理をしたいのですが、可能でしょうか?

補足情報(FW/ツールのバージョンなど)

Windows11
Microsoft365 Excel

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

下記でどうでしょう。

「入力」シートのモジュール

vba

1Private Sub Worksheet_Change(ByVal Target As Range) 2 Dim r As Range, c As Range 3 Set r = Intersect(Target, Range("C7:C36")) 4 If r Is Nothing Then Exit Sub 5 For Each c In r 6 With Worksheets("出力" & c.Row - 6).Range("B5,C5,D5,J5").Borders(xlDiagonalUp) 7 Select Case c.Value 8 Case "A", "B", "C" 9 .LineStyle = xlContinuous 10 Case Else 11 .LineStyle = xlNone 12 End Select 13 End With 14 Next 15End Sub

投稿2024/05/21 13:01

hatena19

総合スコア33856

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだベストアンサーが選ばれていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.44%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問