Excel VBA質問箱 IV

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

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


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

【81029】セルの範囲指定について り。 19/7/21(日) 19:21 質問[未読]
【81031】Re:セルの範囲指定について マナ 19/7/21(日) 19:49 発言[未読]
【81033】Re:セルの範囲指定について り。 19/7/21(日) 20:10 お礼[未読]

【81029】セルの範囲指定について
質問  り。  - 19/7/21(日) 19:21 -

引用なし
パスワード
   VBA初心者です。

特定のセルから下方向全てに対して、クリックしたらカレンダーを表示するような指定を作っています。
「T列内の8行から下を全て」と指定するにはどのようにしたら良いでしょうか?
現状だと、T8をクリックした場合のみ表示されます。

ご教授お願い致します。


Private Sub Calendar1_Click()
   ActiveCell.Value = Calendar1.Value
   ActiveSheet.Calendar1.Visible = False
 End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$T$8" Then
     ActiveSheet.Calendar1.Visible = True
     ActiveSheet.Calendar1.Value = Date
    End If
 End Sub

【81031】Re:セルの範囲指定について
発言  マナ  - 19/7/21(日) 19:49 -

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

If Target.Count > 1 Then Exit Sub
If Target.Column <> Columns("T").Column Then Exit Sub
If Target.Row < 8 Then Exit Sub

【81033】Re:セルの範囲指定について
お礼  り。  - 19/7/21(日) 20:10 -

引用なし
パスワード
   無事に反映されました。
非常に助かりました、有難う御座います。

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