transferTT2S secondari ()
Wss fiochi come manuale, WST come manuale, r come gamma, r2 come gamma
Regolare i wss = gli strati (“sommario„)
Regolar WST = strati (“TaskTracker„)
'rimuovere tutti i dati attuali
'wss.UsedRange.Offset (1).ClearContents
' -- o --
'trovare la fila vuota seguente
Regolar r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1).EntireRow.Cells (1)
r.EntireRow.Delete
Regolar r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Sfalsare (1).EntireRow.Cells (1)
r.Value = WST. [B3]. Valore
Regolar r2 = WST. [A: A]. Ritrovamento (“ore totali„). Contrappeso (- 1)
Regolar r2 = gamma (r2, WST. [A7])
Regolar r2 = unione (r2, r2.Offset (, 3), r2.Offset (, 4))
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
wss. Gamma (wss. Cellule (r.Row, r.Column + 3), wss. Cellule (r.Row + r2.Rows.Count - 1, r.Column + 3)). Tagliare i wss. Cellule (r.Row, r.Column + 4)
r.Offset (, 2).Resize (r2.Rows.Count, 3).NumberFormat = “[h]: millimetro: ss„
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Cellule (1).Offset (1, 1).Value
r.Offset (r2.Rows.Count, 0). Valore = “totale di somma„
Con r.Offset (r2.Rows.Count, 3)
. Valore = “=SUM (D1: D„ & r.Offset (0, 0). Fila + r2.Rows.Count - 1 & ") “
.NumberFormat = “[h]: millimetro: ss„
Estremità con
Con r.Offset (r2.Rows.Count). Ridimensionare (1, 4)
. Delimita (xlEdgeTop) .LineStyle = xlDouble
. Delimita (xlEdgeBottom) .LineStyle = xlDouble
Estremità con
Con r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
.LineStyle = xlContinuous
. Peso = xlThin
Estremità con
Oscurare la i, irow come lungamente
wss. Gamma (“A1„) .ClearOutline
irow = wss. Gamma (“A2: A65536„) .SpecialCells (xlCellTypeLastCell). Fila - 1
Regolar r = wss. Gamma (“A2„)
Mentre r.Row <� irow=""> stabilito r = r.Offset (1)
Gamma (r, r.End (xlDown). Contrappeso (- 1)). Rows.Group
Regolar r = r.End (xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Sommergibile dell'estremità
