[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
911: デフォルトの名無しさん [sage] 2019/08/14(水) 19:26:49.04 ID:uFuQVnLY 【呼び出し元】 Option Explicit Dim WSHObj Dim Args Set WSHobj = WScript.CreateObject("WScript.Shell") Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _ & " ""出力メッセージ""" _ & " 0" _ & " ""VBS名称""" _ & " " & vbYesNo Dim hoge '受け取り用に追加 hoge = WSHObj.Run(Args,0,true) 'この変数hogeにvbYes=6かvbNo=7が入る。 '何か処理を書く Set WSHobj = Nothing 【WSHPopUP.vbs】 Option Explicit Dim Arg Dim WSHObj Set WSHobj = WScript.CreateObject("WScript.Shell") Set Arg = WScript.Arguments Dim fuga '戻り値用に追加 fuga = WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) 'popupの戻り値を取得 WSHObj.Quit fuga '呼び出し元に終了コードとして返す Set WSHobj = Nothing http://mevius.5ch.net/test/read.cgi/tech/1432173164/911
914: デフォルトの名無しさん [sage] 2019/08/15(木) 00:01:28.86 ID:GUoAoBO9 >>911 ありがとうございます！ 試してみます！ >>913 すみません、ｖｂDefaultButton1 がわかりません http://mevius.5ch.net/test/read.cgi/tech/1432173164/914
915: デフォルトの名無しさん [sage] 2019/08/16(金) 11:35:25.09 ID:vco+QnrA >>911 >910,>914です。 教えていただいたコードを試してみたのですが、 ‘何か処理を書く のところに MsgBox hoge と入れたのですが、「はい」「いいえ」どちらの場合も 0 が返されます。 どうしたらいいでしょうか http://mevius.5ch.net/test/read.cgi/tech/1432173164/915
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.032s