Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1341 / 76734

←次へ　｜　前へ→


	【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,イベントが出た対象のセルから、他のセルにカーソルを移動した際、表示されているイベントを非表示にしたいです（現状だと日付を押すまで表示され続けてしまう）

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

6 hits

▼

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