Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  44 45 46 47 48 49 50 51 52   další » ... 53

Ahoj,

taky nevím jestli jsem to dobře pochopil :-), ale předpokládám, že první řádek je jakýsi kalendář a druhý řádek třeba odvedené kusy z kterých je třeba udělat průměr pouze v pracovní dny (Po - Pá).
V tom případě bych do 3. řádku vložil vzorec:
=KDYŽ(DENTÝDNE(A1;2)>=1;KDYŽ(DENTÝDNE(A1;2)<=5;A2;"");"")
kdy typ 2 počítá dny týdne od pondělí, tudíž je-li den větší nebo rovno 1 a zároveň menší nebo rovno 5, tak se do 3. řádku zapíše hodnota z druhého řádku, jinak se tam nezapíše nic.
Pak už stačí jen udělat průměr 3. řádku.

M@

Zkusil bych to pomocí SUMIF / COUNTIF

M@

Nejjednodužší by byl příkaz: Shell "calc" :-), ale tady nevím co je myšleno tím displejem?

můžu vidět příklad?
Zatím jsem se setkal jen s tím že při obrovském čísle od určitého znaku sází 0, ale tolika místná čísla neumím ani přečíst :-))

Ahoj, zkusím to trochu popsat :-)
Příklad:
=svyhledat("neco";A1:D5;3;0)
funkce svyhledat prohledá pouze první sloupec zadané oblasti A1:D5 (první sloupec v tomto případě = A) a vrátí hodnotu ze sloupce číslo 3 (dle prohledávané oblasti A=1, B=2, C=3), tudíž je-li na některém z prvních 5ti řádků sloupce A hodnota "neco", tak jako výsledek dostanu hodnotu ze sloupce C daného řádku.
hledané hodnota "neco" lze nahradit odkazem na buňku (např E1), prohledávaná oblast pak lze zafixovat, aby se vzorec při roztažení neposouval ($A$1:$B$5 - fixuje sloupce i řádky, A$1:B$5 - fixuje pouze řádky, $A1:$B5 - fixuje pouze sloupce).
Snad to pomůže :-)
M@

No samotné načtení by se prakticky vužit dalo třeba na porovnání fotografie vyfocené s různým nastavením a vybrat si optimální nastavení. Přeci jen prohlížeče umožňují porovnání fotek pouze vizuálně, ale už ne podle parametrů.
Asi rozsáhleší využití by bylo, kdyby se do metadat dalo i zpětně i zapsat, například název fotografie, popis, autor, copyright, GPS apod.
No zkusil jsem to :-)

Na "nástěnce" jsem narazil o pěkný článek o EXIF datech fotografií, s čímž teda skušenosti mám z různých prohlížečů, ale tak mě napadlo, jak by se tyto data daly načíst do excelu - např. pomocí VBA programu, který by mi vypsal všechny fotografie adresáře do sloupce A a do dalších sloupců vložil EXIF data. Nezkoušel už někdo něco takového?
Díky
M@

Teoretick by to šlo, kdyby se graf neodkazoval na absolutní pozici $A$1:$A$10, ale prakticky teda nevím jak to obejít, protože ikdyž jsem odkaz na zdrojová data přepsal na A1:A10, tak si to excel sám opět přepsal.

Zkusil jsem to hodit do příkladu.
Snad to pomůže.

M@

No nevím jak by se dalo udělat aby se makro spustilo ihned po napsání daného textu, ale jde použít sheet change, což znamená ověření textu v cílové buňce ihned po potvrzení změny buňky (Enter, Tab, šipky atd.). Pak by to vypadalo nějak takto:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target = "Ahoj" Then MsgBox "Ahoj"
End Sub

kdy message box, se nahradí vlastní procedurou.

M@

Ahoj, kdyžtak přilož příklad, ono je občas těžký si něco představit :-)

Dobrý den,

tady je příklad kódu se smyčkou prohledávající sloupec A od řádku 2 po první prázdnou buňku a porovnávající aktuální datum s datem v buňce. Uzamykání / odemykání probíhá v téže buňce (.cells(radek,1)), což logicky nemá smysl, v paxi bude asi nahrazeno celým řádkem (.rows(radek)), nebo rozmezím (.range("B" & radek, "D"& radek))

Private Sub Workbook_Open()
Dim radek As Single
radek = 2
List1.Unprotect "heslo"
Do While Cells(radek, 1) <> ""
If List1.Cells(radek, 1) = Date Then List1.Cells(radek, 1).Locked = False Else List1.Cells(radek, 1).Locked = True
radek = radek + 1
Loop
List1.Protect "heslo"
End Sub

M@

Nevím jak je to myšleno s oblastí, ale počítat čísla končící 1 lze třeba takto:
Public Sub pocitej()
Dim pocet As Single
Dim radek As Single
radek = 1
pocet = 0

Do While Cells(radek, 1) <> ""
If Right(Cells(radek, 1), 1) = "1" Then pocet = pocet + 1
radek = radek + 1
Loop

MsgBox pocet
End Sub

Ahoj,

za předpokladu že na stránce bude jen 1 "shape", tak by šlo použít:


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "ANO" Then ActiveSheet.Shapes(1).AutoShapeType = msoShapeRoundedRectangle
If Cells(1, 1) = "NE" Then ActiveSheet.Shapes(1).AutoShapeType = msoShapeDiamond
If Cells(1, 1) = "NEVÍM" Then ActiveSheet.Shapes(1).AutoShapeType = msoShapeFoldedCorner
End Sub


což se dá rozšířit nejen na změnu tvaru (autoshapetype), ale i na zobrazit / skrýt (visible = true / false)

Dále lze objekty pojmenovat:
ActiveSheet.Shapes(1).Name = "tvar"
a do budoucna místo indexu (1) se v kódu lze odkazovat na ("tvar"). Což lze využít například pojmenováním "R1C1" tak vím že třeba při změně buňky s řádkem 1 a sloupcem 1 se mi má změnit shape "R1C1".

Osobně jsem něco takového ještě nikdy nepoužil :-)

M@

Tak jsem na to mrknul a problém je v tom, že ve vzorci když je splněna podmínka tak vkládáš číslo do uvozovek "2", což znamená že to pro excel je jako text, dále používáš slučování výsledků podmínek "" & "2" což opět lze jen u textu a tudíž pak dané buňky nelze sčítat.
Zkus do buňky K5 zadat vzorec
=KDYŽ(L5="A";KDYŽ(I5<J5;1;2);KDYŽ(I5>J5;2;0))
a pak ho roztáhnout, ten původní to byla docela divočina :-).

V buňce B25 pak máš cyklický odkaz, kdy vzorec
=SUMIF(B:B;"CHI";K:K)
se rozmezím B:B se odkazuje i na buňku s výsledkem.
M@


Strana:  1 ... « předchozí  44 45 46 47 48 49 50 51 52   další » ... 53

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09