Frage : Zusätzliche Daten addieren

Hallo helfen Experten,

I Notwendigkeit Experten, den angebrachten Index neu zu schreiben, um in der Lage zu sein, Daten vom column_E (Aufgaben-Verfolgerblatt) zu kopieren und sie in Column_E (zusammenfassendes Blatt) zu kleben. Zurzeit konnte der Index, der nur Daten von column_A zu D.

Hope Experten kopiert, mir helfen, diese Eigenschaft zu verursachen. Außerdem angebracht dem Arbeitsbuch für Experten perusal.


 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:

Sub transferTT2S ()
Schwache wss als Arbeitsblatt, WST als Arbeitsblatt, r als Strecke, r2 als Strecke
Wss = Blätter („Zusammenfassung“) einstellen
Einstellen WST = Blätter („TaskTracker“)
'alle vorhandenen Daten entfernen
'wss.UsedRange.Offset (1).ClearContents
' -- oder --
'die folgende leere Reihe finden
Einstellen r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1).EntireRow.Cells (1)
r.EntireRow.Delete
Einstellen r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Versetzen (1).EntireRow.Cells (1)
r.Value = WST. [B3]. Wert
Einstellen r2 = WST. [A: A]. Entdeckung („Gesamtstunden“). Versatz (- 1)
Einstellen r2 = Strecke (r2, WST. [A7])
Einstellen r2 = Anschluss (r2, r2.Offset (, 3))
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
r.Offset (, 2).Resize (r2.Rows.Count, 3).NumberFormat = „[h]: Millimeter: SS“
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Zellen (1).Offset (1, 1).Value
r.Offset (r2.Rows.Count, 0). Wert = „Gesamtsumme“
Mit r.Offset (r2.Rows.Count, 3)
    . Wert = „=SUM (D1: D“ u. r.Offset (0, 0). Reihe + r2.Rows.Count - 1 u. ") „
    .NumberFormat = „[h]: Millimeter: SS“
Ende mit
Mit r.Offset (r2.Rows.Count). Die Größe neu bestimmen (1, 4)
    . Fasst (xlEdgeTop) .LineStyle = xlDouble ein
    . Fasst (xlEdgeBottom) .LineStyle = xlDouble ein
Ende mit
Mit r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
    .LineStyle = xlContinuous
    . Gewicht = xlThin
Ende mit

I, irow verdunkeln als lang
wss. Strecke („A1“) .ClearOutline
irow = wss. Strecke („A2: A65536“) .SpecialCells (xlCellTypeLastCell). Reihe - 1
Einstellen r = wss. Strecke („A2“)
Während r.Row < irow
    Einstellen r = r.Offset (1)
    Strecke (r, r.End (xlDown). Versatz (- 1)). Rows.Group
    Einstellen r = r.End (xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Enden-Unterseeboot
Attachments:

Antwort : Zusätzliche Daten addieren

VortransferTT2S ()
Schwache wss als Arbeitsblatt, WST als Arbeitsblatt, r als Strecke, r2 als Strecke
Wss = Blätter („Zusammenfassung“) einstellen
Einstellen WST = Blätter („TaskTracker“)
'alle vorhandenen Daten entfernen
'wss.UsedRange.Offset (1).ClearContents
' -- oder --
'die folgende leere Reihe finden
Einstellen r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count - 1).EntireRow.Cells (1)
r.EntireRow.Delete
Einstellen r = wss.UsedRange.Rows (wss.UsedRange.Rows.Count). Versetzen (1).EntireRow.Cells (1)
r.Value = WST. [B3]. Wert
Einstellen r2 = WST. [A: A]. Entdeckung („Gesamtstunden“). Versatz (- 1)
Einstellen r2 = Strecke (r2, WST. [A7])
Einstellen r2 = Anschluss (r2, r2.Offset (, 3), r2.Offset (, 4))
r2.Copy
r.Offset (, xlPasteValues 1).PasteSpecial
wss. Strecke (wss. Zellen (r.Row, r.Column + 3), wss. Zellen (r.Row + r2.Rows.Count - 1, r.Column + 3)). Wss schneiden. Zellen (r.Row, r.Column + 4)
r.Offset (, 2).Resize (r2.Rows.Count, 3).NumberFormat = „[h]: Millimeter: SS“
r.Offset (, 2).Resize (r2.Rows.Count, 2).HorizontalAlignment = xlCenter
r.Offset (, 3).Value = r2.Rows (r2.Rows.Count). Zellen (1).Offset (1, 1).Value
r.Offset (r2.Rows.Count, 0). Wert = „Gesamtsumme“
Mit r.Offset (r2.Rows.Count, 3)
    . Wert = „=SUM (D1: D“ u. r.Offset (0, 0). Reihe + r2.Rows.Count - 1 u. ") „
    .NumberFormat = „[h]: Millimeter: SS“
Ende mit
Mit r.Offset (r2.Rows.Count). Die Größe neu bestimmen (1, 4)
    . Fasst (xlEdgeTop) .LineStyle = xlDouble ein
    . Fasst (xlEdgeBottom) .LineStyle = xlDouble ein
Ende mit
Mit r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
    .LineStyle = xlContinuous
    . Gewicht = xlThin
Ende mit

I, irow verdunkeln als lang
wss. Strecke („A1“) .ClearOutline
irow = wss. Strecke („A2: A65536“) .SpecialCells (xlCellTypeLastCell). Reihe - 1
Einstellen r = wss. Strecke („A2“)
Während r.Row <� irow="">    gesetzt r = r.Offset (1)
    Strecke (r, r.End (xlDown). Versatz (- 1)). Rows.Group
    Einstellen r = r.End (xlDown)
Wend
wss. Outline.ShowLevels RowLevels: =1
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us