< návrat zpět

MS Excel


Téma: Nalezení sloupců dle kritéria rss

Zaslal/a 31.7.2013 10:10

Ahoj. Mohli byste mi prosím poradit s následujícím a ne asi složitým makrem ?

Mám označené sloupce slůvkem PRAVDA a NEPRAVDA.
Potřeboval bych najít všechny sloupce PRAVDA a
překopírovat je na list 1, jeden vedle druhého. Šlo by o určitou oblast.
Např. x5 - x20 kde x znamená určitý sloupec.

Moc děkuji za pomoc.

Zaslat odpověď >

Strana:  1 2   další »
#014547
avatar
tu je jedno riesenie, ale je dost pomale :)
Příloha: zip14547_test.zip (15kB, staženo 10x)
citovat
#014548
avatar
Pokud bych si mohl vymýšlet - je možné to nějak urychlit? V reálném případě budu mít více dat ( sloupců).

A ještě bych potřeboval, aby to nebralo celý sloupce, ale třeba jen řádky 5-10.

jinak děkujicitovat
icon #014549
eLCHa
Smažte hodnoty NEPRAVDA (Ctrl+H)a označujte pouze sloupce ke kopírování (PRAVDA)

Pak lze použít -
.SpecialCells(xlConstants).EntireColumn.Copy

Pak je kód velmi rychlýcitovat
#014550
Opičák
zkus, tohle, nic moc elegantního, ale celkem rychlé.
Řádky který se mají kopírovat nastavíš v makru.
Příloha: zip14550_copytrue.zip (19kB, staženo 10x)
citovat
#014551
avatar
tu je to prerobene na copy // je to rychlejsie

Sub test()
y = 1
With Sheets("Table")
For x = 1 To .Cells(1, 1).CurrentRegion.Columns.Count
If .Cells(1, x).Value = "PRAVDA" Then
.Range(.Cells(1, x), .Cells(4, x)).Copy Sheets("NEW").Cells(1, y)
y = y + 1
End If
Next
End With
End Sub


je to na riadok od 1 do 4citovat
icon #014552
eLCHa
Pokud můžu

@Opičák
Vždycky mě překvapíte ;)
Na jednu stranu jste schpen vymyslet pěkné věci a pak napíšete toto:

Sheets("List1").Select
Range(Cells(odRadku, colx), Cells(doRadku, colx)).Select
Selection.Copy
Sheets("List2").Select
Cells(1, n + Cells(1, Columns.Count).End(xlToLeft).Column).Select
ActiveSheet.Paste


Totéž Palooo
If Sheets("Table").Cells(1, x).Value = "PRAVDA" Then
tady přece stačí
If Sheets("Table").Cells(1, x).Value Then
funkčně to je sice správně - ale PRAVDA je přece hodnota typu Boolean

nebo místo For x se nabízí Foreach

@Opičák, @Palooo
Základem rychlého řešení je co nejméně přístupu na sešit
Tzn, načtěte oblast do proměnné typu Range a pak ji vložte jediným krokem
Když už to teda musíte řešit cyklem ;)

Omlouvám se, není to kritika, jen k zamyšlení...citovat
#014553
avatar
To eLCHa: vychadzal som zo zadania kde bolo napisane ze stlpce su vyznacene slovami PRAVDA a NEPRAVDA ... takze musi to byt slovne

a k tomu SET-ovanie oblasti tak nato nemam mozgove bunky :))) musel by som viac literatury nastudovat .... hold som starej a lenivejcitovat
icon #014554
eLCHa
Abych jen nekritizoval, tak v opičákově příloze takto
s tím, že NEPRAVDA jsem vymazal

Sub Makro2()
Dim rToCopy As Range
Set rToCopy = Rows(1).SpecialCells(xlCellTypeConstants).EntireColumn

Dim rRowsToCopy As Range
Set rRowsToCopy = Range("2:6")

Set rToCopy = Intersect(rToCopy, rRowsToCopy)
rToCopy.Copy Sheets("List2").Cells(1)

Set rToCopy = Nothing
Set rRowsToCopy = Nothing
End Sub


Takže jsem schopen to zkopírovat jediným řádkem:
Intersect(Rows(1).SpecialCells(xlCellTypeConstants).EntireColumn, Range("2:6")).Copy Sheets("List2").Cells(1)citovat
icon #014555
eLCHa
@Palooo
vychadzal som zo zadania kde bolo napisane ze stlpce su vyznacene slovami PRAVDA a NEPRAVDA ... takze musi to byt slovne

Takže to nemusí být slovně ;) - PRAVDA je prostě true a NEPRAVDA je false ;)

Ale není to nic hrozného - jen je to zbytečné ťukání do klávesnicecitovat
#014556
avatar
To eLCHa: mne napriklad neprecita ako hodnotu boolean PRAVDA .... ked tam je napisane TRUE tak to precita

mozno je to koli tomu ze mam nemecky office

... ale zas nadruhu stranu ... to je tak ked programatorom dovolia nedefinovavat premenne .) flakaren hrubeho zrna :)))citovat

Strana:  1 2   další »

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09