[[20181203092914]]　『出納帳』（70の爺さん）　ページの最後に飛ぶ

『出納帳』（70の爺さん）

　出納帳を作っています。
A1に年（2018）　A2に月（12月）としています。
A3から下に日付が入るのですが、今日12月3日ですと12/3と打ち込みます。
3だけ打ち込めば、3(月）となるようにしたいのですが、どうすればいいですか。
何分にも超初心者ですのでわかりやすい説明をお願いします。

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

 表示だけでよろしいのでしたら。（日付を表す数値にはならないです）
3を入力したセルにカーソルをあわせ右クリックすれば
メニューが表示されますので
下から５つめくらいに
セルの書式設定がありますので、左クリック
一番下のユーザー定義をクリックして上の入力欄に（G/標準と表示されています。けどそれを消して
多分かってに消えるかと）
#("月")
と入力してＯＫをおせば
出来ると思います。

（隠居じーさん） 2018/12/03(月) 10:08

年月日が1つにまとまっているなら、セルの書式で曜日を付加するのは簡単であり、よく使われる方法です。年月日を3つのセルに分けてしまうと、それぞれただの数値でしかなく、日ではないので、曜日にできません。4つ目のセルに曜日、というならば可能ですから、3つ目はそのままにして、4つ目を追加しませんか？（=DATE(A1,A2,A3)とするだけ）

または、マクロで以下のように、数字なら他の2つとくっつけて年月日を作成することで、曜日付加が可能になりますが、超初心者を名乗るくらいなら止めた方が良いかもですね。（インターフェース的にも普通じゃないと思いますし）

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Range
    Dim R1 As Range
    Dim iw As Long

    Set R = Intersect(Target, Range("3:3"))
    If R Is Nothing Then Exit Sub

    Application.EnableEvents = False
    For Each R1 In R
        iw = Val(R1.Value)
        If 0 < iw Then
            R1.Value = Format(DateSerial(R1.Offset(-2, 0), R1.Offset(-1, 0), iw), "d(aaa)")
        End If
    Next R1
    Application.EnableEvents = True
 End Sub
（???） 2018/12/03(月) 10:11

 A3に「3」と入力すれば、隣のB3に「月」と表示でもよければ

 B3セルに
 =IF(A3="","",TEXT(DATE($A$1,$A$2,A3),"aaa"))

 または
 =IF(A3="","",DATE($A$1,$A$2,A3))　　表示形式～ユーザー定義　aaa

 B3を下に必要分オートフィル

 参考まで
（笑） 2018/12/03(月) 10:24

（笑）さんありがとうございます。

（???）さん　")超初心者を名乗るくらいなら止めた方が良いかもですね。”どういうことですか？
質問をやめろということなのか、それともエクセルを使うのをやめろということなのかどっちですか？
年寄りがエクセルを使うのが気に入らんのかね？
ここは、年齢制限があるのか？　　分らんから尋ねてるんやないか。　
（70の爺さん） 2018/12/03(月) 10:35

私の書いたマクロでの実現を止めろ、という事です。数式案の方が簡単だからそちらを薦めたまでですよ。よく読んでください。
（???） 2018/12/03(月) 10:43

年齢気にして勘違いした上で怒るくらいなら次回からニックネームを変えたらいい
こういう質問掲示板では質問内容を伝えられるか、相手の言ってる事が理解できるかが全てであって
年齢情報は別に必要ない
（無） 2018/12/03(月) 11:48

マクロは超初心者には難しいから、数式の案のほうがおすすめ、という意味でしょう。
流し読みでも理解できました。
親切に回答してくれているのですからよく読んだほうがいいと思います。
被害意識がひどくては日常業務でも周囲とまるくやれないです。
（なし） 2018/12/04(火) 11:08

コメント返信：

[ 一覧(最新更新順) ]

[[20181203092914]] 『出納帳』（70の爺さん） ページの最後に飛ぶ

[[20181203092914]]　『出納帳』（70の爺さん）　ページの最後に飛ぶ