Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3361 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3361 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free