[[20070424150030]]　『罫線』（なぞ）　ページの最後に飛ぶ

『罫線』（なぞ）
度々お世話になります。
セルに特定の文字を入力すると右横のセルに自動で罫線をひけるようにとかならないですよね？

 条件つき書式ではいかがですか？

 （e2qw）条件付き書式
http://www.excel.studio-kazu.jp/lib/e2qw/e2qw.html

 (Ohagi)

 >・・・とかならないですよね？
                        ~~~~
 出来ないと思われるのなら出題しなければ
 いいのでは？
 （ふふ）

ohagi様
ありがとうございました

ohagi様
教えて頂いたとおりやってみたのですが、罫線の右斜め？はできませんでした。
／　←こういうのです。
これ以上てはないものですか？

 条件付書式では斜めの罫線は無理みたいですね。
 シートタブを右クリックし、コードの表示を選択。
 出てきた画面に下記コードをコピペして閉じる。
 条件が分からないため、とりあえず範囲を「A1:A10」とし、
 条件は「1」が入力されたらということにしています。
 (ROUGE)
'----
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, r As Range
    Set rng = Range("A1:A10")                '<--適用したい範囲
    If Intersect(Target, rng) Is Nothing Then Exit Sub
    For Each r In Intersect(Target, rng)
        With r.Offset(, 1).Borders(xlDiagonalUp)
            If r.Value = 1 Then              '<--条件を入れる
                .LineStyle = xlContinuous
            Else
                .LineStyle = xlNone
            End If
        End With
    Next
    Set rng = Nothing
End Sub

 初期状態で斜めの罫線を設定して条件付書式で条件以外は罫線なしにすればできると思います。                          
 (Breka)

コメント返信：

[ 一覧(最新更新順) ]

[[20070424150030]] 『罫線』（なぞ） ページの最後に飛ぶ

[[20070424150030]]　『罫線』（なぞ）　ページの最後に飛ぶ