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?citovat

Michal(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")) + 2citovat

Poki(25.3.2010 9:32)#001368

Podival bych se na to, ale potreboval bych to videt, nemohl bys poslat soubor?citovat

Michal(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

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.