Данные из массива вывести на лист - VBA

Формулировка задачи:

С помощью формы, через поле RefEdit выбранные данные записываю в массив, после чего вывожу его на лист, выбранного так же с помощью RefEdit. Как запомнить имя листа вывода и вывести данные на этот выбранный лист?

                    Листинг программы
                
 
                        
                          
                    
Set jour_in = Range(Ref_jour_in.Value)       ' исходная таблица
tab = jour_in.CurrentRegion
 
Set jour_out = Range(Ref_jour_out.Value)     ' координаты вывода
n_col = jour_out.Column - 1
cell_1 = jour_out.Row
 
For i = 1 To UBound(tab, 1)
    For j = 1 To UBound(tab, 2)
       Cells(cell_1 + i, n_col + j) = tab_journal(i, j)
    Next
Next

Решение задачи: «Данные из массива вывести на лист»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim stDT As Date, endDT As Date
stDT = StartDate + StartTime
endDT = EndDate + EndTime
 
For i = 1 To UBound(tab_journal, 1)
    If tab_journal(i, n_StartDate) + tab_journal(i, n_StartTime) <= stDT Then
        If tab_journal(i, n_EndDate) + tab_journal(i, n_EndTime) >= endDT Then
            n = n + 1
            For j = 1 To ub2
                w(n, j) = tab_journal(i, j)
            Next
        End If
    End If
Next

Оцени полезность:

14 голосов , оценка 3.857 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы