Příspěvky uživatele
< návrat zpět
Ahoj asi jde o triviální problém, nicméně stále se mi nedaří to rozlousknout. Ve formuláři zadávám do textboxu text, který se mi vkládá do sloučených bunek F15:G15. Podle délky zadaného textu potřebuji automaticky upravit výšku bunky a text zalomit. Funguje mi to v případě, že zadávám výšku pevně, ale příkaz AutoFit mi excel proste nesežvejká, což mi nejde do hlavy. Děkuji za rady. Zkoušel jsem to následovně:
Private Sub TextBox1_Change()
Sheets("List1").Range("F15:G15").WrapText = True
Sheets("List1").Range("F15:G15").Rows.AutoFit
'Sheets("List1").Range("F15:G15").Rows.RowHeight = 30
End Sub
Dobrý den,
prosím o radu. Potřeboval bych vytvořit adresář s proměnnou jako názvem podle aktuálního datumu, což není problém..následně bych do něj chtěl uložit sešit, ale nevím jak zadat cestu do tohoto adresáře. Děkuji za rady.
Private Sub CommandButton2_Click()
adresar = Format(Now, "yyyymmdd")
MkDir adresar
ActiveWorkbook.SaveAs Filename:="C:\User\215781\????\poptavka" & Format(Now, "yyyymmdd") & ".xlsm"
End Sub
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články