エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150321163237]]: #score: 9211; @digest: 8d80df3d3155aa7fdeb476e5a1888ef8; @id: 67554; @mdate: 2015-03-21T10:17:12Z; @size: 3556; @type: text/plain; #keywords: ル原 (15497), 後-> (14319), 前-> (12255), 後ト (11789), 美装 (6984), 計美 (6907), 装時 (6162), 時合 (5958), 更前 (5610), 象領 (5064), 日9 (4902), 間繰 (4510), 更後 (4155), ト発 (3308), 力イ (3276), undo (2659), ー() (2416), 日11 (2123), 日12 (2097), ラブ (1454), アー (1363), イベ (1236), ド化 (1095), リア (1077), 作さ (1046), enableevents (1046), 繰越 (1025), ベン (1012), 消去 (984), 変更 (900), application (817), 領域 (698); 『エラー回避』（ちぃさん）
いつもお世話になります。 [[20150308172244]] コチラでの追加質問となります。宜しくお願いします。ご教授くださったマクロコードで私が別に追加したコードを動作させるとエラーがでる事に気づきどのように対応すればいいのかわかないので教えて頂きたいです。 1.私が別に追加したコードというのは必要部分以外を消去させる単純なものです。 Sheet1 __A__ ____B____ ____C____ __D__ ____E____ ____F____ ____G____ ____H____ _____I_____ 1 日時合計美装時間繰越し 2 1 1 11:30 1000 3 4 5 6 1日 9:00 エクセル aa 100 7 1日 9:15 8 1日 9:30 〜 16 1日 11:30 美装 17 1日 11:45 18 1日 12:00 エクセル ab 1 19 1日 12:15 〜 100 1日 8:45 101 2日 9:00 102 2日 9:15 . . . . . . E6:G3000までが一括消去できるように標準モジュールへ Sub クリアー() Range("E6:E3000") = "" End Sub と記述しボタンで操作する仕組みとなっています。 2.コードを動作させるとエラーがでるというのは 1で説明しましたコードを動作させると「実行エラー1004 Undoメソッドは失敗しました'Application'オブジェクト」と出ます。止まっている所は Application.Undo '変更後->変更前あるいは変更前->変更後この部分です。どしても対応方法がわからず現在は '入力された値をチェックし、処理必要な文字列かどうかを判定。 On Error Resume Next '‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ '↑↑↑追加↑↑↑ For x = 1 To 2 '変更前と変更後の状態をチェック Application.Undo '変更後->変更前あるいは変更前->変更後 For Each c In changeR.Cells z = Application.Match(c.Value, myTxt, 0) If IsNumeric(z) Then todoFlag(z - 1) = True Next Next このようにしエラーを無視するようにしているのですが今後トラブル原因となりますでしょうか? 他に何か手がありましたら教えていただけないでしょうか。どうか宜しくお願い致します。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- https://msdn.microsoft.com/ja-jp/library/office/ff838189.aspx マクロを実行すると Undo情報はクリアされるので、それを把握した上でコード化する必要があるかと思います。 （Mook） 2015/03/21(土) 17:06 ---- >このようにしエラーを無視するようにしているのですが今後トラブル原因となりますでしょうか? >他に何か手がありましたら教えていただけないでしょうか。 Mookさんから回答があるように、マクロで入力イベントの対象領域であるE列を変更した場合、 Undo はきかなくなります。通常は、意図的にマクロで、対象領域を触る場合は、イベントを発生させないようにします。ただ、本件の場合 E列をすべてクリアするということは F2:I4 もクリアしなきゃいけませんね。以下のようにしてください。 Sub クリアー() Application.EnableEvents = False 'イベント発生抑止 Range("E6:E3000").ClearContents Range("F2:I4").ClearContents Application.EnableEvents = True 'イベント発生再開 End Sub ★それと、Sheet2の記入セルもクリアしなきゃいけないのかな? Sheet2については、よくわからないので、そちらで判断してください。（β） 2015/03/21(土) 17:23 ---- （Mook）さん（β）さんありがとうございます。またまたお助け頂きましてありがとうございます。 Application.EnableEvents 覚えておきます。ありがとうございました。（ちぃさん） 2015/03/21(土) 19:17 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150321163237.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ