文字色の変更
読み取りに時間ががかかってしまいお礼が遅くなりました。オブジェクト関数はうまくできなかったのでないもので自分のものと合わせ目的の試用にすることができました本当にありがとうございました。わかりやすく回答いただいたので一つ一つ読み解くことができました。
View Article文字色の変更
当初のご質問に提示されたコードの意図がぼんやり分かってきたので(ダブルクリックイベントで起動されるサブプロシージャとそのサブプロシージャから呼び出されて実行するサブプロシージャの2つのサブプロシージャで構成したい、RGB関数で文字の色を指定したい、という事?)、ご提示されたコードを基に見え消しで(見え消しで表示できないみたいなので、消すのはコメント行化して)お示しします。こんな感じでしょうか？Opt...
View Article文字色の変更
直前のご返事でお示ししたコードを、オブジェクト変数を使わないで初心者向けにわかりやすいコードにすると、次のようになります。Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim i As Long '---セルの行番号 Dim j As Integer...
View Article文字色の変更
期間内の日付のセルを探すのではなくて、カレンダーのセル範囲のセルの日付を片っ端から期間と比較して、期間内なら所定の文字色に変えるというやり方もあるかと思います。次のコードの様なやり方です。Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim R As...
View Article文字色の変更
こんな感じでしょうか。「カレンダーの日にちをダブルクリックするとL1に反映されて赤色に背景が変わる（条件付き書式）」とありますが、それは別途手当されているものとして、2行目以降についてコードを作ってみました。「わかりやすくここにこれを入れる、ここをこのように変えるという感じで教えて」とのことですが、ご提示された元のコードが殆ど無意味なものなので、大変残念で申し訳ないと思いますが、そういう風に教えて差...
View Article文字色の変更
カレンダーの日にちをダブルクリックするとL1に反映されて赤色に背景が変わる（条件付き書式）それに伴いN1には42日前（＝L1-41）、N2には（P1-1）、P1には35日前（＝L1-34）、P2には（L1-1）としてあります。カレンダーのN1とN2の期間の文字色を黄色に、P1とP2の期間の文字色を緑色に変更したいのですがうまくいきません。条件付き書式を使用せず行いたいのですが。あまり詳しい知識があり...
View Article
