Ai nevoie pentru a introduce un modul standard, în cele de mai sus (Ce este un modul? Care sunt modulele?). Rulați poate fi din carte, apăsând Alt + F8. În fereastra care apare, selectați Consolidated_Range_of_Books_and_Sheets și faceți clic pe Executare. Puteți crea un buton de pe foaia de lucru și să alocați macro. De asemenea, în cazul în care prima dată de lucru cu macro-uri foarte recomanda citirea articol: Ce este un macro și unde să caute?. precum și de ce nu face macro?
După apelul la macro va apărea în cereri rândul său, care va trebui să specificați setările inițiale:
Datele vor fi colectate pe o foaie nouă în registrul de lucru cu macro-uri. În cazul în care datele au fost colectate de la un număr de cărți, în prima coloană vor fi înregistrate numele cărților, din care sunt colectate datele.
În cazul în care colectarea de date a constatat că, după fiecare fișier / frunze de mai multe linii goale, ar trebui să găsiți un cod șir:
lLastrow =. Celulele (1. 1). SpecialCells (xlLastCell). rând
și înlocuiți-l cu o linie similară cu următoarea:
lLastrow =. Celulele (. Rânduri. Count. 1). End (xlUp). rând
unde 1 - este numărul coloanei în fișa de date, în cazul în care să caute ultima celulă umplut.
De fapt, pentru fișierele cu aceeași structură. De exemplu, în cazul în care colecția vine cu foi din vânzări, aceasta poate fi foarte bine că, în coloana 1 poate fi date. Prin urmare, este necesar să se determine numărul coloanei în care conținutul de date cât mai mult posibil. De exemplu, poate fi o coloană cu numele produselor sau a sumelor. În cazul în care această coloană D, ar trebui să fie scris ca un șir de caractere:
lLastrow =. Celulele (. Rânduri. Count. 4). End (xlUp). Rând „în căutarea pentru ultimul rând din coloana a 4-
Mai poate fi citit despre definiția ultima linie în articol: Cum de a determina ultima celulă de pe foaia prin intermediul VBA?
Căutare după Tag
Vă mulțumim pentru codul!
Am colectat date pentru fracțiunea de secundă. Manual Sunt chinuit timp de câteva ore.
Buna ziua!
Am înțeles că acest macro pur și simplu adaugă partea de jos o pagină la alta. Am un tabel, dar în două fișiere, și, prin urmare, sunt adesea completate într-o parte în alta. De exemplu, într-un singur rând fișier 1 | _ | 3 | _ | 5 |, și într-un alt tabel în același rând _ | 2 | _ | 4 | _
dacă este posibil să se conecteze aceste tabele la informațiile care lipsesc într-un singur tayublitse inf = completate cu ea de cealaltă?
Pauline, pentru sarcina dumneavoastră este necesară pentru a rescrie toate codul în ceea ce privește colectarea datelor.
Bună ziua, Dmitry.
Vă mulțumesc foarte mult pentru fișierul dvs., salvați ca o mare parte din eforturile mele. Am vrut să întreb. dacă este posibil să se adauge o condiție la macro pentru a copia doar celulele vizibile?
Dmitri, vă mulțumesc foarte mult. Codul uitat inserat după linia Dim valorile insereaza boolean (macro-uri logice numai de studiu). Injuraturi (duplicat declarație în domeniul de aplicare curent) și alocă wsSh ca obiect. Te-am înțeles corect, că acest cod este plictisitor pentru a adăuga codul.
Sau un cod care se deschide parolele de cărți ar trebui să aibă un macro separat?
Cu toate acestea în jurul valorii de cap, Dmitri nu cere posibil în codul. adăuga
wsSh Dim ca obiect
Pentru fiecare wsSh În ActiveWorkbook.Sheets
wsSh.Unprotect "1234"
Următoarea wsSh
sau eu nu merg acolo.
Dmitri, vă mulțumesc foarte util și distractiv! Spune-mi te rog, cum să mutați datele din lista nou creată și la una existentă?