ここから本文です

ご教示ください Private Sub Worksheet_SelectionChange(ByVal Target As Excel...

rcx********さん

2019/3/1022:54:34

ご教示ください

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

★ If Target.Address = "$H$7:$H$1000" Then
ThisWorkbook.callingCellX = Target.Row
ThisWorkbook.callingCellY = Target.Column
ThisWorkbook.callingSheet = ActiveSheet.name
calendar.Show
End If
End Sub

範囲して認識させたいのですが、どうやって変更すればよろしいのでしょうか
よろしくお願いします

閲覧数:
42
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2019/3/1023:14:48

複数のセルを選択したとき、どうしたいのか解らないですね。
複数のセルを選択した時は無視するなら↓が一例。
それから、callingCellX、callingCellY、callingSheetといったプロパティも良く解らない・初見です。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
If Target.Areas.Count = 1 Then
If Target.Count = 1 Then
Set rng = Intersect(rannge("H7:H1000"), Target)
If Not rng Is Nothing Then
ThisWorkbook.callingCellX = Target.Row
ThisWorkbook.callingCellY = Target.Column
ThisWorkbook.callingSheet = ActiveSheet.Name
Calendar.Show
End If
End If
End If
End Sub

さらにExcelから実行しているのなら、
Target As Excel.Range

Target As Range
と書くべきでしょう。

  • tra********さん

    2019/3/1023:24:42

    訂正

    If Target.Count = 1 Then
    Set rng = Intersect(rannge("H7:H1000"), Target)
    If Not rng Is Nothing Then



    If Target.Count = 1 Then
    Set rng = Intersect(Range("H7:H1000"), Target)
    If Not rng Is Nothing Then

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる