[[20060712161144]] 『セルの一部で取り消し線があるか知りたい』(ヴェル) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルの一部で取り消し線があるか知りたい』(ヴェル)
 セルの中の文字で全体ではないですが、一部取り消し線で消しているような
 ものがいくつかあります。
 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)さんありがとうございました。(ヴェル)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.