ベストアンサー

vbsでendに変わるコードはありますか？

2013/01/27 14:44

msgbox "a" end msgbox "b" を実行すると「ステートメントがありません」と言うエラーになってしまうのですが、途中で処理を一時的に止めたい場合、どうすればいいでしょうか？

sbsmadaec
お礼率100% (27/27)

Visual Basic
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

IDii24
ベストアンサー率24% (1597/6506)

2013/01/27 14:54 回答No.1

Do Event Waite ですけど目的が違うような。時間が来ると実行されますよ。止める目的としてメッセージに答えてから実行させるには、 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_msgbox.html こうしないとダメですよ。

質問者

お礼 2013/02/01 20:13

ご回答ありがとうございます。

関連するQ&A

vbs　subプロシージャーにするべきなの？し

vbs　subプロシージャーにするべきなの？しないべきなの？ call a sub a() msgbox "b" end sub ｖｂｓでこのコードを実行すると問題なく動くのですが、 call a をsubとend subで囲わなくていいのでしょうか？
VB6でEndステートメントに変わる方法

VB6を使っております。 Endコマンドを使わずに、Unloadイベントで開いているフォームを閉じていく処理にするのが、定跡とされていますが、OnErrorGotoで飛んだ先でResume Nextではなくて、終了させたい場合は、私はENDステートメントを使っておりますが、 Unload meでイベントを発生させてもエラー時には終了できません。 Endステートメントに変わる方法で終了させることは可能でしょうか？
VBS　どうするの？

VBSで、 a=inputbox("0+1=") if lang=1 then 　msgbox("あってます。") 　else 　msgbox("間違えています。") end if として、 msgbox("間違えています。") のあとに、もういちど最初（aの位置）にもどしたいときはどうすればよいでしょう？よろしくおねがいします。
VBS でプログラムを先頭から再試行

VBSの実行中に、プログラムを先頭から再試行させるにはどうしたらいいですか？２重起動ではなく、あくまでプログラム自身のリスタートです。処理　A num = msgbox ("プログラムの再試行",5) if num = 4 then '再試行が押されたならリスタート else 'キャンセルなら WScript.Quit end if 処理　B 上記の「リスタート」の部分の記述をお願いします。
vbsでのエラー処理についてレクチャーを

vbsのcopyhere関数でファイルのコピーを行うスクリプトを作成しました。コピー自体は問題なく出来るのですが、コピー元のファイルが存在しなかった場合は何も実行されないまま次の処理へ行ってしまうので、そういう場合にエラー用の処理をさせたいと考えてます。 Errメソッド使えばいいと思うのですがうまくいかなかったのでご教授ください。試しに作成したvbs----------------------------------------- On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(strTargetFolder) 'コピー先フォルダの設定 objFolder.CopyHere strCopyFile , &H10 ' set objShell = Nothing 'コピーが失敗した場合に実行させる。 if Err.Number <> 0 Then MsgBox "インストーラーをコピーできませんでした。","コピーに失敗しました" WScript.Quit end if ↓正常にコピー完了した後の処理これでは上手くいきませんでした。どうすればエラー時の処理を追加できるでしょうか？
VB.NET　クラス内でプログラムを終了するには?

VBAでは、エラーでプログラムを終了する時には Endステートメントを記述していましたが、このVBAをVB.NET(クラスライブラリ、DLL)に書き換えていますが VB.NETでClass1クラスの中にtest()メソッドを作ってこの中にEndステートメントを記述すると「クラスライブラリプロジェクトで　Endステートメントを使用することができません。」というメッセージが表示されますがエラーでプログラムを終了するにはどのように記述すればいいのでしょうか。 Public Class Class1 　Public Sub test(ByVal a As String) 　　If a = "" Then 　　　MsgBox("致命的なエラーです") 　　　End　<===エラー発生　　End If 　End Sub End Class よろしくお願いします。(WindowsXP,VS2010)
乱数の利用

僕の通う中学校では、乱数を利用してプログラムを作成することになりました。そしてプログラムを作りましたがステートメントがないと出てきます。どう解決すればよいでしょうか？これがプログラムです。 Dim a,b,c,d,e,f,g a=msgbox("幸せですか？",4) if a=6 then const b="運勢" randomize b=int(rnd*10) select case b case 0,1,2 c=messagebox("吉でした。彼女はいますか？",4) if c=6 then msgbox"90%",,b elseif c=7 then msgbox"60%",,b end if case 3,4,5 d=msgbox("凶でした。友達はいますか？",4) if d=6 then msgbox"60%",,b elseif d=7 then msgbox"20%",,b end if case 6,7 e=msgbox("末吉でした。",4) if e=6 then msgbox"60%",,b elseif e=7 then msgbox"40%",,b end if case 8 f=msgbox("大凶でした。夢はありますか？",4) if f=6 then msgbox"30%",,b elseif f=7 then msgbox"10%",,b end if case else msgbox"100%",,b end if elseif a=7 msgbox"0%" end select
エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？

例えば、A1、B2、C3セルに「名前の定義」で、それぞれ入力A、入力B、入力C　という名前がつけてあります。それらのセルに入力があった場合、Select Caseで分岐させ作動するマクロをつくりました。簡略化すると以下のようなもので、一応正しく作動します。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub Select Case Target.Address(0, 0) Case "A1" MsgBox "A処理します。" Case "B2" MsgBox "B処理します。" Case "C3" MsgBox "C処理します。" End Select End Sub ただ、せっかくセルに名前を定義してあるのに、個々の入力セルの判定をTarget.Addressでしているのが不満です。 (￣～￣;) 定義された名前を使えないかと以下のようにやってみましたが実行時エラーで「サポートしてません」となってしまいます。 (T.T) Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub Select Case Target.Names.Name 'ここでエラー Case "入力A" MsgBox "A処理します。" Case "入力B" MsgBox "B処理します。" Case "入力C" MsgBox "C処理します。" End Select End Sub どうやったら、Targetに設定されている名前を取得できるのでしょうか？ (^∇^`)？実際の例はもっと対象が多いので、Select Caseを使わない以下の方法は避けたいのです。 If文の羅列（これでも正しく作動はします。） Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub If Not Intersect(Target, Range("入力A")) Is Nothing Then MsgBox "A処理します。" ElseIf Not Intersect(Target, Range("入力B")) Is Nothing Then MsgBox "B処理します。" Else MsgBox "C処理します。" End If End Sub なにとぞよろしくお願いします。　(o。_。)oペコッ
Subステートメント　と　Subプロシージャ　の違いは？

Subステートメントと Subプロシージャは何が違うのですか？例えば Sub test() MsgBox "a" End Sub これは、 Subステートメントですか？ Subプロシージャですか？
VBA Exit Subが機能しない

以下のVBAコードが正常に機能しません。 Sub A() 処理 On Error Goto L1 処理 On Error Goto L2 処理 Exit Sub L1: MsgBox エラーメッセージ1 Exit Sub L2: MsgBox エラーメッセージ2 Exit Sub End Sub これを実行すると、エラーが出ておらず、正常に処理が行われているのに、エラーメッセージ2が表示されます。間違いを指摘してください。
VBSで応答不要のメッセージボックスを表示したい

Kotori_Dと申します。今回質問したいのは、VBScriptを使い、ある処理を行っている最中にメッセージボックスを表示させ、操作をしないように呼びかけ、なおかつメッセージ表示中も処理が実行され続けるようにしたいのですが、その方法で困っています。 MsgBox("処理中です。操作しないでください。") この場合、メッセージが出て、OKを押すまで保存は実行されません。 CreateObject("WScript.Shell").Popup "処理中です。操作しないでください。", 0, " 警告" こちらでも、OKを押すまで処理は中断されます。また、表示時間を指定すると、途中で消えてしまうので、役不足です。私としては、メッセージは出たままで、処理を継続してほしいのですが、何かよい方法はないでしょうか？よろしくお願いします。
Replace関数について

Sub macro１() Dim str As String str = "abc" str = Replace(str, "c", "a") MsgBox str End Sub このマクロを実行した時に、問題なく動くのですがなぜReplaceは関数なのに、 WorksheetFunction.がいらないのでしょうか？しかも Sub macro２() Dim str As String str = "abc" str = WorksheetFunction.Replace(str, "c", "a") MsgBox str End Sub にすると、エラーになります。 macro1のReplaceは、関数ではないのでしょうか？メソッドやステートメントですか？
VBS　教えて！２

http://oshiete1.goo.ne.jp/qa5372858.html で質問したものです。「loopにDoがありません」というエラーが発生するのはなぜですか？ VBSだとgotoが使えないので、Do～loop命令をつかったのですが、いまいち使いこなせません。～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ Do total = Inputbox("動画の再生時間を入力してください","ビットレート自動計算機") music = Inputbox("音声ビットレートを入力してください","ビットレート自動計算機") x = 335544/total - music - 15 IF not(x>0) then Msgbox "入力した情報は不正です" elseIF x>656 then Msgbox "推奨映像ビットレートは656kbpsです。" else Msgbox "推奨映像ビットレートは" & x & "kbpsです。" end IF Msgbox "続けて計算しますか？",vbyesno IF vbyes then loop elseIF vbno then Msgbox"終了します" end IF ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
ACCESSVBAからEXCELのSubステートメントの実行

ACCESSの標準モジュールに Sub アクセス() Call エクセルのsubステートメント End Sub と書き、 EXCELの標準モジュールに Sub エクセルのsubステートメント() MsgBox "成功！" End Sub と書いています。アクセス側からエクセルのマクロを実行するのはどうすればいいのでしょうか？ご教授よろしくお願いします。
VBSに関する質問

VBSを使ってプログラムを作りたいのですが、 visual studioを使ったデバッグの方法について教えてください。バージョンはvisual studio express 2013で最新バージョンです。 OSはwin8 64bitです。・とりあえず、 http://winscript.s41.xrea.com/wiki/index.php?%5B%5B%A5%A8%A5%C7%A5%A3%A5%BF%2FVWD2005%5D%5D のページにあるように、タイトル VBSスクリプトの実行(&R) コマンド C:\WINDOWS\system32\wscript.exe 引数 $(ItemPath?) を外部ツールに登録した上で MsgBox "テスト" と書かれた適当なvbsファイルをD&Dで読み込ませてみたのですがコードの色分けが行われておらず全て同じ色になっています。 http://www.koutou-software.co.jp/junk/use-vs-project-with-vbscript.html このページのようにdimなどを青色に表示するにはどうしたら良いですか？・MsgBox "テスト"の左横にブレイクポイントの赤い丸を付けて VBSスクリプトの実行をしたのですが、特にプログラムを停止することなく実行されてしまうのですがどうすれば指定した位置でプログラムを止めることができますか？・あとEXEファイルとして出力したいのですがビルド機能が見つからないのですがどうすれば良いですか？・http://www.koutou-software.co.jp/junk/use-vs-project-with-vbscript.html このページには Visual C++としてプロジェクトを作成し、いろいろな設定を行った後にするみたいな解説がありますがこの通りやっても、wscript.exeが見つからないというようなエラーが出て実行することができませんでした。少し質問が多いですがよろしくお願いいたします。
EXCEL2010 VBA 複数処理の終了

EXCEL2010　VBAでコマンドボタンを押すと複数の処理を実行するようにしています。 Sub　実行() 処理A 処理B Ens sub 処理Aでは実行時に確認画面が出てNOを選択すると処理が終了するようにしています。確認画面は下記の様な形です。 If MsgBox("処理を実行しますか？", vbYesNo + vbQuestion, "確認") = vbNo Then Exit Sub End If この処理Aの確認画面でNOを選択すると処理Aだけでなく処理Bも実行せず終了するようにしたいのですが何か良い方法はないでしょうか？ Exit Subにかわるすべての処理を終了させるコマンドがあれば良いのですが。。。
ifステートメント　大文字も小文字も区別なく

Sub test() Dim moji As String moji = "a" If moji = "A" Then MsgBox "Aかaです" End If End Sub これだと、変数が小文字のaだからmsgboxが表示されません。小文字も大文字も区別なく認識させるにはどうすればいいでしょうか？バイナリモードになってるようです。 Replace関数の場合は、vbTextCompareを付ければ Sub Sample() Dim moji As String moji = "ａ" Debug.Print Replace(moji, "A", "b", , , vbTextCompare) End Sub このように大文字小文字区別なく置換できますがこのような事をifステートメントでやる方法を教えてください。
エクセルでセルに文字が入力されたらマクロを実行

前回どなたかが質問されて回答を見せてもらったら私のやりたいことと同じだったので実行してみましたが出来なかったのでもう一度質問をさせてください。１．実行したのですが、なにも実行されません。２．実行したらメッセジBOXだけは実行するのですが、後のコマンドが実行されずにエラーになります。もう一度詳しく教えてください。マクロ初心者ですよろしくお願いします。 1.【シートモジュールで条件判定し、マクロを起動する】通常はこちらの方法が使われます。 Private Sub Worksheet_Change(ByVal Target As Range) 　　'変化のあったセルがA1セルか? 　　If Target.Address = "$A$1" Then 　　　　　'条件判定：A1セルの値は 1 か? 　　　　If Target.Value = 1 Then 　　　　　　MsgBox "A1セルは条件を満たしました" 　　　　End If 　　End If End Sub 2.【ワークシート上で条件判定し、マクロを起動する】処理内容にもよっては不向きな場合もありますが、こんな方法もあります。マクロを Sub ではなく、Function 、、つまり関数にしてしまいます。 Function TestMacro() '<-- Sub を Function に替える　　MsgBox "A1セルは条件を満たしました" 　　TestMacro = "" '戻り値はなし End Function そして、ワークシートの B1 セルに次の式を入力します。()は必須です。　=IF(A1=1,TestMacro(),"")
VBAで指定したブックを前面に表示するには

ブックAとブックBがあります。ブックAのマクロの途中、InputBoxでブックBのセルを選択させて処理終了後に再びブックAを前面に表示するにはどうしたら良いでしょうか？下記コードを実行したところ、ブックBが前面になって終了してしまいます。 InputBoxの挙動が関係している気がするのですが、原因がわかりませんでした。ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Sub テスト() '※このマクロはブックAに書かれてます Dim rng As Range On Error Resume Next Set rng = Application.InputBox( _ Prompt:="ブックBのセルを選択してください。", _ Type:=8) On Error GoTo 0 If rng Is Nothing Then Exit Sub '～ '～　ここで処理をする '～ MsgBox "処理完了" ThisWorkbook.Activate 'ここでブックAを前面に出したい End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ExcelはOffice365（バージョン 1902）です。よろしくお願いします。
プロジェクトA にてプロジェクトB からの応答を感知したい

OS:win2000pro VB:VB6.0sp5 プロジェクトA formA にて別プロジェクトBを実行　private sub command_click() 　　projectB.exe 　　MsgBox "projectB 実行完了" 　end sub １．projectBの処理がすべて完了したら　メッセージ「projectB 実行完了」　を出力したいのでが、どのようにすれば良いのか　分かりません　　ご教示くださいます様よろしくお願いいたします２．projectBの処理中にエラー発生時も　projectA にて感知したいのですが、　どのようにすればいいのでしょうか？　初歩的なご質問で申し訳ございませんよろしくお願いいたします

vbsでendに変わるコードはありますか？

質問者が選んだベストアンサー

お礼 2013/02/01 20:13

関連するQ&A

vbs　subプロシージャーにするべきなの？し

VB6でEndステートメントに変わる方法

VBS　どうするの？

VBS でプログラムを先頭から再試行

vbsでのエラー処理についてレクチャーを

VB.NET　クラス内でプログラムを終了するには?

乱数の利用

エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？

Subステートメント　と　Subプロシージャ　の違いは？

VBA Exit Subが機能しない

VBSで応答不要のメッセージボックスを表示したい

Replace関数について

VBS　教えて！２

ACCESSVBAからEXCELのSubステートメントの実行

VBSに関する質問

EXCEL2010 VBA 複数処理の終了

ifステートメント　大文字も小文字も区別なく

エクセルでセルに文字が入力されたらマクロを実行

VBAで指定したブックを前面に表示するには

プロジェクトA にてプロジェクトB からの応答を感知したい

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

vbsでendに変わるコードはありますか？

質問者が選んだベストアンサー

お礼 2013/02/01 20:13

関連するQ&A

vbs subプロシージャーにするべきなの？し

VB6でEndステートメントに変わる方法

VBS どうするの？

VBS でプログラムを先頭から再試行

vbsでのエラー処理についてレクチャーを

VB.NET クラス内でプログラムを終了するには?

乱数の利用

エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？

Subステートメント と Subプロシージャ の違いは？

VBA Exit Subが機能しない

VBSで応答不要のメッセージボックスを表示したい

Replace関数について

VBS 教えて！２

ACCESSVBAからEXCELのSubステートメントの実行

VBSに関する質問

EXCEL2010 VBA 複数処理の終了

ifステートメント 大文字も小文字も区別なく

エクセルでセルに文字が入力されたらマクロを実行

VBAで指定したブックを前面に表示するには

プロジェクトA にて プロジェクトB からの応答を感知したい

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

vbs　subプロシージャーにするべきなの？し

VBS　どうするの？

VB.NET　クラス内でプログラムを終了するには?

Subステートメント　と　Subプロシージャ　の違いは？

VBS　教えて！２

ifステートメント　大文字も小文字も区別なく

プロジェクトA にてプロジェクトB からの応答を感知したい

カテゴリ
一覧

専門家に質問してみよう
専門家登録