Join関数を使用したプログラミング例を紹介します。
例題
範囲に登録されている任意の県範囲(北関東/南関東)を選択した後に<実行>ボタンをクリックした場合、結果欄にその範囲の県が表示されるプログラミング方法です。
[実行前]:
[実行後]:
プログラミング
プログラミングは以下の通りとなります。
[記述例]:
Sub サンプル()
Dim 範囲(2) As String
Select Case Range("A2")
Case "北関東"
範囲(0) = Range("B5")
範囲(1) = Range("B6")
範囲(2) = Range("B7")
Range("C2") = Join(範囲, ",")
Case "南関東"
範囲(0) = Range("B2")
範囲(1) = Range("B3")
範囲(2) = Range("B4")
Range("C2") = Join(範囲, ",")
End Select
End Sub
内容を説明すると、
Join関数を使用して範囲(A2セル)に登録されている県範囲(北関東/南関東)を選択した後に<実行>ボタンをクリックすると、南関東を選択した場合には「神奈川県,埼玉県,千葉県」(B2セル~B4セル)を、北関東を選択した場合には「栃木県,群馬県,茨城県」(B5セル~B7セル)を結果欄に表示して下さい。
との意味になります。
ダウンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。