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

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

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

[[20110517161003]]: #score: 16278; @digest: 56b90b4ebbef3f58fadbddf15bb9ec9a; @id: 54544; @mdate: 2011-05-17T10:12:22Z; @size: 7562; @type: text/plain; #keywords: ズ事 (22862), 事象 (7792), フリ (4588), ーズ (4203), 制終 (3614), 味不 (3570), screenupdating (2966), 強制 (2390), リー (2387), hyperlinks (2156), myrange (2128), 納得 (1673), シー (1352), 更新 (1345), 原因 (1328), ドウ (1178), 不明 (1070), ウィ (1066), ィン (1066), 現象 (1038), ロシ (1025), 問題 (995), マー (982), momo (980), ート (960), 、画 (951), イベ (927), 画面 (907), 操作 (834), application (817), 理由 (815), index (808); 『ハイパーリンク自動更新マクロでの問題』（エクする?）
[[20110502105241]] にて質問させてもらった件の続編です。いろいろとアドバイスいただき、結局は下記のコードをIndexシートに入れました ============================================================== Private Sub Worksheet_Activate() Dim sh As Worksheet Dim i As Long Dim myRange As Range Dim st1, st2 As String i = 0 Set myRange = ActiveCell st1 = "Index" st2 = "Cover" Application.ScreenUpdating = False With Sheets("Index") .Cells.Clear For Each sh In Worksheets If Not sh Is Sheets(st1) And Not sh Is Sheets(st2) Then i = i + 1 .Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:= _ sh.Name & "!A1", TextToDisplay:=sh.Name End If Next End With Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal myRange.Select End Sub ============================================================== で、概ねうまくいっていたように見えましたが、問題が発覚しました。問題@シート名に半角スペースを含むシートにリンクが飛ばない例えばシートを挿入して"test 1"という名前に変更してから Indexシートを選択します。するとIndexシートのリストには test 1へのハイパーリンクができますが、そこでクリックすると「参照が正しくありません」のエラーになります。いろいろ試したところ、下記の変更を加えることでリンクが正常に機能するようになりました。 .Hyperlinks.Add Anchor:=Range("A" & i), Address:="", SubAddress:= _ "'" & sh.Name & "'!A1", TextToDisplay:=sh.Name ^^^^^ ^ が、なぜ最初のコードがいけなかったのか? またこの修正方法が本当に正しいのか? という疑問が残っています。問題AIndexシートの左隣のシートを削除するとExcelが固まる Indexシートを選択した状態で右クリックから新規シートを挿入すると、すぐ左隣にシートができますね。で、今度はその新規シートを削除します。すると自動的にIndexシートが表示されますね。そのままExcelが固まり、何分待っても操作がききません。強制終了するしかないです。 Application.ScreenUpdating = False の一文を削る、または最後に Application.ScreenUpdating = True をを入れる、とやるとフリーズ事象は消えます。が、これも理由がわからず、です。いずれも、事象について納得のいく理由と正しい解決法を知りたいと思います。そもそものコードの作りにに問題があるのかもしれないのですが、自分ではわからないので、お力を貸していただけるでしょうか。 Windows XP & Excel2002 Windows2000 & Excel2003 ----- 取り合えず下記コードが何をやっているかをヘルプでご確認ください。質問する前にこれをやった方が良かったですね。 BJ Application.ScreenUpdating = False Application.ScreenUpdating = True ---- ScreenUpdatingプロパティの意味そのものについては一応はわかっているつもりです（理解が足りないかもしれないですが）。プロシージャが終わると元のTrueに戻ると認識していました。しかし、今回調べた中で、Trueを明示的に設定したほうがよいとありました。 http://officetanaka.net/excel/vba/speed/s1.htm それにしたところで、問題Aのフリーズ事象とどう関係するのかがわからないです。 (エクする?) ---- あー、単に更新されていないのをフリーズと勘違いしているのかと思った。しかし、原因が解っているのなら、 > Application.ScreenUpdating = False >の一文を削る、または最後に Application.ScreenUpdating = True を >を入れる、とやるとフリーズ事象は消えます。とすればいいとも思いますけど・・・。取り合えず、Doeventsでもかませてみたら。改めて読むと >事象について納得のいく理由すごいですね。全ての意味不明エラーや落ちる現象を説明できる人はいないと思う。 MSの開発者ならわかるだろうけど。エラーになる物はなるし、落ちるものは落ちるから交わすかごまかすしかないと思いますよ。 BJ ---- >しかし、原因が解っているのなら、ん?いや、実効上の解消法がわかっただけで、原因はよく理解していないんですよ（自慢じゃないけど）。表面的には解消していても、かえってなにか他の不具合の原因になってたりしたら意味がないので。そもそもの原因を理解しないとそこの判断ができないと思うのです。 >全ての意味不明エラーや落ちる現象を説明できる人はいないと思う。もちろん「意味不明のエラー」と決まれば、それはそれでいいんですけどね。現状は「意味不明のエラー」なのかどうかも自分でわからない状態なので、後学のためにも説明のつく事象であれば理解しておきたい、という程度です。取り敢えず Doevents を試してみます。（エクする?） ---- まず、フリーズなのか、画面が更新されていないだけなのかという所ではないでしょうか? ScreenUpdatingをFalseにしたままですと画面が更新されませんからフリーズしたようにも見えますよね。で、それをWorksheetのActivateイベントで制御しているのですから 1つ左のシートを消した時にも該当シートがActiveになるのでイベントが起動してまたScreenUpdatingがFalseになる。という事ではないんですか? （momo） ---- （momo）さん >まず、フリーズなのか、画面が更新されていないだけなのか >という所ではないでしょうか? 1つ左のシートを削除した時には、実際にすべての操作ができなくなります。 Indexシート上でのマウス操作、キーボード操作すべて無効で、そこから別シートを選択しようとしてもできません。メニューバーでの操作も不可。唯一有効なのが、ウィンドウ右上のxマーク、またはウィンドウ左上の Excelマークからの強制終了だけのように見えます。一方、それ以外のシートを削除した場合や、別シートからIndexシートを選択してきた場合には、上記のような事象は起きません。なお、この事象は複数のPCで再現しています。（エクする?） ---- >ウィンドウ右上のxマーク、またはウィンドウ左上の >Excelマークからの強制終了だけのように見えますそれは強制じゃなくて正常な終了ですからフリーズしていないですよね? 同様の現象は私のほうでも確認していますが、画面更新が停止しているだけに見えます。 ScreenUpdating = True じゃなくてもイミディエイトウインドウなどで ?activesheet.range("A1").value とでもしただけでも解除されますし、値も返ってきますよね? 繰り返しますが、画面更新されてないだけではないですか? （momo） ---- （momo）さん、ありがとうございます。なるほど確かに・・・。つまりはフリーズの範疇ではないですね。失礼しました。ひとつ解せないのは、1つ左を削除した場合と、それ以外のシートを削除した場合や別シートからIndexシートを選択してきた場合とで、振る舞いが異なることです。あ、あと問題@も・・・。 (エクする?) ---- 問題1は普通にセルから参照する場合でも同じですよね? シート名に数値が入っていたりする場合は「'」を付けないとリンクされません。付けていれば問題無いので常に付けておけば良いかと思います。振る舞いが異なるというより、基本的に単体でボタンなどで起動するプロシージャならまだしもイベントドブリンで動かすような不特定に起動するプロシージャでアプリケーションの動作に影響を与えるようなプロパティを弄ってるわけですから元の状態に確実に戻すのがセオリーです。それを停止しっぱなしにしている訳なのでどちらかと言うと「イレギュラーな事をしてるから何が起きても不思議じゃない」という感じがします。原因が何と言われれば、キッチリ戻すべきものを戻していないのが原因で、バグかどうかの前の話かと思います。少し言葉がきついかもしれませんが、大切な事なので手癖になるくらいに、元に戻すコードを書いてください。（momo） ---- （momo）さん、ご説明&アドバイスありがとうございます。自分の中で消化し納得できました。（エクする?） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201105/20110517161003.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ