エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1239 for カレンダー (0.001 sec.)

[[20030702154939]]: #score: 6129; @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), カレ (2711), 載。 (2357), ル画 (2173), トロ (1950), 日17 (1878), 。◆ (1818), ムラ (1721), レン (1687), ンダ (1487), 試作 (1454), ーフ (1435), タク (1386), ダー (1378), 年9 (1106), 年7 (1043), ロー (904), コン (902), 自作 (828), ォー (763), ール (719), ユー (719), ーザ (701); 『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分頃投稿 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200307/20030702154939.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ