Ahoj chtěl jsem vždy s novým údajem zadat podmínku, aby se bunka orámovala a s ní i pár sousedních ve stejném řídku. Nechci to řešit tabulkou a vzorce mi moc neříkají. Jako makro se mi něco povedlo ale není to přesně ono, mohl by se na to někdo podívat a upravit to, nebo mě navést?
Děkuji
makro-orámování buněk vždy s novým řádkem
Re: makro-orámování buněk vždy s novým řádkem
Ahoj, zkus tady toto:
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Column = 2 Then
Set rng = Target.Resize(1, 6)
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With
End If
Nic = Application.WorksheetFunction.CountA(Columns(2))
If Nic = 0 Then
Set rng = Columns("B:G")
With rng.Borders
.LineStyle = xlNone
End With
End If
End Sub
Re: makro-orámování buněk vždy s novým řádkem
děkuju vyzkouším "xlNone jsem zkoušel ale pořád mi to někde házelo chybu...
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: makro-orámování buněk vždy s novým řádkem
A na kieho frasa to chcete orámovať makrom ? Veď to urobte Podmieneným formátovaním:
-označte za hlavičku celé stĺpce B:G
-Domov - Podmienené formátovanie - Spravovať pravidlá - Nové pravidlo - Použiť vzorec na určenie buniek, ktoré sa majú formátovať
-ako vzorec zadajte =$B1<>""
-Formát - Orámovanie - Vonkajšie - OK - OK - OK
Aj makrom vidím hneď niekoľko problémov. Čo ak zmažete viac riadkov naraz ? Čo ak riadky (zmazané/zapísané napr. kopírovaním) nebudú za sebou ? Má sa zrušiť orámovanie prázdneho riadku medzi vyplnenými riadkami? Ak sa orámovanie ruší makrom, bude asi treba opravovať hraničné čiary, nezmaže to náhodou spodnú čiaru z riadku nad tým(neskúšal som, tipujem)? Atď...
-označte za hlavičku celé stĺpce B:G
-Domov - Podmienené formátovanie - Spravovať pravidlá - Nové pravidlo - Použiť vzorec na určenie buniek, ktoré sa majú formátovať
-ako vzorec zadajte =$B1<>""
-Formát - Orámovanie - Vonkajšie - OK - OK - OK
Aj makrom vidím hneď niekoľko problémov. Čo ak zmažete viac riadkov naraz ? Čo ak riadky (zmazané/zapísané napr. kopírovaním) nebudú za sebou ? Má sa zrušiť orámovanie prázdneho riadku medzi vyplnenými riadkami? Ak sa orámovanie ruší makrom, bude asi treba opravovať hraničné čiary, nezmaže to náhodou spodnú čiaru z riadku nad tým(neskúšal som, tipujem)? Atď...
Re: makro-orámování buněk vždy s novým řádkem
To Elninoslov..
Precizní a důsledný jako vždy děkuji za podněty, přikládám "doufám" podrobný popis toho o co mi jde.
Podmíněný formát jsem samozřejmě zkoušel, ale není to ono
Precizní a důsledný jako vždy děkuji za podněty, přikládám "doufám" podrobný popis toho o co mi jde.
Podmíněný formát jsem samozřejmě zkoušel, ale není to ono
Re: makro-orámování buněk vždy s novým řádkem
Proč nepoužijete podmíněný formát?
Aha, neumíte to. Znáte jen =B1<>"". A když to nefunguje, chcete, aby Vám někdo vyrobil makro (protože to taky neumíte).
Možností je samozřejmě hodně. Např. vzorec =$B1<>"" v podmíněném formátu funguje podle zadání.
Pokud to má fungovat podle příkladu lze použít třeba =NEBO($B1:$H1<>"")
Aha, neumíte to. Znáte jen =B1<>"". A když to nefunguje, chcete, aby Vám někdo vyrobil makro (protože to taky neumíte).
Možností je samozřejmě hodně. Např. vzorec =$B1<>"" v podmíněném formátu funguje podle zadání.
Pokud to má fungovat podle příkladu lze použít třeba =NEBO($B1:$H1<>"")
Re: makro-orámování buněk vždy s novým řádkem
To makro jsem chtěl hlavně pro sebe, stačilo upravit to moje pokud by to mělo smysl, učím se podle toho, ale to nevadí i tak děkuju za milou odpověd
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: makro-orámování buněk vždy s novým řádkem
Upravil som Vám kód formulára, pozrite si poznámky, aj TabIndex prvkov, formát stĺpca B.
Ukážte to makro na mazanie riadkov (neviem, či som nemal tú česť na inom fóre, ale nechce sa mi hľadať, súdim podľa rovnako nelogického čísla 1. v riadku s hlavičkou), každopádne nemožno riešiť kolízie s iným makrom, keď ho nevidíme.
Ukážte to makro na mazanie riadkov (neviem, či som nemal tú česť na inom fóre, ale nechce sa mi hľadať, súdim podľa rovnako nelogického čísla 1. v riadku s hlavičkou), každopádne nemožno riešiť kolízie s iným makrom, keď ho nevidíme.
- Přílohy
-
- oramovani bunek.xlsm
- (43.42 KiB) Staženo 45 x
Re: makro-orámování buněk vždy s novým řádkem
Ano, to je přesně to co jsem měl na mysli... a moc děkuji za úpravu toho makra v tom userform. Váš kod je daleko přehlednější a hlavně můžu srovnávat kde jsem dělal chybu, poznámky u toho jsou podnětné,budu zkoušet,ještě jednou děkuju
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Problém s novým PC- Ventilátory skříně. Příloha(y)
od 20olomouc » 17 led 2024 21:51 » v Problémy s hardwarem - 5
- 1228
-
od JuRas
Zobrazit poslední příspěvek
18 led 2024 14:57
-
-
-
Pomoc s novým PC okolo 40000CZK / 1600€
od andrej71 » 07 pro 2023 21:03 » v Rady s výběrem hw a sestavením PC - 28
- 5063
-
od Alferi
Zobrazit poslední příspěvek
01 úno 2024 08:16
-
-
-
Problémy s novým PC zakoupeným přes Alza - potřebuji radu Příloha(y)
od Rhadley » 09 bře 2024 19:15 » v Windows 11, 10, 8... - 9
- 1222
-
od BL!zZard
Zobrazit poslední příspěvek
10 bře 2024 18:56
-
-
- 9
- 1289
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti