Frage : Neufassungs-Kopien- und Pasten-Datenindex

Hallo helfen Experten,

I Notwendigkeit Experten, zusätzliche Funktion im angebrachten Index hinzuzufügen. Neue Daten der Kopie und der Paste vor „Gesamtsumme“ zusammenfassend Blatt und gruppieren die Daten entsprechend dem Datum. Ich habe manuell dieses im zusammenfassenden Blatt verursacht, damit Experten eine bessere Ansicht erhalten. Ich hoffe, dass Experten mir helfen können, diese Eigenschaft zu automatisieren. 


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

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). 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, 2).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
Mit r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
    .LineStyle = xlContinuous
    . Gewicht = xlThin
Ende mit
Enden-Unterseeboot
Attachments:

Antwort : Neufassungs-Kopien- und Pasten-Datenindex

Ich verstehe nicht als dort ich kein bedeutender Unterschied zwischen den zwei Versionen. Wenn das zweite arbeitet, sollte thehe zuerst gearbeitet haben.

Sowieso um die Ihre Gruppierung zu addieren habe ich etwas von dem Code hinzugefügt und geändert. Ich habe auch die Akte angebracht (mit einem Knopf, zum des Makro laufen zu lassen)
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:

VortransferTT2S ()
Schwache wss als Arbeitsblatt, WST als Arbeitsblatt, r als Strecke, r2 als Strecke
Schwache iRows als lang, StartRow als lang
    Wss = Blätter („Zusammenfassung“) einstellen
    Einstellen WST = Blätter („TaskTracker“)
    'Die kopiert zu werden Reihen zählen, (und eingesetzt worden)
    Einstellen r2 = WST. [A: A]. Entdeckung („Gesamtstunden“). Versatz (- 1)
    Einstellen r2 = Strecke (r2, WST. [A7])
    Einstellen r2 = Anschluss (r2, r2.Offset (, 3))
    iRows = r2.Rows.Count
    'die folgende leere Reihe finden
    Einstellen r = wss. Strecke („A“ u. Strecke („A1“) .CurrentRegion.Rows.Count)
    StartRow = r.Row
    'Die Zahl Reihen jetzt einsetzen. Die Reihen erste vorwählen
    ', wie nach einsetzend müssen uns sie von der vorhergehenden Gruppierung trennen
    r.EntireRow.Resize.EntireRow.Resize (rowsize: =iRows). Auserwählt
    Selection.Insert
    Selection.Rows.Ungroup
    'die Daten in die eingesetzten Reihen und in das Format jetzt kopieren
    Einstellen r = r.Offset (- iRows)
    r.Value = WST. [B3]. Wert
    r2.Copy
    r.Offset (, xlPasteValues 1).PasteSpecial
    r.Offset (, 2).Resize (r2.Rows.Count, 2).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
    Mit r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
        .LineStyle = xlContinuous
        . Gewicht = xlThin
    Ende mit
    'Die neuen Daten zuletzt gruppieren
    Reihen (StartRow + 1 u. „: “ U. StartRow + iRows - 1).Select
    Selection.Rows.Group

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us