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

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

[[20130913145918]]: #score: 6129; @digest: 28c52dab7506d598a553b8b610dcb15c; @id: 63432; @mdate: 2013-09-17T05:50:50Z; @size: 5123; @type: text/plain; #keywords: calendar2 (74938), calendar1 (56625), e43 (15192), カレ (6778), visible (4530), レン (4218), ンダ (3719), ダー (3445), b12 (3226), 囲全 (2970), activesheet (2931), 程表 (2559), target (2440), selectionchange (2376), ー1 (2288), 日程 (2266), 数セ (1856), 記入 (1752), ー2 (1722), intersect (1514), 回目 (1214), ーコ (1187), リッ (1062), address (1055), クリ (1051), 始日 (1038), （初 (1016), private (936), 初心 (887), 心者 (870), seiya (863), nothing (806); 『カレンダーコントロール』（初心者）
XPでエクセル2007を使っています。工事日程表で、A7に日付を入れると日程表の開始日になり、 B12からE43まで各工程の開始日と終了日を入れると矢印を引ける様にしたいのですが、カレンダーコントロールでつまづいています。下記コードで、A7は正常に動作するのですが、B12〜E43では カレンダーが出てこなくて、エラーも出ないのでどこが間違っているのかわかりません。御教示をお願い致します。 Private Sub Calendar1_Click() Range("A7").Value = Calendar1.Value ActiveSheet.Calendar1.Visible = False End Sub Private Sub Calendar2_Click() Range("B12:E43").Value = Calendar2.Value ActiveSheet.Calendar2.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$7" Then ActiveSheet.Calendar1.Visible = True ActiveSheet.Calendar1.Value = Date End If If Target.Count <> 1 Then Exit Sub If Target.Address = "($B$12:$E$43)" Then ActiveSheet.Calendar2.Visible = True ActiveSheet.Calendar2.Value = Date End If End Sub ---- 質問に関する問題点だけ。 >If Target.Count <> 1 Then Exit Sub があるので複数セルを選択した場合はここで終わり、 >If Target.Address = "($B$12:$E$43)" Then までいかない。 (ねむねむ) ---- ねむねむさん、ありがとうございます。しかしIf Target.Count <> 1 Then Exit Sub を削除しても何も変わりませんし、複数セルを選択するのではなく、 B12〜E43の範囲の中の1セルを選択し、複数セルを選択しても無視する様にしたいです。（初心者） ---- >If Target.Address = "($B$12:$E$43)" Then これはB12:E43を範囲選択したときでないと真にならない。 B12:E43のどれかということであればそれ以外を If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B12:E43")) Is Nothing Then Exit Sub で、はじいてみてくれ。 (ねむねむ) ---- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("a7,b12:e43")) Is Nothing Then ActiveSheet.Calendar1.Visible = True ActiveSheet.Calendar1.Value = Date End If End Sub (seiya) ---- ねむねむさん、ありがとう御座います。 If Target.Count > 1 Then Exit Sub If Intersect(Target, Range("B12:E43")) Is Nothing Then Exit Sub を追加しましたが、何も変わりませんでした。まず、B12:E43のどのセルをクリックしても、カレンダーがでてきません。試しに範囲全体を選択してみましたが、でてきません。逆にカレンダーを無理やり出して日付をクリックすると、全てのセルに日付を記入してしまいます。範囲内のどのセルに記入したいかを記述しないといけないと思うのですが、記述方法がわかりません。（初心者） ---- seiya氏へ。 B12:E43の時はCalendar2のようだが。不必要部分削除 (ねむねむ) ---- >B12:E43の時はCalendar2のようだが。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("b12:e43")) Is Nothing Then ActiveSheet.Calendar1.Visible = True ActiveSheet.Calendar1.Value = Date elseif target.address(0,0)="A7" then ActiveSheet.Calendar2.Visible = True ActiveSheet.Calendar2.Value = Date end if End Sub (seiya) ---- seiyaさん、ありがとうございます。 1回目のコードを書き変えたら、範囲内のセルをクリックすると カレンダーがでてくる様になりました。しかしカレンダーの日付をクリックしてもセルに日付が記入出来ません。 ActiveSheet.Calendar2.Visible = True ActiveSheet.Calendar2.Value = Date を追記してやると、また全てのセルに記入されてしまいます。これから2回目のコードに変えてみます。（初心者） ---- seiyaさん、ありがとうございます。 カレンダー1と2が逆だったので、そこだけ直して2回目のコードを入れてみました。 カレンダー2が出てきてカレンダー2をクリックすると日付が記入されるのですが、範囲全てのセルに記入されてしまいます。 カレンダーを呼び出す時にクリックしたセルだけに記入したいのですが、どの様に変えたら良いでしょうか? よろしくお願いします。（初心者） ---- カレンダー1と2を分ける必要がないので、2を削除して1だけにしました。 Private Sub Calendar1_Click() Range("A7").Value = Calendar1.Value Range("B12:E43").Value = Calendar1.Value ActiveSheet.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("a7,b12:e43")) Is Nothing Then ActiveSheet.Calendar1.Visible = True ActiveSheet.Calendar1.Value = Date End If End Sub クリックしたセルを変数に置き変えて、そのセルにだけ日付を記入する様に考えてみます。（初心者） ---- > Range("B12:E43").Value = Calendar1.Value これ ActiveCell.Value = Calendar1.Value ? (seiya) ---- seiyaさん、ありがとうございます。一発で出来る様になりました。ただ、カレンダーが出ている時に、全然関係ないセルをクリックして、 カレンダーをクリックすると、そのセルに日付を書いてしまいます。これくらいは我慢しないとダメかな。（初心者） ---- 別のセルをクリックしたときはカレンダーを見えなくすればいいんでない? （稲葉） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201309/20130913145918.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ