Postări de SamDsouza - OzGrid Forum gratuit de ajutor ExcelVBA

Problemă la salvarea fișierului de date și, de asemenea, la deschiderea fișierului

Re: Problemă la salvarea fișierului de date și, de asemenea, la deschiderea fișierului

ozgrid

Memento prietenos: nebun:

Problemă la salvarea fișierului de date și, de asemenea, la deschiderea fișierului

Re: Problemă la salvarea fișierului de date și, de asemenea, la deschiderea fișierului

Vă mulțumim pentru interogare și mă ajutați să îmbunătățesc același lucru. Voi analiza greșelile și voi învăța ce a greșit

Proiectul este al listei școlilor din zonă, cu divizia de clasă și numărul total de elevi care sunt eligibili pentru voturi de la fiecare școală

1. Va selecta școala în funcție de zonă (selecție și completare)
2. Fișierele salvate vor fi pe Zonal Wise: (Numele fișierului va fi ca Zone1.Dat, ZNorth.Dat etc. În Acesta vor fi școlile vor fi selectate și adăugate pe numărul total de zone și adăugate
3. Odată salvat: Pentru a vedea același lucru în Sheet3, adică când deschideți fișierul .Dat. De asemenea, înainte de salvare, doriți să vedeți același lucru făcând clic pe comanda Foaia 3 Vizualizare. acesta este momentul în care adăugați înregistrările.

Prima dată când folosim Două forme de utilizator, am fost confuz cu privire la ceea ce ar trebui să fie Variabile și Matrice comune

Va aprecia cu adevărat sprijinul dvs.

Problemă la salvarea fișierului de date și, de asemenea, la deschiderea fișierului

Atașat sunt următoarele fișiere pentru referință
De asemenea, mai jos este conținutul fișierului Dat între ghilimele

Nu pot obține rezultatele dorite atunci când salvați fișierul din userForm2.
se afișează 0 în fișier
Ce trebuie să împărtășesc la nivel global sau public pentru a obține corect lucrurile de mai sus

Problema 2: spank:
Aceasta la deschiderea fișierului din userform2
Problemă la DoubleClick în listbox1 din Userform2. Fișierul este deschis cu toate înregistrările sale și toate articolele
în caseta listă a userForm1. Cu excepția primului articol din prima înregistrare arată gol. Nu știu de ce

Problema 3: în UserForm1: spank:
A.) Când faceți clic pe cmdViewSheet
Nu pot vedea o singură înregistrare pe Sheet3. Chiar nu știu ce a mers prost

B.) Ajutor necesar, de asemenea, dacă fișierul a fost deschis prin. Userform2 din listbox1
Voi putea vedea toate înregistrările la apăsarea CmdViewSheet

1. Conținutul fișierului Dat:

2
1, „Chembur”, „Chembur”, 2
„Chembur”, „Ryan International”, „50”, „3127”
„Chembur”, „Sf. Anthoys”, „30”, „3999”
2, „Victoria Terminus”, „Victoria Terminus”, 2
„Victoria Terminus”, „The Cathederal & John Conon School”, „30”, „2100”
„Victoria Terminus”, „Liceul JB Petit”, „40”, „3999”

Conținutul fișierului 2.dat când am încercat să salvez

Vă va aprecia cu adevărat eforturile în rezolvarea aceluiași lucru

Dosare

(60,48 kB, descărcat 35 ori, ultima: 8 decembrie 2020)

Repetarea unui rând de titlu dacă datele din interval depășesc

Re: Repetarea unui rând de titlu dacă datele din interval depășesc

Devenind destul de disperat pentru a obține logica codării.: nebun: nebun: nebun:
Dacă cele două postări de mai sus ar fi confuze. Cred că sunt, Îmi pare rău pentru neplăceri și vă rog să uitați codarea așa cum este afișată, pe care am menționat-o în două postări cu referire la firul postat mai devreme 196314.

Începeți un nou: conform fișierului atașat la postarea 1
1. În foaia 1 De la rândurile 1 la rândurile 16: Datele rămân fixe
2. Rândul 17 dacă vedeți este RowHeader (Nu cum să definiți acest nume sau cum se va lua în considerare acest lucru)
3. Din rândurile 18 până la rândul 50 datele pot varia. Dacă datele se termină la rândul 49 sau 48 rândul, atunci acesta este sfârșitul paginii 1
4. dacă datele depășesc mai mult de 50 de rânduri, să spunem rândul 51 sau cel de-al 75-lea rând, atunci rândul 17 ar trebui să se repete pe a doua pagină și dacă tot mai multe date depășesc, rândul 17 ar trebui să se repete în pagina 3,4, 5 etc.

Solicitați doar ajutorul dvs. de intrare excelent
Mulțumesc anticipat
SamD

Repetarea unui rând de titlu dacă datele din interval depășesc

Re: Repetarea unui rând de titlu dacă datele din interval depășesc

Ar putea cineva să mă ajute pentru problema de mai sus sau orice referință de fir pe care mi-ați putea-o da pentru problema de mai sus va fi de mare ajutor.
Codificarea de mai sus preluată din firul 196314 post 20
Practic, o reprezentare îngrijită a paginilor de foaie de lucru de care am nevoie.

Vreau să repet rândul de antet definit nr. 17 de culoare albastru închis pe pagini diferite dacă datele depășesc mai mult de 50 de rânduri.

De exemplu
Datele încep de la rândul 18 de la pagina 1 și rândul pentru sfârșitul paginii se termină la rândul 50 (când este previzualizat) și, de exemplu, dacă datele depășesc mai mult de rândurile 50
apoi pe pagina următoare ar trebui să repete rândul de antet definit de culoare Albastru închis Preferabil după antetul Excel.

Sper că acest lucru se clarifică.

Repetarea unui rând de titlu dacă datele din interval depășesc

Vă doresc An Nou Fericit 2016

Atașat este fișierul „.Xlsx” pentru referință. Vă rugăm să considerați Backgorundul de culoare ca date completate. Rețineți că nu există cod macro în acest fișier

Practic vreau să repet rândul 17 dacă datele depășesc mai mult decât intervalul. care în prezent nu pot prezice și nu pot defini gama exactă de date
Am colorat verde deschis de la rândurile 1 la rândurile 16, care vor fi fixate pe pagina 1.
Culoare bej pentru datele neprevăzute care începe de la rândul 18
Rândurile albe sunt rândurile goale din gama de culoare bej.

Dacă este necesară Pauză de pagină? Chiar nu știu, dar atunci când Prevwied conform fișierului este la rândul 50 din pagina 1

Orice idee despre cum pot codifica codul de mai sus și cel de mai jos.
Mai jos este codul pentru datele afișate în culoarea bej

  1. sw = 18 ', datele încep de la rândul 18
  2. Dacă lngCount> 0 Atunci
  3. RecordSet = Adevărat
  4. ReDim SelectedArray (1 To lngCount + (mylist.Count * 2), 1 to 7)
  5. ReDim SelectedArrayDisplay (1 To lngCount, 1 to 7)
  6. Pentru lngRecord = 1 To mylist.Count
  7. Dacă lista mea (lngRecord) .Count> 0 Atunci
  8. arrayCount = arrayCount + 1
  9. arrayCount = sw
  10. Pentru lngSet = 1 To mylist (lngRecord) .Count
  11. arrayCountDisplay = arrayCountDisplay + 1
  12. arrayCount = arrayCount + 1
  13. Pentru intItem = 1 până la 7
  14. SelectedArray (arrayCount, intItem) = lista mea (lngRecord) .Item (lngSet) (intItem)
  15. SelectedArrayDisplay (arrayCountDisplay, intItem) = lista mea (lngRecord) .Item (lngSet) (intItem - 1)
  16. rowsum = sw + lngSet
  17. Următorul intItem
  18. Următorul lngSet
  19. arrayCount = arrayCount + 1 'Rând gol
  20. arrayCount = arrayCount + 1 'Rând gol
  21. incheie daca
  22. sw = arraycount + 1
  23. Următorul LngRecord
  24. Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .Borders (xlEdgeLeft) .LineStyle = xlContinuous
  25. Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .Borders (xlEdgeRight) .LineStyle = xlContinuous
  26. Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .Borders (xlInsideVertical) .LineStyle = xlContinuous
  27. Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .BorderAround Greutate: = xlThin
  28. Încheierea sub