|
はじめまして。
セルに色をつける方法は見かけましたが、文字に色をつける方法は見つけ切れませんでした。
以下、フラッシュ暗算のプログラムです。
10行目の「終了」という表示を色を赤にしたり、また、できるなら大きくしたりしたいのですが…。
初歩的なことかもしれませんがよろしくお願いします。
Sub 暗算()
Dim 反復1, 反復2, 反復3
Dim SP1, SP2
Dim NUM
Dim X1, X2, X3
Range("B1", "B2") = ""
X1 = 0
X2 = 0
X3 = 0
SP1 = InputBox("速さは? 超速=1 高速=2 中速=3 低速=4 終了=5", "速度の数値を入力")
Range(終了).Interior.ColorIndex = 3
If SP1 = 5 Then Exit Sub
Range("B5") = SP1
NUM = InputBox("何個計算しますか...?", "計算回数を入力して下さい...!!")
SP2 = 1000 * SP1
MsgBox ("OKボタンでスタートします...。")
Range("B1") = "次の数字から足してください...!!"
For 反復1 = 1 To NUM
Range("B7") = 反復1
Randomize
X1 = Int(Rnd() * 10 + 1)
Range("B2") = ""
Range("B2") = X1
X2 = X2 + X1
For 反復2 = 0 To SP2 - 1
反復2 = 反復2 + 1
Range("B9") = 反復2
Next 反復2
For 反復2 = 0 To SP2 - 1
反復2 = 反復2 + 1
Range("B2") = ""
Next 反復2
Next 反復1
Range("B1") = "答えは...?"
X3 = InputBox("答えは...?", "数字を入力して下さい...!!")
Range("B2") = X3
If Abs(X2 - X3) < 0.1 Then
MsgBox ("正解です...!!")
終わり
Else
MsgBox "残念!あなたは" & Str(X3) & "と答えましたが、正解は" & Str(X2) & "...!!"
終わり
End If
End Sub
Sub 終わり()
Range("B1").Select
Range("B1") = "次の数字から足してください...!!"
Range("B2") = ""
Range("B5") = ""
Range("B7") = ""
Range("B9") = ""
暗算
End Sub
|
|