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

MS Excel

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

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: 37691_zapis-vzor.xlsx (57kB, staženo 27x)

Jméno
Kontrola
Text
	Ukázka

---

dejv351(20.9.2017 23:09)#037692

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: 37692_zapis-vzor.xlsx (57kB, staženo 31x)

citovat

syd(21.9.2017 1:24)#037693

Dd,
zkuste. Pokud vyhovuje, zkopirujte si vzorce pro stavy/skore. Krizkovani je makrem.

Příloha: 37693_37692_zapis-vzor_macro.zip (66kB, staženo 39x)

citovat

elninoslov(21.9.2017 2:17)#037694

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: 37694_zapis-vzor2.zip (57kB, staženo 31x)

citovat

dejv351(21.9.2017 9:35)#037700

děkuji moc za pomoc super. sám bych na to nepřišel.citovat

elninoslov(21.9.2017 9:57)#037702

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

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: 37731_zapis-sipky-new.xlsx (85kB, staženo 27x)

citovat

elninoslov(22.9.2017 19:16)#037732

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: 37732_zapis-vzor2.zip (195kB, staženo 33x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse