excel - 別のワークブックで範囲を選択するためのVBAダイアログボックス

Question

別のブックにある可能性が高い範囲をユーザーが選択できるようにしたいと考えています。

ワークブック内のデータを選択するために機能しますが、別のワークブック内の範囲を選択することを拒否する inputbox("",type:=8) でこれを実行しようとしました。

したがって、このタスクを実行できるダイアログ ボックスが必要です。

Answer 1

私は暇だったので、あなたのために例を作りました

を作成し、Userform、ComboBoxコントロールRefEdit、およびLabel

次に、このコードをユーザーフォームに貼り付けます

Private Sub UserForm_Initialize()
    Dim wb As Workbook

    '~~> Get the name of all the workbooks in the combobox
    For Each wb In Application.Workbooks
        ComboBox1.AddItem wb.Name
    Next

    ComboBox1 = ActiveWorkbook.Name
End Sub

'~~> This lets you toggle between all open workbooks
Private Sub Combobox1_Change()
    If ComboBox1 <> "" Then Application.Workbooks(ComboBox1.Text).Activate

    Label1.Caption = "": RefEdit1 = ""
End Sub

'~~> And this lets you choose the relevant range
Private Sub RefEdit1_Change()
    Label1.Caption = ""

    If RefEdit1.Value <> "" Then _
    Label1.Caption = "[" & ComboBox1 & "]" & RefEdit1
End Sub

これは、ユーザーフォームを実行すると得られるものです

---

---