< návrat zpět

MS Excel

Téma: nevím jak opravit chybu u funkce SVYHLEDAT rss

Zaslal/a dejv351 20.9.2017 22:50

Dobrý den,
mám tabulku, ve které chci v poli kapitán domácích a i kapitán hostů, aby se mi přeneslo jmméno ze seznamu pod tabulkou u kterého je písmeno "C". Ale když zadám funkci SVYHLEDAT podle návodu zde, tak mi to vyhdnotí chybu. 1.hodnota a nebo 2. není k dispozici. Dále prosím o radu ještě se dvěma věcmi v tabulce(formuláři). 1. u tabulky 95+ mám u každého řádku čísla a chtěl bych, když na to kliknu se v políčku u čísla udělal krížek a číslo zůstalo pod ním, pokud to jde. 2. aby u tabulky stav se mi počítal výsledek. Když zadám v tabulce výsledek legy 2:1 nebo 2:0 započítal 1 bod na straně kde je 2 a kde je 1 nebo 0 zůstala nula. s tím aby se to pak na dalším řádku sečetlo nebo byl rovno. Předem děkuji za pomoc.

Příloha: xlsx37691_zapis-vzor.xlsx (57kB, staženo 27x)
Zaslat odpověď >
dejv351(20.9.2017 23:09)#037692
avatar
ps: doplnění tabulky o to jak by to mělo vypadat ve výsledku v bodě 2. Ještě jestli by se dalo udělat aby mi to dole ukázalo průběžný výsledek. předem děkuji za rady a pomoc
Příloha: xlsx37692_zapis-vzor.xlsx (57kB, staženo 31x)
citovat
syd(21.9.2017 1:24)#037693
avatar
Dd,
zkuste. Pokud vyhovuje, zkopirujte si vzorce pro stavy/skore. Krizkovani je makrem.
Příloha: zip37693_37692_zapis-vzor_macro.zip (66kB, staženo 39x)
citovat
elninoslov(21.9.2017 2:17)#037694
elninoslov
Pr.

EDIT: Aha, tak neskoro :) Takmer to isté :) Dobrý nápad s označením inej bunky, aby bolo možné odkrížikovať práve zakrížikovanú.
Příloha: zip37694_zapis-vzor2.zip (57kB, staženo 31x)
citovat
dejv351(21.9.2017 9:35)#037700
avatar
děkuji moc za pomoc super. sám bych na to nepřišel.citovat
elninoslov(21.9.2017 9:57)#037702
elninoslov
A viete čo by možno stálo za skúšku ? Nepoužiť Worksheet_SelectionChange ale namiesto nej Worksheet_BeforeRightClick. Výhody by to malo 2:
1. Väčšinou sa prekliknete omylom ľavým tlačítkom, nie pravým.
2. Ostane Vám kurzor na danej bunke.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bunka As Range
If Target.Cells.Count = 1 Then
Set Bunka = Intersect(Target, Range("N14:AA15,N17:AA18,N20:AA21,N23:AA24,N27:AA28,N30:AA31,N33:AA34,N36:AA37,N42:AA43,N45:AA46,N48:AA49,N51:AA52,N55:AA56,N58:AA59,N61:AA62,N64:AA65"))
If Not Bunka Is Nothing Then
With Bunka.Borders(xlDiagonalDown)
.LineStyle = IIf(.LineStyle = xlContinuous, xlNone, xlContinuous)
End With
With Bunka.Borders(xlDiagonalUp)
.LineStyle = IIf(.LineStyle = xlContinuous, xlNone, xlContinuous)
End With
Cancel = True
End If
End If
End Sub
Len je tam doplnený ten 1 riadok
Cancel = True

EDIT: Malá úprava na žiadosť v prílohe.citovat
dejv351(22.9.2017 15:52)#037731
avatar
zde posílám novou tabulku, kde bych to křížkování potřeboval rošířit po celé tabulce, kde jsou ty čísla. děkuji
Příloha: xlsx37731_zapis-sipky-new.xlsx (85kB, staženo 27x)
citovat
elninoslov(22.9.2017 19:16)#037732
elninoslov
Pozerám, že včera mi to nezožralo prílohu. Takže tu je aj tá N:AI aj tá N:AR, zmena v jedinom písmenku.

PS: Ešte ak chcete si vyskúšajte normálne cez formát bunky, aká Vám bude najviac vyhovovať hrúbka čiary a farba čiary. A Dajte vedieť.
Příloha: zip37732_zapis-vzor2.zip (195kB, staženo 33x)
citovat

Uživatelské menu

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

Menu

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.

On-line nástroje