| |
先日に引き続き、この場をお借りさせて頂きます。
特定のセルをクリックするとカレンダーが表示され、日付をクリックするとセルに日付が入力されるものを作成しております。
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,イベントが出た対象のセルから、他のセルにカーソルを移動した際、表示されているイベントを非表示にしたいです（現状だと日付を押すまで表示され続けてしまう）
素人で申し訳ありません。。。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
