ベストアンサー

ｖｂａにおいてセミコロン；はどういう意味ですか？

2012/12/27 20:17

Sub Sample() Debug.Print "OK"; End Sub を実行すると、OKが返るのですが、このコードにおいてセミコロンは何の意味があるのですか？ OK; になると思ってました。

smncqrcdka
お礼率77% (17/22)

オフィス系ソフト
回答数1
ありがとう数1

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

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

ベストアンサー

gungnir7
ベストアンサー率43% (1124/2579)

2012/12/27 20:39 回答No.1

Ptint文なんかの出力コマンドと同じに用ると、出力時に改行しない意味になります。例えば Debug.Print "OK" Debug.Print "１２３" とすると OK １２３となりますが；が入っていると OK123 と表示されます。

質問者

お礼 2013/01/02 14:44

ありがとうございました。

関連するQ&A

引数 compareについて

エクセルで Sub sample() Debug.Print InStr(1, "abcde", "C", vbTextCompare) End Sub このコードを実行する際、vbTextCompareはどういう役目を果たしてるのでしょうか？ Sub sample() Debug.Print InStr(1, "abcde", "C") End Sub や Sub sample() Debug.Print InStr(1, "abcde", "C", vbBinaryCompare) End Sub にすると0が返りますが、なぜ0が返るのかわかりません。ヘルプを読むと、vbTextCompareは「テキストモードの比較を行います。」と書いてありますが、それがどういう意味なのか分かりません。 Sub sample() Debug.Print InStr(1, "abcde", "C", vbDatabaseCompare) End Sub にすると、エクセルで実行しているからかエラーになりました。 Sub sample() Debug.Print InStr(1, "abcde", "C", vbUseCompareOption) End Sub これだと、コンパイルエラーになりました。
ifステートメント　notと!は同じ意味ですか？

VBAのifステートメントで、notと!は同じ意味ですか？「a」で始まらない。と言う意味で、下記のコードを作ったのですが、どちらも思い通りの結果が得られます。 If "あabc" Like "[!a-z]*" Then Debug.Print "OK" End If If Not "あabc" Like "[a-z]*" Then Debug.Print "OK" End If End Sub ネットからのサンプルをコピペしたので、いまいち理解できてないのですが notと!は同じ意味ですか？
myRange = Null

VBA Professional Office 2003の試験問題ですが http://vbae.odyssey-com.co.jp/study/sample_2003.html Sub Sample1() Dim myRange As Range On Error Resume Next '――(1) If myRange = Null Then '――(2) Debug.Print "OK" '――(3) Else Debug.Print "NO" '――(4) End If End Sub の(3)が実行されるのは、 myRange = Null が正しいからではなく、 (2)のIf myRange = Null Thenのコードが無視されたから次のコードの(3)がたまたま実行されただけですか？ (2)をIf myRange <> Null ThenにしてもＯＫになりました。
ｖｂａ　「02」を返したいのですが

Sub test() Debug.Print Month(Date) End Sub のようなコードの時に月の表記を02のように2桁で返すにはどうすればいいですか？ Debug.Print Format(Month(Date), "mm") これだと、なぜか「01」が返ります。「02」を返したいのですが、どうすればいいでしょうか？
VBＡコードでイミディエイトウィンドウを表示する方

VBＡコードでイミディエイトウィンドウを表示する方法はありますか？例えば、 Sub test() Debug.Print Now End Sub を実行したときにイミディエイトウィンドウが表示されていなければ結果がわかりませんよね。 Ctrl+Gでイミディエイトウィンドウを表示出来る事は知っていますがサブプロシージャーと実行とともに、イミディエイトウィンドウをVBAで表示する方法を教えてください。 Sub test() Debug.Print Now イミディエイトウィンドウを表示 End Sub のようにしたいです。ご回答よろしくお願いします。
BrokenReference

Sub Sample() Debug.Print Application.BrokenReference End Sub これはアクセスでしかつかないのでしょうか? エクセルで無効な参照設定があるかどうかを取得したい場合はどうすれば良いですか? このコードをエクセルで実行すると実行時エラー438になります。
エクセルｖｂａ　検索対象をシートではなく、ブック全

このコードでシート内に検索文字があるかどうかを取得できるのですが検索対象をシートではなく、ブック全体にするにはどうすればいいでしょうか？ Sub Sample() If Not Cells.Find(What:="test", LookAt:=xlPart) Is Nothing Then Debug.Print "あります" Else Debug.Print "ありません" End If End Sub
Randomizeがある時とない時の違いがわからな

ｖｂａです Sub Sample1() Randomize Debug.Print Int((6 - 1 + 1) * Rnd + 1) End Sub Sub Sample2() Debug.Print Int((6 - 1 + 1) * Rnd + 1) End Sub の違いがわからないのですが、 Randomizeはどのような役割をなしてるのでしょうか？ Sample1の結果は、 5 3 3 4 3 1 6 5 3 4 で、 Sample2の結果は、 4 5 4 3 4 1 4 1 6 1 5 5 でした。
VBA　複数の文字のコードを一気に返すには

Sub test1() Dim myStr As String myStr = "abc" Debug.Print Asc("a") Debug.Print Asc(myStr) End Sub このコードは、どちらも97が返るのですが、 myStrは3文字です。 3文字全ての文字コードを返すには、 Sub test2() Dim myStr As String myStr = "abc" Debug.Print Asc(Mid(myStr, 1, 1)) & Asc(Mid(myStr, 2, 1)) & Asc(Mid(myStr, 3, 1)) End Sub のようにするしかないのでしょうか？
" "を複数表示させたい　VBAで

Sub test() Debug.Print String(5, " ") End Sub これを実行すると、「&&&&&」になってしまうのですが、           を作るにはどうすればいいですか？
アプリケーションの横幅の値を取得したい　vba

アクセスのアプリケーションの横幅の値をｖｂａで取得する事は可能でしょうか？ Sub サンプル() Debug.Print Application.Width End Sub はエラーになっちゃいました。
Excel vba

Excel vba をはじめて1ヵ月程度の初心者ですが、すいません質問させて下さい。シートをCodeNameでSheets()みたいに指定はできるのでしょうか？また、図形をIDでShaps()みたいに指定する方法はあるのでしょうか？どちらも名前(.Nameの方)は変えてある状態です。例えばアクティブシート名は"テスト"、図形名は"サンプル"みたいな状態です。名前は自由に変えていきたいのですが、名前が変わってもかわらず指定できるようにしたいです。 Sub test1 Debug.Print Activesheet.Name Debug.Print Activesheet.Index Debug.Print Activesheet.CodeName Debug.Print Excel.Selection.Name Debug.Print Excel.Selection.Index Debug.Print Excel.Selection.ShapeRange.ID End Sub どなたか御教授おねがい致します！！
ＶＢＡ　SFO　C:\Windows

Ｃドライブには、 IntelもWindowsのどちらのフォルダも存在するのに Sub Sample() Dim myFSO As Object Debug.Print CreateObject("scripting.filesystemobject").GetFolder("C:\Intel").Size Debug.Print CreateObject("scripting.filesystemobject").GetFolder("C:\Windows").Size Set myFSO = Nothing End Sub をＶＢＡで実行すると \Windows の方だけエラーになります。エラー内容は実行時エラー　70　書き込みできません。です。何故でしょうか？
ブック内のシート名を右から取得したい

Sub Sample() Dim s As Worksheet For Each s In Worksheets Debug.Print s.Name Next End Sub このコードを実行すると、左からシート名をひとつずつ取得しますが右から取得して書き出すにはどうすればいいでしょうか？
エクセルVBAでDateAddのインターバルで"w"は何でしょう？

下の2つのマクロはまったく同じ答えを返します。 "d"は日を加算なので1日づつ増えていくのはわかりますが、"w"はなんなのでしょうか？"ww"が一週間づつ増えるのもわかるのですが「○週目を返す」という"w"の意味がわかりません。（￣∇￣) ？ Sub test01() 　 dtDate = "2010/01/11" 　　Debug.Print DateAdd("d", 1, dtDate) 　　Debug.Print DateAdd("d", 2, dtDate) 　　Debug.Print DateAdd("d", 3, dtDate) 　　Debug.Print DateAdd("d", 4, dtDate) 　　Debug.Print DateAdd("d", 5, dtDate) 　　Debug.Print DateAdd("d", 6, dtDate) 　　Debug.Print DateAdd("d", 7, dtDate) End Sub Sub test02() 　 dtDate = "2010/01/11" 　　Debug.Print DateAdd("w", 1, dtDate) 　　Debug.Print DateAdd("w", 2, dtDate) 　　Debug.Print DateAdd("w", 3, dtDate) 　　Debug.Print DateAdd("w", 4, dtDate) 　　Debug.Print DateAdd("w", 5, dtDate) 　　Debug.Print DateAdd("w", 6, dtDate) 　　Debug.Print DateAdd("w", 7, dtDate) End Sub
「ぺ」って何？

エクセルVBAなのですが、半角にできない文字があったのにで調べてみたのですがよくわかりません。 Sub a() Debug.Print StrConv("ぺ", vbNarrow) End Sub をしても半角になりません。でも Sub b() Debug.Print StrConv("ペ", vbNarrow) End Sub なら半角になります。 Sub a1() Debug.Print Asc("ぺ") End Sub Sub b2() Debug.Print Asc("ペ") End Sub のように文字コードを調べてみたのですが -32040 -31879 が返りました。半角にできないほうの-32040 は、なんなのでしょうか？カタカナではないのですか？
(Access) VBA　イミディエイトの使い方を教えてください。

(1)標準モジュールにある時は、イミディエイトウィンドウにうまく表示されます。しかし、フォームオブジェクトの中に作成したときは、実行しても何も表示されません。なぜなのですか？（実行したコード） Sub test() Dim i, s s = 0 For i = 1 To 10 s = s + i Debug.Print s Next i End Sub 本などを読みましたが、いまいちイミディエイトが、どういう場面で使えるのかよく分りません。 (2)もし、初心者でも参考になるようなサイトなどが有れば、そちらもぜひ教えてください。宜しくお願いします。
VBAで時間による処理判定

こんにちは。エクセルVBAにて次のようなプログラムを作成しておりますが思考のループに入ってしまった為御助力をお願いします。メインルーチンをキーボード「↑」が押されるまでループする。その中で処理Ａを1秒間隔、処理Ｂを5秒間隔、処理Ｃを30秒間隔に実行させる。 ※今回はサンプルコードの為DEBUG.PRINTを実行させる。現状ループの中にApiSleepを入れ1/1000で制御しています。処理を実行させると若干もたつきが感じられます。正確な時間計測は必要としていませんのでシステム日付程度の精度を求めています。方法は幾つかあると思いますがご協力をお願いします。以下サンプルコード Public Type TestType 　　XTime As Integer 　　XBack As Integer End Type Sub Sample() 　　Dim KeyChk As Integer 　　'Dim ThisTime As Integer 　　Dim Ret1 As TestType 　　Dim Ret2 As TestType 　　Dim Ret3 As TestType 　　KeyChk = 0 　　With Ret1 　　　　.XTime = 1 　　　　.XBack = .XTime 　　End With 　　With Ret2 　　　　.XTime = 5 　　　　.XBack = .XTime 　　End With 　　With Ret3 　　　　.XTime = 30 　　　　.XBack = .XTime 　　End With 　　Do 　　　　KeyChk = GetAsyncKeyState(VK_UP) 　　　　Sleep (1000) 　　　　'ThisTime = ((Hour(Time) * 60) + Minute(Time) * 60) + Second(Time) 　　　　With Ret1 　　　　　　If .XTime = 0 Then 　　　　　　　　Debug.Print "処理Ａ実行" 　　　　　　　　.XTime = .XBack 　　　　　　Else 　　　　　　　　.XTime = .XTime - 1 　　　　　　End If 　　　　End With 　　　　With Ret2 　　　　　　If .XTime = 0 Then 　　　　　　　　Debug.Print "処理Ｂ実行" 　　　　　　　　.XTime = .XBack 　　　　　　Else 　　　　　　　　.XTime = .XTime - 1 　　　　　　End If 　　　　End With 　　　　With Ret3 　　　　　　If .XTime = 0 Then 　　　　　　　　Debug.Print "処理Ｃ実行" 　　　　　　　　.XTime = .XBack 　　　　　　Else 　　　　　　　　.XTime = .XTime - 1 　　　　　　End If 　　　　End With 　　Loop While KeyChk = 0 　　MsgBox ("終了") End Sub API宣言及び仮想キー宣言は省略
エクセル関数とVBA関数で意味が違うのは多いのか

エクセル関数とVBA関数で意味が違うのは多いのでしょうか？セルA1に「Ａ」と入れ、 B1に「=ASC(A1)」と入れると B1は「A」になります。（半角） VBE画面で Sub test() Debug.Print Asc("Ａ") End Sub を実行すると、-32160 になります。ヘルプよりエクセルでは＝全角 (2 バイト) の文字を半角 (1 バイト) の文字に変換します。 VBAでは＝指定した文字列内にある先頭の文字の文字コードを返す変換関数です。となっていますが同じ関数でも全く意味違うのでびっくりしています。こういうことは頻繁にあるのでしょうか？（VBAのASC関数のかわりのエクセル関数は、CODE関数でした。）
ワード　vba

ワードの文書内に、文字があるかどうかをvbaで確認したいのですがエクセルのコードを張り付けてみましたが、もちろんエラーになります。 Sub Macro() If Not Cells.Find(What:="test", MatchByte:=False) Is Nothing Then Debug.Print "testはあります" End If End Sub Cellsで、エラーになります。このようなコードをワードで使う場合はどう書き換えればいいでしょうか？よろしくお願いします。

ｖｂａにおいてセミコロン；はどういう意味ですか？

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

お礼 2013/01/02 14:44

関連するQ&A

引数 compareについて

ifステートメント　notと!は同じ意味ですか？

myRange = Null

ｖｂａ　「02」を返したいのですが

VBＡコードでイミディエイトウィンドウを表示する方

BrokenReference

エクセルｖｂａ　検索対象をシートではなく、ブック全

Randomizeがある時とない時の違いがわからな

VBA　複数の文字のコードを一気に返すには

" "を複数表示させたい　VBAで

アプリケーションの横幅の値を取得したい　vba

Excel vba

ＶＢＡ　SFO　C:\Windows

ブック内のシート名を右から取得したい

エクセルVBAでDateAddのインターバルで"w"は何でしょう？

「ぺ」って何？

(Access) VBA　イミディエイトの使い方を教えてください。

VBAで時間による処理判定

エクセル関数とVBA関数で意味が違うのは多いのか

ワード　vba

注目のQ&A

カテゴリ
一覧

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

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

ｖｂａにおいてセミコロン；はどういう意味ですか？

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

お礼 2013/01/02 14:44

関連するQ&A

引数 compareについて

ifステートメント notと!は同じ意味ですか？

myRange = Null

ｖｂａ 「02」を返したいのですが

VBＡコードでイミディエイトウィンドウを表示する方

BrokenReference

エクセルｖｂａ 検索対象をシートではなく、ブック全

Randomizeがある時とない時の違いがわからな

VBA 複数の文字のコードを一気に返すには

"&nbsp;"を複数表示させたい VBAで

アプリケーションの横幅の値を取得したい vba

Excel vba

ＶＢＡ SFO C:\Windows

ブック内のシート名を右から取得したい

エクセルVBAでDateAddのインターバルで"w"は何でしょう？

「ぺ」って何？

(Access) VBA イミディエイトの使い方を教えてください。

VBAで時間による処理判定

エクセル関数とVBA関数で意味が違うのは多いのか

ワード vba

注目のQ&A

カテゴリ 一覧

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

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

ifステートメント　notと!は同じ意味ですか？

ｖｂａ　「02」を返したいのですが

エクセルｖｂａ　検索対象をシートではなく、ブック全

VBA　複数の文字のコードを一気に返すには

" "を複数表示させたい　VBAで

アプリケーションの横幅の値を取得したい　vba

ＶＢＡ　SFO　C:\Windows

(Access) VBA　イミディエイトの使い方を教えてください。

ワード　vba

カテゴリ
一覧

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