< návrat zpět

MS Excel


Téma: převod z € na Kč rss

Zaslal/a 15.1.2020 17:28

Dobrý den,

vytvořil jsem si své první makro. Vím, že je to amatérské.

Jen bych potřeboval poradit s jednou podmínkou.

"Když bude v buňce text, tak ...."

Sub kurz()

a = ActiveCell
b = Range("C2")
c = a * b * 1000

If a = "" Then

i = MsgBox("Vybraná buňka musí obsahovat data!", vbOKOnly + vbExclamation)

'když bude v ActiveCell jakýkoliv text
ElseIf a = Text Then

i = MsgBox("Vybraná buňka musí obsahovat číslici!", vbOKOnly + vbExclamation)

ElseIf b = "" Then

i = MsgBox("Zadejte kurz.", vbOKOnly + vbCritical, "POZOR!")

Else

i = MsgBox(Format(a * 1000, "#,##0" & " €") & " = " & Format(c, "#,##0.00" & " Kč"))

End If

End Sub

Děkuji za pomoc

Příloha: zip45591_kurz.zip (16kB, staženo 3x)
Zaslat odpověď >

#045592
avatar
...
'když bude v ActiveCell jakýkoliv text
ElseIf WorksheetFunction.IsText(a) Then
...
...
Else
'a až zde umístit výpočet
c = a * b * 1000
i = MsgBox(Format(a * 1000, "#,##0" & " €") & " = " & Format(c, "#,##0.00" & " Kč"))
...citovat
#045594
elninoslov
Keď skúsite Select Case nebude to prehľadnejšie?
Sub kurz()
Dim a, b, c As Double

a = ActiveCell
b = Range("C2")

Select Case True
Case IsEmpty(a): MsgBox "Vybraná buňka musí obsahovat data!", vbExclamation
Case Not IsNumeric(a): MsgBox "Vybraná buňka musí obsahovat číslici!", vbExclamation
Case IsEmpty(b): MsgBox "Zadejte kurz.", vbCritical, "POZOR!"
Case Else: c = a * b * 1000
MsgBox Format(a * 1000, "#,##0" & " €") & " = " & Format(c, "#,##0.00" & " Kč")
End Select
End Sub
Příloha: zip45594_45591_kurz.zip (16kB, staženo 2x)
citovat
#045595
avatar
Já jsem naprostý amatér co se týče makra.

Tohle co jste mi poslal, je už pro mě vyšší dívčí. 8

Ale moc děkuji, zase je to pecka. 1

Děkuji oběmacitovat
#045597
elninoslov
Kľudne sa dá nahradiť toto
Case IsEmpty(a): MsgBox "Vybraná buňka musí obsahovat data!", vbExclamation
Case Not IsNumeric(a): MsgBox "Vybraná buňka musí obsahovat číslici!", vbExclamation

za toto
Case IsEmpty(a) Or Not IsNumeric(a): MsgBox "Vybraná buňka musí obsahovat číslici!", vbExclamation
pretože oba prípady, aj keď v bunke nič nieje, aj keď obsahuje nečíslo, môžu kľudne vypísať rovnakú hlášku.

Ale absolútne v pohode to môže byť pomocou If Then, prípadne ElseIf. Ide o to aby ste sa v tom v prvom rade vyznal Vy a vedel si to prípadne ošéfovať.citovat
#045600
avatar
Jste profíci, je to vidět. Já se to učím pokus omyl a co tu od vás pochytím. 10

Děkuji moc za pomoccitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Jak vypsat určité hodnoty ze sloupce

elninoslov • 20.2. 1:03

Jak vypsat určité hodnoty ze sloupce

lugr • 19.2. 16:33

Jak vypsat určité hodnoty ze sloupce

Poseidon • 19.2. 14:46

PQ nad *.xlsb suborom, excel tables

AL • 19.2. 13:45

PQ nad *.xlsb suborom, excel tables

elninoslov • 19.2. 13:17

Datumovka-DatePicker

veny • 19.2. 13:08

Datumovka-DatePicker

veny • 19.2. 13:07