< návrat zpět

MS Excel


Téma: označit jeden/více celých řádků rss

Zaslal/a 17.2.2022 20:49

Zdravím.
Poradil by někdo prosím,
1.jak označit celý řádek, když v něm /kdekoliv/ mám označenou jednu buňku.
2.jak označit v makru více řádků, když v nich kdekoliv mám označeno více buňek.

asi by to chtělo zjistit z adresy bunky/bunek jejich řádek a to pak použít v označení jednoho/více řádků.

příklad: v listu si označím třeba B2,B5,C7,B10 apod
a chci pak kopírovat celé tyto řádky/2,5,7,10/, nebo třeba do jiného listu

Děkuji
P

Zaslat odpověď >

Strana:  « předchozí  1 2
#052158
avatar
2.jak označit v makru více řádků, když v nich kdekoliv mám označeno více buňek.


'zapamatuju si vybrané buňky
dim vybrano as range
Set vybrano = Selection

' vybarvim řádek, kde je nějaká vybraná buňka
vybrano.EntireRow.Interior.Color = vbRed


kopírovat celé tyto řádky/2,5,7,10/, nebo třeba do jiného listu

Dim i As Long
Dim area As Range
Dim list2 As Worksheet

'každý řádek zkopíruje do List2
set list2 = Worksheets("List2")
i = 1
For Each area In vybrano.EntireRow.Areas
With area
list2.Cells(i, 1).Resize(.Rows.CountLarge, .Columns.CountLarge).Value = .Value
i = i + .Rows.CountLarge
End With
Next area
citovat
#052164
avatar
Jestli můžu ještě něco.
není mi jasná syntax jak se zapisuje oblast s proměnnou

Potřebuju vybrat :

oblast ActiveSheet.Range("C3:E11").Select ok
oblast s prom. Range("B2", "B" & PosledniPlnyRadek).Select ok

ale jak napsat dvě oblasti s proměnnou ? B2:B3 a C2:C?
Range("B2:B3", "C2:C & PosledniPlnyRadek").Select nejde

Pcitovat
#052166
avatar
Range("B2:B3", "C2:C" & PosledniPlnyRadek).SelectUvozovky musí být za písmenem C, ne před závorkou.
Stejně jako tadyRange("B2", "B" & PosledniPlnyRadek).Selectcitovat
#052169
avatar
Jo, super.
a když chci vybrat dvě nesousedící oblasti:
píšu:

Range("A2:A3,C2:C3").Select ' dvě samostatné, nesousedící oblasti /může jich být i více ??

ale nejde mi to zas s tou proměnnou:
Range("A2:A3", "C2:C" & PosledniPlnyRadek).Select
kde je zrada ?citovat
#052170
avatar
Zase ten stejný problém. Napište si to pod sebe a zahrajte si hru "Najdi rozdíly". Měl byste najít 2 rozdíly, když pominu nahrazení čísla 3 proměnnou.

Co je tam jinak?citovat
#052179
avatar
Ok, našel jsem
Range("D8:D11,Y8:Y" & PosledniPlnyRadek).Select

Ale další prkotina, furt vyhazuje chybu když chci obě oblasti definovat s promennou :

Range("D8:D & PosledniPlnyRadek,Y8:Y" & PosledniPlnyRadek).Select

Tady je nutné použít zase jiný styl zápisu ?citovat
#052181
avatar
Všechno co je mezi uvozovkami je text.
Proměnnou (její hodnotu) připojím k textu pomocí znaku &.
Takže:
"A1" program bere jako text A1

Mám proměnnou Radek = 1
pak platí:
"A" & Radek si program přebere jak A1

ale

"A & Radek" není A1 ale je jeden text "A & Radek"

Příklady:

Souvislá oblast:Range("D8:D9", "F8:F9").Select
Range("D8:D" & Radek, "F8:F" & Radek).Select


Dvě nespojité oblasti:Range("D8:D9, F8:F9").Select
Range("D8:D" & Radek & ", F8:F" & Radek).Select
citovat
#052184
avatar
Děkuju, byl to teda "porod"
Hezký večercitovat
#052267
avatar
Vše funguje.
nevěděl by jste ještě, jak obsah označených buněk vložit do Label.caption?
jedná se vždy o dva sloupce a x-počet řádků.

Oblast jsem si označil takto , ale potřebuji její obsah vložit jako text emailu :

'text e-mailu
strBody = "Dobrý den,posílám blabla"
strBody = strBody & "...tady ten výpis obsahu buněk označených" & vbCrLf
strBody = strBody & " S pozdravem" & vbCrLf

jak to udělat? Uložit nějak ten obsah buněk do proměnné?
..nebo třeba do nějakého Label.caption?

Pcitovat
#052268
avatar
bunky jsem si označil příkazem :

Range("XFC8:XFC" & PosledniPlnyRadek & ", XFD8:XFD" & PosledniPlnyRadek).Select
Selection.Copycitovat

Strana:  « předchozí  1 2

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