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

810

    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. Vasemmistohallitus palauttaa hintasääntelyn, esim. bensalitra vain 1e.

      Tuleva vasemmistolaisista koostuva hallitus ottaa käyttöön vanhat hyvät keinot pitää hinnat kurissa. Tähän tarkoitukse
      Maailman menoa
      116
      4895
    2. Vasemmistolainen valehteli jälleen - Purra tai persut eivät luvanneet "euron bensaa"

      Väite "euron bensasta" on ensisijaisesti poliittisten vastustajien käyttämä puhdas vale. Persut kyllä kampanjoivat näky
      Maailman menoa
      115
      3978
    3. Arman Alizadin viesti puna-aktivisteille: "Pitäkää lärvinne nytkin kiinni"

      Arman Alizad kritisoi vasemmiston kaksinaismoralismia. Iranissa syntynyt suosikkijuontaja Arman Alizad pakeni perheensä
      Maailman menoa
      215
      3896
    4. Minja Koskela nostanut vasemmistoliiton kannatuksen ennätykseen

      Koskela valittiin puolueen johtoon lokakuussa 2024, ja silloin Ylen kysely antoi puolueelle 9,3 prosentin kannatuksen.
      Maailman menoa
      120
      2275
    5. Antti johtaa Petteriä jo 7,1 prosenttiyksiköllä

      Tällä menolla sdp menee kokoomuksesta kierroksella ohi jo tällä vaalikaudella. https://yle.fi/a/74-20213575
      Maailman menoa
      82
      1996
    6. Mitä on tullut

      Entisen abcn rakennuksen tilalle se oli tyhjillään monta vuotta siellä oli jo nyt valot onko huoltoasema? 5:30.
      Haapavesi
      80
      1396
    7. Harmi nainen kun

      olet niin elähtäneen näköinen. Miestä et koskaan löydä itelles. j
      Ikävä
      137
      1374
    8. Palosta selvinnyt 18 vuotias munira tarvitsi tulkin kun puhui Iltalehdelle

      Suomessa asuva 18 vuotias tarvii tulkin !!! Tää Suomea puhumaton on palossa kuolleen naisen veli ja asui perheen kanssa.
      Vantaa
      172
      1369
    9. En ymmärrä ateisteja!

      Raamattu on aitoa historiaa, jotka ovat kirjoittaneet aikalaiset! Mitä änkyröitte turhaa???
      Ateismi
      585
      1269
    10. Minne pyydän sut?

      Jotta saan nähdä 🤨
      Ikävä
      53
      1155
    Aihe