EXCEL - relativní adresování buněk v makru Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
mmmartin
Moderátor
Elite Level 10
Elite Level 10
Příspěvky: 9639
Registrován: srpen 04
Bydliště: Praha
Pohlaví: Muž
Stav:
Offline

EXCEL - relativní adresování buněk v makru

Příspěvekod mmmartin » 07 lis 2010 22:03

Makrem chci formátovat buňku, která je např. o dva sloupce vpravo a tři řádky pod jakousi výchozí buňkou, na které je kurzor v okamžiku spuštění makra. Když to zapisuji jako klávesové makro, je adresa buňky určené k formátování zapsaná absolutně, tj. v podobě např. D5. Jak by měl řádek Range("D5").Select v makru vypadat, aby poloha "cílové" buňky byla odvozená z aktuální polohy výchozí buňky? Děkuji.
Přílohy
makro.xlsm
(11.98 KiB) Staženo 53 x
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11

Reklama
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: EXCEL - relativní adresování buněk v makru

Příspěvekod navstevnik » 08 lis 2010 08:51

Upravena procedura:

Kód: Vybrat vše

Sub Makro1()
'
' Klávesová zkratka: Ctrl+q
'
  With ActiveCell.Offset(3, 2).Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
End Sub

Uživatelský avatar
mmmartin
Moderátor
Elite Level 10
Elite Level 10
Příspěvky: 9639
Registrován: srpen 04
Bydliště: Praha
Pohlaví: Muž
Stav:
Offline

Re: EXCEL - relativní adresování buněk v makru

Příspěvekod mmmartin » 08 lis 2010 10:46

Funguje (jak jinak taky!) Děkuju.

EIDT: Ještě jedna prosba: jak bude odkaz vypadat, když chci tímto způsobem vyznačit blok buněk - např. najednou formátovat buňky D5, D6 a D7?

Dík.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11

Uživatelský avatar
Branscombe
Level 3
Level 3
Příspěvky: 469
Registrován: červen 09
Pohlaví: Muž
Stav:
Offline

Re: EXCEL - relativní adresování buněk v makru

Příspěvekod Branscombe » 09 lis 2010 21:33

Osobně bych to napsal takhle:

Kód: Vybrat vše

Selection.Offset(3, 2).Resize(3, 1).Select

Uživatelský avatar
mmmartin
Moderátor
Elite Level 10
Elite Level 10
Příspěvky: 9639
Registrován: srpen 04
Bydliště: Praha
Pohlaví: Muž
Stav:
Offline

Re: EXCEL - relativní adresování buněk v makru  Vyřešeno

Příspěvekod mmmartin » 12 lis 2010 19:16

Dík! Vyzkoušeno a použito.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4772
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12188
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    4602
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41
  • Excel - výpočet nočních hodin Příloha(y)
    od Uziv00 » 17 říj 2024 11:22 » v Kancelářské balíky
    3
    3316
    od lubo. Zobrazit poslední příspěvek
    24 říj 2024 00:00
  • Excel 2016 - vzorec kombinace podmínek Příloha(y)
    od MK_Vs » 08 led 2025 17:56 » v Kancelářské balíky
    5
    4068
    od lubo. Zobrazit poslední příspěvek
    14 led 2025 00:51

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 10 hostů