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.
Tumpelo
4
806
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
Purra hyökkää nyt suomalaisen duunarin kimppuun teettämällä mamuilla palkatonta työtä
Niinpä niin. Persut duunaripuolue, HAH. Joko alkaa kovapäisinkin persu älyämään, että persut ovat Suomen kansan vastain26311655Mitä hyvää rikkaiden hyysääminen Suomelle tuonut?
Minäpä vastaan: ei yhtikäs mitään, vaan pelkkää vahinkoa. Demareiden ansiosta Suomen valtio oli käytännössä vielä 1980-13810950Tytti Tuppurainen häpäisi Suomen epäisänmaallisella lausunnollaan USA:n ulkoministerille Rubiolle.
https://www.is.fi/politiikka/art-2000011816267.html Miksi Tytti Tuppurainen päästetään antamaan typeriä lausuntoja noin2356278Purra ehdottaa vaan Tanskan mallia, joka on erittäin hyvä malli
Purra ehdotti helmikuussa Suomeen Tanskan mallia, jossa maahanmuuttajilta vaaditaan työntekoa sosiaalitukien saamiseksi.2155129Kokoomusnuoret: Sosiaalitukien työvelvoitteen tulisi koskea kaikkia
Riikka Purra on esittänyt, että maahanmuuttajilta tulisi edellyttää palkatonta työtä sosiaalitukien vastineeksi. Kokoom1573600- 1743518
L/OVER ikuisesti minun
Aivan järkyttävä sarja. Ei voi olla katsomatta, mutta tuo omat muistot mieleen. Näyttelijät näyttelevät turhankin hyvin532428Mitä voisit miehenä tehdä?
Suojellaksesi kaikkia naisia ja että heillä olisi juuri sinun käytöksen takia edes vähän turvallisempaa. Mitä miehenä3221932Jyrki Linnankivi, Jyrki 69 - Goottirokkarista kirkonmieheksi Lappiin!
Jyrki Linnankivi eli Jyrki 69 on The 69 Eyes -rockyhtyeen vokalisti. Lauluhommien lisäksi hän sanoittaa, säveltää ja sov101778Onnea Maria ja Vilma Amazing Race -voitosta!
Maria Guzenina ja Vilma Vähämaa voittivat Amazing Race Suomi -kisan. Voiton hetkellä Guzenina paljasti, miksi valitsi Vi161664