Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  30 31 32 33 34 35 36 37 38   další » ... 44
Rozdělení textu v buňce do několika sloupců (20.8.2020 14:30)

elninoslov napsal/a:

Ak som to pochopil správne, tak sa dá použiť aj kratší vzorec:
=TRIM(MID(SUBSTITUTE($A2;" ";REPT(" ";LEN($A2)));(COLUMN(A1)-1)*LEN($A2)+1;LEN($A2)))
=PROČISTIT(ČÁST(DOSADIT($A2;" ";OPAKOVAT(" ";DÉLKA($A2)));(SLOUPEC(A1)-1)*DÉLKA($A2)+1;DÉLKA($A2)))Příloha: 47740_47733_rozd_stlpce.xlsx (11kB, staženo 1x)


Ty kráso, taky dost dobrý. 9 Holt kluci jsou mistři no. Oběma smekám. 1

Rozdělení textu v buňce do několika sloupců (20.8.2020 9:48)

mepexg napsal/a:

Po zabudovaní pomocného vzorca 1. do 2.Příloha: 47733_rozd_stlpce.xlsx (12kB, staženo 3x)


Dost dobrý. 1

I když zase tak jednoduché mi to nepřijde jak píše vikizaj

Rozdělení textu v buňce do několika sloupců (19.8.2020 17:59)

Možná by bylo lepší příště vložit přílohu než obrázek, aby jsme to nemuseli opisovat.

Formát arabské na římské číslice (13.8.2020 8:38)

A nechcete to vzorcem?

=ROMAN(50)
=ROMAN(A1)

ověření dat (9.8.2020 21:05)

Fertig. 1

ověření dat (9.8.2020 20:20)

Nechápu co má dělat buňka B15 4

ověření dat (9.8.2020 20:17)

Máte to hotové v mailu.

ověření dat (9.8.2020 20:10)

Nechápu proč, ale nejde mi poslat příloha. 4

Přidání listu s aktuální datem (8.8.2020 12:19)

A nestačilo by to jen takhle jednoduše?

Sub Add()

Dim WS As Worksheet
Dim Nazev As String

Nazev = Format(Date, "dd.mm.yyyy")

On Error Resume Next
Set WS = Worksheets(Nazev)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze přidat, jelikož se aktuální den už v sešite nachází!", vbExclamation: Exit Sub

Sheets("VZOR").Visible = True
Sheets("VZOR").Copy After:=ActiveSheet
ActiveSheet.Name = Nazev
ActiveWindow.Zoom = 100
ActiveSheet.Range("A1").Select
Sheets("VZOR").Visible = False

End Sub

Kontingenční tabulka - automaticky filtr (14.7.2020 21:38)

Stačí jen naformátovat buňky. 1

Kontingenční tabulka - automaticky filtr (14.7.2020 20:41)

Je to maticový vzorec. Měl jsi to správně, stačilo jen potvrdit CTRL+Shift+Enter

Kontingenční tabulka - automaticky filtr (14.7.2020 13:49)

Mepexg

Já právě mám Office 2016, ale přesto to nejde. Asi dělám něco špatně. Ale děkuji.

Kontingenční tabulka - automaticky filtr (14.7.2020 6:16)

Tady máte ještě makro.

Není to profi, ale funguje.

Sub Zapsat()

If Sheets("Program").Range("A2") = "" Then
MsgBox "Zadejte Figuru", vbExclamation
Else

Dim Radek As Long

Radek = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Program").Range("A4:G4").Copy
Sheets("Archív").Cells(Radek, 1).PasteSpecial xlPasteValues
Sheets("Archív").Cells(Radek, 8).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Sheets("Archív").Select
Range("A2").Select
Application.CutCopyMode = False

Sheets("Program").Select
Range("A4,D4:G4").ClearContents
Range("A4").Select

MsgBox "Figura úspěšně zapsána do archívu", vbInformation

End If

End Sub

mepexg

mě ta Vaše příloha nefunguje, co dělám špatně? 7

Kontingenční tabulka - automaticky filtr (13.7.2020 22:04)

Tak to musí už někdo chytřejší. Ale měl byste něco udělat s tím makrem, všiml jsem si, že přenášíte buňky i se vzorci a formátem což Vám bude dělat neplechu. Kopírujte pouze hodnoty.

Kontingenční tabulka - automaticky filtr (13.7.2020 20:41)

Už jsem to nestihl. :-)


Strana:  1 ... « předchozí  30 31 32 33 34 35 36 37 38   další » ... 44

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje