Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33 / 75426 ←次へ | 前へ→

【81044】イベントの表示箇所について
質問  り。  - 19/7/25(木) 11:41 -

引用なし
パスワード
   先日に引き続き、この場をお借りさせて頂きます。
特定のセルをクリックするとカレンダーが表示され、日付をクリックするとセルに日付が入力されるものを作成しております。


   ActiveCell.Value = Calendar1.Value
   ActiveSheet.Calendar1.Visible = False
 End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("K:K,M:M,N:N,P:P,W:W,Y:Y")) Is Nothing Then Exit Sub
If Target.Row < 8 Then Exit Sub
     ActiveSheet.Calendar1.Visible = True
     ActiveSheet.Calendar1.Value = Date
 End Sub


上記のコードに、あと2つの機能を追加したいのですが、いろいろ調べているのですがこれ以上が全く進みません。どうかご教授お願い致します。

1,クリックしたセルに合わせて、イベントが表示される位置をずらす(クリックしたセルの右側等)事は可能でしょうか?(列や行が複数あるのですが、表示されるカレンダーの位置が毎回同じになってしまう為)

2,イベントが出た対象のセルから、他のセルにカーソルを移動した際、表示されているイベントを非表示にしたいです(現状だと日付を押すまで表示され続けてしまう)

素人で申し訳ありません。。。

56 hits

【81044】イベントの表示箇所について り。 19/7/25(木) 11:41 質問[未読]
【81045】Re:イベントの表示箇所について マナ 19/7/25(木) 18:50 発言[未読]
【81046】Re:イベントの表示箇所について り。 19/7/25(木) 21:15 発言[未読]
【81047】Re:イベントの表示箇所について マナ 19/7/25(木) 21:41 発言[未読]
【81048】Re:イベントの表示箇所について り。 19/7/25(木) 22:12 お礼[未読]
【81050】Re:イベントの表示箇所について マナ 19/7/26(金) 21:22 発言[未読]

33 / 75426 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free