Excel VBA質問箱 IV

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

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


8 / 13339 ツリー ←次へ | 前へ→

【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 発言[未読]

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

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

【81045】Re:イベントの表示箇所について
発言  マナ  - 19/7/25(木) 18:50 -

引用なし
パスワード
   ▼り。 さん:

>1,クリックしたセルに合わせて、イベントが表示される位置をずらす(クリックしたセルの右側等)事は可能でしょうか?

TopやLeftで位置を指定できませんか。

>2,イベントが出た対象のセルから、他のセルにカーソルを移動した際、表示されているイベントを非表示にしたいです

最初に
ActiveSheet.Calendar1.Visible = False
を追加したらどうなりますか。

【81046】Re:イベントの表示箇所について
発言  り。  - 19/7/25(木) 21:15 -

引用なし
パスワード
   ▼マナ さん:
>▼り。 さん:
>
>>1,クリックしたセルに合わせて、イベントが表示される位置をずらす(クリックしたセルの右側等)事は可能でしょうか?
>
>TopやLeftで位置を指定できませんか。
>
アクティブセルを抽出した後に、組む流れなのでしょうか?
ht tp://www2.aqua-r.tepm.jp/~kmado/ke13u009.html
こちらを検索してみて貼り付けてみたのですが、だめでした。。。


>>2,イベントが出た対象のセルから、他のセルにカーソルを移動した際、表示されているイベントを非表示にしたいです
>
>最初に
>ActiveSheet.Calendar1.Visible = False
>を追加したらどうなりますか。

できました!本当にありがとうございます

【81047】Re:イベントの表示箇所について
発言  マナ  - 19/7/25(木) 21:41 -

引用なし
パスワード
   ▼り。 さん:

こんな感じで、表示後に、上端と左端を設定できませんか。

ActiveSheet.Calendar1.Visible = True
ActiveSheet.Calendar1.Top = target.Top
ActiveSheet.Calendar1.Left = target.Offset(, 1).Left

【81048】Re:イベントの表示箇所について
お礼  り。  - 19/7/25(木) 22:12 -

引用なし
パスワード
   できました!
こんなに短い行でわかりやすく作って頂きありがとうございます。
何から何まですみません。マナさんのお陰で完成しました。
本当にありがとうございます。

【81050】Re:イベントの表示箇所について
発言  マナ  - 19/7/26(金) 21:22 -

引用なし
パスワード
   参考まで
ht tp://addinbox.sakura.ne.jp/Excel_Tips06.htm

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