エクセルで条件付きで罫線の斜線を引きたいです。

質問

エクセル2007についての質問です。
ある条件のときに罫線の右下がり斜線を引きたいのですが、条件付書式ではできません。
マクロでしなくてはいけないことはわかったのですが、それ以上は進めなくて困っています。

セル（U2)に数字を打ち込んだらセル（I10:J11),(I12:J13),(I14:J15),(L10:Q11)，(L12:Q13），(L14:Q15)（結合したもの）にIF関数とINDEX関数を組み合わせて他のシートからセル（U2)に対応するデーターを呼び出しています。
セル（I10:J11)に呼び出した数値が10未満ならセル(L10:Q11)に罫線で右下がりの斜線を入れ、10以上なら右下がりの斜線を消すということが行いたいです。（他の2つの組み合わせでも同様）

3年前に同じ質問をさせていただき、

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

という解答をいただき、解決したのですが、

マクロの起動は、シート内でセルの移動で実行されていました。

今回はいくつものデータを呼び出しながら印刷を一括で行うマクロと同時に使用することになり、

印刷中はシート内のセルの移動ができません。

何とかならないものかなぁと模索中ですが、皆さまからお力をいただけないかと

思っております。よろしくお願いします。

回答No.1

FEX2053 · ベストアンサー

んなもん、「印刷するマクロ」にそのマクロを引っ付けておき、
印刷を、「罫線を引いて印刷する」マクロから行うようにすれば
済む話なんじゃないですか？

マクロの実行は、色々なタイミングで出来ますし、そもそも
シート上に「印刷」と書いたボタンのフォームを貼り付けておき
それをクリックすれば印刷するようにだってできますもの。

お礼

ありがとうございました。

早速試してみます。