Pretpostavljam da svaka od navedenih kontrola upisuje vrednost u ćeliju. U tom slučaju za svaku kontrolu imaćeš nešto ovako:
ThisWorkbook.Worksheets("Tabelle1").Cells(red, kolona).Value =
vrednost kontrole
a/ Ako se sve vrednosti upisuju u isti red onda je red = mrow iz prethodnog primera, a vrednost kolone menjaš.
b/ Ako se podaci ne upisuju u isti red nego u različite redove ali postoji izraz kojim se može izračuanati red u koji treba upisati, ako je poznat red za prvu kontrolu, onda za prvu kontrolu pišeš red = mrow, a za sledeće kontrole red zameniš odgovarajućim izrazima tipa a*mrow + b
c/ Ako se podaci ne upisuju u isti red nego u različite redove i ne postoji izraz kojim se mogu povezati ovi redovi onda za svaku kontrolu pamtiš prethodnu poziciju i onda je uvećavaš. Znači za svaku kontrolu imaćeš odgovrajuću promenljivu mrow1, mrow2, mrow3 itd i po tri reda kao u prethodnom primeru.
Code:
Private Sub CommandButton1_Click()
Dim mrow1 As Long, mrow2 As Long
' Upisuje se prva kontrola
mrow1 = ThisWorkbook.Worksheets("Pom").Range("B1").Value + 20
ThisWorkbook.Worksheets("Tabelle1").Cells(mrow1, 5).Value = TextBox1.Value
ThisWorkbook.Worksheets("Pom").Range("B1").Value = mrow1
' Upisuje se druga kontrola
mrow2 = ThisWorkbook.Worksheets("Pom").Range("B2").Value + 10
ThisWorkbook.Worksheets("Tabelle1").Cells(mrow2, 7).Value = TextBox2.Value
ThisWorkbook.Worksheets("Pom").Range("B2").Value = mrow2
'...
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Forma sa popunjavanjem razlicitih celija
