Excel VBA質問箱 IV

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

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


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

57465 / 76738

←次へ　｜　前へ→


	【24010】Re:ユーザーフォームが表示されない

ウッシ - 05/4/9(土) 22:38 -


	引用なし

	パスワード

こんばんは

▼okb さん：
>Call 入力で、Selectionしているので、selection changeイベントが発生するはずがありません。

何故そう決めつけるのですか？

新規ブックを用意して、Sheet1の「Worksheet_SelectionChange」に

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
　　If Intersect(Target, Range("F6:F65536")) Is Nothing Then Exit Sub
　　MsgBox "Call入力で Selectionしたけど Selection changeイベント発生"
End Sub

として、標準モジュールに

Sub 入力()
　　Range("D3,E7,D10:E10,G13,J14,D17:G36,J17:J36").Select
End Sub

として、Sheet1を開いておいて「Sub 入力」を実行してみて下さい。

これで最終回答にします。

1 hits

▼

【23960】ユーザーフォームが表示されない okb 05/4/8(金) 16:53