![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
当方 IE9+2007です。
Sub yahoo()
Dim objIE As Object
Dim i As Long
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
Do Until objIE.Busy = False And objIE.ReadyState = 4: Loop
If objIE.Document.Body.innerHTML Like "*こんにちは、*さん*" Then
i = MsgBox("別のIDでログインしています!続けますか?", vbYesNo + vbApplicationModal)
If i = 7 Then End
End If
End Sub
このような事がやりたいのですが、
IEブラウザを立ち上げてメッセージボックスをvbApplicationModalで表示させても
ブラウザより裏側で表示されてしまいます。
If objIE.Document.Body.innerHTML Like "*こんにちは、*さん*" Then
i = MsgBox("別のIDでログインしています!続けますか?", vbYesNo + vbApplicationModal)
If i = 7 Then End
End If
objIE.Visible = True
という順番にすればよいのですが、他のコードの関係もあってメッセージボックスより先にブラウザを表示させたいのです。
そんな事は可能でしょうか?
ご回答よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちわ。
あちこちのサイトからの寄せ集めです。
Option Explicit
Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long
Public Const MB_OK = &H0 'OKボタン
Public Const MB_TOPMOST = &H40000 '最前面フラグ
Public Const MB_YesNo = 4 'はい いいえ
Public Const MB_DefaultButton2 = 256
sub test
.
lpText = "別のIDでログインしています!続けますか"
lpCaption = "最前面Msgbox"
If MessageBox(0, lpText, lpCaption, MB_YesNo Or MB_DefaultButton2 Or MB_TOPMOST) = vbYes Then
'データの処理
End If
No.1
- 回答日時:
例えばExcel VBAということならMsgboxの前にAppActivateすれば希望が叶うと思います。
AppActivate Application.Caption
If objIE.Document.Body.innerHTML Like "*こんにちは、*さん*" Then
i = MsgBox("別のIDでログインしています!続けますか?", vbYesNo)
AppActivate Application.Caption
を追加してみましたが
エラーにはなりませんでしたが
やはりブラウザの後ろで表示されてしまいます
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
VB.NET メッセージボックスが隠れてしまいます。
Visual Basic(VBA)
-
-
4
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
5
VBAでchromeを動かしたいのですが、エラー出ます。
その他(パソコン・スマホ・電化製品)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
急にGoogleカレンダーが表示で...
-
表示ページがブラウザウインド...
-
グーグルマップで3D画像が見...
-
インターネットについて
-
新しいタブの「よく使うサイト...
-
Internet Explorer でなければ...
-
PDFページの終了ができない
-
Adobe Reader が暴走する
-
PDFのリンク先Webページを別窓...
-
ブラウザでPDFを開いた時のツー...
-
gooトップ画面が
-
おすすめのブラウザ 教えてほしい
-
ブラウザ上でリンク先にカーソ...
-
ブラウザのフォーカス枠につい...
-
Opera32bit版から64bit版に移行...
-
複数のWebサイトを1つのブラウ...
-
問い合わせ内容のURLの出し方を...
-
鉄道nowで電車のみ
-
Google Chromeは広告ブロックが...
-
5chでエロ広告を出さない方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ブラウザーEdgeでGoogleマップ...
-
インターネットについて
-
グーグルマップで3D画像が見...
-
表示ページがブラウザウインド...
-
PDFのリンク先Webページを別窓...
-
PDFはAcrobatに関連付けられて...
-
任意のURLへ一定時間ごとに自動...
-
ブラウザでPDFを開いた時のツー...
-
カスペルスキーが弾いたwebサイ...
-
★戻るボタンで戻れない現象?
-
ブラウザでローカルのフォルダ...
-
モニター左寄りのHPを中央に表...
-
ブラウザを再起動してください
-
急にGoogleカレンダーが表示で...
-
このポップアップ広告を表示さ...
-
ブラウザ上でリンク先にカーソ...
-
Google Chromeでソースコードを...
-
おすすめのブラウザ 教えてほしい
-
Operaで特定のページのリンクを...
-
IEがフリーズ、砂時計、応答な...
おすすめ情報