transferTT2S secondaire ()
Faibles wss comme feuille de travail, WST comme feuille de travail, r comme gamme, r2 comme gamme
Faibles iRows en tant que longtemps, StartRow en tant que longtemps
Placer les wss = les feuilles (le « résumé »)
Placer WST = feuilles (« TaskTracker »)
'Compter les rangées à copier (et inséré)
Placer r2 = WST. [A : A]. Trouvaille (« heures totales »). Excentrage (- 1)
Placer r2 = gamme (r2, WST. [A7])
Placer r2 = union (r2, r2.Offset (, 3))
iRows = r2.Rows.Count
'trouver la prochaine rangée vide
Placer r = wss. Gamme (« A » et gamme (« A1 ») .CurrentRegion.Rows.Count)
StartRow = r.Row
'Insérer maintenant le nombre de rangées. Choisir les rangées première
'comme après s'insérant nous devons les séparer du groupement précédent
r.EntireRow.Resize.EntireRow.Resize (rowsize : =iRows). Choisi
Selection.Insert
Selection.Rows.Ungroup
'copier maintenant les données dans les rangées et le format insérés
Placer r = r.Offset (- les iRows)
r.Value = WST. [B3]. Valeur
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
r.Offset (, 2).Resize (r2.Rows.Count, 2).NumberFormat = « [h] : millimètre : solides solubles »
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Cellules (1).Offset (1, 1).Value
Avec r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
.LineStyle = xlContinuous
. Poids = xlThin
Extrémité avec
'Grouper pour finir les nouvelles données
Rangées (StartRow + 1 et « : » Et StartRow + iRows - 1).Select
Selection.Rows.Group
Sous-marin d'extrémité
|
