< návrat zpět

MS Excel


Téma: Převod Euro na koruny rss

Zaslal/a 21.2.2017 14:09

Ahoj ,
potřeboval bych pomoc .
Výsledovka na listu v eurech . Lze nějakým makrem , funkcí po zadání kurzu udělat převod celého listu na koruny .
Díky
Staňa V. 1

Příloha: xlsx35030_duben.xlsx (13kB, staženo 81x)
Zaslat odpověď >

#035032
avatar
Možností, jak toto vyřešit, je hned několik.

1.) Pomocný sloupec se vzorcem (sloupec v EUR a sloupec v CZK).
2.) Vytvořit si makro (například na výběr buněk).
3.) Využít funkcionality "Vložit jinak".

Postup (ad 3):
a) Do nějaké buňky zadám kurz (např. 27,02).
b) Označím buňku a dám kopírovat.
c) Označím oblast, která se má přepočítat na základě tohoto kurzu.
d) Vložit jinak --> vybrat operaci "Násobit".

P.citovat
#035035
avatar
zkusím, díky.

druhá Ad3 jde počítá to, paráda. Ted zkusím zápasit s makrem
což je pro mě složitější.

Díkycitovat
#035036
elninoslov
Ak budú dáta začínať tak ako ich máte od 14. riadku, a ak budú v rovnakých stĺpcoch ako to máte, a ak v nich budú o 14. riadku po koniec len čísla k násobeniu alebo prázdne, tak napr. :
Sub EUR_CZ()
Dim Kurz As Single, t As String, R As Long, D(), i As Long
t = InputBox("Zadajte kurz EUR->CZ :", "Kurz", 0#)
If t = vbNullString Then MsgBox ("Nebol zadaný kurz."): Exit Sub
If IsNumeric(t) Then Kurz = Val(t) Else MsgBox ("Nesprávna hodnota kurzu."): Exit Sub
With ActiveSheet
R = .Cells(Rows.Count, 1).End(xlUp).Row - 13
If R < 1 Then MsgBox ("Chýbajú data od riadku 14."): Exit Sub
D = .Cells(14, 8).Resize(R, 8).Value
On Error Resume Next
For i = 1 To R
If D(i, 1) <> "" Then D(i, 1) = D(i, 1) * Kurz
If D(i, 4) <> "" Then D(i, 4) = D(i, 4) * Kurz
If D(i, 7) <> "" Then D(i, 7) = D(i, 7) * Kurz
Next i
.Cells(14, 8).Resize(R, 8).Value = D
If Err <> 0 Then MsgBox ("Ukončené s chybou.")
End With
End Sub

Nevadia mu ani tie Vaše divotvorné zlúčenia. Ale predpokladám, že budete mať každý mesiac nový súbor. To bude nepraktické prenášať makro, alebo prekopírovávať dáta do súboru s makrom. Dá sa urobiť doplnok do Excelu, ktorý pridá nástrojovú lištu s tlačítkom. To bude dostupné v každom exceláckom súbore, ale aj v tých, ktorých sa to netýka...citovat
#035037
avatar
Chlapi , ten Excel to je úžasné co umí a ještě když to někdo umí jako vy. Díky moc. To je super.
Moc a moc děkuju.
Stana V.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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09