RefEdit по 2 разным книгам

[Thez]

Сообщение от Hugo121

Забыл упомянуть, в VBA я совсем недавно, поэтому мне не удаётся понять, что этот код должен делать
Если не затруднить не могли бы вы разъяснить, что делает строка ComboBox1.AddItem wb.name (особенно, что "wb" вообще такое); как я понял строка Me.ComboBox2.Clear должна очистить ComboBox2, но тогда зачем тут "Me."; также не понял строку Me.ComboBox2.AddItem sh.Name ("sh").

А вообще решил поменять RefEdit на что-то другое, и в голову пришёл CommandButton, после нажатия на который, открывается Application.InputBox type 8, в который вводится диапазон, а затем Caption меняется на значение этого диапазона (чтоб пользователь видел, что он ввёл), но, как всегда, появились проблемы:

Во-первых, не получается изменить CommandButton.Caption
Во-вторых, не знаю как из Application.InputBox вытянуть значение
В-третьих, как значение Application.InputBox перенести в события кнопки CommandButton1 (Кнопка RUN) там где Set x = Range( а что тут не знаю )

Всё о чём додумался, но не работает

Private Sub CommandButton1_Click()
Dim x, y As Range
Dim row, col As Integer
Set x = Range()
Set y = Range()
row = x.Rows.Count
col = x.Columns.Count
For i = 1 To row
    For j = 1 To col
        If (x.Cells(i, j) = y.Cells(i, j)) Then MsgBox x.Cells(i, j).Address & " = " & y.Cells(i, j).Address
    Next j
Next i
Unload Me
End Sub

Private Sub CommandButton2_Click()
Dim x1 As Range, add1 As String
Set x1 = Application.InputBox(prompt:="Введите диапазон", Type:=8)
add1 = x1.Value
CommandButton2.Caption = add1
End Sub

Private Sub CommandButton3_Click()
Dim y1 As Range, add2 As String
Set y1 = Application.InputBox(prompt:="Введите диапазон", Type:=8)
add2 = y1.Value
CommandButton3.Caption = add2
End Sub

Всё это я делаю просто чтоб чему-то научиться в VBA

[doober]

Сообщение от Thez

Всё это я делаю просто чтоб чему-то научиться в VBA

Учитесь на примере

Dim x  As Range, y As Range

Private Sub CommandButton1_Click()
Dim row, col As Integer
row = x.Rows.Count
col = x.Columns.Count
For i = 1 To row
    For j = 1 To col
        If (x.Cells(i, j) = y.Cells(i, j)) Then MsgBox x.Cells(i, j).Address & " = " & y.Cells(i, j).Address
    Next j
Next i
Unload Me
End Sub

Private Sub CommandButton2_Click()
Set x = Application.InputBox(prompt:="Введите диапазон", Type:=8)
CommandButton2.Caption = x.Address
End Sub

Private Sub CommandButton3_Click()
Set y = Application.InputBox(prompt:="Введите диапазон", Type:=8)
CommandButton3.Caption = y.Address
End Sub

[Hugo121]

Да, без me можно обойтись.
Вообще там пришлось код подшлифовать, чтоб работало.
Вот пробуйте.

Да, рефедит оставил - вполне можно использовать, но в общем не важно.
Я добавил комбобоксы, в которых можно выбрать что активизировать, раз уж в вин7 иначе никак не переключиться (не могу проверить, но верю )
Чтоб видеть что выбрал в итоге юзер - можно ещё лейблов над рефедитом добавить.

[doober]

Сообщение от Hugo121

(не могу проверить, но верю )
.

Игорь,забыл, что говорил Броневой в <<17 мгновений веcны>>.
Проверил.Работает нормально на W7 32 и W7 64.
Никаких отличий от ХР нет

[Hugo121]

Ну значит есть уже два варианта - или расположить окна как на моём скриншоте и не мудрить, или выбирать/активировать комбобоксами. Или оба сразу - одно другому не мешает.
Вот только я не понял - в первом варианте когда видны сразу два окна - range(refedit) срабатывало корректно, на разные книги. Когда видно одно окно - оба range(refedit) обращались к последней книге, мне пришлось код менять.

[Thez]

Сообщение от doober

Код

Большое спасибо, всё работает, в коде разобрался

Сообщение от Hugo121

в вин7 иначе никак не переключиться (не могу проверить, но верю )

Переключиться уже получилось с помощью ShowModal = False, я об этом уже написал
Большое спасибо, ваш вариант работает даже если ShowModal = True , но всё же не понял, что значит "wb" в For Each wb In Workbooks, и, что значит "sh" в For Each sh In Workbooks(ComboBox1.Value).Workshee ts; "wb" и "sh" - это названия переменных или что-то другое (вроде сокращений от WorkBooks и WorkSheets)? В остальном вроде разобрался.

Сообщение от doober

Никаких отличий от ХР нет

Может у меня что-то не так где-то в настройках, но расположить окна как у Hugo121 на скриншоте никак не могу, если переместить или поменять размер одного окна Excel, то оба окна меняются.

[Hugo121]

"wb" и "sh" - это названия переменных
Но т.к. в данном случае перебираем объекты (для каждой книги из книг, для каждого листа из листов), то это объектные переменные. И их так бы нужно и объявить. Имя совершенно не важно, но как-то привязать его к объекту - это правила "хорошего тона".

[SAS888]

...расположить окна как у Hugo121 на скриншоте никак не могу...

Выполните

Windows.Arrange ArrangeStyle:=xlCascade

[Thez]

Появилась ещё одна проблемка - если активировать Application.Inputbox, а потом нажать Отмена или крестик в углу, то выскочит ошибка Run-time error '424'.

[IgorGO]

а если проверить что с Inputbox ничего не получено и принять меры - то ничего особого не случиться.