Sub transferTT2S ()
Тусклые wss как рабочий лист, wst как рабочий лист, r как ряд, r2 как ряд
Тусклые iRows как длиной, StartRow как длиной
Установите wss = листы («сводка»)
Установите wst = листы («TaskTracker»)
'Подсчитайте рядки, котор нужно скопировать (и введено)
Установите r2 = wst. [A: A]. Находка («полные часы»). Смещение (- 1)
Установите r2 = ряд (r2, wst. [A7])
Установите r2 = соединение (r2, r2.Offset (, 3))
iRows = r2.Rows.Count
'находите следующий пустой рядок
Установите r = wss. Ряд («a» & ряд («A1») .CurrentRegion.Rows.Count)
StartRow = r.Row
'Теперь введите число рядков. Выберите рядки первое
'как после вводящ нам нужно ungroup они от ранее собирать
r.EntireRow.Resize.EntireRow.Resize (rowsize: =iRows). Отборно
Selection.Insert
Selection.Rows.Ungroup
'теперь скопируйте данные в введенные рядки и форму
Установите r = r.Offset (- iRows)
r.Value = wst. [B3]. Значение
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
r.Offset (, 2).Resize (r2.Rows.Count, 2).NumberFormat = «[h]: mm: ss»
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Клетки (1).Offset (1, 1).Value
С r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
.LineStyle = xlContinuous
. Вес = xlThin
Конец с
'Последн соберите новые данные
Рядки (StartRow + 1 & «: » & StartRow + iRows - 1).Select
Selection.Rows.Group
Подводная лодка конца
|
