Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23535 / 76732

←次へ　｜　前へ→


	【58563】マクロにおいて文字に色をつける方法など

タケ - 08/10/30(木) 10:43 -


	引用なし

	パスワード

はじめまして。
セルに色をつける方法は見かけましたが、文字に色をつける方法は見つけ切れませんでした。

以下、フラッシュ暗算のプログラムです。
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("速さは？　超速＝１　高速＝２　中速＝３　低速＝４　終了＝５", "速度の数値を入力")
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

0 hits

▼

【58563】マクロにおいて文字に色をつける方法など タケ 08/10/30(木) 10:43

≪