< návrat zpět
MS Excel
Téma: textbox multiline do listu
Zaslal/a oskar 30.8.2018 14:09
Ahoj, potřeboval bych pomoci s jedním problémem. Mám textbox s více řádky a potřeboval bych, aby se tyto jednotlivé řádky po zmáčknutí tlačítka uložili do samostatných buňek.
xlnc(30.8.2018 14:54)#041358 Převzetí řetězce, Split podle znaku odřádkování a vzniklé pole překlopit do listu.
citovat
oskar(30.8.2018 20:35)#041361 Prosím nemohl bys mi napsat kod. Funkci split neznám. znak odřádkování je ¶. děkuji.
citovat
marjankaj(30.8.2018 21:25)#041362 oskar napsal/a:
Prosím nemohl bys mi napsat kod. Funkci split neznám. znak odřádkování je ¶. děkuji.
A google znáš?
https://www.google.com/search?client=firefox-b&ei=5UOIW63WKoTTwAKopaz4Aw&q=vba+split+funkce&oq=vba+split+funkce&gs_l=psy-ab.3..0i71k1l8.0.0.0.30681.0.0.0.0.0.0.0.0..0.0....0...1..64.psy-ab..0.0.0....0.hT17XHvxxu4
citovat
elninoslov(30.8.2018 21:43)#041363 Private Sub CommandButton1_Click()
Dim Pole() As String
If Len(TextBox1.Text) > 0 Then
Pole = Split(TextBox1.Text, vbCrLf)
ActiveSheet.Cells(1, 1).Resize(UBound(Pole) + 1, 1).Value = WorksheetFunction.Transpose(Pole)
End If
End Subcitovat