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

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

[[20070312164103]]: #score: 6129; @digest: fec50523db52e64ef29431a76808ddae; @id: 29393; @mdate: 2007-03-14T11:28:36Z; @size: 2845; @type: text/plain; #keywords: ーコ (5345), カレ (4067), userform (3626), 更日 (3615), 日完 (3139), トロ (2925), 日予 (2583), レン (2531), 。us (2492), ンダ (1983), ダー (1837), 日変 (1820), userform1 (1752), 方? (1721), ロー (1357), コン (1353), モジ (1328), ール (1279), ジュ (1269), 成日 (1247), ン等 (1179), トモ (1084), 了日 (1067), 配置 (938), workbook (779), バラ (760), ュー (755), ント (740), 定日 (658), target (650), ルク (617), rouge (606); 『カレンダーコントロールで』（うえきや）
いつも大変お世話になっております。 [[20051227195115]]でカレンターコントロールの作り方?は解ったのですがその後が解りません。 UserFormモジュールに????? シートモジュールに?????の状態です。あと、入力したいセルは、D,G,H,I列です。よろしくお願いします。 ---- 配置した場所によると思いますが。 UserFormならばUserFormモジュールに、シートならばシートモジュールに。 > あと、入力したいセルは、D,G,H,I列です。なにを入力したいのですか? どのようなイベントでどのようなものを入力? 列だけでなく行も指定しないとだめですよね? (ROUGE) ---- おはようございます。説明不足ですみません。 UserFormならばUserFormモジュール、シートならばシートモジュールに・・・・はどうやって出すんですか? 初歩的なことでごめんなさい D,G,H,I列に日付が入るので、そこにカレンダーコントロールが出てくれたら良いのですが（うえきや） ---- お返事遅くなりました。 カレンダーコントロールを配置して、何を期待されるのかが、いまいち明確でありません。 D、G、H、I列に日付が入ることは分かりましたが、どのようにしていれるのでしょうか。コマンドボタン等を配置して、押したら上から順番に入れていく。。。? すべての列同時に。。。? UserForm、シート云々以前に、何をどのようになさりたいのか、具体的にしないとできません。 (ROUGE) ---- おはようございますまだまだ、説明不足ですみません。台帳を作成してまして、D4でカレンダーコントロールが出てきて、ダブルクリックで日付が入力できる。G4,H4,I4,も同様に・・・・・すべて日付はバラバラです（着工日だったり、完了日など） (うえきや） ---- まず、今現在、どのように配置されているのか教えていただけますか? > D4でカレンダーコントロールが出てきて、ここが良く分かりません。 (ROUGE) ---- ROUGEさん、お手数をおかけします。 D G H F 1 作成日変更日予定日完了日 4 D4にセルをもっていくと、カレンダーコントロールが出てきて、ダブルクリックで日付が入力できる。 カレンダーコントロールの使い方、間違ってますかね? （うえきや） ---- すいません、また遅くなりました。 UserFormで準備していると理解しました。 UserFormにカレンダーコントロールを入れて下さい。ここではUserFormのオブジェクト名を「UserForm1」として進めていきます。 ThisWorkbookモジュールに下記のコードをコピペして下さい。 (ROUGE) '---- Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Sh.Range("D:D,F:H"), Sh.Range("2:" & Rows.Count)) Is Nothing Then Exit Sub Cancel = True Target.Value = UserForm1.Calendar1.Value End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Unload UserForm1 End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count = 1 And Target.Address(0, 0) = "D4" Then UserForm1.Show 0 End If End Sub ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200703/20070312164103.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ