Excel VBA質問箱 IV

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

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


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

【62689】文字色を変える kazumi 09/8/24(月) 15:46 質問[未読]
【62690】Re:文字色を変える Jaka 09/8/24(月) 16:55 発言[未読]
【62728】Re:文字色を変える kazumi 09/8/26(水) 11:58 お礼[未読]
【62729】Re:文字色を変える もも 09/8/26(水) 13:34 発言[未読]
【62735】Re:文字色を変える kazumi 09/8/26(水) 16:45 お礼[未読]
【62733】Re:文字色を変える yoshi 09/8/26(水) 14:21 回答[未読]
【62734】Re:文字色を変える もも 09/8/26(水) 15:32 発言[未読]

【62689】文字色を変える
質問  kazumi  - 09/8/24(月) 15:46 -

引用なし
パスワード
   トグルボタンを使って文字色をオンの時は赤、オフの時は黒、に変えるという
設定を教えてください!入力時のみ変更で、入力済みの文字は変更にならないようにしたいのですが・・・・・
お願いします!

【62690】Re:文字色を変える
発言  Jaka  - 09/8/24(月) 16:55 -

引用なし
パスワード
   この質問の仕方じゃ、返信が難しいと思います。
はっきり言って何をどうしたいのかがよく解らないって感じでしょうか。
家の色をオンの時は赤、オフの時は黒、に変えるといわれているようで、
いつ、どこにある家のどこの部分とか他が記載されてない。

勝手に解釈して、ユーザーフォーム上のトグルボタンを押す事で、
ユーザーフォーム上のテキストボックスの文字の色をかえる。

If TextBox1.Value <> "" Then
  If ToggleButton1.Value Then
   TextBox1.ForeColor = &HFF&    '赤
  Else
   TextBox1.ForeColor = &H80000008 '黒
  End If
End If

【62728】Re:文字色を変える
お礼  kazumi  - 09/8/26(水) 11:58 -

引用なし
パスワード
   回答有難うございます。
そうですね・・・質問の説明が悪くて・・・すみません!
経理をやってる者で、ある表を作成しておりますが、
現金入金の時は黒字で金額を入力、手形入金の時は赤字で金額を入力
したかったのです・・・ なのでセルに数字を入力する時です。
文字色を変えるのは手間じゃないですが・・・
VBAを勉強しようと思いまして、トグルボタンを使って試しましたが
うまくできませんでしたので・・・
有難うごさいました。


▼Jaka さん:
>この質問の仕方じゃ、返信が難しいと思います。
>はっきり言って何をどうしたいのかがよく解らないって感じでしょうか。
>家の色をオンの時は赤、オフの時は黒、に変えるといわれているようで、
>いつ、どこにある家のどこの部分とか他が記載されてない。
>
>勝手に解釈して、ユーザーフォーム上のトグルボタンを押す事で、
>ユーザーフォーム上のテキストボックスの文字の色をかえる。
>
>If TextBox1.Value <> "" Then
>  If ToggleButton1.Value Then
>   TextBox1.ForeColor = &HFF&    '赤
>  Else
>   TextBox1.ForeColor = &H80000008 '黒
>  End If
>End If

【62729】Re:文字色を変える
発言  もも  - 09/8/26(水) 13:34 -

引用なし
パスワード
   ▼kazumi さん:
こんにちは。
Jakaさんお邪魔します。

こんな感じでしょうか?

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Target
 If Me.ToggleButton1.Value = True Then
  c.Font.ColorIndex = 3
 Else
  c.Font.ColorIndex = xlColorIndexAutomatic
 End If
Next c
End Sub

【62733】Re:文字色を変える
回答  yoshi  - 09/8/26(水) 14:21 -

引用なし
パスワード
   ▼kazumi さん:
>トグルボタンを使って文字色をオンの時は赤、オフの時は黒、に変えるという
>設定を教えてください!入力時のみ変更で、入力済みの文字は変更にならないようにしたいのですが・・・・・

対象のシートモジュールに以下でどうでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
 Target.Font.Color = IIf(ToggleButton1, vbRed, vbBlack)
 'If ToggleButton1 Then Target.Font.Color = vbRed '黒を設定しない場合
End Sub

ももさんの、
For Each c In Target
は無くてもいいのかな?と思うのですが...(入力時のみ変更 ということなので)

【62734】Re:文字色を変える
発言  もも  - 09/8/26(水) 15:32 -

引用なし
パスワード
   ▼yoshi さん:
>▼kazumi さん:
>ももさんの、
>For Each c In Target
>は無くてもいいのかな?と思うのですが...(入力時のみ変更 ということなので)

こんにちは^^

単純に、Ctrl+Enterで複数セル入力時の考慮をしてみただけですので
必要なければ無くしても^^

【62735】Re:文字色を変える
お礼  kazumi  - 09/8/26(水) 16:45 -

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


▼もも さん:
>▼kazumi さん:
>こんにちは。
>Jakaさんお邪魔します。
>
>こんな感じでしょうか?
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>For Each c In Target
> If Me.ToggleButton1.Value = True Then
>  c.Font.ColorIndex = 3
> Else
>  c.Font.ColorIndex = xlColorIndexAutomatic
> End If
>Next c
>End Sub

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