Excel VBA質問箱 IV

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

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


4069 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【58566】Re:マクロにおいて文字に色をつける方法...
回答  りん E-MAIL  - 08/10/30(木) 11:30 -

引用なし
パスワード
   タケ さん、こんにちわ。

>セルに色をつける方法は見かけましたが、文字に色をつける方法は見つけ切れませんでした。
この部分だけ。

A1セルに入っている文字を
「フォントサイズ18」「赤字」「太字」

にする場合はこんな感じです。
Sub Macro2()
  With Range("A1").Font
    .Size = 18
    .ColorIndex = 3
    .FontStyle = "太字"
  End With
End Sub

【58571】お礼+質問の言い換え
質問  タケ  - 08/10/30(木) 13:04 -

引用なし
パスワード
   りん さんアドバイスありがとうございます。

まだ上手くいかないので、表現を変えます。

10行目のInputBox の中の「終了」という文字だけを「赤」など目立つように変更したいです。(マクロを実行すると出てくる入力画面に書いてある、入力を指示するの文字を操作したいです)

よろしくお願いします。

【58572】Re:お礼+質問の言い換え
発言  りん E-MAIL  - 08/10/30(木) 13:13 -

引用なし
パスワード
   タケ さん、こんにちわ。

>10行目のInputBox の中の「終了」という文字だけを「赤」など目立つように変更したいです。
これは無理だと思いますけど。
UserFormで対応してみてはいかがですか?

【58579】お礼
お礼  タケ  - 08/10/30(木) 14:44 -

引用なし
パスワード
   >これは無理だと思いますけど。
>UserFormで対応してみてはいかがですか?

一筋縄ではいかないようですね。
まだ勉強不足で、これ以上は時間がかかりそうなので、変更はあきらめて現状のまま使おうと思います。

りんさん、ご返答くださいましてありがとうございました。

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