夏休みの自由研究　VBAで作った九九の練習盤

短時間でできて、簡単だけど役に立つ九九の練習盤

　自由研究が活発になる季節なので、やってみました。プログラミングを習ったばかりの小学校高学年から、中学生くらいで組むことができて、工夫次第で様々なバリエーションができそうで、しかも役に立つものをと考えました。まずはYouTubeで紹介しますね。

１ 読み取ってかけ算を実行するコード（標準モジュールに記述）

Sub kakezan()
For i = 3 To 11
 For j = 3 To 11
 
  a = Cells(i, 2)
  b = Cells(2, j)
  c = Cells(i, j)
   If a * b = c And c <> "" Then
     Cells(i, j).Interior.ColorIndex = 22
   Else
    Cells(i, j).Interior.ColorIndex = xlNone
   End If
  Next j
Next i


End Sub

2　１のコードを呼び出すコード（Sheet1に記述）

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C3:k11")) Is Nothing Then
    kakezan
End If

End Sub

3　古いデータをクリアーするコード（標準モジュールに記述）

Sub syokika()
 Range("C3:K11") = xlclear
End Sub

４ ３のコードを呼び出すコード（Sheet1に記述）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B1")) Is Nothing Then syokika
End Sub

どれも短くて簡単なスクリプトです。動画でたし算の例を出しましたが、引き算や割り算もちょっといじるとできます。コードはここからコピペができます。EXCELをお持ちならぜひいじってみてください。