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

Question

異なるワークブックにある可能性のある範囲をユーザが選択できるようにします。

私は、入力帳（ ""、タイプ：= 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 

これはあなたが得るものですユーザーフォームを実行

---

---