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

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

[[20170523094638]]: #score: 6129; @digest: d6a4d99616b0ec909c279758f212552a; @id: 73514; @mdate: 2017-05-23T04:03:18Z; @size: 6535; @type: text/plain; #keywords: ufcalendarsimple (36340), formini (30637), howtouse (19520), 葉様 (5673), カレ (5423), 提供 (4510), ドシ (4157), レン (3375), 稲葉 (3216), ンダ (2975), ルク (2780), ダブ (2548), ダー (2526), スプ (2249), beforedoubleclick (2168), ーフ (2010), カリ (1854), 照先 (1850), google (1716), 素人 (1674), ーニ (1671), ニン (1575), レッ (1567), cancel (1510), 理想 (1487), ブル (1302), ォー (1220), プレ (1165), 2017 (1163), 火) (1121), ーム (1079), リッ (1062); 『Googleのスプレッドシートのようなセルをダブルクリックするとカレンダーが出るようにしたい。』（さいわ）
素人の為作る事が出来ず困ってますご教示ください。エクセル2007を使用しているものです。 1）Googleのスプレッドシート等でセルをダブルクリックすると表示されるカレンダーの様なものを作りたいと思っています。 2）尚、エクセルの複数のセルで日付けを入力する欄がある為、複数のセルで活用したいです。（日付を入れるセル全ては並行して連動や反映するようなものではありません。個々に日付を入れるようなイメージです。）たとえば、D10のセル、C18、D18、C21、D22、C24、D24セル等でダブルクリックでカレンダー表示、日付選択でセルに日付が入れられるようにしたい。エクセルで作成する事は可能なようでしたら作ってみたいのですが知識の技術が足らず作れません。ぜひご教示頂けたら幸いです。宜しくお願いします。＜使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- ユーザーフォーム カレンダー 作成で検索したら参考になる過去ログがあると思います。ただし、カレンダーコントロールは新しいバージョンのエクセルでは使えないと思います。いずれにせよ、マクロ等で自分で作り上げていくことになります。ネット検索したらフリーウェアでアドイン等を提供しているところがあるかもしれません。 ※私はGoogleのスプレッドシートは使ったことが無いので、表示されるカレンダーがどんなものかは存じ上げていません。（カリーニン） 2017/05/23(火) 10:09 ---- スプレッドシートでカレンダーを使ったことないので、イメージがあっているかわかりませんが [[20150602101200]] 『ユーザーフォームにカレンダー』（yuki）こちらを参考にしてください。ダブルクリック等イベントについては http://www.moug.net/tech/exvba/0050012.html このあたりを参考にしてください。（稲葉） 2017/05/23(火) 10:11 ---- カリーニン様有難うございました! マクロを作成が必要になるのですね。最近エクセルとまと身に使えるようになったばかりなのでマクロは正直作った事がないので少し基本的な作成の仕方を調べてみたいと思います。アドイン提供の件もありがとうございました。そちらも併せて探してみます! ※Googleのカレンダーはフォームの様な格子状のカレンダーが表示されます。上側の左右には前後の月に移動できるような矢印があるイメージです。 ********** 稲葉様有難うございました!提供頂きましたURL先参考にさせていただきました! ふたつお教えください! 一つ目は、参照先のコードに先されている 08)呼び出し方法は以下の通りです。 Sub HowToUse() UFCalendarSimple.FormIni Date End Sub についてはどちらに記載すればよろしいのでしょうか mainとsubとユーザーフォームはVBAに入れる事が解ったので素人なりにいま作ってみていますが、 08）〜に記載のコードはどちらに入れるのかがよく解りませんでした…素人質問ですみません。二つ目はダブルクリックすると表示されるようにすると言ったアクション（?）コードの参照先確認しました。もしこういったコードを挿入するとしたら、mainとsub、ユーザーフォームどちらに挿入する事がベストでしょうか。お手数おかけしますがご教示宜しくお願い致します。（さいわ） 2017/05/23(火) 10:38 ---- HowToUseはコード例でしかないので、自由に応用すれば良いですよ。（稲葉さんこんな凝ったカレンダ提供したんだなぁ、と感心）例えば、ダブルクリックで表示ならば、対象のシートモジュールに以下のように追加です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True UFCalendarSimple.FormIni Date End Sub （???） 2017/05/23(火) 10:58 ---- ???さんお久しぶりです。フォローありがとうございます。皆様から見れば拙いコードですが、当時の精一杯でしたので、そう言っていただけると嬉しいです。本題ですが、さいわさんの↓の表現＞mainとsubとユーザーフォームはVBAに入れる事が解ったので素人なりにいま作ってみていますが、わかっているように見えないので不安です。 http://officetanaka.net/excel/vba/beginner/10.htm こちらを見て、MainとSubは「クラスモジュール」を挿入して記入してください。（稲葉） 2017/05/23(火) 11:07 ---- 稲葉様、???様有難うございます! 素人過ぎて本当に申し訳ありません… ですがとても親切にお教え頂けて本当助かっております…感謝もうし上げます! 稲葉様に再度教えて頂いた参照先を参考にクラスモジュールを二つ作り其々にclsUFCalendarMainとclsUFCalendarSubに名前を変えてその中に其々対象のコードを入れてみました。またユーザーフォームも挿入し、こちらはコードの表示に切り替えて、こちらも参照先にてお教え頂いた稲葉様のコードを入れればよろしいんですよね? このときに、わたくしが始めご相談した際の稼働理想としている＞D10のセル、C18、D18、C21、D22、C24、D24セル等で＞ダブルクリックでカレンダー表示、日付選択でセルに日付が＞入れられるようにしたい。は、稲葉様にお教え頂いているユーザーフォームに貼り付けた '================================================== '【EV】ラベルのクリックイベント Private Sub clsC_Click(ByVal ID As Long) '================================================== Dim LB As MSForms.Label Set LB = clsC.Ctrl(ID) With LB If ID < 99 Then Selection.Value = CDate(Format(CB.Value & .Caption & "日", "yyyy/mm/dd")) Else Selection.Value = Date - (100 - ID) End If End With Unload Me End Sub をわたしくしがこうしたいなと理想としている形に修正変更する必要があるという事になりますでしょうか…難しいですね（涙）また、稲葉様がご提供くださった 8）の Sub HowToUse() UFCalendarSimple.FormIni Date End Sub や ???様が提供くださった Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True UFCalendarSimple.FormIni Date End Sub コードは、実際にエクセルで見ているシート（sheet1で名前は「日付」です）と同じ名前のMicrosoft Excel Object のsheet1のところに挿入すればよろしいでしょうか… 聞いてばかりで申し訳ありません… （さいわ） 2017/05/23(火) 11:34 ---- そう、左側にあるSheet1をダブルクリックし、右側に表示された編集画面に貼れば良いです。ついでに、特定セルのみダブルクリック可能にするよう、少し変えます。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("D10,C18,D18,C21,D22,C24,D24")) Is Nothing Then Exit Sub Cancel = True UFCalendarSimple.FormIni Date End Sub （???） 2017/05/23(火) 11:48 ---- ???様、稲葉様有難うございました!!! で、出来ました!!!嬉しい…! 理想としていた物がちゃんと形になって反映されてます!! 本当にありがとうございます（涙）教えて頂いた事は大切に記録にとって置きます!! 感謝申し上げます（さいわ） 2017/05/23(火) 12:53 ---- 記録に取るだけでなく、理解するようにしましょう。（カリーニン） 2017/05/23(火) 13:03 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201705/20170523094638.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ