- ベストアンサー
VBAコードで特定のセルのフォント文字に塗りつぶし色を反映する方法
- VBAコードを使用して、特定の条件下でセルのフォント文字に塗りつぶし色を反映させる方法について説明します。
- さらに、一部の条件によってエラーが発生する可能性や、特定のセルに任意の数字を入力すると他のセルに自動的にその数字が反映される方法についても解説します。
- これらのVBAコードを使用することで、セルの塗りつぶし色とフォント文字を連動させることができ、データの整合性を保つことができます。
- Excel（エクセル）
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
> (1)D列～U列の３８行目以降のセルを選択すると「FontクラスのColor Indexプロパティを設定出来ません。」 Range("B" & Target.Row)がNULLでなければColor Indexプロパティを設定するようにしてはいかがでしょう。 > (2)E５～E38のセルのどこでも良いので数字を入力したら、E5～E38が同じ数字に自動変換する If Not Application.Intersect(Target, Range("E5:E38")) Is Nothing Then Application.EnableEvents = False Range("E5:E38").Value = Target.Value Application.EnableEvents = True End If 上記のような感じでいかがでしょう。
その他の回答 (2)
- kkkkkm
- ベストアンサー率66% (1719/2589)
> 1)例えばB５に文字が何も記入されていない場合、C5～X5に記載されている文字を消し印刷時には空白表示となる様にし、B5に再び文字を記入するとC5～X5に記載した文字を再び記載する方法と言うのも出来るのでしょうか？ C5～X5セルに =IF($B$5="","","記載されている文字") と入力してください。
お礼
この度はありがとうございました、ヒントになり助かりました！！
- kkkkkm
- ベストアンサー率66% (1719/2589)
No1補足です 蛇足だとは思いますが Private Sub Worksheet_Change(ByVal Target As Range) でのコードです。
お礼
この度はありがとうございました、ヒントになり助かりました！！
補足
ありがとうございます、助かりました。 もう一つ質問があるのですが、 (1)例えばB５に文字が何も記入されていない場合、C5～X5に記載されている文字を消し印刷時には空白表示となる様にし、B5に再び文字を記入するとC5～X5に記載した文字を再び記載する方法と言うのも出来るのでしょうか？ (2)同じようにB6～B39の各行も(1)の５行目の様に実行する事は出来るのでしょうか？
お礼
この度はありがとうございました、ヒントになり助かりました！！
補足
ありがとうございます、助かりました。 もう一つ質問があるのですが、 (1)例えばB５に文字が何も記入されていない場合、C5～X5に記載されている文字を消し印刷時には空白表示となる様にし、B5に再び文字を記入するとC5～X5に記載した文字を再び記載する方法と言うのも出来るのでしょうか？ (2)同じようにB6～B39の各行も(1)の５行目の様に実行する事は出来るのでしょうか？