質問: セルの値によって隣のセルに斜線を自動で引く方法 エクセル2007ですが、あるセルに数値を入力するのですが、その数値が0、または、空欄だった場合、そのセルの右隣の2セルに右上りの斜線を自動的に引かれる設定にしたいのですが、条件付き書式だと斜線が選べず困っております。 マクロやvbeでも結構ですが、何かいい方法があれば教えて頂けますか?
回答: >あるセルに数値を入力する ご相談のサンプルで「金額」列に,「生数字を入力している」のか実は他のセルの数字で「計算する数式が記入されている」のかで,具体的なヤリ方は違ってきます。 ご相談ではあなたの実際のエクセルの状況に基づいて,情報提供してください。 一応ご相談は正しくて,b列に「実際に生数字を記入している」とすると。 手順: シート名タブを右クリックしてコードの表示を選ぶ 現れたシートに下記をコピー貼り付ける private sub worksheet_change(byval target as excel.range) dim h as range on error resume next for each h in application.intersect(target, range("b:b")) h.offset(0, 1).resize(1, 2).borders(xldiagonalup).linestyle = iif(h.value = 0, xlcontinuous, xlnone) next end sub ファイルメニューから終了してエクセルに戻る b列に実際に数字を記入したり削除したりすると,その行のc,d列に斜線が入ったり消えたりする。 #参考 上述の手順はこれからb列に数字を書いたり消したりする用です。 既に記入済みのb列に対して斜線を入れたいときは,オートフィルタで絞ってc,d列に斜線を設定した方がカンタンです。