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
840
Vastaukset 4
- 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
Naiset ymmärtävät ettei talous lähde nousuun
Miten paljon järjellisempi olento nainen onkaan kuin tilastollisestikin paremmin tienaava mies. Kun kaikkialla puskuroid135875En jaksa
Enää pelleillä ja paljastan J naisen nimen. Se on Jonna ja hän ei koskaan, edes luultavasti ollut täällä. Silti piene44637Minkälainen nainen
Minkälainen kaipaamasi nainen on luonteeltaan? Kaikki hassun hauskat antava ja helppo on sallittuja, jos poikien on kovi21578Kissa eli kivuissa useita viikkoja
Ei vienyt lääkäriin vaikka kissa parka maukui ja moni seuraajakin (minäkin) näin että kissa on sairas.110543- 36532
Jos meillä olisi yhteinen koti
Niin haittaisiko sinua pitää se vähä tavaraisena? Ajattelin tänään että jos joskus asuttaisiin yhdessä ja haluaisit pal50525- 56503
Tuntuu pahalta meidän molempien puolesta
Anteeksi, että olen tällainen pelkuri. En vaan usko rakkauteen enää miehen ja naisen välillä omalla kohdalla. Tiedän, et34468Martinan mauton tyyli
Voi hyvää päivää 🤣 nyt ollaan oltu Muhiksen kanssa Kultareservin avajaisissa suorat housut jalassa ja 500€ korsetti pää121465Arvaako kukaan?
"Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni22427