滝の音

滝の音

名こそ流れてなお聞こえけれ

VBAを使う方法の解説! 5-3-1プログラムを走らせるまで

はじめに

筋トレのプログラム自動作成のコードを載せたのですが、 VBAの使い方が分からない! という声を聞いたので、解説を作ってみました。

ぜひご活用ください。

Excelを起動する

これは簡単ですね。

名前を付けて保存

起動してまずしてほしいことは、 名前を付けて保存 です。

そしてその時にファイル形式を変更してください。

f:id:nozomi-hayashi:20180731182216p:plain

こんな風に!

VBEの起動

VBEってなんだろう?
とかはどうでもいいですよね笑
コードを書き込む場所 と思ってください。

[alt] + [F11] キーを押すことで出てきます。

f:id:nozomi-hayashi:20180731182552p:plain

こんな感じの殺風景なものが現れれば成功!

標準モジュールを挿入する

コードを書き込む場所を作ります。
といってもやり方は簡単。

f:id:nozomi-hayashi:20180731182715p:plain

[挿入]
[標準モジュール]
を押してください。

f:id:nozomi-hayashi:20180731182816p:plain

こうなったら成功です!

コードを書き込む

今回は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

f:id:nozomi-hayashi:20180731183127p:plain

これで後はコードを走らせるだけ!
もう少し頑張りましょう!

コードを走らせる

[F5]キーを押してください。
それだけで走ります。
f:id:nozomi-hayashi:20180731183554p:plain

こんな入力フォームが現れるので、自分の現在のMax重量を入力してください。
半角 でお願いします!

f:id:nozomi-hayashi:20180731183852p:plain

すると何やらシートに出来上がった形跡があるので、〇で囲った部分をクリックしてVBEを閉じます。

f:id:nozomi-hayashi:20180731184113p:plain

これにて完了!
あとはこれをコピーするなりPDF化するなりして使ってください!!

以上でVBAを使う方法の解説は終わりです!
お疲れさまでした!