[[20081102075450]]　『2007で条件付き書式で、値が空白の時、斜線がひけ』（さっちゃん）　ページの最後に飛ぶ

『2007で条件付き書式で、値が空白の時、斜線がひけない』（さっちゃん）

 単純な質問ですみません。
 エクセルの２００７では、条件付き書式で斜線が引けるようになると
 前に聞いていたような気がして、試してみましたが、引けませんでした。

 セルの値が空白の時、セルの右上のすみから左下まで罫線を引きたいのです。
 どなたか教えてください。

 ◆2007で確認しましたが、斜線は引けないようです
 (Maron)

さっそく質問に応答いただき、ありがとうございます。
そうするとやっぱり、過去ログにある方法で対応するということで…。

理解不足で、過去ログ
[[20051002155400]]の自力解決のやりかたや意味がわかりません。
どなたか、お知恵を貸してください。お願いします。（さっちゃん）

 斜線にしたり、しなかったりするセル範囲は、固定的ですか？
 (それとも都度ドラッグで範囲選択するのですか？)

  やみくもに処理すると予期せぬセルに斜線が引かれてしまうことになるので、
 「処理すべき範囲の特定方法」についてお聞きしております。

 (半平太)

セルの範囲は固定的です。いつも同じセル位置の条件です。
いかがでしょうか。

 固定範囲が「G3:H8」と仮定します。

  1) シート見出しを右クリックして「コードの表示」を選択。
  2) 画面中央の白いところに下記コードをコピペ
  3) Alt + F11 でエクセル画面に戻る
  4)メニュー［ツール］→［マクロ］→［マクロ］→マクロ名(DiagLine)を指定→[実行]ボタンクリック

 　※(4)は取り敢えずの案です。そちらでご自由に決めてください。

  Sub DiagLine()
    Dim Cel As Range
      Application.ScreenUpdating = False
        For Each Cel In Range("G3:H8")     '←実際の範囲に変更してください。
          Cel.Borders(xlDiagonalUp).LineStyle = _
 　　　　　　IIf(Cel.Value = "", xlContinuous, xlNone)
        Next
      Application.ScreenUpdating = True
  End Sub

  （半平太）

ありがとうございました。
マクロのやり方が今一つわからなくて、
本を買って少しやってみて、（半平太）さんから教えていただいたものを
取り組んでみました。

教えていただいたとおり一部を書き換えて無事できました。
本当にありがとうございました。
（さっちゃん）

コメント返信：

[ 一覧(最新更新順) ]

[[20081102075450]] 『2007で条件付き書式で、値が空白の時、斜線がひけ』（さっちゃん） ページの最後に飛ぶ

[[20081102075450]]　『2007で条件付き書式で、値が空白の時、斜線がひけ』（さっちゃん）　ページの最後に飛ぶ