• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

aha, tak zkus fci >>
Function secti3(i)
Dim Text1 As String
Dim Start As Integer
Dim PozicePlus As Integer

Start = 1
Text1 = Replace(i, " ", "")
PozicePlus = InStr(Start, Text1, "+")

Do While PozicePlus > 0
secti3 = Val(Mid(Text1, Start, PozicePlus - Start)) + secti3
Start = PozicePlus + 1
PozicePlus = InStr(Start, Text1, "+")
Loop

secti3 = Val(Mid(Text1, Start, Len(Text1) - Start + 1)) + secti3
End Function

rád bych pomohl... ale kde je zakopanej pes?

Tak v tomto případě to jsou úplné začátky. Všichni jsme si tím prošli. Možná pomohou tyhle stránky
http://matrix.rentel.cz/zdroje/kurzy/excel%20z%C3%A1klady/start.html

Romane děkuji, netušil jsem , že je to tak jednoduché. Zase vím něco nového, třeba syntaxe
RANGE(rozsah).COPY RANGE(nová pozice) jsem ještě neviděl a funguje very good. A taky jsem trochu tápal nad END(3), asi alternativa k xlup nebo down ? dík

napadá mne malé makro, které bych si dal pod nějakou klávesu, označil buňku, kde je shluk čísel (hodnoty) a spustil >>
Sub secti()
Dim cisla$
Dim radek!

radek = ActiveCell.Row
cisla = ActiveCell.Value
Range("e" & radek).FormulaR1C1 = "=" & cisla
End Sub

napadá mne malé makříčko, které si nadefinujte na nějakou klávesu, pak označte buňku a spusťte>>
Sub celsius()
Dim retezec As String
Dim delka As Integer

retezec = ActiveCell.Value
retezec = retezec & "°C"

delka = Len(retezec)
ActiveCell = retezec
ActiveCell.Characters(Start:=delka - 1, Length:=2).Font.Size = 8

End Sub

buňka nemusí být naformátovaná v požadovaném formátu

pokud se hodnota v B3 vyskytuje v tabulce max.1x tak bych zkusil >>

=KDYŽ(COUNTIF(B$30:B$51;B$3)=1;SVYHLEDAT(B$3;B$30:G$51;6;0);KDYŽ(COUNTIF(E$30:E$51;B$3)=1;SVYHLEDAT(B$3;E$30:G$51;3;0);" "))

>RomanNTA - díky, já se tím netrápím, jen jsem chtěl vědět jestli jsem něco neopomněl. Prostě těch pár minut to vydržím. Hezký den

>Roman - žiješ ve správném domění co se týče VBA, ale moje zmínka o VBA byla reakce na odpověď od RomanNTA (..Zkus přes VBA jít po jednotlivém sloupci ...atd..). V mém prvním dotazu není žádná zmínka o procedurách, makrech či VBA atd.

>Poki - děkuji za asi marnou snahu

O makru se vůbec nezmiňuju ... , děkuji za snahu

>Roman: není důležité kdy sloupec přibude, obecně 1 sloupec se smaže (nejstarší) a přidám nový sloupec, ale vzorce se změní a ty musím opravit.

... koukám, že je docela kumšt vysvětlit problém 1-2-3 větami. Moje předchozí poznámka o počtu sloupcích (16000+256) se týkala max. počtu sloupců v různých verzích Excelu.

>RomanNTA - Je to tabulka sportovců, která vznikla v roce 1998 a ve sloupcích jsou jejich výkony v jednotlivých týdnech. Teď je těch sloupců už >16000, ale před 12 lety jich bylo snad jen 256, proto jsem to udělal tak.

VBA jsem použil (replace), samozřejmě jsem zkoušel i vypnout přepočet. On ten čas si Excelík vybere při tom přepočítávání stejně.

>Poki - díky za tip

Konkrétní příklad:
počet řádků = asi 10000
sloupec B = nejstarší data
až po
sloupec FB = nejnovější data
sloupce FC-FT = vzorce, které pracují se sloupci B-FB

každou neděli smažu nejstarší data (sloupec B) a přidám nový sloupec, počet sloupců je stále stejný.
Jenže Excel změní vzorce ve sloupci FC, takže musím nejdřív opravit v jednom řádku vzorce (FC-FT) a pak samozřejmě nakopírovat všechny řádky pod ním (10000x) tímto vzorcem. A to docela dlouho trvá (asi 10 minut). Možná jsem něco přehlédl, možná někdo z vás zná rychlejší řešení, díky.

Když už jsme tu "skoro" všichni naladěni na jednu excelovskou notu, pochlubte se se svými vlastními vzorečky a možná se najde někdo, kdo je hodně zkrátí. Jeden z mých vzorečků >> =(D6=0)*0,5+A(D6>0;D6<=3)*(5*D6+70)/100+A(D6>3;D6<=19)*(3*D6+263)/320+A(D6>19;D6<=83)*(3*D6+1223)/1280+(D6>83)*(20*D6+92*max-9296)/(80*max-6640)

jestli jsem to dobře pochopil, tak bych tam dal =F3/(1+VLEVO(D3;1)/10)

proč to bylo v letecké poště?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse