image/svg+xml

» Poradna » Programy

Makro v excelu začalo hlásit chybu 438

 | Microsoft Windows 10 IE 11.0

Dobrý den, prosím o pomoc s objasněním, proč mi makro začalo hlásit chybu 438 - Object doesn't support this property or method. Zdůrazňuji, že makro dříve fungovalo bez problému a nebyly v něm prováděny žádné změny. Navíc ji má způsobovat část, která je použitá i v jiném makru, které provádí trošku odlišnou činnost, ale tato část je naprosto stejná a to funguje. Jsem z toho vedle. Má to způsobovat tato část:Mesice = ""Vzorec = ""For Each c In FrmMesice.Controls If c.Value Then Mesice = Mesice & Mid(c.Name, 6) & "," If c.Value Then Vzorec = Vzorec & "MĚSÍC(R[" & PlatbyD + 3 - Zmena & "]C5)=" & Mid(c.Name, 6) & ";"NextTato část vytáhne z formuláře čísla měsíců využitím názvů checkboxů a vloží je do vzorců.Dokázal by mi někdo vysvětlit, co se mohlo stát a proč to najednou přestalo fungovat, když v druhém makru to funguje a co s tím mám udělat?Díky

Mohlo by vás také zajímat

Odpovědi na otázku

 |   |  Android Chrome 66.0

chtělo by to přesně na kterém to je řádku

Souhlasím  |  Nesouhlasím
 | Microsoft Windows 10 IE 11.0

Označí se vždy If c.Value Then

Souhlasím  |  Nesouhlasím
 |   |  Android Chrome 66.0

No tak některý Control v FrmMesice.Controls nemá vlastnost Value...tzn. je tam někde i nějaký Button apod.

Souhlasím  |  Nesouhlasím
 |   |  Android Chrome 66.0

opodmínkuj si to jen na Checkbox:If TypeOf c Is MSForms.CheckBox ThenIf c.Value Then Mesice = Mesice & Mid(c.Name, 6) & ","If c.Value Then Vzorec = Vzorec & "MĚSÍC(R[" & PlatbyD + 3 - Zmena & "]C5)=" & Mid(c.Name, 6) & ";"End if

Souhlasím  |  Nesouhlasím
 | Microsoft Windows 10 IE 11.0

Aha, tak už vím, čím to je. Je tam vložen Label, v kterém se mění text podle určitých kritérií. Dá se nějak označit, aby nebyl zahrnut mezi Control nebo dá se to obejít jiným způsobem než ho vytáhnout mimo Frame?

Souhlasím  |  Nesouhlasím
 |   |  Android Chrome 66.0

viz. výše

Souhlasím  |  Nesouhlasím
 | Microsoft Windows 10 IE 11.0

Tak na ten problém to funguje, ale teď mi to dělá chybu na dalších řádcích, kde se pracuje s proměnou Mesic a Vzorec. Chyba je 5 - Invalid procedure call or argument. Proměnné Měsíc a Vzorec zůstávají prázdné

Souhlasím  |  Nesouhlasím
 | Microsoft Windows 10 IE 11.0

Tak se omlouvám, už je to v pořádku, podmínku jsem umístil na špatný řádek. Díky moc za pomoc.

Souhlasím  |  Nesouhlasím
 |   |  Android Chrome 66.0

NZ

Souhlasím  |  Nesouhlasím

Související témata: Then, Property