エクセルの学校：全文検索：Hyper Estraier： VBA 強制終了

Results of 1 - 1 of about 85 for VBA 強制終了 (0.004 sec.)

vba (14738), 強制終了 (237)

[[20200513180814]]: #score: 16175; @digest: 76a02da26af8cd929c973508ad9b1fdf; @id: 83522; @mdate: 2020-05-14T08:38:30Z; @size: 4197; @type: text/plain; #keywords: textafter (14495), xlrangevaluexmlspreadsheet (11917), し線 (8166), strikethrough (7088), 消線 (6066), 取消 (4918), り消 (4247), 線付 (3974), mycell (3101), 出3 (2528), 応答 (2403), characters (1623), 効果 (1509), （vb (1396), 線の (1360), 手法 (1289), 連結 (1265), 消し (1202), 2020 (1135), 長さ (1118), 資料 (1057), 検出 (1004), マナ (952), トメ (927), 水) (846), 全体 (818), 文字 (736), て消 (713), 取り (711), 削除 (678), 字列 (588), 者） (532); 『取り消し線をまとめて消したい!』（vba初心者）
はじめまして! 大学資料のデータを整理しているのですがあちこちに取り消し線の引かれた文字があります。セル全体に取り消し線が引かれていたり文頭、文末、文の途中にのみ引かれているものもあります。セルを選択して削除するマクロは検索で見つけたのですが資料データが膨大なので行を選択して取り消し線のついた文字だけ(セルごとではありません) 削除し続けるマクロを作成したいです。参考URL:https://stabucky.com/wp/archives/3209 やっていただきたい動作 1,行を選択する 2,マクロが選択した行から取り消し線の入った文字を持つセルを検出 3,取り消し線のある文字のみ削除宜しくお願いします! ＜使用 Excel:Office365、使用 OS:Windows8 ＞ ---- > If myCell.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then > textAfter = textAfter & Mid(textBefore, i, 1) > End If ↓ myCell.Characters(Start:=i, Length:=1).Font.Strikethrough = False > myCell.Value = textAfter ↑は削除かコメントアウト（OK） 2020/05/13(水) 18:31 ---- ああ勘違い。 ↑は取り消し線を消すだけのコードでした。（OK） 2020/05/13(水) 18:32 ---- >1,行を選択する ↑の意味が分かりませんが、参考HPのコードはお望みのとおりになっていると思います。（OK） 2020/05/13(水) 18:36 ---- 全セル選択して、取り消し線を解除すれば良いのに・・・。（BJ） 2020/05/13(水) 18:36 ---- すみません。説明が足りませんでした。上記のURLで取り消し線付き文字の削除は確かに実現可能なのですが行を丸ごと選択して実行するとエクセルが5分以上応答なしになってしまいそのまま強制終了しなければならないのです。諦めて応答するまで待つべきなのでしょうか（vba初心者） 2020/05/13(水) 18:42 ---- とりあえず10分程度待てば動くことが分かったので一先ずこれでやってみることにしますありがとうございました! （vba初心者） 2020/05/13(水) 18:53 ---- 最近γさんと半平太さんから教わったばかりの方法合わせ技で使ってみました。 Sub test() Dim s As String Dim r As Range Set r = Selection.EntireRow s = r.Value(xlRangeValueXMLSpreadsheet) With CreateObject("VBScript.RegExp") .Pattern = "<S>[¥s¥S]*?</S>" .Global = True s = .Replace(s, "") End With r.Value(xlRangeValueXMLSpreadsheet) = s End Sub （マナ） 2020/05/13(水) 21:33 ---- マナさんこんにちは。驚速です。すごいです。 100倍くらいは早そうですね。（γ） 2020/05/14(木) 08:59 ---- その他の方法として、Wordを利用する方法も考えられます。全体の文章の長さにもよりますが。いったんWordに貼り付けてから、 Wordの書式付きの置換で、取消線のあるものを一括して消せます。置換してから、Excelに戻すわけです。テキストの扱いは、文書専門ソフトのほうが一日の長がありますから。その他、現在のコードは一文字単位なので相当時間がかかると思います。改良するとしたら、次の点は検討されたらよいと思います。 (1)セルの全体の.Font.Strikethroughを調べると、取消線がなければ False,全体が取消だとTrue,混在しているとNullを返しますから、少なくともFalse が返った時には、処理をスキップするとよいと思います。 (2)文字列の連結を繰り返すのは効率が悪いです。もとのセルの文字列と同じ長さの文字列を作っておき（ String(長さ," ") など）これに Midステートメント（Mid関数ではなく）で書き込むと、速度向上になります。私は、マナさんの手法をお薦めします。 XMLフォーマットの文字列をValueプロパティで取得して、そのなかの取り消し線の情報を、正規表現を使って削除し、その結果を元のセルに戻す、というものです。（私もこのプロパティの使い方は半平太さんの発言から教わりました。）（γ） 2020/05/14(木) 09:28 ---- ありがとうございます! マナさんのおかげで作業が早く終わりました! コメントして頂いた他の方々も本当にありがとうございます! 時間が余った際にyさんの手法も試させて頂きます。（vba初心者） 2020/05/14(木) 16:54 ---- よかったですな。ちなみに、(2)のMidステートメントを使うと速くなるというのは、もっと大量の文字列を、多数回連結する場合の話だったようです。セルの文字列の長さが普通のものであれば、効果は余りありませんでした。（ちなみに、Space(長さ）でしたね。） (1)のほうは気づきにくい点でありながら、効果はあるはずです。特別に手を掛けてもらう必要もありません。（閲覧されている方にもなんらかの参考になればと思って書いていますので。）（γ） 2020/05/14(木) 17:38 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200513180814.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ