未分類 Excel VBA 学習解答（2026/8/9）
Sub macro()Dim i As IntegerDim maxScore As IntegerDim k As Integeri = 1maxScore = 0Do While Range("A" & i).Value <> "" I...
未分類 
Ecel VBA学習記録 Excel VBA 学習問題（2026/8/9）
問題：最高点と行番号を求めるA列に次の点数があります。A1 72A2 88A3 65A4 93A5 81A6 76A7 （空白）Do While を使って、空白セルが出るまで調べてください。結果は、B1：最高点B2：最高点が入っている行番号...
未分類 阿保かどうかを判定してもらいたくて、問題を作ってもらいました。
1．数列4, 7, 13, 25, 49, ？2．数列1, 2, 6, 24, 120, ？3．論理「すべてのAはBである。Bの中にはCでないものもある。」このとき、次のうち必ず正しいものはどれですか？A. すべてのAはCであるB. Aの中...
今日の暗算と結果 今日の暗算 解答（2026/8/7）
48＋37＝48＋2＋35＝50＋35＝85152－68＝152－70＋2＝82＋2＝8424×18＝24×（20－2）＝480－48＝432840÷24＝840÷（8×3）＝105÷3＝35998＋507＝1000＋507－2＝1507－...
今日の暗算 今日の暗算（2026/8/7）
暗算10問です。今回は少し工夫すると速く解ける問題も入れます。48＋37152－6824×18840÷24998＋50749×763600－297125×567200÷1596×125
未分類 Excel VBA 学習（2026/8/7）予習
Do While、最終行の取得「条件を満たしている間、同じ処理を繰り返す」処理i = 1Do While 条件 処理 i = i + 1LoopFor → 回数が決まっている繰り返しDo While → 条件を満たしている間の繰り返し
Ecel VBA学習記録 Excel VBA 学習正解（２０２６/８/７）
Sub TestResult() Dim score As Integer Dim over80 As Integer Dim i As Integer Dim total As Long Dim average As Double Dim...
Ecel VBA学習記録 Excel VBA 学習問題（2026/8/7）
VBA 総合問題Excelの A2:A21 に20人分のテストの点数が入っています。VBAで次の処理をするマクロ TestResult を作ってください。20人の点数の合計を B2 に表示する。平均点を B3 に表示する。80点以上の人数を...
今日の暗算 今日の暗算、追加問題（2026/8/2）
1. 98 × 47 2. 102 × 39 3. 995 + 487 4. 1001 − 4985. 625 × 16 6. 1250 ÷ 257. 48 × 125 8. 999 × 189. 250 × 36 10. 2400 ÷ ...
今日の暗算 今日の暗算練習（2026/8/2）
少し工夫が必要な問題にチャレンジしてみました。1.198+3072.1000-4983.１２５×324.75×165.49×186.101×577.999+4868.999×79.250×2810.3600÷125今日の計算結果＝全問正解、...