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
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
- sw = 18 ', datele încep de la rândul 18
- Dacă lngCount> 0 Atunci
- RecordSet = Adevărat
- ReDim SelectedArray (1 To lngCount + (mylist.Count * 2), 1 to 7)
- ReDim SelectedArrayDisplay (1 To lngCount, 1 to 7)
- Pentru lngRecord = 1 To mylist.Count
- Dacă lista mea (lngRecord) .Count> 0 Atunci
- arrayCount = arrayCount + 1
- arrayCount = sw
- Pentru lngSet = 1 To mylist (lngRecord) .Count
- arrayCountDisplay = arrayCountDisplay + 1
- arrayCount = arrayCount + 1
- Pentru intItem = 1 până la 7
- SelectedArray (arrayCount, intItem) = lista mea (lngRecord) .Item (lngSet) (intItem)
- SelectedArrayDisplay (arrayCountDisplay, intItem) = lista mea (lngRecord) .Item (lngSet) (intItem - 1)
- rowsum = sw + lngSet
- Următorul intItem
- Următorul lngSet
- arrayCount = arrayCount + 1 'Rând gol
- arrayCount = arrayCount + 1 'Rând gol
- incheie daca
- sw = arraycount + 1
- Următorul LngRecord
- Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .Borders (xlEdgeLeft) .LineStyle = xlContinuous
- Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .Borders (xlEdgeRight) .LineStyle = xlContinuous
- Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .Borders (xlInsideVertical) .LineStyle = xlContinuous
- Sheet1.Range ("A18"). Redimensionare (lngCount + (mylist.Count * 2) + 3, 8) .BorderAround Greutate: = xlThin
- Încheierea sub
Dosare
(12,2 kB, descărcat 27 ori, ultima: 10 decembrie 2020)
Abonați din intervalul Eroare într-o listă
Re: Abonament în afara intervalului de eroare într-o listă
mulțumesc pentru sugestie și nu voi ignora sugestia, așa cum ți-am cerut că ai răspuns corect.
În prezent, sunt confuz ceea ce intenționez să fac. Odată cu un cadru logic complet și un pic de efort dacă Stuck va reveni întotdeauna
și, de asemenea, în Holiday Mood
Vă mulțumim pentru ajutor prompt.
Vă doresc An Nou Fericit 2016
La revedere și ai grijă
Abonați din intervalul Eroare într-o listă
Re: abonament în afara intervalului de eroare într-o listă
Mulțumim Cytop pentru răspunsul prompt. De asemenea, am învățat ceva nou „Transpose” pe care nu l-am folosit niciodată în Excel în sine, dar am făcut unele lucrări și cum să folosesc funcția Transpose în foaia de lucru și într-adevăr sugesstion dvs. a fost cu adevărat interesant. Mulțumesc o tonă Dragă
De fapt, după ce am postat firul, mi-am dat seama că a trebuit să. Adăugați ceea ce am făcut conform următoarelor
- Dim FileRep Ca șir
- FileRep = "C: \ Schools \ ListSchools.dat"
- Deschideți FileRep pentru intrare ca numărul 1
- Intrare # 1, n%
- ReDim Board $ (1 până la n%)
- Pentru i% = 1 până la n%
- Intrare # 1, Școli $ (i%)
- ListBox1.AddItem Școli $ (i%)
- Apoi eu%
- Închideți numărul 1
Mă întrebam să presupunem dacă mai există puține versiuni cu școli $ (i%), zona $ (i%), consiliul $ (i%) în aceeași linie a fișierului
Cum ar trebui să apară Listbox cu lățimea corectă a coloanei și capetele de coloană corecte.
Orice idee de mai jos
- Pentru i% = 1 până la n%
- Intrare # 1, Școli $ (i%), Suprafață $ (i%), Consiliul $ (i%)
- '' '' 'ListBox1.AddItem Școli $ (i%)
- myitem.add Array (Listbox1.List (i%, 0), Listbox1.List (i%, 1), Listbox1.List (i%, 2))
- Apoi eu%
Puteți arunca o idee pe myitem.add Array (Listbox1.List (i%, 0), Listbox1.List (i%, 1), Listbox1.List (i%, 2))
Unde Listbox1.List (i%, 0) = va citi datele școlilor
Listbox1.List (i%, 1) = va citi datele zonei
Listbox1.List (i%, 2)) = va citi datele Board-ului
Abonați din intervalul Eroare într-o listă
Am scos abonamentul din Range Error
Nu am putut afla de ce eroarea de mai sus și ar dori să afișeze toată lista școlilor din Listbox dintr-un fișier „ListSchools.Dat”
Cum pot depăși eroarea de mai sus și, de asemenea, să văd datele în caseta listă
- Private Sub cmdOpenFile_Click ()
- dim n ca întreg, i ca întreg
- Dim FileRep Ca șir
- FileRep = "C: \ Schools \ ListSchools.dat"
- Deschideți FileRep pentru intrare ca numărul 1
- Intrare # 1, n%
- Școli ReDim $ (1 până la n%)
- Pentru i% = 1 până la n%
- Intrare # 1, Școli $ (i%)
- ListBox1.List = Școli $ (i%, 0)
- Apoi eu%
- Închideți numărul 1
- Sfârșitul Sub
Problemă cu două forme de utilizator. Numai prima înregistrare se afișează la deschiderea fișierului
Re: Problemă cu două forme de utilizator. Numai prima înregistrare se afișează la deschiderea fișierului
Inag Oh Doamne. Nu cred că o mică schimbare a făcut minuni
Salutări sezonului Oh Man. Craciun Fericit
Mulțumesc mult drag.
Problemă cu două forme de utilizator. Numai prima înregistrare se afișează la deschiderea fișierului
Oricine poate rezolva problema de mai jos
Am fost blocat pe problema dintre formularele de utilizator Two nos.
și într-adevăr este regretabil că nu avem meniuri avaialbe pentru formele de utilizator în VBA
Oricum
Având două forme de utilizator
Userform1. Unde trebuie afișate datele și butonul de comandă pentru a deschide fișierul din USerform2
Userfomr2 au creat o casetă listă cu un nume de fișier atunci când se face dublu clic sau se apasă Enter pe caseta listă se deschide fișierul
cu date. Aceleași date sunt afișate în Textbox1 din UF1. Dar arată doar prima înregistrare din caseta de text a UF1 și
nu afișează alte înregistrări când sunt apăsate butoanele Următorul sau Anterior. Mă întreb de ce?
Două fișiere sunt atașate pentru referință. trebuie să schimbați Listschools.txt în ListSchools.Dat când descărcați
Dosare
(30,87 kB, descărcat 33 ori, ultima: acum 2 ore)
(200 octeți, descărcat 36 ori, ultima: acum 2 ore)
Afișare în grup ca pe selecție
Re: Afișarea grupată conform selecției
Conform răspunsului nr. 14 din firul 196314, au fost adăugate codurile de mai jos în fișierul atașat („Suturi-Sortare-Rev1.xlsm”) trimise cu o săptămână în urmă.
- Private Sub cmdDisplaySelectedRecords_Click ()
- Dim SortCollection Ca colecție nouă
- Dim Selectedarray (), myObject, xitem, RateXitem
- Dim lngRecord As Long, lngSet As Long, intItem As Long, arrayCount As Long, cSutureCount As Long, _
- rw At Long, și At Long
- Reducere Tarife $ ()
- Dacă lngCount> 0 Atunci
- Cu Sheet2
- La eroare Reluați în continuare
- Pentru fiecare xitem din .Range ("A2: A8")
- SortCollection.Add Array (", ", ", ", ", ", ")
- SortCollection.Add Array (CStr (xitem.Value), ", ", ", ", ", "), CStr (xitem.Value)
- Următorul
- Se termina cu
- ReDim Selectedarray (1 To lngCount, 1 to 7)
- Pentru lngRecord = 1 To mylist.Count
- Pentru lngSet = 1 To mylist (lngRecord) .Count
- arrayCount = arrayCount + 1
- Pentru intItem = 1 până la 6
- Selectedarray (arrayCount, intItem) = lista mea (lngRecord) .Item (lngSet) (intItem - 1)
- Următorul
- La eroare Reluați în continuare
- SortCollection.Add Array (mylist (lngRecord) .Item (lngSet) (1), mylist (lngRecord) .Item (lngSet) (2), _
- mylist (lngRecord) .Item (lngSet) (3), mylist (lngRecord) .Item (lngSet) (4), _
- mylist (lngRecord) .Item (lngSet) (5), 2, (mylist (lngRecord) .Item (lngSet) (5) * 2)), _
- lista mea (lngRecord) .Item (lngSet) (0) & "
"_
"& mylist (lngRecord) .Item (lngSet) (2))
"& mylist (lngRecord) .Item (lngSet) (2)
"& mylist (lngRecord) .Item (lngSet) (2), mylist (lngRecord) .Item (lngSet) (0)
cu Răspunsul nr. 16 în firul 196314 ca mai jos
practic creează o nouă colecție „SortCollection” pentru a vă organiza toate seturile înregistrate salvate
SortCollection este întâi umplut cu categorii de produse
Cardiac
Chirurgie genrală
Ginecologie
Ortopedie
Apoi sortează și buclează seturile de înregistrări și adaugă înregistrările după ce categoria sa abd le salvează cu cheia „categoria
codul nu "
Dacă „Categoria
Codul "nu există cheie, apoi recuperează setul înregistrat la Object Array
Adaugă unul la obiectul extraordinar și șterge vechea înregistrare și adaugă noul obiect de înregistrare la colectare înainte de categoria sa
De asemenea, obțin următorul rezultat în Sheet6 conform codificării de mai sus