Zadám první dvě buňky do A1 12:20, do A2 12:50, označím obě buňky a roztáhnu (chytnu A2 v pravém dolním rohu) - automatické dokončovaní vyplní ostatní buňky. Pokud jsem tedy dobře pochopil Tvé zadaní :)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: vytvoření sloupce s časem
MS Excel
Téma: vytvoření sloupce s časem 
Zaslal/a nemotora 23.10.2013 16:11
Dobrý den,
poprosil bych o pomoc.
Potřebuji vytvořit sloupec hodnot.
Počet hodnot je 20 - 40
Jedná se o nárůst o 30 nebo 60 minut
Prvotni čas mám v buňce a1
Příklad:12:20 - 12:50 - 13:20....
Díky za každou radu
staci takto? :
Příloha: 
15870_test.zip (7kB, staženo 13x)
citovat15870_test.zip (7kB, staženo 13x)Pochopil jste to dobre já to špatně vysvětlil.
Potřeboval bych na to makro, je to součástí dalšího projektu. Díkycitovat
Potřeboval bych na to makro, je to součástí dalšího projektu. Díkycitovat
Momentálně nemám soubor u sebe, ale myslím, že by to mohlo být ono.
Díky moc za práci.
Zítra to přizpůsobím a uvidím výsledek.
díkycitovat
Díky moc za práci.
Zítra to přizpůsobím a uvidím výsledek.
díkycitovat
Tak se mě to nepovedlo upravit
V příloze soubor kam to potřebuji i se strucnym popisem.
Poradíte,prosím ještě
Díky
V příloze soubor kam to potřebuji i se strucnym popisem.
Poradíte,prosím ještě
Díky
Příloha: 
15876_formul_zmana_zmana_svaovacch_podmnek.7z (223kB, staženo 13x)
citovat15876_formul_zmana_zmana_svaovacch_podmnek.7z (223kB, staženo 13x)
10 hodnot - počáteční čas 12:00 - interval 30 minut
Range("A1:A10").Value = Evaluate("(""12:00"")/1+(ROW(1:10)-1)*(""0:30"")/1")citovat
Range("A1:A10").Value = Evaluate("(""12:00"")/1+(ROW(1:10)-1)*(""0:30"")/1")citovat
Počet těch hodnot je různý.
Jednou dvacet, jednou čtyřicet.
Viz.příloha
Je to v závislosti na protiopatreni.citovat
Jednou dvacet, jednou čtyřicet.
Viz.příloha
Je to v závislosti na protiopatreni.citovat
Příloha je 7z a tu tu nemám a instalovat nebudu.
Je to ukázka - dejte si tam proměnné.
Nebo vám je tam někdo dá na základě té přílohy.
Ukázka:Sub subSetValues()
Dim iValuesCount As Integer
iValuesCount = 20
Dim nStart As Single, nInterval As Single
nStart = CSng(CDate("12:00"))
nInterval = CSng(CDate("0:30"))
Dim sFormula As String
sFormula = nStart & "+(ROW(1:" & iValuesCount & ")-1)*" & nInterval
sFormula = Replace(sFormula, ",", ".")
Range(Range("A1"), Cells(iValuesCount, 1)).Value = Evaluate(sFormula)
End Subcitovat
Je to ukázka - dejte si tam proměnné.
Nebo vám je tam někdo dá na základě té přílohy.
Ukázka:Sub subSetValues()
Dim iValuesCount As Integer
iValuesCount = 20
Dim nStart As Single, nInterval As Single
nStart = CSng(CDate("12:00"))
nInterval = CSng(CDate("0:30"))
Dim sFormula As String
sFormula = nStart & "+(ROW(1:" & iValuesCount & ")-1)*" & nInterval
sFormula = Replace(sFormula, ",", ".")
Range(Range("A1"), Cells(iValuesCount, 1)).Value = Evaluate(sFormula)
End Subcitovat
Už si připadám jako nevdecnik.
Trochu v tom tápu.
Přidávám přílohu, pomůžete prosím
Trochu v tom tápu.
Přidávám přílohu, pomůžete prosím
Příloha: 15888_test_cas.zip (225kB, staženo 13x)
citovat15888_test_cas.zip (225kB, staženo 13x)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