MS Excel

Dobrý den,

prosím o pomoc jak vložit do ActiveX do prvku ComboBox do vlastností ListFillRange - Tabulku2 i s pojmenovanou oblastí.

Umím to udělat s klasickým rozevíracím seznamem i s NEPŘÍMÝ.ODKAZ na buňku, aby mi vyjížděly značky aut podle výrobce.

Rád bych to samé uměl i s vloženým prvkem ActiveX - ComboBox.

Přikládám soubor.

Děkuji za rady.

OB

Zaslat odpověď >

Strana: « předchozí 1 2 3

OB(19.1.2020 21:29)#045620

Jsem vedle jak ta jedle. Pořád dávám kód viz níže a nefunguje to...

Private Sub ComboBox2_Change()

Worksheets("menu").ComboBox2.ListFillRange = ComboBox1.Value

End Subcitovat

elninoslov(20.1.2020 1:02)#045621

Môžete to urobiť aj takto nejako. Len tak v rýchlosti, testoval som to minimálne.

Příloha: zip

45621_activex_combobox20200116.zip (25kB, staženo 22x)

citovat

OB(20.1.2020 8:09)#045623

Funguje

. Poslední přání, aby se hodnota v ComboBoxu2 objevila (E6), až ji vyberu v ComboBoxu2 a ne automaticky po výběru v ComboBoxu1.citovat

elninoslov(20.1.2020 13:47)#045632

Tak ono by sa to dalo skrátiť aj takto:
Private Sub cbVyrobce_Change()
Dim ADR As String

On Error Resume Next
If WorksheetFunction.CountIf(wsData.Range("MODEL"), Range("E6").Value) = 0 Then ADR = "=vstupni_data!" & wsData.Range("MODEL").Address
cbModel.ListFillRange = ADR
Range("E6").ClearContents
End Subcitovat

Jiri_497(21.1.2020 1:36)#045634

Můžete mi vysvětlit, jakým "kouzlem" měníte oblast MODEL? Nikde to nevidím.citovat

elninoslov(21.1.2020 6:55)#045635

Ešte to skrátime:
Private Sub cbVyrobce_Change()
Dim ADR As String

On Error Resume Next
ADR = "=vstupni_data!" & wsData.Range("MODEL").Address
cbModel.ListFillRange = ADR
Range("E6").ClearContents
End Sub
Definovaný názov MODEL obsahuje odkaz na správnu oblasť modelov podľa vybraného výrobcu. Je to zabezpečené pomocou OFFSET/POSUN a MATCH/POZVYHLEDAT.
Pri zmene výrobcu, alebo jeho vynulovaní, dôjde k tomu že sa do premennej ADR pokúsi priradiť adresu správnej oblasti MODEL. Ak nastane chyba (výrobca je prázdny, alebo bez modelu,...) ADR bude "". Teda sa zoznam v cbModel vlastne vynuluje. Ak ale bude výrobca validný, tak sa do cbModel načíta správna oblasť. Prípadná predchádzajúca hodnota v cbModel sa vymaže pomocou ClearContents na jej prepojenej bunke.citovat

Jiří497(21.1.2020 7:20)#045636

Definovaný názov MODEL obsahuje odkaz na správnu oblasť modelov podľa vybraného výrobcu.
Je to zabezpečené pomocou OFFSET/POSUN a MATCH/POZVYHLEDAT...

Ano, to jsem pochopil, ale já jsem potřeboval vidět to "MODEL = POSUN(...." a nikde jsem to v makru nenašel. Proto jsem se ptal na to, "jakým kouzlem" správného nastavení docílíte. Až teď mě napadlo, že to je přímo přes "Definovaný název"

citovat

Jiří497(21.1.2020 7:28)#045637

Omlouvám se za návrat v čase, ale nedá mi to nereagovat:

OB napsal/a:

Jsem vedle jak ta jedle. Pořád dávám kód viz níže a nefunguje to...
Private Sub ComboBox2_Change()
Worksheets("menu").ComboBox2.ListFillRange = ComboBox1.Value
End Sub

Samozřejmě, že to nefunguje, proto jsem také napsal: "Bacha při opisování 1 a 2.
Příkaz je napsaný dobře, ale má být v proceduře ComboBox1_Change a ne v ComboBox2_Change()citovat

Strana: « předchozí 1 2 3

Téma: ActiveX - prvek ComboBox

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Relativní cesta - zdroje Power Query

Vyhledej

Vyhledej

Vyhledej

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query

Relativní cesta - zdroje Power Query