< návrat zpět

MS Excel


Téma: VB - Control index rss

Zaslal/a 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

stop Uzamčeno - nelze přidávat nové příspěvky.

icon #001364
Poki
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
#001366
avatar
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
icon #001368
Poki
Podival bych se na to, ale potreboval bych to videt, nemohl bys poslat soubor?citovat
#001379
avatar
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)
avatar\n

Menu

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.

On-line nástroje