Results of 1 - 1 of about 1242 for カレンダー (0.001 sec.)
- [[20030702154939]]
- #score: 6118
- @digest: c24a32d810c776ee4207b476b8698abd
- @id: 2515
- @mdate: 2008-09-04T08:07:50Z
- @size: 1416
- @type: text/plain
- #keywords: calendar1 (9992), 時49 (7438), 分頃 (6803), 頃投 (5950), excelxp (5440), ら** (4213), ラタ (3931), ーコ (3563), 。'* (3500), で** (3394), カレ (2707), 載。 (2357), ル画 (2173), トロ (1949), 日17 (1878), 。◆ (1818), ムラ (1721), レン (1685), ンダ (1485), 試作 (1454), ーフ (1434), タク (1386), ダー (1376), 年9 (1106), 年7 (1043), ロー (904), コン (902), 自作 (828), ォー (762), ール (719), ユー (719), ーザ (700)
- 『VBA』(ムラタク)
カレンダーコントロールを使用して日付を入力する方法を伝授願います。(例)セルのA2からA10まで日付を入力する箇所があり、A2を押すとカレンダーコントロール画面が出てそこから日付を選択し簡単に入力できる方法。またはその他の機能で何かあればお願いします。ちなみにExcelXPです ---- これは2003年7月2日15時49分頃投稿された未解答の過去ログです。 カレンダーコントロールを使用してとのことですが、Accessがインストールされていない環境ですと不可能です。 カレンダーコントロール画面を呼び出すとのことですので、そのようなものをユーザーフォームで自作します。 以下の仕様で試作しました。 ◆A2:A10のいずれかひとつを選択したら、ユーザーフォームを表示。 ◆ユーザーフォームにはカレンダーコントロールのみを配置。 ◆カレンダーコントロールで日付を選択したら、ユーザーフォームは消す。 'ユーザーフォームのモジュールに以下を記載。 '************ここから************** Private Sub Calendar1_Click() ActiveCell.Value = Me.Calendar1.Value Unload Me End Sub Private Sub UserForm_Initialize() Me.Calendar1.Value = Date End Sub '************ここまで************** 'シートモジュールに以下を記載。 '************ここから************** Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub UserForm1.Show End Sub '************ここまで************** (ROUGE) 2008年9月4日17時7分頃投稿 ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200307/20030702154939.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97050 documents and 608243 words.
訪問者: