VBAを使う方法の解説! 5-3-1プログラムを走らせるまで
はじめに
筋トレのプログラム自動作成のコードを載せたのですが、 VBAの使い方が分からない! という声を聞いたので、解説を作ってみました。
ぜひご活用ください。
Excelを起動する
これは簡単ですね。
名前を付けて保存
起動してまずしてほしいことは、 名前を付けて保存 です。
そしてその時にファイル形式を変更してください。
こんな風に!
VBEの起動
VBEってなんだろう?
とかはどうでもいいですよね笑
コードを書き込む場所
と思ってください。
[alt] + [F11] キーを押すことで出てきます。
こんな感じの殺風景なものが現れれば成功!
標準モジュールを挿入する
コードを書き込む場所を作ります。
といってもやり方は簡単。
[挿入]
[標準モジュール]
を押してください。
こうなったら成功です!
コードを書き込む
今回は5-3-1プログラムのコードを書き込みます。
以下をシートに貼り付けてください
Sub proguram_531_16() Dim cul(0 To 16, 1 To 4) As Variant Dim x As Single Dim y As Single Cells.ClearContents 'MAX重量の入力 continue: m = InputBox("MAX重量を半角数字で入力") If Val(m) <= 0 Then GoTo continue Cells(2, 2) = "プログラム531" Cells(2, 5) = "max " & m & "kg" '日数設定 cul(0, 1) = "day" For i = 1 To 16 cul(i, 1) = "day" & i Next '重量設定 cul(0, 2) = "重量(kg)" For i = 0 To 3 p = 0.05 * i cul(4 * i + 1, 2) = m * (0.7 + p) cul(4 * i + 2, 2) = m * (0.75 + p) cul(4 * i + 3, 2) = m * (0.8 + p) cul(4 * i + 4, 2) = m * 0.6 Next '重量の調整 For i = 1 To 16 x = cul(i, 2) * 10 y = x \ 25 y = x - y * 25 If y > 12.5 Then x = x + (25 - y) Else x = x - y End If cul(i, 2) = x / 10 Next 'set数とrep数の設定 cul(0, 3) = "set数" cul(0, 4) = "rep数" For i = 0 To 3 cul(4 * i + 1, 3) = 5 cul(4 * i + 1, 4) = 5 cul(4 * i + 2, 3) = 5 cul(4 * i + 2, 4) = 3 cul(4 * i + 3, 3) = 5 cul(4 * i + 3, 4) = 1 cul(4 * i + 4, 3) = 2 cul(4 * i + 4, 4) = 8 Next 'day16の修正 cul(16, 2) = "MAX測定" cul(16, 3) = "" cul(16, 4) = "" 'セルへ貼り付け Range(Cells(4, 2), Cells(20, 5)) = cul End Sub
これで後はコードを走らせるだけ!
もう少し頑張りましょう!
コードを走らせる
[F5]キーを押してください。
それだけで走ります。
こんな入力フォームが現れるので、自分の現在のMax重量を入力してください。
半角
でお願いします!
すると何やらシートに出来上がった形跡があるので、〇で囲った部分をクリックしてVBEを閉じます。
これにて完了!
あとはこれをコピーするなりPDF化するなりして使ってください!!
以上でVBAを使う方法の解説は終わりです!
お疲れさまでした!