ベストアンサー

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

2013/02/08 22:53

Sub test() Debug.Print String(5, " ") End Sub これを実行すると、「&&&&&」になってしまうのですが、           を作るにはどうすればいいですか？

HFBCYPIL7
お礼率100% (36/36)

その他MS Office製品
回答数1
ありがとう数1

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

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

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2013/02/08 23:04 回答No.1

debug.print application.rept(" ", 5) など。＃参考＞になってしまうのですがヘルプを読めば、そうなると書いてあります。

質問者

お礼 2013/02/17 12:58

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

関連するQ&A

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 のようにするしかないのでしょうか？
VBＡコードでイミディエイトウィンドウを表示する方

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

Sub test() Debug.Print Month(Date) End Sub のようなコードの時に月の表記を02のように2桁で返すにはどうすればいいですか？ Debug.Print Format(Month(Date), "mm") これだと、なぜか「01」が返ります。「02」を返したいのですが、どうすればいいでしょうか？
変数を続けて宣言した場合はEmpty型になる？

Sub test1() Dim Int1, Int2 As Long Debug.Print "---------- test1の実行結果 ----------" Debug.Print TypeName(Int1) Debug.Print TypeName(Int2) End Sub Sub test2() Dim Int1 As Long Dim Int2 As Long Debug.Print "---------- test2の実行結果 ----------" Debug.Print TypeName(Int1) Debug.Print TypeName(Int2) End Sub を実行すると、 ---------- test1の実行結果 ---------- Empty Long ---------- test2の実行結果 ---------- Long Long の結果が得られます。 test1のInt1がEmpty型になりますが、変数の型にEmptyはないですよね？どういうことなのでしょう？？？
DatePartを関数使うと、スペースがはいる

Sub test1() Debug.Print Format(Date, "m") End Sub Sub test2() Debug.Print DatePart("m", Date) End Sub 二つを実行すると、DatePartの場合は戻り値の前にスペースが入ります。「12」「 12」という結果になります。なぜなのでしょうか？
ｖｂａにおいてセミコロン；はどういう意味ですか？

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

どちらも結果は同じでした。 Sub test1() Debug.Print Now End Sub Sub test2() Debug.Print Now() End Sub TechNet
「Microsoft Excel - 」を表示させ

「Microsoft Excel - 」を表示させない方法はありますか？ Sub t1() ActiveWindow.Caption = "test" End Sub をすると、「Microsoft Excel - test」になってしまいます。タスクバーには「test」だけを表示させたいのですが、「Microsoft Excel - 」があるせいで、testまで表示されません。 Sub t2() Debug.Print ActiveWindow.Caption End Sub を実行しても、testしか取得されないから、「Microsoft Excel - 」を消すことは無理なのでしょうか？
エクセル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
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 どなたか御教授おねがい致します！！
Publicで宣言しているから起きる現象？

Option Explicit Public i As Long Sub test1() i = i + 1 Debug.Print i End Sub これを数回実行するとイミディエイトウインドウには 1 2 3 4 5 と記載されていきます。なぜEnd Subで終わっているのにiの値がリセットされないのでしょうか？「Public」で宣言しているからですか？ Publicで宣言しつつ、1から開始したい場合は Sub test2() i＝0 i = i + 1 Debug.Print i End Sub とするべきなのでしょうか？またtest1のiの値はどこかに保存されているのでしょうか？よろしくお願いします。
イミディエイトウインドウの活用方法

イミディエイトウインドウに「?len("aaa")」と入力しエンターキーを押すと実行され「3」と表示されることがわかったのですがこういうことはどういう場合に使うのでしょうか？ Sub test() Debug.Print Len("aaa") End Sub と同じ意味ですよね？わざわざ標準モシ゛ュールに Sub test() Debug.Print Len("aaa") End Sub を書くのは面倒なときにイミディエイトウインドウで ?len("aaa") とすれば楽だ！という時に使うのでしょうか？
CurrentDb.Properties.Coun

Sub test() Debug.Print CurrentDb.Properties.Count End Sub 上記をアクセスで実行すると４７が返るのですが何の数でしょうか？アクセス２０１０です。
(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)もし、初心者でも参考になるようなサイトなどが有れば、そちらもぜひ教えてください。宜しくお願いします。
Passwordプロパティ

Sub test() Debug.Print ActiveWorkbook.Password End Sub を実行すると ******** が返ってくるのですがパスワードはかけてないファイルでも、かけてるファイルでも必ず「********」が返ってくるのですか？だとしたら意味のないプロパティな気がするのですが・・・・
引数 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 これだと、コンパイルエラーになりました。
vbaで今年があと残り何日かを求めたいのですが

vbaで今年があと残り何日かを求めたいのですが Sub test() Debug.Print Year(Date) & "/12/31" - Date End Sub これだと、型が一致しませんになります。なぜエラーになるのでしょうか？その原因がわかれば解決できそうな気が・・・
ワード　vba

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

Sub Sample() Dim MyFileName As String Dim MyFolderName As String MyFolderName = "C:\Windows" MyFileName = Dir(MyFolderName & "\*.exe" Or MyFolderName & "\*.dll") Do While MyFileName <> "" Debug.Print MyFileName MyFileName = Dir() Loop End Sub このような感じで、拡張子がexeとdllファイルを書き出すことは無理なのでしょうか？このコードを実行すると、実行時エラー１３が発生します。
【１】と【２】のｖｂａは同じ意味ですか？

【１】 Option Explicit Sub test1() Call test2("aaa") End Sub Sub test2(MyStr As String) MsgBox MyStr End Sub 【２】 Option Explicit Dim MyStr As String Sub test1() MyStr = "aaa" Call test2 End Sub Sub test2() MsgBox MyStr End Sub 結果は同じですが、中身が違います。今後コードを作っていく上でどちらの方式の方が良いのでしょうか？

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

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

お礼 2013/02/17 12:58

関連するQ&A

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

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

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

変数を続けて宣言した場合はEmpty型になる？

DatePartを関数使うと、スペースがはいる

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

NowとNow（）とどちらを使った方が良いですか？

「Microsoft Excel - 」を表示させ

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

Excel vba

Publicで宣言しているから起きる現象？

イミディエイトウインドウの活用方法

CurrentDb.Properties.Coun

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

Passwordプロパティ

引数 compareについて

vbaで今年があと残り何日かを求めたいのですが

ワード　vba

Dir 関数で複数条件を指定するには？

【１】と【２】のｖｂａは同じ意味ですか？

注目のQ&A

カテゴリ
一覧

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

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

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

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

お礼 2013/02/17 12:58

関連するQ&A

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

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

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

変数を続けて宣言した場合はEmpty型になる？

DatePartを関数使うと、スペースがはいる

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

NowとNow（）とどちらを使った方が良いですか？

「Microsoft Excel - 」を表示させ

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

Excel vba

Publicで宣言しているから起きる現象？

イミディエイトウインドウの活用方法

CurrentDb.Properties.Coun

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

Passwordプロパティ

引数 compareについて

vbaで今年があと残り何日かを求めたいのですが

ワード vba

Dir 関数で複数条件を指定するには？

【１】と【２】のｖｂａは同じ意味ですか？

注目のQ&A

カテゴリ 一覧

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

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

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

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

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

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

ワード　vba

カテゴリ
一覧

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