- ベストアンサー
エクセルで条件付きで罫線の斜線を引く方法
- エクセル2007で条件付き書式を使用して、特定の条件のときに罫線の右下がり斜線を引く方法を教えてください。
- セル（U2）に入力した値に応じて、セル（I10:J11）、（I12:J13）、（I14:J15）、（L10:Q11）、（L12:Q13）、（L14:Q15）の範囲に条件を満たすデータを表示し、10未満の場合は右下がり斜線を引き、10以上の場合は斜線を消します。
- マクロを使用してこの操作を行う必要がありますが、マクロの組み立て方がわからず困っています。マクロの作成方法や使い方を教えてください。
- toshro_1046
- お礼率75% (3/4)
- その他MS Office製品
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
I10の内容でL10:Q11に右下がりの罫線を引いたり、消したりなら 下記の内容を、設定するシートのコード欄にコピー＆ペーストして確認してください。 マクロの起動は、シート内でセルの移動で実行されます。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("I10").Value < 10 Then Range("L10:Q11").Borders(xlDiagonalDown).LineStyle = xlContinuous Else Range("L10:Q11").Borders(xlDiagonalDown).LineStyle = xlNone End If End Sub
その他の回答 (2)
- tom04
- ベストアンサー率49% (2537/5117)
No.2です！ たびたびごめんなさい。 投稿した後No.1さんのコードを見て勘違いに気づきました。 罫線を入れたいのは セル(L10:Q11) でしたね！ どうも失礼しました。 もう一度コードを載せておきます。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から Range("L10").Borders(xlDiagonalDown).LineStyle = xlNone If IsError(Range("I10")) Then MsgBox "データがありません" Exit Sub ElseIf Range("I10").Value < 10 Then Range("L10").Borders(xlDiagonalDown).LineStyle = xlContinuous End If End Sub 'この行まで 何度もごめんなさいね。m(__)m
お礼
早速のお返事ありがとうございます！！ しかも2回も！！ こんな若輩者のためにありがとうございます！！m(_ _)m
- tom04
- ベストアンサー率49% (2537/5117)
こんにちは！ セル（I10:J11)だけの処理で良いわけですよね？ 一例です。 画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので ↓のコードをコピー＆ペーストしてデータを入れ替えてみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から Range("I10").Borders(xlDiagonalDown).LineStyle = xlNone If IsError(Range("I10")) Then MsgBox "データがありません" Exit Sub ElseIf Range("I10").Value < 10 Then Range("I10").Borders(xlDiagonalDown).LineStyle = xlContinuous End If End Sub 'この行まで 余計なお世話かもしれませんが・・・ 結合されている セル（I10:J11) のセル番地は I10 でOKのはずです。 外していたらごめんなさいね。m(__)m
お礼
早速使わしていただきました！！ 完璧に作動いたしました！！ セルを書き換えたところ他の二つでも完璧に作動して、感激の嵐です！！ 本当にありがとうございましたm(_ _)m