elninoslov napsal/a:
Pr.Příloha: 57138_vyfarbi.zip (19kB, staženo 2x)
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)));"")
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...
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)
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)
€Ł мσş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)
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)
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)
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.
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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.