質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%

Q&A

解決済

2回答

12670閲覧

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

takinokane

総合スコア5

0グッド

1クリップ

投稿2020/03/20 10:05

前提・実現したいこと

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

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

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

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

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

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

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

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Matsui_hero

2020/03/20 11:05

マクロを使えばできそうですが、単純な関数ベースのものではできないように思います。 あと、そもそも論で余計なお世話かもですが、日付も入力じゃダメなんですか? 距離と訪問先を入力するのに、3~4回しか文字を打たないでいい日付をわざわざプルダウンにしてもあまり利便性がないと思いました。 たしかに簡単に実装できるのであれば導入するのはいいと思いますが、マクロを書く労力に見合うのかなと思った次第です。
takinokane

2020/03/21 02:40

Matsui_hero様 ご返信ありがとうございます。 >距離と訪問先を入力するのに、3~4回しか文字を打たないでいい日付をわざわざプルダウンにしてもあま>り利便性がないと思いました。  →iphoneのアプリexcelで作業する際、入力よりプルダウンの方が使い勝手がいいと感じているため、問い合わせしました。   車輌は月平均15回使用、乗り降り時に入力するため2回、計15x2=30回入力するため、手入力が面倒だと実際、感じています。 >たしかに簡単に実装できるのであれば導入するのはいいと思いますが、マクロを書く労力に見合うのかなと>思った次第です。  →ご指摘通りです。マクロは使ったことが無いため、どのように実装するかのとっかかりが欲しかったため、問い合わせしました。
Matsui_hero

2020/03/21 06:57

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

回答2

0

VBA

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

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

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

投稿2020/03/21 07:04

Matsui_hero

総合スコア346

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

takinokane

2020/03/21 07:46

返信ありがとうございます。 あわせてマクロのご提示までしていただきありがとうございます。 その上、PC及びiphoneでの動作確認までしていただけるなんて感動しています。 自分環境でも試してみます、またコメントいたします。
guest

0

ベストアンサー

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

excel

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

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

excel

1'A2の例 2=A1+1

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

excel

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

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

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

excel

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

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

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

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

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

投稿2020/03/20 12:55

編集2020/03/21 00:37
yureighost

総合スコア2183

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

takinokane

2020/03/21 06:42

yureigohst様 迅速かつ分かりやすい回答ありがとうございます。 (1)を試したところ、思い通りの動きとなりました。使わせていだきます。 (2)について、まずは仕様を自分なりに考えてみます。 この度はありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問