Bună ziua! Am nevoie de ajutor. Există 1000 de fișiere excel * .xls în fiecare din cele 9 file (în unele, o anumită filă poate să lipsească), iar pe fiecare dintre acestea există un filtru. Am un add-on RDBMerge care se unește într-o anumită filă, dar este faptul că nu atinge filtrul și jumătate din informație nu este copiată. Este posibil să creați o macrocomandă care să treacă prin toate fișierele și să înlăture filtrele în timp ce salvează fișierul? Vă mulțumim anticipat!
Orei bune din timpul zilei. Confruntată cu următoarea problemă. Există o foaie de lucru (în cod este o variabilă ws) Pe foaia există un tabel care, în funcție de datele din carte, se extinde în dreapta și în jos. Limita "limită neschimbată" a tabelului este definită de intervalul numit de StartData. Există un cod pentru ștergerea tuturor datelor vechi din tabel
Bine ai venit! Pe foaia 1 pe linia 431 a cincea coloană este cuvântul în ghilimele - „White“ Am nevoie pentru a elimina ghilimele introduc variabile stringovuyu și inițializa cu datele din celula. str = Trim (Worksheets (1) .Cells (431, 5) .value) devine variabila str = scrie "Alb": Dacă (str Ca și "*" Chr (34) "*" Chr (34) "*"), Apoi str = Replace (str, de CHR (34), ""), dar sunt citate nu a fost eliminat (((în acest caz, de dragul mai scris ca aceasta: str1 = Cro (34) „Alb“ Chr (34) Din nou, în acest caz, structurile If și citatele sunt eliminate. Deci, ce e în neregulă cu prima opțiune, când variabila este inițializată de datele de celule? Multumesc, dar nu pot sa-l intorc (ajutor, te rog.) Mulțumesc.
Conduc de pe pagina „l1“ pentru fiecare linie de lucrări, dar am nevoie pentru a obține coloane umplute, începând cu c1 coloană. Nu pot să dau seama cum să o facă. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub FullDate () Dim vItem, avArr, li atâta timp ReDim avArr (1 La Rows.Count, 1 la 1) Cu New Collection On Error CV Urmatorul Pentru fiecare vItem In Range ( "B2", Cells (Rows.Count, 2) .End (xlUp)) Valoarea .Add vItem, CSTR (vItem) dacă Err = 0 Apoi li = li + 1 :. avArr (li, 1) = vItem altceva: Err.Clear end Dacă următor sfârşit Cu Dacă li Apoi Foi de lucru ( "l3") [c1] .Resize (li) .value = avArr final de sub.
Bună ziua, experți în programarea macrocomenzilor. Ajutați-vă să înțelegeți. Pe foaie este MediaPlayer - cu redarea unui fișier media. Cum se face când faceți clic pe buton - deveniți invizibili și redați fișierul. (sub invizibilitate - înțeleg - doar lipsa de vizibilitate a obiectului MediaPlayer sau doar comprimarea acestuia la dimensiunea punctului.)