No joo en tiedä onko täysin oikeessa foorumissa.
Eli ongelma on tälläinen että...
Oon tehny User Formin ja siinä on erinäisiä teksti bokseja joista pitäis saada tallennettu tietoa Taulukko1 ja Taulukko2. Siis TextBox1:sen tieto Taulukko1:een ja TextBox2:sen tieto Taulukko2:seen... Miten pitää määritellä mihin taulukkoon tallennan...
Mitä pitäs tehdä ja myönnän olevani tumpelo, kiitos.
VBA. Tiedon tallennus eri taulukkoihin.
4
770
Vastaukset
- Kotikoodari
TextBox1:n koko sisällön varastointiin riittää merkkijonomuuttuja:
(muut TextBoxit kuten TextBox1)
Dim Mj as String
Mj=TextBox1.Value
TextBox1:n sisällön varastointi riveittäin taulukkoon:
(muut TextBoxit kuten TextBox1)
Dim Taulukko1() As String
Dim RiviLkm As Integer
Dim MjLkm As Integer
Dim I As Integer
Dim J As Integer
Dim Merkki As String
Dim Mj As String
'focus textboxille
TextBox1.SetFocus
'rivien lukumäärä textboxissa
RiviLkm = TextBox1.LineCount
'taulukon tilanvaraus
ReDim Taulukko1(RiviLkm)
Mj = ""
J = 1
'focus textboxille
TextBox1.SetFocus
'textboxin merkkien lukumäärä
MjLkm = Len(TextBox1.Text)
For I = 1 To MjLkm
Merkki = Mid(TextBox1.Text, I, 1)
'vaununpalautus
If Merkki = Chr(13) Then
J = J 1
'ylitetään rivinvaihtomerkki
I = I 1
'tyhjennetään merkkijono
Mj = ""
Else
'lisätään merkki rivin merkkijonoon
Mj = Mj & Merkki
'lisätään taulukon indeksiä
Taulukko1(J) = Mj
End If
Next
'taulukon tulostus
For I = 1 To RiviLkm
MsgBox Taulukko1(I)
Next - Kunde
Tässä lyhyt ja helppo( ei taida toimia kuin Excel 2000--->)
Private Sub CommandButton1_Click()
Dim teksti As Variant
TextBox1.SetFocus
x = TextBox1.LineCount
Sheets("Taul1").Activate
Range("A1").Select
For i = 0 To x - 1
teksti = Split(TextBox1, vbNewLine)
ActiveCell = teksti(i)
ActiveCell.Offset(1, 0).Select
Next
TextBox2.SetFocus
x = TextBox2.LineCount
Sheets("Taul2").Activate
Range("A1").Select
For i = 0 To x - 1
teksti = Split(TextBox2, vbNewLine)
ActiveCell = teksti(i)
ActiveCell.Offset(1, 0).Select
Next
End Sub - Tumpelo
Joo kiitos vain. Sain poimittua noista vinkeistä juuri sellaiset tiedot joilla pääsen taas eteenpäin...
Kiitos. - Tumpelo
Voinko hakea esim. Taulukko1 tietoa ja tulostaa sen UserFormille???
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?
Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k1545009- 1914021
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah1383684Mikä tuota vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia472955Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat362287- 1441956
Nyt meni lopulliset lämmöt.
Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta441727Hienoa! Eduskunta luopui käteisen käytöstä
Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.351468Onko erityinen paikka jossa haluaisit nyt olla
Onko joku spesiaali lempipaikka missä mieluiten olisit?631424Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk261309