Excel2003を使って、(既に用意されている)カレンダーから該当日を選択し、
対象のセルにその日付を反映(代入)させる方法について教えてください。
例えば、A1セルに「終了予定日」とあり、隣りのB1セルに日付を入力する際には、
まず(用意されている)カレンダーを表示させ、そこから該当日(2014.3.31)を選択後、
そのままその日付をB1セルに反映(代入)できるようにしたいのですが、
何かいい方法はありませんでしょうか?
他の質問箱も見て、挿入→オブジェクト→カレンダーコントロール11.0など、
色々試してみたのですが、うまくいきませんでした。
お分かりになる方がおられましたら、分かりやすいご説明よろしくお願いします。
No.4ベストアンサー
- 回答日時:
補足につきまして・・・
「B1選択時以外はカレンダー非表示」と
「日付入力後、B2セルを選択」の記述を追加しました。
コードを以下のものに入れ替えてみてください。。。
Private Sub Calendar1_Click()
Range("B1").Value = Calendar1.Value
Calendar1.Visible = False
Range("B2").Activate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
No.3
- 回答日時:
>(上記の“カレンダー”とは、カレンダーコントロール
>11.0で表示したものを指しているのでしょうか?)
その解釈で大丈夫です。。
2003でのプロパティシートの出し方は、以下のURLにありました。
http://juen-cs.dl.juen.ac.jp/html/office2003-200 …
「■コントロールツールボックス ツールバー|プロパティ」
の部分を参照下さいm(_ _)m
この回答への補足
もう一つ要望があります。
B1セルに日付が登録された後、カレンダーが
非表示となったら、カーソルをB2セルに移動させて
おきたいのですが、こちらの操作方法についても
ご教示願います。
色々とアドバイスいただき、ありがとうございます。
上記の手順で操作したところ、ほぼ希望通りの形に
なってきました。
あと一つ要望ですが、B1セルにカーソルを持っていき、
カレンダーが表示されるのはよいのですが、何も日付を
選択せずに、B1セルを離れた場合にもカレンダーが
非表示になるような設定にしたいのですが。
たびたびの質問ですみません。。。
No.2
- 回答日時:
スペースを取ってしまう件に関しては、確かに懸念しておりました^^;
以下ではデフォルトで非表示設定→B1を選択するとカレンダー表示→日付クリックで日付反映/再度非表示、という流れになっています。
このような感じで如何でしょうか。。
1)カレンダーのプロパティシートを表示する。
(2007の場合、カレンダーの上で右クリック→プロパティで表示できますが、2003が手元に無い為同様の操作で出来るかはちょっと未確認です)
2)「Visible」の項目が「True」になっていると思うので「False」にする。
(これでデフォルト非表示になります)
3)最初の回答同様に「コードの表示」を選択し、以下の7行を記述する。
Private Sub Calendar1_Click()
Range("B1").Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then Calendar1.Visible = True
End Sub
(Calendar1_Click内に選択後非表示にする記述を追加、またB1セルを選択した場合に表示させるイベントを新たに追加しています)
※最初の回答にある3行の記述が残っていたら削除して下さい。
またカレンダーの位置はデザインモードで表示させたい箇所に移動させておくと良いかと思います。。
たびたびのご回答、ありがとうございます。
上記1)項の部分をExcel2003でどのように
操作すればよいのかがどうしても分かりません。
(上記の“カレンダー”とは、カレンダーコントロール
11.0で表示したものを指しているのでしょうか?)
あと一歩なのですが。。。
他にも何か方法はありませんでしょうか?
No.1
- 回答日時:
そのままカレンダーコントロールを使用するのであれば、デザインモードの状態で(カレンダーを挿入した時点で既になっているかとは思いますが)、カレンダーの上で右クリック→コードの表示、で、出てきた入力エリアに
Private Sub Calendar1_Click()
Range("B1").Value = Calendar1.Value
End Sub
の三行を記述し、右上の×でエディタを終了→デザインモードを解除しカレンダー内の日付をクリックしてみて下さい。
早速のご回答ありがとうございました。
補足部分も含めて、追加質問させていただきますが、
上記のやり方だと始めからExcelのブック上にカレンダー
が表示されており、その分場所を取ってしまいます。
できれば、B1セルにカーソルを持って行った時だけ
カレンダーを表示し、日付選択後はカレンダーが非表示に
なるような形にしたいのですが、何かよい方法はあります
でしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
Excel2003入力規則でカレンダーを表示したい
その他(Microsoft Office)
-
エクセルのセルにカレンダーを表示させ、日付をセルに入力させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
午前am 午後pm 夕方や夜の略号は?
-
エクセルの付属テンプレートで...
-
スケジュールを切る とはどうい...
-
日曜日において「来週の水曜日...
-
★去年のスケジュール帳の使いみ...
-
スケジュール感って何?
-
ThunderbirdでToDoの使い方
-
その日が土曜日だった場合、明...
-
Googleカレンダーのマイカレン...
-
カレンダーに毎日×印つける習慣...
-
第何週の数え方
-
時間に余裕を持ちすぎる 19、女...
-
outlookの、カレンダーとエクセ...
-
ハンティングワールドの手帳カ...
-
年末に配られるカレンダー断れる?
-
彼女に口だけは嫌と言われても...
-
年末年始の銀行などの金融機関...
-
open officeでカレンダーを作り...
-
エクセルで日めくりカレンダー...
-
会社内、外でのスケジュール共...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
午前am 午後pm 夕方や夜の略号は?
-
日曜日において「来週の水曜日...
-
エクセルの付属テンプレートで...
-
スケジュールを切る とはどうい...
-
★去年のスケジュール帳の使いみ...
-
その日が土曜日だった場合、明...
-
Outlook予定表月表示で「今日」...
-
googleカレンダー メインカ...
-
先週・今週と言うよう週の切れ...
-
お祝い電報を仏滅に打電しても...
-
彼女に口だけは嫌と言われても...
-
基づいてと基づくの使い分け
-
ジョルテで入力しても内蔵カレ...
-
outlookの、カレンダーとエクセ...
-
カレンダーに毎日×印つける習慣...
-
スケジュール感って何?
-
open officeでカレンダーを作り...
-
Googleカレンダーのマイカレン...
-
なぜスケジュール帳は10月は...
-
Excelで条件によって特定のセル...
おすすめ情報