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

772

    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. MIksi suurin osa persuista on alkoholisteja?

      Tätä jäin pohdiskelemaan....
      Maailman menoa
      64
      3839
    2. 47
      3203
    3. Kehutaan vaihteeksi Perussuomalaisia

      Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on
      Maailman menoa
      154
      2969
    4. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      46
      2869
    5. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      75
      2426
    6. Roiskeläpät takaisin niin alkaa lasit kestämään

      "Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s
      Yleistä autoilusta
      62
      1931
    7. Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!

      ”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a
      Maailman menoa
      24
      1925
    8. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      132
      1820
    9. Kaivattusi ominaistuoksu?

      Itse vastaan juustonaksu 😅
      Ikävä
      89
      1259
    10. Mitä tarkalleen tunnet

      Minkälaisia tunteita sisälläsi liikkuu, kun tiedät, että ajattelen sinua lämmöllä ja jotain syttyy myös sinussa? Haluai
      Ikävä
      68
      1200
    Aihe