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
791
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
S-kauppa nosti hintoja, K-kauppa laski
Elintarvikkeiden arvonlisävero laski vuodenvaihteessa 13,5 prosenttiin. S-kauppa siirsi alennuksen suoraan katteisiin pi675927Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan
Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan3495749Hiihtäjä Vilma Nissisen kommentit aiheutti paniikkia
ja hernettä vedettiin nenään. Nissinen kertoi torstaina haastattelussa, kun häneltä kysyttiin, että tykkääkö hän hiihtä934731Huuto yltyy persujen piirissä Venezuelan johdosta.
Kohta kakofonia yltyy kun persut tajuavat mitä Venezuelassa tapahtui. Von den Leydenki jo kipuilee kuten persut EU:ssa y122235Ikävä uutinen uudesta Unelmia Italiassa kaudesta - Iso pettymys tv-katsojille!
Unelmia Italiassa -sarja kertoo Ellen Jokikunnaksen perheen elämästä Suomessa ja Italiassa. Nyt Ellen on kertonut tuleva182048Nyt ottaa persua pattiin: sähköauto joulukuun myydyin
🤣 prööt prööt pakoputkellaan pörisevää persua ottaa nyt saamaristi pattiin, kun paristoilla kulkeva sähköauto on noussu521952Ovatko Perussuomalaiset kommunisteja?
Toiset sanovat että ovat, toiset sanovat että eivät. Ainakin heillä on paljon sen aatteen piirteitä, koska haluavat kont431870Martina vuokraa yksiötä
Nyt on tarkka'ampujan yksiö vuokrattavana 800 e. Toivottavasti löytyy hyvä asukas.2511211Jokaisella tytöllä on supervoimansa
Millaisia ajatuksia artikkeli herättää? Mainos: Dove | ”Itsetuntoni oli ihan romuttunut” – Peppina Rosén haastaa tavan2031114Voi kauhiaa: keikkapaikat keikahtavat juopottelun puutteessa!
Vai ei tule rahaa artistille viinanmyynnin vähennyttyä. Missähän muualla kannattavuus korreloi myrkyn imemismäärän ka641061