< návrat zpět

MS Excel


Téma: Fce pro výběr buněk mimojiné obsahujících " rss

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.

Zaslat odpověď >

#035210
avatar
a) CTRL+F,..., Najít vše, CTRL+A
b) COUNTIFcitovat
#035214
avatar

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
#035216
avatar
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
#035217
elninoslov
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 Sub
citovat
#035219
avatar
I tady by šlo nejspíš využít triku a na místo cyklu SpecialCells.citovat
#035220
elninoslov
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... 1citovat
#035222
avatar
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
#035224
avatar

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
#035239
avatar

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35