[[20181011125059]]　『ユーザーフォーム　テキストボックス値　セルに反』（ゆうか）　ページの最後に飛ぶ

『ユーザーフォーム　テキストボックス値　セルに反映』（ゆうか）

お世話になります

ユーザーフォームにTextBox2 TextBox3を作りまして

 TextBox2に日付けを入力　(yyyy/m/d)できるようにしました

そのとき　下記のように曜日が入力されるようにしました
Private Sub TextBox2_Change()
TextBox3.Value = Format(TextBox3.Value, "aaa")
End Sub

シートに転記する際土日の場合赤文字にしたいのですが
どの様に行えばいいのでしょうか？

お手数と思いますが
ご教示いただけたらと思います

何卒よろしくお願いいたします

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

転記する部分のコードも見せてください。

考え方だけ書いておきますと、対象セルのFont.Colorプロパティに色を指定すれば、セルの文字すべてが着色されます。 1文字単位で色を付けると少し面倒になりますが、曜日だけの文字のようですから、セルの文字すべてで構わないでしょう。例えば、Range("A1").Font.Color=Rgb(255,0,0) のようにしてみてください。
（???） 2018/10/11(木) 13:30

???様
ありがとうございます
質問を変えます
転記する日付けの土日判定はどのようにすれば
できるのでしょうか？
よろしくお願いいたします
（ゆうか） 2018/10/11(木) 14:34

テキストボックスの文字は"土"か"日"か？、と書くだけですよ。

    ActiveCell.Value = TextBox3.Text
    If TextBox3.Text = "土" Or TextBox3.Text = "日" Then
        ActiveCell.Font.Color = RGB(255, 0, 0)
    Else
        ActiveCell.Font.ColorIndex = xlAutomatic
    End If

ところで、TextBox3.Value = Format(TextBox3.Value, "aaa") だと、年月日を入力すると曜日に書き換わってしまうので、Format(TextBox2.Value, "aaa") の間違いだったりしませんかね？

（???） 2018/10/11(木) 16:16

コメント返信：

[ 一覧(最新更新順) ]

[[20181011125059]] 『ユーザーフォーム テキストボックス値 セルに反』（ゆうか） ページの最後に飛ぶ

[[20181011125059]]　『ユーザーフォーム　テキストボックス値　セルに反』（ゆうか）　ページの最後に飛ぶ