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: 9511
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 52 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: 9511
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: 9511
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 a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    6890
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2858
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    2045
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    727
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel komparacedvou soborů Příloha(y)
    od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky
    11
    3684
    od teichmann.ondrej Zobrazit poslední příspěvek
    22 dub 2024 15:45

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

Kdo je online

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