[[20120510095530]]　『日付の入力方法・条件付き書式文字色を白に』（ももたろう）　ページの最後に飛ぶ

『日付の入力方法・条件付き書式文字色を白に』（ももたろう）

     A
 1  4/1
 2  4/1  =A1
 3  4/3  =A2 → 4/3 と入力
 4  4/5  =A3 → 4/5 と入力
 5  4/5  =A4
 6  4/5  =A5

 この様な表を作っていますが、日にちが上のセルと同じ場合、
 文字色を白にしたいのですが、どの様に条件付き書式を
 設定したら良いでしょうか？

 ついでに、A列に「4/3」と入力せずに、「3」っと入力して
 4/3と表示できる方法はありますか？

 教えて下さい、宜しくお願いします。

 4/3とは４月３日のことでしょうが、５月、６月、・・はどうしますか。

 説明不足ですみません。
 4月3日のことです。
 5月、6月も続きます。
 出来れば、今入力している分は4月(4/○）っとなるような設定が
 あると良いのですが･･･
 （ももたろう）

 ＞出来れば、今入力している分は4月(4/○）っとなるような設定が
 ＞あると良いのですが･･･
 この辺りの所を、もう少しそちらで詳細に考えてみられてはどうでしょう？
 例えば
 　A1セルに　年 　B1セルに　月　を入力する事にして
 　A2セル以降は、その年月の日付が自動的に入る様にする。
 　月が変わった場合、事前にB1セルの値を変更してから入力をする。
 と言ったルールです。

 こんな単純な事でも良さそうですが、
 A1,B1セルの値を変え忘れていた時に問題になりそうですし
 イレギュラーな事をしたい時にも面倒な事に成りそうに思います。

 単純に、年月日を入れる列を分けるのでは駄目でしょうか？

 条件付書式の設定に関しては、エクセルのバージョンを明記しておかれると良いと思います。
 基本的にはA2セルをアクティブにして
 　数式が　=A2=A1　文字色白
 に設定して他のセルへ書式コピーしてみて下さい。

 (HANA)

 HANAさん、有難うございます。

 条件付き書式はできました。

 1日から毎日1行というわけでもなく、
 ない日もあったり、数行になる場合もあるので、
 前の日付をいれる数式を"4/3"等と日付を入力し直さなくては
 ならないので、"3"だけの入力にならないかな～っと思いました。

 日付の入力ですが、曜日表示もさせていますので、
 列を分けて入力すると、曜日表示できなくなってしまいませんか？

 （ももたろう）

 ＞列を分けて入力すると、曜日表示できなくなってしまいませんか？
 最終的にシリアル値で表示させる列を作り、その列を現在入力している列として使用するか
 もう一つ列を作り曜日だけ表示させるか。。。。

 例えば
 =DATE(A1,B1,C1)
 で、シリアル値に出来ますので。

 ＞"3"だけの入力にならないかな～っと思いました。
 そのお気持ちは良く分かります。
 実現するには、マクロに成ると思いますが　そうすると
 色々な事を一つずつ決めて行かないといけません。

 色々決め事を作ると、ルールに沿った入力しか出来なく成りますし
 決め事を少なくすると、期待する結果が得られない状況に成ったりします。

 簡易的には作ってみましたが。。。
 ルールの決め方にも寄るとは思いますが
 思った程便利でも無いと思います。

 シートモジュールに書いて下さい。
 '------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyAra As Range, MyRng As Range
Set MyAra = Application.Intersect(Target, Range("A:A"))
If Not MyAra Is Nothing Then
    Application.EnableEvents = False
        For Each MyRng In MyAra
            With MyRng
                If .Value2 < 60 And .Row > 1 Then
                    If IsDate(.Offset(-1).Value) And .Offset(-1).Value > 1 Then
                        .Value = DateSerial(Year(.Offset(-1).Value), Month(.Offset(-1).Value), .Value2)
                    End If
                End If
            End With
        Next
    Application.EnableEvents = True
    Set MyAra = Nothing
End If
End Sub
 '------

 A1セルに日付（例えば 5/1）を入れた後
 A2セルに「3」等打ち込んでみて下さい。

 一つ上のセルの年月を引き継ぎます。
 他の月を入れたい場合は 6/1 の様に入力して下さい。
 この様に入力した場合、これまでと同様　入力年の6/1の日付に成ります。

 一応、59日までは表示される様にしています。
 例えば 5月は31日まで有りますので「32」と入力すると 6/1 の日付が表示されます。

 (HANA)

 HANAさん、有難うございます。

 マクロは難しそうなので、
 『=DATE(A1,B1,C1)』でやります。

 色々有難うございました。助かりました。

 （ももたろう）

コメント返信：

[ 一覧(最新更新順) ]

[[20120510095530]] 『日付の入力方法・条件付き書式 文字色を白に』（ももたろう） ページの最後に飛ぶ

[[20120510095530]]　『日付の入力方法・条件付き書式文字色を白に』（ももたろう）　ページの最後に飛ぶ