Results of 1 - 1 of about 1250 for カレンダー (0.001 sec.)
- [[20080118163553]]
- #score: 6109
- @digest: a5833998a01c3324ef8f1e243c83e925
- @id: 35508
- @mdate: 2008-01-21T02:28:58Z
- @size: 3380
- @type: text/plain
- #keywords: calendar1 (23316), カレ (7185), mycell (6202), ドpr (5822), レン (4472), dblclick (4281), ンダ (3946), ダー (3635), userform1 (3496), バテ (2056), 赤字 (2042), ルク (1846), ーコ (1775), ダブ (1693), 御願 (1312), の土 (1302), トロ (1294), userform (1205), ルボ (1184), initialize (1017), 御座 (929), 土日 (874), へ変 (869), 教授 (869), ブル (860), 祝日 (828), 手順 (818), hatch (814), 例: (803), private (800), 背景 (800), 、カ (787)
- 『カレンダーコントロール』(ぽち)
セルにカレンダーが表示されダブルクリックで選択した日付が入力できる方を教えて頂けないでしょうか。 C10,I10,F50〜F55,G50〜G55,H50〜H55,I50〜I55の複数のセルになります。 Excel2003使用です。ど素人のためすみませんが宜しくお願い致します。 ---- Tips06: カレンダーコントロール色々 http://www.h3.dion.ne.jp/‾sakatsu/Excel_Tips06.htm Accessがインストールされてますか?されていませんか? (元夏バテ) ---- Accessインストール済みです。 すみません、引き続きご教授ねがいます。 ---- (ぽち) 引き続き、すみません。会社のPCを使用のため既にVisual Basic や他にマクロを作成した履歴がありました。コントロールツールボックスの一覧が載っております。 ---- シートにカレンダーコントロールを配置して カレンダーの日付をダブルクリックしたら、アクティブセルに日付を入力する。 という動作でしたら、こんな感じかな・・・ (Hatch) Private Sub Calendar1_DblClick() Dim myCell As Range Set myCell = ActiveCell If Intersect(myCell, Range("C10, I10, F50:I55")) Is Nothing Then MsgBox "ここには入力できません" myCell.Select Exit Sub Else myCell.Value = Calendar1.Value myCell.Select End If End Sub ---- すみません。<ツールボックス>ダイアログボックスでカレンダーボタンをクリックし<UserForm1>画面上にドラッグした状態です。教えて頂いた内容をcopy&pasteする手順を教えていただけないでしょうか。初めて使用するため手順を調べ出している始末です。お手数おかけしておりますが、カレンダー作成後の手順を教えて頂けないでしょうか。宜しくお願い致します。 ---- ユーザーフォームでの例なら↓こちらが参考になると思います。(Hatch) http://www.geocities.jp/happy_ngi/YNxv9837.html ---- UserForm1にCalendar1が張り付けてあるものとして、 以下のような感じで・・・ Sheet1のセルをダブルクリックし、カレンダーの日にちもダブルクリックすると 入力されます。 (Hatch) UserForm1のコード Private Sub Calendar1_DblClick() ActiveCell.Value = Calendar1.Value End Sub Private Sub UserForm_Initialize() Calendar1.Value = Date End Sub Private Sub UserForm_Deactivate() Unload UserForm1 End Sub Sheet1のコード Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("C10, I10, F50:I55")) Is Nothing Then MsgBox "ここには入力できません" Target.Select Exit Sub Else UserForm1.Show Target.Offset(1, 0).Select End If End Sub ---- (ぽち) (Hatch)さんのご教授により希望通りセルをダブルクリックし、カレンダーの日にちもダブルクリックするとセルに日付の入力が出来るように成りました。 本当に有難う御座いました。 すみません、追加でご教授をお願い出来ますでしょうか。 カレンダー表示の際のカレンダー名を 『UserForm1』→例:『カレンダー』へ変更。 また、カレンダーの土日、祝日の曜日を赤字へ変更。背景の色の変更などをご教授お願い致します。 お手数お掛けしまして申し訳有りませんが宜しくお願い致します。 ---- Private Sub UserForm_Initialize()に以下のコードを追加・・・ > 『UserForm1』→例:『カレンダー』 UserForm1.Caption = "カレンダー" > カレンダーの土日、祝日の曜日を赤字へ変更。 できないのでは? > 背景の色の変更 (例)Calendar1.BackColor = &HC0E0FF VBEのプロパティ画面で設定できますので色々試されたらいかがでしょう。 (Hatch) ---- 出来ました! 大変分かりやすくご教授して頂きましてどうも有難う御座いました。 本当に助かりました。またご教授御願いするかもしれませんが今後とも宜しく御願い致します。 有難う御座いました。(ぽち) ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200801/20080118163553.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97706 documents and 611036 words.
訪問者: