Questione : Scritto della copia di riscrittura e di dati della colla

Ciao gli esperti, esperti in bisogno del

I contribuiscono ad aggiungere la funzione supplementare nello scritto allegato. I nuovi dati della colla e della copia prima “dello strato di importo totale„ in breve e raggruppano i dati secondo la data. Ho generato manualmente questo nello strato sommario affinchè gli esperti ottenga una migliore vista. Spero che gli esperti possano aiutarli ad automatizzare questa caratteristica.


class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
>Sub notpretty transferTT2S " del class= " del id= " codeSnippet930845 del
class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di CopyData.xls il class= (66 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
xls
il class= di
del >
class= del

Risposta : Scritto della copia di riscrittura e di dati della colla

Non capisco come là io nessuna differenza significativa fra le due versioni. Se il secondo funziona il thehe in primo luogo dovrebbe funzionare.

In ogni modo, per aggiungere vostro il raggruppamento ho aggiunto e cambiato alcuno del codice. Inoltre ho attaccato la lima (con un tasto per fare funzionare la macro)
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:

transferTT2S secondario ()
Wss fiochi come manuale, WST come manuale, r come gamma, r2 come gamma
iRows fiochi come lungamente, StartRow come lungamente
    Regolare i wss = gli strati (“sommario„)
    Regolar WST = strati (“TaskTracker„)
    'Contare le file da copiare (ed inserito)
    Regolar r2 = WST. [A: A]. Ritrovamento (“ore totali„). Contrappeso (- 1)
    Regolar r2 = gamma (r2, WST. [A7])
    Regolar r2 = unione (r2, r2.Offset (, 3))
    iRows = r2.Rows.Count
    'trovare la fila vuota seguente
    Regolar r = wss. Gamma (“A„ & gamma (“A1„) .CurrentRegion.Rows.Count)
    StartRow = r.Row
    'Ora inserire il numero delle file. Selezionare le file prime
    'come dopo inserendo dobbiamo separarli dal raggruppamento precedente
    r.EntireRow.Resize.EntireRow.Resize (rowsize: =iRows). Prescelto
    Selection.Insert
    Selection.Rows.Ungroup
    'ora copiare i dati nelle file e nella disposizione inserite
    Regolar r = r.Offset (- iRows)
    r.Value = WST. [B3]. Valore
    r2.Copy
    r.Offset (, xlPasteValues 1).PasteSpecial
    r.Offset (, 2).Resize (r2.Rows.Count, 2).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
    Con r.Rows (1).Columns (1).Resize (, 4).Borders (xlEdgeTop)
        .LineStyle = xlContinuous
        . Peso = xlThin
    Estremità con
    'Raggruppare infine i nuovi dati
    File (StartRow + 1 & “: „ & StartRow + iRows - 1).Select
    Selection.Rows.Group

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us