視覚的にわかりやすくグラフを作りたい
VBAで本格的なグラフを作成する場合はAddChartメソッドですが、
簡易的に作成する場合はString関数を上手く使います。
指定した文字を繰り返し入力する【String関数】【ExcelVBA】
指定した文字を繰り返し入力する関数ですので、
繰り返し回数とグラフ作成したい値を計算させて実行する事で、簡易グラフが作成可能です。
簡易グラフを作成するコードサンプル
Public Sub test_String_Graph_Method() '■String関数を上手く利用し、グラフ化する Cells(1, 1) = String(Int(1000 / 1000), "■") Cells(2, 1) = String(Int(2000 / 1000), "■") Cells(3, 1) = String(Int(3000 / 1000), "■") Cells(4, 1) = String(Int(4000 / 1000), "■") Cells(5, 1) = String(Int(5000 / 1000), "■") '■結果イメージ '1,000 ■ '2,000 ■■ '3,000 ■■■ '4,000 ■■■■ '5,000 ■■■■■ End Sub
今回は指定の数(1000~5000)を1000で割り算し、指定の回数「■」でグラフ化しました。
※上記のようにString関数内で計算させ、指定の回数分繰り返したわけです。
プログラムは発想力や柔軟な力が必要です。
単純に基本だけ学んでいても、頭でっかちなプログラマーにしかなれません。
頭でっかちなプログラマーは突き詰めていけば、スペシャリストとなりますが、最終的にはお仕事は人と人です。
視野の広いゼネラリストのようなプログラマーの需要があると私は考えます。
注意事項
- 結果が小数点を含んでも実行されますが、念のためint関数でセーフ処理を入れましょう。
- Cell(1,1) のように記載していますが、実際には下記記事を参考に可読性の高いコードを作成しましょう。
マクロ初級者必読-ワークブック名を変数にSetし、短い名前で利用する
マクロ初級者必読-ワークシート名を変数にSetし、短い名前で利用する
【VBA基本】Constでの定数宣言と定数一覧
関連記事
指定した文字を繰り返し入力する【String関数】【ExcelVBA】
半角空白スペースを繰り返し入力する【Space関数】【ExcelVBA】
コメント