VBAで「掛け算(2重ループ)」を使って見よう
縦、横の数字を掛け合わせるやり方について勉強したことを記載します。
「掛け算(2重ループ)」の勉強の課題として下記の条件を設定しました。
【課題】
縦、横の数字を掛け合わせ記載する
【VBA】
ボタンを追加してVBAが実施出来るようにしました。
Sub 掛け算() Dim a As Long Dim b As Long For a = 2 To 11 For b = 2 To 11 Cells(a, b) = Cells(a, 1) * Cells(1, b) Next Next End Sub
簡単な説明
・「For」ループ範囲は、縦、横共に2〜11になる
・「Cells(a, 1)」は、行
・「Cells(1, b)」は、列
・「Cells(a, b)」は、掛け算の結果
あなたのお役に立てるなら、コピーして使用してください。
今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。
VBA開発もしておりますので開発のご要望があればご連絡をください。
VBA開発依頼受付はこちらから
コメントフォーム