< návrat zpět
MS Excel
Téma: VB - Control index 
Zaslal/a Michal 24.3.2010 12:38
Zdravim,
Potrebujem zistit nasledujucu vec jedna sa o VB - excel:
Mam nastroj Multipage, kde mam formular s otazkami a do Text boxov sa zapisuju odpovede tych textboxov je okolo 41, nechcem manualne zapisovať do buniek v Exceli kazdy udaj zvlast,
Tak mam proceduru ktora prechadza vsetkymi objektmi v multipage a keď je control typu "TextBox" tak ulozi hodnotu z konkretneho textboxu do bunky.
Problem je v tom ze mi to nezapisuje postupne ako to mam zobrazené na formulari, ale mam to prehadzane (napr. zapis. Hodnota_textbox1, Hodnota_textbox2, Hodnota_textbox3, a potom ide Hodnota_textbox7, ..)
Pritom Vlastnosť TabIndex mam nastavený poporadí..
Kód procedúry:
Dim pPage As page, cCont As Control
Dim pocitadlo as Integer
For Each pPage In UFnavrh_OS.MultiPage1.Pages
For Each cCont In pPage.Controls
If TypeName(cCont) = "TextBox" Then
pocitadlo = pocitadlo + 1
Cells(nextrow, pocitadlo) = cCont.Text
End If
Next cCont
Next pPage
Uzamčeno - nelze přidávat nové příspěvky.
Poki(24.3.2010 15:24)#001364
Zdravim,
takhle zfleku me toho moc nenapada, jen to, ze cislovani textboxu nemusi odpovidat poradi na page, takže napr. Textbox7 muze byt na konkr. page uz treti (protoze na dalsi page jsou dalsi textboxy, ktere byly pridany driv).
Jinak se mi taky nepozdava moc to 'nextrow' - je to nekde ulozene jako promenna?
citovatMichal(25.3.2010 8:42)#001366 
dakujem za reakciu, textboxi mam nazvane TextBox1o, TextBox2o atď. :( nefjem.. este rozmyslam ze by sa dal spraviť cyklus takym sposobom ze by som vyskladal názov
a pridal hodnotu premennej z cyklusu ktora by isla po poradi TextBox&hodnota_premennej&o.text = atď. len neviem toto spraviť. s tymto mi pripadne nevies poradiť ?
nextrow identifikuje posledny pradzdny riadok:
nextrow = Application.WorksheetFunction.CountA(Range("A:A")) + 2
citovat Poki(25.3.2010 9:32)#001368 Podival bych se na to, ale potreboval bych to videt, nemohl bys poslat soubor?
citovatMichal(25.3.2010 11:07)#001379 Dakujem velmi pekne za pomoc, uz som to vyriešil cez vlastnosti Tag pri textboxe. a takto mi to funguje.. :)) huraaa, serinkal som sa stym uz asi aj 3 dni..xe..
citovat
RSS nejnovější články