Příspěvky uživatele
< návrat zpět
elninoslov napsal/a:
Pr.Příloha: 57138_vyfarbi.zip (19kB, staženo 2x)
Díky za vytvoření excelu.
Přebarví mi to jen červeně ten Nezapsaný prostoj, ale přechod jinou barvou to nepřebarví
EDIT:
už jsem na to přišel neumí to diakritiku.
To už si nějak upravím..
Děkuji moc krát
Zdravím,
mám kód:
Dim myRange As Range, E()
Dim substr As String, endstr As String
Dim txtColor As Long, x As Long, y As Long, Pos As Long, endPos As Long, startPos As Long, LenEndStr As Long
Set myRange = Worksheets(Active).Range("E16:M138")
If myRange.Cells.Count > 1 Then E = myRange.Value Else ReDim E(1, 1): E(1, 1) = myRange.Value
substr = "Nezapsané prostoje-"
endstr = "min"
txtColor = 3
LenEndStr = Len(endstr)
For y = 1 To UBound(E, 1)
For x = 1 To UBound(E, 2)
Pos = 1
Do
startPos = InStr(Pos, E(y, x), substr, vbTextCompare)
If startPos <> 0 Then
endPos = InStr(startPos, E(y, x), endstr, vbTextCompare)
If endPos <> 0 Then
myRange.Cells(y, x).Characters(Start:=startPos, Length:=endPos - startPos + LenEndStr).Font.ColorIndex = txtColor
Pos = endPos + LenEndStr
End If
End If
Loop Until startPos = 0 Or endPos = 0
Next x
Next y
obarvuje mi to správně, ale chtěl bych přidat další "substr" aby mi to obarvovalo další častí kódu, ale jiné např. "substr2 = "Přechod" pod jinou barvou - např. txtColor2 = 3
Šlo by to nějak zkrátit ten kód, abych nemusel mít 2x za sebou stejný kód a jen upravené proměnné? těch barev a textu tam mam více.
elninoslov napsal/a:
=IFERROR(INDEX(Archiv!A:A;SMALL(IF($D$6=Archiv!$A$2:$A$9999;ROW(Archiv!$A$2:$A$9999));IF(COUNTIF(Archiv!$A$2:$A$9999;$D$6)>20;COUNTIF(Archiv!$A$1:$A$9999;$D$6)-20;0)+ROW(Archiv!1:1)));"")
=IFERROR(INDEX(Archiv!A:A;SMALL(KDYŽ($D$6=Archiv!$A$2:$A$9999;ŘÁDEK(Archiv!$A$2:$A$9999));KDYŽ(COUNTIF(Archiv!$A$2:$A$9999;$D$6)>20;COUNTIF(Archiv!$A$1:$A$9999;$D$6)-20;0)+ŘÁDEK(Archiv!1:1)));"")
Děkuji já měl tušení, že se ozvete zrovna vy
Děkuji moc krát - vyzkouším až po novém roce už nebudu v práci a dám vědět.
Ale jak Vás znám tak to bude plně funkční.
Zdravím,
Prosím Vás mohl by mi někdo poradit. Mám tabulku, která vyhledává záznamy z listu Archiv, ale narazil jsem na problém, jelikož bych potřeboval, aby mi to zobrazovalo, tak jak to je, ale od spodu.
Momentálně je v poli D6 - 1244
Když přepíšete na 357, tak to vyhledá záznamy, ale od shora, ale potřeboval bych, aby to vyhledávalo podledních 20 záznamů z listu Archiv.
Díky za jakoukoliv pomoc
elninoslov napsal/a:
Akurát by som nedával celých milión riadkov F:F a A:A, ale rozumnejšie zvolenú oblasť podľa potreby napr. F2:F10000...
Jojo to jsem si už upravil ale děkuji moc krát.
Ráno moudřejší večera už mi to nemyslelo a potřeboval jsem nakopnout.
Ještě jednou diky
elninoslov napsal/a:
Napr.:
=LOOKUP(2;1/(NOT(ISBLANK(F:F))*(A:A=M1));F:F)
=VYHLEDAT(2;1/(NE(JE.PRÁZDNÉ(F:F))*(A:A=M1));F:F)
Formát A a M na Všeobecné.Příloha: 57091_57090_sesit101.xlsx (11kB, staženo 0x)
děkuji moc krát
Zdravím,
Potřebuji, aby se mi vyhledala poslední hodnota ze sloupce F, ale je tam podmínka podle čísla figury podle buňky M1
Např. u Figury 763 to je poznámka kolo a potřebuji, když změním buňku M1 na např. 1244, aby mi to vyhledalo poznámku autobus (i když je figura 1244 i níže, ale není u ní vložená poznámka)
Výsledná hodnota by měla být v poli M3
Děkuji za pomoc
Zkoušel jsem i pomocí tabulky odšrknout prázné hodnoty a pomocí makra CTRL+UP a pak offsetem o jedno níže, ale stejnak mi to sjelo o pozici níže i když bylo pole prázdné a skryté v tabulce.
€Ł мσşqμΐτσ napsal/a:
Ahoj,
u Insert Formu jsem showModal nastavil z True na False, a teď jde vyhledávat i nadále.
Přidal jsem i časovač, tak se na to mrkni, popřípadě dej vědet jestli jsem to nepochopil špatně, to zadání Příloha: 57066_oprava.zip (112kB, staženo 1x)
Děkuji moc sice jsem ještě pár úprav udělal. Přidal jsem ten časovač do tlačítka a přidal jsem tam minuty a neresetoval se čas při úpravě textboxu, ale vše funguje perfektně a podle mého přání.
Děkuji moc krát za ochotu.
€Ł мσşqμΐτσ napsal/a:
Ahoj,
u Insert Formu jsem showModal nastavil z True na False, a teď jde vyhledávat i nadále.
Přidal jsem i časovač, tak se na to mrkni, popřípadě dej vědet jestli jsem to nepochopil špatně, to zadání Příloha: 57066_oprava.zip (112kB, staženo 0x)
Mrknu na to ve středu a dám vědět. Jsem mi PC
Zatím děkuji
Zdravím,
chtěl bych Vás požádat o pomoc. Už si nevím rady.
Mám makro (viz příloha), když kliknete na kartě Program na tlačítko tak se Vám spustí UserForm.
Když kliknete na tlačítko v UserFormu (CommandBurron1) tak Vám vyskočí další UserForm ve kterém po vyhledání kódu např. 357, tak Vám to ukáže veškeré parametry.
Ale problém nastane v tom, když dáte odhlásit a vrátí se zpět na první UserForm a chtěl bych se přihlašovat ID kartou (momentálně je nastaveno 1234567890 nebo 1122334455), tak se správně přihlásíte do druhého UserFormu, ale nejde mi nic vyhledat.
Mohl by jste mi někdo poradit?
Pak mám ještě druhý problém, ve kterém chci při druhém UserFormu spustit časovač vypnutí a vrácení do prvního UserFormu. To sice teď nemám puštěně mám tam '', ale chtěl bych, aby mi to při spuštění UserFormu pustilo časovač vypnutí např. 10sekund.
A když kliknu na jakékoliv jiné tlačítko, tak se vypne první časovač a zapne druhý časovač ze stejným časem. (takové automatické odhlašování).
Mockrát děkuji za jakokouliv radu
elninoslov napsal/a:
No a aký máte Office? Lebo tam je tých funkcií viac použitých.
Môžete to urobiť obdobne pomocou Kontingenčných tabuliek s WC vo Filtre, materiálom ako Riadky, a Hodnota bude UKONČENÍ s voľbou Maxima.Příloha: 56903_56900_sesit10kt.xlsx (20kB, staženo 2x)
Díky kontingenční tabulka mě nenapadla
elninoslov napsal/a:
Napr. takto?
=IFERROR(LET(p;$B$2:$B$27=Y$4;g;FILTER($G$2:$G$27;p);e;FILTER($E$2:$E$27;p);u;UNIQUE(g);HSTACK(u;BYROW(u;LAMBDA(x;MAX(FILTER(e;g=x))))));"N/A")
=IFERROR(LET(p;$B$2:$B$27=Y$4;g;FILTER($G$2:$G$27;p);e;FILTER($E$2:$E$27;p);u;UNIQUE(g);SROVNAT.VODOROVNĚ(u;BYROW(u;LAMBDA(x;MAX(FILTER(e;g=x))))));"N/A")Příloha: 56901_56900_sesit10.xlsx (14kB, staženo 2x)
Nemůžu použít fukci UNIQUE nemám office 365
Zdravím,
potřeboval bych pomoct při zobrazení jedinečných hodnot a u poslední hodnoty, aby to vypsalo datum a čas z jiného sloupce.
Děkuji za jakoukoliv radu.
elninoslov napsal/a:
Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.
elninoslov napsal/a:
Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.
Díky, díky a ještě jednou díky.
Fantasyk napsal/a:
To bylo velké nakopnutí...
Díky zítra vyzkouším, ale jak Vás znám tak to bude fungovat perfektně.
Ještě jednou díky
Samozřejmě, že to fungovalo perfektně, ale já jsem trochu nemyslel.
Potřeboval bych všechny listy s 0, 1, 2 a 3
Nějak mi nedošlo, že měsíc ma více dnů než 9
Uživatelské menu
\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