[[20060712161144]]　『セルの一部で取り消し線があるか知りたい』（ヴェル）　ページの最後に飛ぶ

『セルの一部で取り消し線があるか知りたい』（ヴェル）

 セルの中の文字で全体ではないですが、一部取り消し線で消しているような
 ものがいくつかあります。
 ABCDE    ← BCDが取り消し線
 FGHI     ← 取り消し線で消されていない
 JKLMNO   ← JKLMが取り消し線
 PQ       ← 取り消し線で消されていない
 RSTU     ← Uが取り消し線

 このときに、となりのセルに
 取り消し線で消された文字が一つでも有れば TRUE
 なければ FALSE
 という風にしたいのですが、なにかよいものがあるでしょうか。

 こんな感じで大丈夫かなー

 Function StrikeT(r As Range) As Boolean
 Dim i As Long
 For i = 1 To Len(r.Value)
    If r.Characters(i,1).Font.Strikethrough Then StrikeT = True : Exit Function
 Next
 End Function

 (seiya)

(seiya)さんありがとうございます。ただ、全体的に取り消し線がついていると大丈夫なのですが、一部の文字に取り消し線がついているものは #VALUE!になってしまいます。（ヴェル）

 ちょっと変えましたので試してください (seiya)

御礼遅くなりました。できました。(seiya)さんありがとうございました。（ヴェル）

コメント返信：

[ 一覧(最新更新順) ]

[[20060712161144]] 『セルの一部で取り消し線があるか知りたい』（ヴェル） ページの最後に飛ぶ

[[20060712161144]]　『セルの一部で取り消し線があるか知りたい』（ヴェル）　ページの最後に飛ぶ