VBA Farklı çalışma alanındaki aralığı seçmek için iletişim kutusu

Question

Bir kullanıcının farklı bir çalışma kitabında olması muhtemel bir aralığı seçmesine izin vermek istiyorum.

Bunu, çalışma kitabındaki verileri seçmek için çalışan ancak farklı bir çalışma kitabında bir aralık seçmeme izin vermeyi reddeden giriş kutusuyla ("", tip: = 8) yapmayı denedim.

Bu nedenle, bu görevi gerçekleştirmeme izin veren bir iletişim kutusu istiyorum. Özgürdüm yana

Answer 1

, I, A RefEdit Kontrol bir Userform oluşturma ve ComboBox yerleştirmek Eğer

örnek oluşturulan ve bir Label

Sonraki UserForm'ı

Bu kodu yapıştırın

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 

bir UserForm UserForm'ı

---

---