Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25271 / 76782

←次へ　｜　前へ→


	【56855】Re:取り消し線の引かれている文字だけ削除

勉強中 - 08/7/8(火) 16:30 -


	引用なし

	パスワード

▼ハチさん：

ありがとうございます！
257文字以上でもうまくできました。
ただし、ちょっと処理に時間がかかるので、ヒントをいただいた、

>先にセル自体の.Font.Strikethroughを判定し、
>該当セルに処理が必要か、分岐させると、全体の処理をもっと早くできると思います。
>必要なら考えてみてください。

について、とりあえずそのセルの.Font.Strikethroughを判定するのを考えてみました（下記）。が、この場合セル内の文字の一部分だけに取り消し線が引かれているときはそのセルは「取り消し線が引かれていません」と判別されてしまいます。
で、やはりCharactersで1文字ずつ判定するべきかと思ったのですが、それなら結局1文字ずつ見るので結局は一緒かと思い直しました。

度々で恐縮ですがもし何かヒントがありましたらよろしくお願いいたします。

If c.Font.Strikethrough = True Then

MsgBox "取り消し線が引かれています"

Else
MsgBox "引かれてません"

End If

15 hits

▼

【56751】取り消し線の引かれている文字だけ削除 勉強中 08/7/3(木) 14:54