EXCELのプルダウンで日付選択したい

Question

前提・実現したいこと

EXCELのプルダウンリストを利用して日付を選択しています。
現在、別セルに3/1〜3/31の31個のリストを準備して、
プルダウンで選択できるようにしています。

しかし、問題点が2つあります。
(1) 毎月の運転記録簿に使用しているので、月1回X/1〜X/31のリストを
メンテする必要がある。
(2) 日付を選択する際、デフォルトがX/1となっているため、入力する日が
月末に近づくほど、プルダウンの時間が増えてしまう。

(1)(2)を解消する方法があれば、ご教示いただきたいです。

補足情報（FW/ツールのバージョンなど）

Office365のsharepoint上で運転記録簿をexcelで運用しています。
iphone上のexcelアプリを使用して、「日付」「訪問先」「距離」を入力しています。

「距離」「訪問先」は入力をしていますが、
「日付」はドロップダウンリストを利用して
選択する運用としています。

「日付」のプルダウンした際、初期表示を本日の日付を表示させたいのですが、
方法を見つけられないため、皆様のお知恵を拝借したいです。

以上、よろしくお願いいたします。

Comments

[Matsui_hero]

マクロを使えばできそうですが、単純な関数ベースのものではできないように思います。

あと、そもそも論で余計なお世話かもですが、日付も入力じゃダメなんですか？
距離と訪問先を入力するのに、３～４回しか文字を打たないでいい日付をわざわざプルダウンにしてもあまり利便性がないと思いました。

たしかに簡単に実装できるのであれば導入するのはいいと思いますが、マクロを書く労力に見合うのかなと思った次第です。

[takinokane]

Matsui_hero様
ご返信ありがとうございます。
>距離と訪問先を入力するのに、３～４回しか文字を打たないでいい日付をわざわざプルダウンにしてもあま>り利便性がないと思いました。
　→iphoneのアプリexcelで作業する際、入力よりプルダウンの方が使い勝手がいいと感じているため、問い合わせしました。
　　車輌は月平均15回使用、乗り降り時に入力するため2回、計15x2=30回入力するため、手入力が面倒だと実際、感じています。

>たしかに簡単に実装できるのであれば導入するのはいいと思いますが、マクロを書く労力に見合うのかなと>思った次第です。
　→ご指摘通りです。マクロは使ったことが無いため、どのように実装するかのとっかかりが欲しかったため、問い合わせしました。

[Matsui_hero]

なるほど。余計なコメントでしたね。申し訳ありません。
すばらしい回答をされている方がいるので、私は（２）についてマクロを提示させていただきます。

Answer 1

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    
    '   セルが日付を入力する範囲ではない場合、無視する。
    If IsEmpty(Target.Value) And Target.Column = 1 Then   '   A列の場合、セルに日付を入力する
        Target.Value = Date     '   セルに日付を入力する
    End If
    
End Sub

これで、A列（日付）のセルをクリックしたときにセルがセルが空白ならば、その日の日付を入力できます。
仕様とあっているかどうかはわかりませんが、初期表示に使えるかと思いますので、ご参考までに。

※PCで上記のVBAを実装してみたら、初期表示できましたが、iPhoneのExcelアプリでは動きませんでした。マクロ動かないのでしょうか。それとも、iPhoneのExcelだと「クリック」という動作ではないのか。そこらへんまではわかりません。

Comments

[takinokane]

返信ありがとうございます。

あわせてマクロのご提示までしていただきありがとうございます。

その上、PC及びiphoneでの動作確認までしていただけるなんて感動しています。

自分環境でも試してみます、またコメントいたします。

Answer 2

(1)で月毎に自動更新するセルリストを作ることは可能です。
例としてSheet2シートのA列の1行目から月のリストを作るとします。
まずSheet2シートのA1セルに

=DATE(YEAR(TODAY()), MONTH(TODAY()), 1)

の関数を入れます。
これはシステム日付の年月の一日目を取得します。
そしてA2～A28までは

'A2の例
=A1+1

のようにして上のセルの日付に1日ずつ加算させていきます。
A29～A31のセルには

'A29の例
=IF(OR(A28="", A28=EOMONTH($A$1,0)),"",A28+1)

の関数を入れます。
これは引数に設定した年月の月末日を取得するEOMONTH関数で月末日を判定し、
上のセルの日付が月末日になっていれば、値に空白を入れるというものです。

そしてこの月リストを参照するドロップダウンの元の値に

=OFFSET(Sheet2!$A$1,,,COUNT(Sheet2!$A:$A))

と設定します。
COUNT関数で値が設定されているセルの数を数えて自動的に参照するセルの範囲を変えます。

この組み合わせでA1のTODAY関数の再計算が行われれば、
月末の長さを変化させる月リストを作成し、ドロップダウンリストの値を変えることが可能です。

そして(2)ですが、これは仕様にもよりますが結構難しいです。
ドロップダウンリストの初期選択場所が変わるのはセルの値とドロップダウンの値が一致した場合なので、
=TODAY()の数式をセルに入れればシステム日付を初期値にすることは可能ですが、
ドロップダウンで何か選べばその数式は上書きされてしまいます。

やるとなるとやはりVBA無しでは厳しそうです。
個人的に思い付いたのはドロップダウン初期化ボタンみたいなのを作って
それが押された時に値が未入力のドロップダウンのセルに
=TODAY()の数式を入れるとかですかね。
この辺りは作り手のセンスにかかってくると思うので色々考えてみてください。

Comments

[takinokane]

yureigohst様

迅速かつ分かりやすい回答ありがとうございます。

(1)を試したところ、思い通りの動きとなりました。使わせていだきます。

(2)について、まずは仕様を自分なりに考えてみます。

この度はありがとうございました。