a) CTRL+F,..., Najít vše, CTRL+A
b) COUNTIFcitovat
b) COUNTIFcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Fce pro výběr buněk mimojiné obsahujících "
Chtělo by to něco automatického, protože bych to musel dělat asi 200krát.citovat
Jeden z triků, který se vyplatí ... nahradit hledanou hodnotu za chybovou hodnotu, tu SpecialCells umí najít a nahradit zpátky za původní hodnotu. Má to jistá omezení, ale často je to použitelné.citovat
Já jsem si zkusil i všechny buňky jediněčně zformátovat, ale stejně na to nemůžu přijít. Mohu-li se zeptat, jak se tam vkládá ten kód?citovat
MS Excel
Téma: Fce pro výběr buněk mimojiné obsahujících " 
Zaslal/a 1.3.2017 23:03
Zdravím, mohl byste mi prosím někdo poradit, jak z fůry buněk vybrat ty, které obsahují (mimojiné) určitý text (případně říct, kolik jich je).
Děkuji mnohokrát, kramelius.
(1.3.2017 23:49)#035210
(2.3.2017 6:15)#035214
xlnc napsal/a:
a) CTRL+F,..., Najít vše, CTRL+A
b) COUNTIF
Chtělo by to něco automatického, protože bych to musel dělat asi 200krát.citovat
Chtělo by to asi napsat, proč je vůbec chceš vybrat...
Vizuálně označit si je můžeš například přes podmíněné formátování. Výběr buněk pak lze udělat tak jak píše xlnc. Počet ti vypíše jak COUNTIFS, tak i funkcionalita "Najít a nahradit". Část řetězce v jiném řetězci lze hledat např. přes funkci NAJÍT. Pokud se má postup opakovat, tak na to lze udělat makro, k tomu je ale nutné vložit přílohu, a detailněji popsat problematiku...
P.citovat
Vizuálně označit si je můžeš například přes podmíněné formátování. Výběr buněk pak lze udělat tak jak píše xlnc. Počet ti vypíše jak COUNTIFS, tak i funkcionalita "Najít a nahradit". Část řetězce v jiném řetězci lze hledat např. přes funkci NAJÍT. Pokud se má postup opakovat, tak na to lze udělat makro, k tomu je ale nutné vložit přílohu, a detailněji popsat problematiku...
P.citovat
Function NajdiVsetky(Co As String, Kde As Range) As Range
Dim Bunka As Range, Prva As String
Set Bunka = Kde.Find(What:=Co, LookIn:=xlValues, lookAt:=xlPart)
If Not Bunka Is Nothing Then
Prva = Bunka.Address
Set NajdiVsetky = Bunka
Do Until Bunka Is Nothing
Set NajdiVsetky = Union(NajdiVsetky, Bunka)
Set Bunka = Kde.FindNext(Bunka)
If Bunka.Address = Prva Then Exit Do
Loop
End If
Set Bunka = Nothing
End Function
Sub VasaProcedúra()
Dim Vsetky As Range
Set Vsetky = NajdiVsetky("*ab*", Worksheets("Hárok1").Range("A1:C4"))
If Not Vsetky Is Nothing Then Vsetky.Select
'Nejaká činnosť
Set Vsetky = Nothing
End Subcitovat
Dim Bunka As Range, Prva As String
Set Bunka = Kde.Find(What:=Co, LookIn:=xlValues, lookAt:=xlPart)
If Not Bunka Is Nothing Then
Prva = Bunka.Address
Set NajdiVsetky = Bunka
Do Until Bunka Is Nothing
Set NajdiVsetky = Union(NajdiVsetky, Bunka)
Set Bunka = Kde.FindNext(Bunka)
If Bunka.Address = Prva Then Exit Do
Loop
End If
Set Bunka = Nothing
End Function
Sub VasaProcedúra()
Dim Vsetky As Range
Set Vsetky = NajdiVsetky("*ab*", Worksheets("Hárok1").Range("A1:C4"))
If Not Vsetky Is Nothing Then Vsetky.Select
'Nejaká činnosť
Set Vsetky = Nothing
End Subcitovat
Premýšľal som nad tým chvíľu, ale keďže som nenašiel parameter v SpecialCells, ktorý by mi na to sedel, tak som od toho upustil... 
citovat
citovat(2.3.2017 10:42)#035222
Nemám tedy teď k disposici počítač, ale výsledky dotazníku mezi Indonésany jsou tady:
https://docs.google.com/spreadsheets/d/1u6GhwvmwiD9g0sZYM8uZK_EkijC3dvLg7BB6XmMTuEg/edit?usp=drivesdk
Háček je taky v tom, že kromě odpovědi a),b),c) jsou tam taky jejich vlastní odpovědicitovat
https://docs.google.com/spreadsheets/d/1u6GhwvmwiD9g0sZYM8uZK_EkijC3dvLg7BB6XmMTuEg/edit?usp=drivesdk
Háček je taky v tom, že kromě odpovědi a),b),c) jsou tam taky jejich vlastní odpovědicitovat
(2.3.2017 11:10)#035224
elninoslov napsal/a:
Premýšľal som nad tým chvíľu, ale keďže som nenašiel parameter v SpecialCells, ktorý by mi na to sedel, tak som od toho upustil...
Jeden z triků, který se vyplatí ... nahradit hledanou hodnotu za chybovou hodnotu, tu SpecialCells umí najít a nahradit zpátky za původní hodnotu. Má to jistá omezení, ale často je to použitelné.citovat
(2.3.2017 22:12)#035239
xlnc napsal/a:
Jeden z triků, který se vyplatí ... nahradit hledanou hodnotu za chybovou hodnotu, tu SpecialCells umí najít a nahradit zpátky za původní hodnotu. Má to jistá omezení, ale často je to použitelné.
Já jsem si zkusil i všechny buňky jediněčně zformátovat, ale stejně na to nemůžu přijít. Mohu-li se zeptat, jak se tam vkládá ten kód?citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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