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("速さは? 超速=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

0 hits

【58563】マクロにおいて文字に色をつける方法など タケ 08/10/30(木) 10:43 質問
【58566】Re:マクロにおいて文字に色をつける方法など りん 08/10/30(木) 11:30 回答
【58571】お礼+質問の言い換え タケ 08/10/30(木) 13:04 質問
【58572】Re:お礼+質問の言い換え りん 08/10/30(木) 13:13 発言
【58579】お礼 タケ 08/10/30(木) 14:44 お礼

23535 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free