ExcelとACCESSの連携 発達障害、算数を理解していない幼児と九九の練習 その2
目次
段の練習
こんにちは。伊川(@naonaoke)です。
今回が、段の練習のシートを作成したいと思います。
問題提起
発達障害、算数を理解していない幼児に、九九を教える。
段の練習をクリアせよ。
その前に前回の足りないところを修正
サンプルファイルとして、公開していたファイルには、バグがありました。
上の図の部分を追加しています。
当時はどうしていいのかわからず、そのまま公開していました。
Select Caseを利用してコードを記載しました。
Select Caseに関しては、上の記事を確認してください。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
Sub たす() Range("M8") = "" Range("A27") = "" Range("G8") = Range("G8") + 1 Select Case Range("G8") Case Is = 1 Range("G19") = "いん" Case Is = 2 Range("G19") = "に" Case Is = 3 Range("G19") = "さん" Case Is = 4 Range("G19") = "し" Case Is = 5 Range("G19") = "ご" Case Is = 6 Range("G19") = "ろく" Case Is = 7 Range("G19") = "しち" Case Is = 8 Range("G19") = "はち" Case Is = 9 Range("G19") = "く" End Select |
もんだいに記載しているコード
もんだいに記載しているコード 作成手順その1 考え方
正解したときは上の図のようになります。
もんだいに記載しているコード 作成手順その2 実際のコード
②の消すに関しては、下記のコードになります。
④の1増えるコードは、下記のコードになります。
③の読み方が変わるのは、下記のコードになります。
コードを記載する
こたえあわせに記載しているコード
こたえ合わせに記載しているコード 作成手順その1 考え方
こたえあわせに記載しているコード 作成手順その2 実際のコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
Sub 段答() Range("P1") = Date If Range("M8") = Range("A8") * Range("G8") Then Range("A27") = "やったね！！ せいか～い" Else Range("A27") = "ざんねーん （T T)" End If Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim conStr As String conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\九九.accdb" con.Open ConnectionString:=conStr rs.Open Source:="MT_計算", ActiveConnection:=con, _ CursorType:=adOpenKeyset, LockType:=adLockOptimistic With rs .AddNew .Fields("段").Value = Range("A8") .Fields("数値").Value = Range("G8") .Fields("解答").Value = Range("M8") .Fields("日時").Value = Range("P1") .Update rs.Close con.Close End With MsgBox "つぎもがんばろう" If Range("G8") = 9 Then Range("A27") = "お し ま い " MsgBox "おしまい" Range("M8") = "" Range("G8") = "" Worksheets("表紙").Activate End If End Sub |
※ACCESSの転送コードは無視してください
ここがポイント
ここがポイント
条件分岐は、カンタンに使いこなすことができます。頭の中に、複雑なフローチャートを作成しなくてもいいです。当たり前のことを記載しましょう。
まとめ
今回は、条件分岐とMsgBoxを使って段の練習を作成しました。
次回は、ランダムで数字が代入される形式のシートを作成します。
