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

840

    Vastaukset 4

    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ä.

    Luetuimmat keskustelut

    1. Naiset ymmärtävät ettei talous lähde nousuun

      Miten paljon järjellisempi olento nainen onkaan kuin tilastollisestikin paremmin tienaava mies. Kun kaikkialla puskuroid
      Maailman menoa
      162
      1073
    2. En jaksa

      Enää pelleillä ja paljastan J naisen nimen. Se on Jonna ja hän ei koskaan, edes luultavasti ollut täällä. Silti piene
      Ikävä
      44
      727
    3. Minkälainen nainen

      Minkälainen kaipaamasi nainen on luonteeltaan? Kaikki hassun hauskat antava ja helppo on sallittuja, jos poikien on kovi
      Ikävä
      26
      678
    4. Kissa eli kivuissa useita viikkoja

      Ei vienyt lääkäriin vaikka kissa parka maukui ja moni seuraajakin (minäkin) näin että kissa on sairas.
      Tuusniemi
      128
      676
    5. Yksi asia sen esti

      Etten antanut meille mahdollisuutta
      Ikävä
      44
      659
    6. Okei, eli olet rakastunut

      Hyvä sinä, niin minäkin.
      Ikävä
      67
      615
    7. Martinan mauton tyyli

      Voi hyvää päivää 🤣 nyt ollaan oltu Muhiksen kanssa Kultareservin avajaisissa suorat housut jalassa ja 500€ korsetti pää
      Kotimaiset julkkisjuorut
      162
      575
    8. Arvaako kukaan?

      "Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni
      Haapavesi
      36
      570
    9. Jos meillä olisi yhteinen koti

      Niin haittaisiko sinua pitää se vähä tavaraisena? Ajattelin tänään että jos joskus asuttaisiin yhdessä ja haluaisit pal
      Ikävä
      52
      570
    10. Herkkyydestä

      Toisessa ketjussa toivottiin keskustelua herkkyydestä. Aloitan omalla näkemykselläni. Mielestäni herkät ihmiset ovat l
      Sinkut
      179
      530
    Aihe