< návrat zpět

MS Excel

Téma: Pole se seznamem_zvýraznění textu rss

Zaslal/a Marekh 2.5.2023 23:27

Zdravím, potřeboval bych pomocí VBA červeně označit texty na řádku až do sloupce F k odpovídajícímu výběru v poli se seznamem. Zároveň aby takto vybraný řádek byl viditelný bez nutnosti rolování. Záznamů je daleko více než v příloze. Šlo by to ?

Příloha: xls54891_sesit.xls (38kB, staženo 6x)
Zaslat odpověď >
Marekh(3.5.2023 8:51)#054892
avatar
Už to mám. Bylo zapotřebí si jen vzpomenout, že existuje taky ActiveX prvek :)citovat
Marekh(3.5.2023 9:00)#054893
avatar
Jen příkladem o co mi vlastně šlo.
Příloha: xls54893_sesit2.xls (52kB, staženo 12x)
citovat
Lugr(3.5.2023 14:26)#054896
Lugr
A nešlo by to jen takhle jednoduše?

Private Sub ComboBox1_Change()

Dim POCET As String
Dim RADEK As String
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("data")

On Error Resume Next

POCET = Cells(Rows.Count, "A").End(xlUp).Row
RADEK = WorksheetFunction.Match(ComboBox1.Value, wsDATA.Range("A4:A" & POCET), 0) + 3

If ComboBox1.Value = "" Then wsDATA.Range("A1").Resize(POCET, 6).Interior.ColorIndex = xlNone: Exit Sub

wsDATA.Range("A1").Resize(POCET, 6).Interior.ColorIndex = xlNone
wsDATA.Range("A" & RADEK).Resize(1, 6).Interior.ColorIndex = 6

End Subcitovat
Lugr(3.5.2023 17:22)#054899
Lugr
Trochu jsem si hrál. 5
Příloha: zip54899_sesit.zip (20kB, staženo 11x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje