• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Spuštění - textová hodnota

Zaslal/a bobika99 28.1.2024 12:24

Dobrý den,
potřeboval bych pomoci s tímto problémem. Čím mám nahradit proměnnou "dotaz" v podmínce If aby to fungovalo ?. Díky moc.


dotaz = "5 + 5 = 10"
If dotaz Then
MsgBox "A"
End If

Zaslat odpověď >

---

Začátečník(28.1.2024 12:55)#056075

A co se má vyhodnotit jako správná podmínka?
Podmínka se vyhodnocuje jako logická hodnota, tedy pokud DOTAZ je definován jako "5 + 5 = 10" (to je textová hodnota) musí se s něčím porovnat.
If dotaz = "5 + 5 = 10" then
' správně
Else
' špatně
End Ifcitovat

bobika99(28.1.2024 13:32)#056076

Vyhodnotit se má právě ten text co je uložený v proměnný "dotaz". Napsal jsem to jako příklad, ve skutečnosti tam je poskládaná podmínka např.:


dotaz = "(.Cells(5, 2).Value Like "020319??00" Or .Cells(5, 2).Value Like "0203??0000" Or .Cells(5, 2).Value Like "02??000000")"
If dotaz Then
...
citovat

Začátečník(28.1.2024 13:43)#056077

Jak jsem již uvedl, podmínka musí být logická

dotaz="5 + 5 = 10"
If dotaz = "5 + 5 = 10" then
' správně
Else
' špatně
End If
Jinak už nevím jak to srozumitelněji napsat.

bobika99 napsal/a:

...ve skutečnosti tam je poskládaná podmínka...

ale proměnná dotaz je textová, podle přikladu.citovat

bobika99(28.1.2024 13:54)#056078

Já ale potřebuji ve skutečnosti vyhodnotit tohle:


If (.Cells(5, 2).Value Like "020319??00" Or .Cells(5, 2).Value Like "0203??0000" Or .Cells(5, 2).Value Like "02??000000") Then
...
citovat

Začátečník(28.1.2024 14:01)#056079

A čemu se má uvedený výraz rovnat?

Pokud výraz bude logickou hodnotou, pak bude podmínkou vyhodnocen.

Podle popisu výše to určitě nebude logická hodnota.

Doporučuji deklarovat proměnné a určit jejich datové typy.

bobika99 napsal/a:

dotaz = "(.Cells(5, 2).Value Like "020319??00" Or .Cells(5, 2).Value Like "0203??0000" Or .Cells(5, 2).Value Like "02??000000")"

Proměnná dotaz není logickou hodnotou.

dotaz = .Cells(5, 2).Value Like "020319??00" Or .Cells(5, 2).Value Like "0203??0000" Or .Cells(5, 2).Value Like "02??000000"citovat

Stalker(28.1.2024 14:29)#056080

https://learn.microsoft.com/cs-cz/dotnet/visual-basic/language-reference/operators/like-operatorcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse