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

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

[[20110929101857]]: #score: 6129; @digest: 3a61c20226e0da2f1bd264cafeb1b1a4; @id: 56101; @mdate: 2011-09-29T05:56:35Z; @size: 2603; @type: text/plain; #keywords: showcalendarfromrange (54875), 視if (9482), 初↓ (7323), カレ (3615), ク時 (3240), 択時 (2874), 無償 (2437), レン (2250), ンダ (1735), ダー (1608), ーフ (1436), show (1322), う所 (1243), 数セ (1237), selectionchange (1188), に. (1109), ロシ (1025), target (976), ル選 (944), ォー (915), ロジ (856), フォ (821), ーム (809), プロ (705), ジャ (663), momo (653), intersect (605), （mo (531), 無視 (529), ォロ (526), 起動 (507), 初は (506); 『カレンダーを表示』（まつや）
セルをクリックしてカレンダーをVBAで表示するようにしたのですが、×ボタンを押して消えるようになっています。他のセルをクリックしてカレンダーが消えるようにできますでしょうか?? Private Sub Worksheet_SelectionChange(ByVal target As Range) ' 複数セル選択時は無視 If target.Count <> 1 Then Exit Sub 'A4,E4,A14:A39,I57,クリック時のみ If Not Intersect(target, Range("C4, E4,A14:A39,I57")) Is Nothing Then ' カレンダーフォームを起動する Call ShowCalendarFromRange(target) End If End Sub Sheet1に記述している内容です。宜しくお願いします。 ---- カレンダーフォームとはなんですか? ユーザーフォームで作ったカレンダーでしょうか? ShowCalendarFromRange や、その先のコードがどうなっているのかも見てみたいですね。（momo） ---- あ、わかりました http://www.asahi-net.or.jp/‾ef2o-inue/vba_o/sub05_100_100.html こちらのフォームですね。 ShowCalendarFromRange の中に .Show という所があるので、そこを .Show vbModeless に変更して、Sheetのコードは Private Sub Worksheet_SelectionChange(ByVal target As Range) ' 複数セル選択時は無視 If target.Count <> 1 Then Exit Sub 'A4,E4,A14:A39,I57,クリック時のみ If Not Intersect(target, Range("C4, E4,A14:A39,I57")) Is Nothing Then ' カレンダーフォームを起動する Call ShowCalendarFromRange(target) Else '★追加 Unload FRM_CALENDAR '★追加 End If End Sub にしてみるとどうでしょうか? （momo） ---- そうです。最初はどういうことでしょうか? （まつや） ---- > 最初はどういうことでしょうか? ごめんなさい、何を聞かれているのか解らないのですが（momo） ---- ＞最初 ↓ ＞＞ShowCalendarFromRange の中に＞＞.Show ＞＞という所があるのでが、見つけられないのでは? (HANA) ---- そうです。説明不足で申し訳ございません。（まつや） ---- HANAさんフォローありがとうございます。 ShowCalendarFromRangeプロシージャをコールしているのですからどこかにShowCalendarFromRangeというプロシージャがありますよね? F8でステップ実行すれば見つかりますし Ctrl+Fで対象をカレントプロジェクト、検索文字にShowCalendarFromRange とすれば、見つかると思います。そのプロシージャの中ほどよりちょっと下あたりに .Show があると思います。または.Showで検索しても良いかもしれませんね HPなどで、ありがたく無償で頂いたコードもただ使うだけじゃなくてコードをちゃんと読んで理解される事をお勧めします。ユーザーフォームを扱っているプロジェクトでShowをどこでしているか解らないというのは今後のためにも良くないですよ。（momo） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201109/20110929101857.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ