当方 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ランキング
-
PDFのリンク先Webページを別窓...
-
ブラウザーEdgeでGoogleマップ...
-
表示ページがブラウザウインド...
-
グーグルマップで3D画像が見...
-
IEブラウザよりmsgboxを手前に...
-
Operaで特定のページのリンクを...
-
web画面の一部の画像が表示され...
-
ブラウザでPDFを開いた時のツー...
-
一度にすべての情報が表示され...
-
ブラウザのフォーカス枠につい...
-
ホームページビルダー15で表示...
-
WINDOWS CE機でのインターネッ...
-
食べログで地図が表示しない
-
PDFはAcrobatに関連付けられて...
-
パソコンの文字化について
-
グーグルアース ダウンロード...
-
万能のブラウザはないのか?
-
IE10の画面下部に変な表示が!...
-
各ブラウザによっての表示が異...
-
任意のURLへ一定時間ごとに自動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
インターネットについて
-
PDFのリンク先Webページを別窓...
-
表示ページがブラウザウインド...
-
カスペルスキーが弾いたwebサイ...
-
このポップアップ広告を表示さ...
-
グーグルマップで3D画像が見...
-
ブラウザーEdgeでGoogleマップ...
-
PDFはAcrobatに関連付けられて...
-
食べログで地図が表示しない
-
ブラウザでPDFを開いた時のツー...
-
任意のURLへ一定時間ごとに自動...
-
モニター左寄りのHPを中央に表...
-
Adobe Reader が暴走する
-
Internet Explorer でなければ...
-
IEブラウザよりmsgboxを手前に...
-
Google Chromeでソースコードを...
-
ブラウザでローカルのフォルダ...
-
ブラウザの戻るボタンを2回押...
-
グーグルアース ダウンロード...
-
鉄道nowで電車のみ
おすすめ情報