< návrat zpět

MS Excel


Téma: Barevné zvýraznění aktivního tlačítka pro makro rss

Zaslal/a 16.11.2022 9:04

PavelJanecZdravím, potřeboval bych prosím poradit, jestli lze nějak barevně odlišit právě použité makro, spuštěné ovládacím prvkem (klasické tlačítko). Mám jich v listu několik, ale potřebuju vidět, které je právě aktivní. Děkuji za radu.

Zaslat odpověď >

Strana:  « předchozí  1 2 3 4   další »
#053892
PavelJanec
Elnino, to je přesně ono. Vše funguje jak má. Děkuji moc!citovat
#053893
PavelJanec
Vlastně úplně poslední věc, jak změním velikost písma v tlačítku? Když dám "formát ovládacího prvku a změním písmo, hlásí to chybu.citovat
#053894
PavelJanec
Tak už to jde, netušil jsem, že to jde přímo pod kartou domů a změna fontu.citovat
#053896
PavelJanec
Elninoslave, šlo by to toho resetu ještě vložit, aby zobrazil všechny sloupce? Stává se mi, že něco skryju kvůli přehlednosti a zapomenu to zobrazit.

Sub reset_sesitu()
Dim Posledni As Long
Application.ScreenUpdating = False

With wsProdukty
If Not .AutoFilterMode Then .Range("A12:TV12").AutoFilter
On Error Resume Next
.ShowAllData
On Error GoTo 0

With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange wsProdukty.Range("A12:TV12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
.Application.ActiveWindow.ScrollColumn = 9
.Application.ActiveWindow.ScrollRow = WorksheetFunction.Max(Posledni - 5, 9)
.Cells(Posledni, 1).Select

With .Buttons(Split(NAZVY, ",")).Font
.Color = vbBlack
.Bold = False
End With
End With

Application.ScreenUpdating = True
End Sub

Děkuji za ochotu!citovat
#053897
elninoslov
Tak niekam vhodne, napr. pred
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
vložte riadok
.Range("A:TV").EntireColumn.Hidden = Falsecitovat
#053898
PavelJanec
Pardom Elnino, zapomněl jsem 1citovat
#053900
PavelJanec
Moc děkuji!citovat
#053902
elninoslov
OT: V tomto príspevku som naspodu v časti OT vysvetlil prečo mi radšej nick neskoňujte. To "slov" vynechajte, použite iba Elnino - to sa dá skloňovať 1citovat
#053906
PavelJanec
Elnino, prosím Vás, co zde musím změnit, aby mi to neřadilo podle sloupce TV, ale TF, špatně jsem Vám to napsal.

Sub reset_sesitu()
Dim Posledni As Long
Application.ScreenUpdating = False

With wsProdukty
If Not .AutoFilterMode Then .Range("A12:TV12").AutoFilter
On Error Resume Next
.ShowAllData
On Error GoTo 0

With .Sort
.SortFields.Clear
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange wsProdukty.Range("A12:TV12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

.Range("A:TV").EntireColumn.Hidden = False
Posledni = .Cells(Rows.Count, 1).End(xlUp).Row
.Application.ActiveWindow.ScrollColumn = 9
.Application.ActiveWindow.ScrollRow = WorksheetFunction.Max(Posledni - 5, 9)
.Cells(Posledni, 1).Select

With .Buttons(Split(NAZVY, ",")).Font
.Color = vbBlack
.Bold = False
End With
End With

Application.ScreenUpdating = True
End Sub

Já myslím, že to je řádek
.SortFields.Add2 Key:=wsProdukty.Range("TV12:TV12"), SortOn:=xlSortOnValues, ale proč je tam dvakrát TV12?citovat
#053911
elninoslov
Maličká zmena...
Příloha: zip53911_oznac-tlacitko-5.zip (38kB, staženo 4x)
citovat

Strana:  « předchozí  1 2 3 4   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

přečíst platbu a zapsat

PavDD • 25.11. 14:02

Zrušení podmíněného formátovní vložením do funkc

Jiří497 • 25.11. 12:56

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 9:05

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 8:53

Zrušení podmíněného formátovní vložením do funkc

Krifry • 25.11. 8:52

Prvních 5

Fantasyk • 25.11. 3:57

Vložení na první volnou buňku ve sloupci.

elninoslov • 25.11. 0:45