< návrat zpět

MS Excel


Téma: vytvoření sloupce s časem rss

Zaslal/a 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  1 2   další »
#015869
avatar
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
#015870
avatar
staci takto? :
Příloha: zip15870_test.zip (7kB, staženo 13x)
citovat
#015871
avatar
Pochopil jste to dobre já to špatně vysvětlil.
Potřeboval bych na to makro, je to součástí dalšího projektu. Díkycitovat
#015872
Opičák
tak, či jinak ? 9
Příloha: zip15872_casy.zip (14kB, staženo 13x)
citovat
#015873
avatar
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
#015876
avatar
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
Příloha: 7z15876_formul_zmana_zmana_svaovacch_podmnek.7z (223kB, staženo 13x)
citovat
icon #015877
eLCHa
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
#015880
avatar
Počet těch hodnot je různý.
Jednou dvacet, jednou čtyřicet.
Viz.příloha
Je to v závislosti na protiopatreni.citovat
icon #015881
eLCHa
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 Sub
citovat
#015888
avatar
Už si připadám jako nevdecnik.
Trochu v tom tápu.
Přidávám přílohu, pomůžete prosím
Příloha: zip15888_test_cas.zip (225kB, staženo 13x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

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.

Aktivní diskuse

Porovnávací Tabulka

lubo • 25.6. 10:09

Porovnávací Tabulka

Jirka78 • 25.6. 9:21

Porovnávací Tabulka

Jess • 25.6. 6:46

rozlisna tlac excelu na 2 pc

elninoslov • 24.6. 23:28

Porovnávací Tabulka

elninoslov • 24.6. 23:26

Porovnávací Tabulka

Jess • 24.6. 22:46

rozlisna tlac excelu na 2 pc

Michalko • 24.6. 7:04