Subiect Microsoft Excel - PROHARDWARE! Comentarii

Scopul subiectului Microsoft Excel este de a căuta și a oferi ajutor cu probleme cu Excel.
Vă rugăm să citiți înainte de a pune o întrebare, dacă nu ai făcut-o deja.

Postează subiecte active

Buna ziua!
Din nou, ți-aș cere ajutorul în VBA.
O gamă conține celule îmbinate cu conținut textual și numeric. Ar trebui să copiez acest lucru într-o altă foaie de lucru, dar fără celulele goale.
Cred că ar trebui să înfășurați acest interval într-un tablou bidimensional și apoi să imprimați tabloul redimensionat în cealaltă foaie de lucru fără valorile goale.
Vă anexez și o imagine a admirației mele.

Desigur, acest lucru îl face un pic mai complicat și mai conținut, dar numai coloanele sunt îmbinate, rândurile nu. Deci, ar trebui să scriu A1: F3 până la A9: C11. Ar face parte dintr-o sarcină automată, deci numai vba poate intra în joc.
Mulțumesc anticipat!

răspunde la mesajul p5quser # 45601

Știu (poate fi greșit) că conținutul celulelor îmbinate se referă întotdeauna la celula din stânga sus. Deci, trebuie doar să copiați coloanele „A”, „C” și „E” în „A”, „B”, „C” (cu câteva linii decalate).

Răspundeți la mesajul lui Apollo17en # 45602

Știu și asta, dar intervalul variază de la câteva rânduri la câteva sute de rânduri, iar coloanele sunt, de asemenea, împărțite în 7 la 1-37, nu în mod egal. Deci, pentru o listă mai mare, copierea ar încetini deja. De aceea m-am gândit la blocare. Am citit că ar arunca mult cu viteza.

Răspundeți la mesajul p5quser # 45603

Programator: un profesionist instruit să scrie și să corecteze programe defecte. Ai mai mult sens decât ai.

Răspundeți la mesajul p5quser # 45603

Buna ziua!
Obțineți matricea prin atribuirea unei valori.
De exemplu.
Dim atom ()
atomb = Valoare Range ("A1: F3")
Apoi parcurgeți elementele matricei după rând sau coloană. (Primul index este rândul, al doilea este coloana.)
„Ceea ce are o valoare este scris în celula următoare, iar golul este lăsat singur.
Dim i Ca întreg, j Ca întreg, k Ca întreg, m ca întreg
k = 10: m = 1 'Copia începe din coloana A din rândul 10
Pentru i = 1 până la Ubound (atom, 1)
Pentru j = 1 la Ubound (atom, 2)
Dacă atom (i, j) <> " Atunci
Celule (k, m). Valoare = atom (i, j)
k = k + 1
End If
Următorul j
k = k + 1: m = 1
Apoi eu
Bună.

răspunde la mesajul # 45604 al lui Delila_1

Mulțumiri!
Problema sa este că valorile noi ar trebui să înceapă întotdeauna de la ultimul rând al foii de lucru2 și dacă înlocuiesc numărul ultimului rând, el scrie toate valorile pe același rând pe foaia de lucru2. Nomeg, desigur, intervalul de copiat variază și în lungime, deși începe întotdeauna din același punct (A10).

Răspundeți la mesajul Fferi50 # 45605

Vă mulțumesc de asemenea!
Aceasta este problema mea cu el;

Cred că ar trebui să mă joc cu numărul de coloane, dar mă uit la el cu ochi sticloși.
(Poate voi saliva și eu)

Răspundeți la mesajul p5quser # 45606

Celule (k, m). Valoare = atom (i, j)
m = m + 1
Trebuia doar să mă gândesc puțin, în loc să plâng.
Vă mulțumesc mult pentru că v-ați făcut treaba.
Sărbători fericite pentru tine!

Răspundeți la mesajul p5quser # 45608

Buna ziua!
Îmi pare rău, am scris-o. În a mea era m = m + 1. Dar aici până la Next j am avut deja k. Tocmai am copiat restul.
Crăciun fericit și ție!

Buna ziua,
Pe tabul Office 360 Excel, bara de defilare se mișcă cu greu pe măsură ce mă deplasez în jos, cu derularea mouse-ului sau cu factura. cu o săgeată.
Există o mulțime de celule îmbinate în ea, dar nu cred că am întâlnit încă această problemă.
Dacă apuc căruciorul (nu știu cum se numește dintr-o dată) atunci placa sare de 1000 de rânduri sau mai mult, dar mai mult pentru că nu poate fi folosită atât de ușor.
Aș vrea să știu ce poate provoca acest lucru?
Mulțumiri

Aș dori să cer ajutor pentru a vedea dacă puteți găsi o soluție mai simplă și mai rapidă la problema de mai jos.

Există 20-30 de foi de calcul Excel pe lună, care conțin întotdeauna același număr (14) de coloane, dar numărul de rânduri variază. În prezent, selectez rândurile din fiecare tabel, apoi folosesc CTRL + C, CTRL + V pentru a le copia unul sub celălalt într-un nou tabel.

Există o funcție automatizată pentru aceasta?
Pe aparat există un birou din 2007 în limba maghiară.

Vă mulțumim anticipat dacă puteți ajuta!

Răspunde la mesajul sopruk # 45611

Puteți scrie o macro pe ea.

Răspunde la mesajul sopruk # 45611

La fel de mdk01 a scris, puteți scrie o macro pe ea. Cu toate acestea, trebuie să știți câteva lucruri.
Tabelul 20-30 este în 1 broșură sau 20-30?
Dacă este în 1, 1 coală sau 20-30?
Care este locația exactă (de ex. A1: N .)?
Unde este tabelul rezumat (într-o altă broșură, pe altă foaie, în ce zonă)?

Programator: un profesionist instruit să scrie și să corecteze programe defecte. Ai mai mult sens decât ai.

Buna ziua,
Pentru o diagramă (cum ar fi o linie), vreau ca valorile să fie verticale (deci rotite cu 90 de grade).
Există o soluție la acest lucru?
Vă mulțumim și pentru ajutor în avans

Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Răspunde la mesajul andreas49 # 45614

Întoarceți monitorul
Poate face schimb de date?

Este uimitor acolo unde se află deja știința!

răspunde la mesajul Delila_1 nr. 45613

Există tabele separate pentru fiecare dintre 20-30
Conține date de la celula A1 la N1 rând cu rând
Cu toate acestea, numărul de rânduri variază. Trebuie să luați doar 1-2, dar chiar și 20-30 de rânduri.
Creez tabelul rezumat cu un tabel gol și încep să copiez din celula A1.

răspunde la mesajul lappy # 45615

Chiar dacă îl înlocuiesc, tot apare așa.
Deci este ilizibil

Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Răspundeți la mesajul lui Andreas49 # 45617

Buna ziua!
Chiar ai nevoie de o diagramă liniară? Uită-te la graficul cu bare sau cu graficul cu bare, cred.
Bună.

Răspundeți la mesajul Fferi50 # 45618

Nici ei nu arată mai bine

Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Răspunde la mesajul lui Andreas49 # 45619

Buna ziua!
Ce-i în neregulă cu el?
Dacă nealinierea etichetelor este o problemă, de ex. puteți modifica unitatea de măsură pe axă:
Formatarea axei - Ordinea mărimii. Aici puteți alege cum va arăta.
În plus, este posibil să aveți o etichetă pentru fiecare secundă sau puteți schimba locul de apariție - una în partea de sus, alta în partea de jos sau în mijloc.
Bună.

Răspunde la mesajul sopruk # 45616

Trebuie să clarificăm conceptele. Broșura este fișierul care are xls. extensia.
O foaie de lucru este o filă numită Work1, Sheet1 sau oricare se numește.
Pot fi tabele pe fiecare filă și mai multe pe orice filă.
Tabelul este ceea ce ați descris ca având liniile lor de adresă în intervalul A1: N1 și variază numărul de rânduri. Din această descriere, se dovedește că nu sunt pe o pagină, deoarece atunci titlurile lor nu ar putea fi în același loc.
Acum tot ce trebuie să știți este că tabelele sunt în 1 broșură, 20-30 de pagini sau 20-30 de broșuri.
Dacă aveți o broșură, următoarea întrebare este dacă există o altă pagină decât aceste pagini - în afară de pagina de rezumat.
Dacă se află în broșuri separate, care este calea lor (în ce dosar), cum pot fi deschise?.

Programator: un profesionist instruit să scrie și să corecteze programe defecte. Ai mai mult sens decât ai.

răspunde la mesajul Delila_1 nr. 45621

Ei bine, da, am ghicit că voi interpreta greșit unul dintre concepte.
Când am studiat acești peste 20 de ani în urmă, nu aveam încă un nume de broșură sau pur și simplu nu am acordat o atenție deosebită

Deci da, există 20-30 de broșuri separate cu mese. Fiecare are o singură ureche.

Deoarece mașina va fi reinstalată în curând, am creat o cale pe care o voi putea crea pe orice mașină:
c: \ Extrase \
Le pot copia întotdeauna aici pe durata fuziunii.

De obicei creez o broșură separată pentru tabelul rezumat.

Vă mulțumesc foarte mult pentru că ați acordat timp pentru ajutor.

Răspunde la mesajul sopruk # 45622

Am scris o macro coadă de iepure pe ea.
Am denumit broșura care conține macro-ul Summarize.xlsm. Dacă nu aveți acest nume, rescrieți-l în linia marcată cu 5 stele!
Dacă nu doriți să ștergeți datele anterioare, ștergeți cele două linii cu multe stele.
Puneți-l într-un modul așa cum puteți citi în Rezumatul subiectului.

Sub Osszemasolas ()
Dim WB As Workbook, ide As Integer, FN
Setați WB = ActiveWorkbook
Calea const = "C: \ Excerpts \"

„Ștergeți datele anterioare *************
WB.Sheets (1) .Range ("A1"). CurrentRegion.Offset (1) .ClearContents '*************

Application.DisplayAlerts = Fals
Application.ScreenUpdating = Fals

Traseul ChDir
FN = Dir (cale & "* .xls *", vbNormal)
Do
Dacă FN <> "." Și FN <> "." Și FN <> "Summary.xlsm" Apoi '*****
ide = WB.Sheets (1) .Range („A” & Rows.Count) .End (xlUp) .Row + 1
Cărți de lucru. Deschideți numele fișierului: = cale și FN
Sheets (1) .Range ("A1"). CurrentRegion.Offset (1) .Copy WB.Sheets (1) .Range ("A" & ide)
ActiveWindow.Închide
End If
FN = Dir ()
Bucla până la FN = "
Application.DisplayAlerts = Adevărat
Application.ScreenUpdating = Adevărat
Sfârșitul Sub

Programator: un profesionist instruit să scrie și să corecteze programe defecte. Ai mai mult sens decât ai.