Převzetí řetězce, Split podle znaku odřádkování a vzniklé pole překlopit do listu.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: textbox multiline do listu
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.hT17XHvxxu4citovat
MS Excel
Téma: textbox multiline do listu 
Zaslal/a 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.
(30.8.2018 14:54)#041358
(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
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.hT17XHvxxu4citovat
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
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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články