[[20191121161922]]　『ダブルクリックでポップアップ表示』（コン）　ページの最後に飛ぶ

『ダブルクリックでポップアップ表示』（コン）

※マクロ初心者となります。

A列のあるセル（A5）をダブルクリックすると、B列（B5)・C列（C5)に入力済の文字をポップアップにて表示させたく思っております。
現状Aには、ダブルクリックすると他シートにB・Cに入力してある文字が転記するマクロが登録？されております。

検索し下記のように追加したりしてみましたが
文字を表示させる所まではわからずでした。
ユーザーフォームになるのかなとも思いましたがそれ以前の段階で理解できてないかと思いましたので再度ご質問させて頂きました。

本日2回目となりますがご教授お願い致します。

【現状】
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Sheets("入力表").Range("D45").End(xlUp).Offset(1, 0).Value = Target.Value

If MsgBox("B列・C列の文字表示させたい", vbYesNo) = vbNo Then

    Cancel = True

  End If

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 こういうことですか？

 Option Explicit

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 1 Then
            MsgBox "B列=" & .Offset(, 1).Value & "  C列=" & .Offset(, 2).Value
            Cancel = True
        End If
    End With
 End Sub

（渡辺ひかる） 2019/11/21(木) 16:50

渡辺　様

先程に引き続き迅速にお返事頂きまして
ありがとうございます。

行いたかった事が出来ました！！
あの後、上手く出来なくずっと悩んでおりまして…
思わず「すごい！」と言ってしまいました。

ご質問も不明な所が多々ある中
ご丁寧にご回答頂きましてありがとうございます。

まだ、完成ではない為またご質問させて頂く事があるかとは
思いますが…
とてもとても助かりましたありがとうございます。
（コン） 2019/11/21(木) 17:02

コメント返信：

[ 一覧(最新更新順) ]

[[20191121161922]] 『ダブルクリックでポップアップ表示』（コン） ページの最後に飛ぶ

[[20191121161922]]　『ダブルクリックでポップアップ表示』（コン）　ページの最後に飛ぶ