Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4286 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【57480】別ウインドウを開かないようにするには kou 08/8/26(火) 22:31 質問[未読]
【57481】Re:別ウインドウを開かないようにするには かみちゃん 08/8/26(火) 22:37 発言[未読]
【57482】Re:別ウインドウを開かないようにするには kou 08/8/26(火) 22:56 質問[未読]
【57483】Re:別ウインドウを開かないようにするには かみちゃん 08/8/26(火) 23:05 発言[未読]
【57484】Re:別ウインドウを開かないようにするには ichinose 08/8/27(水) 7:01 発言[未読]
【57485】Re:別ウインドウを開かないようにするには ichinose 08/8/27(水) 7:35 発言[未読]
【57488】Re:別ウインドウを開かないようにするには mizunu 08/8/27(水) 15:08 回答[未読]
【57498】Re:別ウインドウを開かないようにするには kou 08/8/28(木) 0:15 お礼[未読]
【57480】別ウインドウを開かないようにするには
質問  kou  - 08/8/26(火) 22:31 -
引用なし
パスワード
   ＶＢＡ初心者です。
以下のＶＢＡをかなり勉強して作りました。
ＶＢＡを理解している方は超超簡単なこととおもいますが・・・

ひとつ教えてください。
以下の記述をボタンに登録して実行しているのですが、
実行と同時に、別ウインドウMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)]が開きます。
このウインドウを開かないようにするにはどうすれば良いのでしょうか？

よろしくお願いします。


Sub 置換()
'
' 置換 Macro
'

'
　　Application.Goto Reference:="置換"
　　
　　Range("B2:AF23").Select
　　
　　Application.Dialogs(xlDialogFormulaReplace).Show
　　
　　
　　Range("B2:AF23").Select
　　
End Sub
【57481】Re:別ウインドウを開かないようにするには
発言  かみちゃん  - 08/8/26(火) 22:37 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>実行と同時に、別ウインドウMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)]が開きます。
>このウインドウを開かないようにするにはどうすれば良いのでしょうか？

こちらでは、そのような事象にならないですね。
新規ブックでも同じでしょうか？
【57482】Re:別ウインドウを開かないようにするには
質問  kou  - 08/8/26(火) 22:56 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>>実行と同時に、別ウインドウMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)]が開きます。
>>このウインドウを開かないようにするにはどうすれば良いのでしょうか？
>
>こちらでは、そのような事象にならないですね。
>新規ブックでも同じでしょうか？


こんにちは。かみちゃんさん、ありがとうございます。

>新規ブックでも同じでしょうか？

はい、新規作成で新しいシートに同じ記述をMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)]に書き込み、一旦そのウインドを×で消し、
シートのボタンを押すと、再びMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)のウインドが開かれます。
【57483】Re:別ウインドウを開かないようにするには
発言  かみちゃん  - 08/8/26(火) 23:05 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>新規ブックでも同じでしょうか？
>
>はい、新規作成で新しいシートに同じ記述を

新しいシートではなく、ブックを新しくしていますか？
また、モジュールは、とりあえず、標準モジュールでいいでしょうか？
こちらでは、新規ブックの標準モジュールに記述しましたが、そのような事象になりません。
（Excel2002 SP3）
【57484】Re:別ウインドウを開かないようにするには
発言  ichinose  - 08/8/27(水) 7:01 -
引用なし
パスワード
   おはようございます。
>ＶＢＡを理解している方は超超簡単なこととおもいますが・・・
現象、確認しました（Excel2002-SP3　Win2000）
。

ちゃんと調べてませんが、新発見かもしれませんよ！！

再現手順は、kouさんの投稿そのものですが・・・。

新規ブックの標準モジュールに

kouさんが提示されたコードを記述します。
一度、VBEを閉じた後、「置換」という名で名前の定義などせずに
そのままコードを実行します。

すると、閉じたはずのVBEが再度起動します。

Application.Goto Reference:="置換"

↑ここでエラーにならない。

コードは正常に置換ダイアログを表示します。

上記のコード実行後に　Ctrl+FやCtrl+Hで
検索や置換ダイアログが表示されない。
（尚、上記のコード実行前に一度、Ctrl+FやCTRL+Hでダイアログを表示させておくと
コード実行後もダイアログの表示は可能です）


置換という名前で内部で使用されているのかなあ？？
でもなあ、そうだとしたら、これは・・・。
バグだと思いますけどねえ！！

代替案としては・・・。

Application.Goto Reference:="置換"

このコードを何のために記述しているのか？
ですが、きちんと「置換」という名で名前の定義を行えば、
上記の現象は発生しませんでした。
できれば、別の名前で定義した方が無難かもしれません。
君子危うきに・・・ですから。


皆さんへ
Excelの別バージョンでも試した結果を投稿して見てください。


>ひとつ教えてください。
>以下の記述をボタンに登録して実行しているのですが、
>実行と同時に、別ウインドウMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)]が開きます。
>このウインドウを開かないようにするにはどうすれば良いのでしょうか？
>
>よろしくお願いします。
>
>
>Sub 置換()
>'
>' 置換 Macro
>'
>
>'
>　　Application.Goto Reference:="置換"
>　　
>　　Range("B2:AF23").Select
>　　
>　　Application.Dialogs(xlDialogFormulaReplace).Show
>　　
>　　
>　　Range("B2:AF23").Select
>　　
>End Sub
【57485】Re:別ウインドウを開かないようにするには
発言  ichinose  - 08/8/27(水) 7:35 -
引用なし
パスワード
   ああっ、これ仕様だ、たぶん・・・。

プロシジャー名が「置換」だよね！！

このプロシジャー名に

Application.Goto　"置換"

が反応してしまうんです。
（つまり、置換というプロシジャーのあるモジュールをアクセスする）

よって、代替案は・・・。

プロシジャー名を変更する（例えば、Myreplace　とか）

でも、このままじゃ、今度は、エラーになります

Application.Goto　"置換"

修正方法は、やっぱり、↑ここで本来は何をしたいのか
によります。


　　
【57488】Re:別ウインドウを開かないようにするには
回答  mizunu  - 08/8/27(水) 15:08 -
引用なし
パスワード
   >以下の記述をボタンに登録して実行しているのですが、
>実行と同時に、別ウインドウMicrosofto Visual Basic-ﾌｧｲﾙ名.xls-[Module(ｺｰﾄﾞ)]が開きます。
>このウインドウを開かないようにするにはどうすれば良いのでしょうか？

>Sub 置換()
>' 置換 Macro
>　　Application.Goto Reference:="置換"

自分で開くようにマクロを記述していますよ。
Application.Goto Reference:="置換"
↑を削除すれば開かない。

このマクロは、
マクロの記録で、[ツール]-[マクロ]-[マクロ]で、マクロ名 置換 を選択して
[編集] で得られます。
【57498】Re:別ウインドウを開かないようにするには
お礼  kou  - 08/8/28(木) 0:15 -
引用なし
パスワード
   >自分で開くようにマクロを記述していますよ。
>Application.Goto Reference:="置換"
>↑を削除すれば開かない。

できました！！ありがとうございます。
回答を頂いた、みなさまありがとうございます。

これからもお聞きすることがあると思います。
そのときは、よろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4286 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free