[[20050107235149]]　『空欄のセルに斜線を引きたい』（とみー）　ページの最後に飛ぶ

『空欄のセルに斜線を引きたい』（とみー）
vlookupでデータをあるセルに呼び込んでいますが、そのデータが空欄の場合そのセルに斜線を引きたいのですが、方法が全然わかりません。そんなことできるのかどうかもわからないのでよろしくお願いします。

使用環境は、
excel2000
windowsxp
です。

 条件付き書式でも斜線は引けないので、マクロに頼らないと出来ないと思います。
   (INA)

マクロの知識はあまりありませんが、どんなマクロを組んだらよいか教えてくれませんか？

 A列にVLOOKUP関数の検索値がある場合の方法です。
 ベタな方法なので、もっと良い方法があるかもしれません。
 該当シートのモジュールに貼り付けてお試しください。
　
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
On Error GoTo ErrorHandler
MyRange = Target.DirectDependents.Address
MyFormura = StrConv(Range(MyRange).Formula, vbUpperCase)
MyType = Replace(MyFormura, "VLOOKUP", "")
If Len(MyFormura) = MyType Then Exit Sub
    With Range(MyRange)
        If .Value = 0 Then
            .Borders(xlDiagonalUp).LineStyle = xlContinuous
            .Font.ColorIndex = 2
        Else
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Font.ColorIndex = 0
        End If
    End With
ErrorHandler:
End Sub

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20050107235149]] 『空欄のセルに斜線を引きたい』（とみー） ページの最後に飛ぶ

[[20050107235149]]　『空欄のセルに斜線を引きたい』（とみー）　ページの最後に飛ぶ