VBA

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歳になった途端、次の就職先が中々見つからず、生活のため嫌な仕事でも断らず進んで行っていました。それと同時に副業も始めました。今では副業で稼ぐことができるようになったので、嫌な仕事は断ることができ、仕事がなくなっても贅沢はできませんが生活はできます。このブログは、副業を行うために学習した情報を公開しております。子供が私立の中学校に行っているので学費もかかるので持っと稼がなければ・・・ この情報が少しでもあなたにお役に立てばと思います。 お問い合わせ

コメントフォーム

名前  (必須)

メールアドレス (公開されません) (必須)

URL (空白でもOKです)

コメント

CAPTCHA


トラックバックURL: