同じ文字を繰り返し表示した横棒グラフの作成方法について紹介します。同じ文字を繰り返して表示するにはString関数を使用します。
構文
記述方法は以下の通りとなります。
String([繰り返し回数],”[文字]”)
[説明]:
指定した文字を指定した回数だけ連続して表示します。
[繰り返し回数] | [文字]で指定した文字の連続表示回数を記述します。 |
[文字] | 任意の文字を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
[記述例]:
String(10, "|")
String(Range("A1"), "|")
使い方
使い方について具体的に説明します。
[プログラミング例]:
Sub サンプル()
Dim 行 As Double
For 行 = 2 To 5
Range("C" & 行) = String(Range("B" & 行), "|")
Next
End Sub
「B列に入力されている数値の数だけC列に”|”を繰り返し表示して下さい。また、同様処理を2行目~5行目まで繰り返し実行して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①A列に氏名、B列に点数、C列に横棒グラフを表示する一覧表を作成します。<実行>ボタンをクリックします。
②処理結果は以下の様になります。B列の数値(点数)の数だけC列に”|”の横棒グラフが表示されます。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
同じ文字を繰り返す横棒グラフの作成方法についての説明は以上です。
プログラミング(サンプル)
プログラミング事例を紹介します。
おわりに
今回はString関数を使用した同じ文字を繰り返す横棒グラフの作成方法について説明しました。ちなみに[繰り返し回数]を0にした場合、[表示する文字]は表示されません。また、[表示する文字]に複数にの文字を指定した場合、先頭の文字が表示される事になります。覚えておいて下さい。