< návrat zpět

MS Excel


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

Zaslal/a 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 4x)
Zaslat odpověď >

#054892
avatar
Už to mám. Bylo zapotřebí si jen vzpomenout, že existuje taky ActiveX prvek :)citovat
#054893
avatar
Jen příkladem o co mi vlastně šlo.
Příloha: xls54893_sesit2.xls (52kB, staženo 10x)
citovat
#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 Sub
citovat
#054899
Lugr
Trochu jsem si hrál. 5
Příloha: zip54899_sesit.zip (20kB, staženo 9x)
citovat

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

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35