VBAで「掛け算(2重ループ)」を使って見よう

目安時間:約 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開発依頼受付はこちらから

 

プロフィール

50歳、派遣社員。いつもいつも派遣切りにビクビクしながら生きています。50歳という大台を迎えると派遣先がほとんどなく、次の派遣先は無いに等しい。でも、家庭を支えなければならない。だから私は、複数の仕事が出来るように在宅ワークが出来るプログラミング、ブログを選択。50歳からフリーランスを目指してプログラミング、ブログを始めました。

私と一緒に始めませんか?

お問い合わせ
プログラミング依頼

 

最近の投稿
アーカイブ

ページの先頭へ