Excel VBA質問箱 IV

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

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


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

25321 / 76732

←次へ　｜　前へ→


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

ハチ - 08/7/3(木) 15:06 -


	引用なし

	パスワード

▼勉強中さん：

>総文字数が100文字ぐらいまでのセルだとうまく取り消し線の引かれている文字だけ削除
するのですが、文字数が多いセルで止まってしまいます。

どのようなエラーを表示して止まるのか、書くとわかりやすい回答が付き易いです。

勘で書きますが、
削除系の処理は、オシリからループを回すのが基本です。
削除しながらアタマから処理すると最後の部分で、文字が足りなくなりますよね？

　 For Each c In Selection.Cells
　　　　'Do
　　　　　　For i = Len(c.Value) To 1 Step -1
　　　　　　　　If c.Characters(Start:=i, Length:=1). _
　　　　　　　　　　Font.Strikethrough = True Then
　　　　　　　　　　c.Characters(Start:=i, Length:=1).Delete
　　　　　　　　End If
　　　　　　Next
　　　　'Loop Until c.Value = "" Or c.Font.Strikethrough = False
　　Next

1 hits

▼

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