VBA. Tiedon tallennus eri taulukkoihin.

Tumpelo

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.

4

770

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 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 k
      Maailman menoa
      154
      5009
    2. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      191
      4021
    3. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      138
      3684
    4. Mikä tuota vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia
      Maailman menoa
      47
      2955
    5. Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen

      No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat
      Maailman menoa
      36
      2287
    6. Mitä ajattelit kun näit

      kaivattusi ensimmäisen kerran? xd
      Ikävä
      144
      1956
    7. 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 vuotta
      Sinkut
      44
      1727
    8. Hienoa! 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.
      Maailman menoa
      35
      1468
    9. Onko erityinen paikka jossa haluaisit nyt olla

      Onko joku spesiaali lempipaikka missä mieluiten olisit?
      Ikävä
      63
      1424
    10. Orpo loukkaantui fasismiin viittaavasta sanavalinnasta

      Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk
      Maailman menoa
      26
      1309
    Aihe