VBA Join関数で配列要素を結合します

 今日は山梨県にある小夜子さんの別荘でこの記事を書いてます(実際に記事が up されるのは数日後になると思います)。
 今年の夏も富士山を眺めながらお友達と愉快に過ごしました。
 でもそろそろ「日本の夏、こばとの夏」が終わってしまいますね~。もちろん秋には秋の楽しみがあるんですけど、やっぱり夏が一番ですよね~。え? VBA? そんなに慌てなくても、ちゃんと今から解説しますよ。
 

Join関数で配列要素を結合します

 そんなわけで、今回は配列の要素を全て結合する Join関数 について説明します。特に難しいことは何もないですけど、配列の操作をひと通り覚えておくとプログラミングの幅が広がります。Join関数を使うときは

Join(結合元データ, [デリミタ])

と書きます。結合元データには 1 次元配列要素を指定するんですけど、配列なら何でもいいってわけじゃなくて、中身は文字列じゃなきゃダメです。数字とか真偽値とか変なものを入れるとエラーになるので気をつけましょう。要するに Join は文字列同士をくっつける関数だと覚えておけば間違いありません。デリミタ(区切り文字)は結合する文字の間に入る記号です。「。」でも「、」でも「接着剤」でも、好きな文字を指定してくださいな。省略すると文字の間に半角スペースが入りますよ。それでは、サンプルコードを見てみましょ~。

 Sub JoinWords()

  Dim myword(3) As String
  Dim mysentence As String

  myword(0) = "言葉の"
  myword(1) = "妖精"
  myword(2) = "こばとちゃん"
  myword(3) = "参上!"

  '配列要素を結合します
  mysentence = Join(myword)

  Debug.Print mysentence

 End Sub

 これを実行するとイミディエイトウィンドウに

 言葉の 妖精 こばとちゃん 参上!

と表示されます。デリミタを省略しているので、文字の間に半角スペースが空いちゃってますね。隙間をなくしたい場合はデリミタに空白文字列を意味する "" を指定します。

mysentence = Join(myword,"")

と書き直して実行すると

 言葉の妖精こばとちゃん参上!

と表示されます。めでたし、めでたし。

 ≫ メニューに戻って他の記事も読んでみると、何かいいことがあるかもしれませんよ?

Google広告
スポンサーリンク
スポンサードリンク
末尾大型広告
末尾大型広告

コメントをどうぞ

メールアドレスが公開されることはありません。

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください