Excel jak przekonwertować walutę?


(pawel500) #1

Hej mam kilkadziesiąt kolumn z cenami podanymi w euro. W jaki sposób przekonwertować wszystkie ceny na PLN w oparciu o podany przeze mnie kurs?

Z góry dziękuję


(Drobok) #2

kurs * komórka z ceną -> kopiujesz

Z czego kurs dajesz z $ np $A$1 :slight_smile:

Kopiujesz przeciągając za mały kwadracik w prawym dolnym rogu komórki :slight_smile:

Ew makro (można to np podmienić). Ale nie mam jak przetestować.


(pawel500) #3

Nie rozumie. Napisz jasno i klarownie jak możesz. Krok po kroku.

Mam zakres komórek, kilkadziesiąt a nie jedną. Kopiuje je i co dalej??

Kurs daje z $ np $A$1, gdzie daje? gdzie co i jak?

Przeciągam za mały kwadracik w prawym dolnym rogu komórki = jakiej ??

Excel 2007

Poziom znajomości programu- początkujący :slight_smile:


(Drobok) #4

Daj ss jak to wygląda. Jakie są rozmiary etc

Napisz, czy chcesz to podmienić / ceny napisać obok etc.


(pawel500) #5

jak to wygląda?

normalnie :slight_smile:

mam komórke gdzie mam zapisane

25,04

12,92

37,27,

19, 27

to sa ceny podane w euro. Chciałbym teraz te ceny zmienić na ceny w PLN

a więc jeśli kurs jest 4,3889 no to chciałbym wszystkie te liczby pomnożyć przez 4,3889

Tak aby cennik, który jest w euro, zmienić na cennik który jest w PLN.


(Pablo_Wawa) #6

excelk.jpg


(fiesta) #7

Wyrażaj się konkretnie bo z tego co piszesz to wygląda na to że wszystkie ceny w euro podane są w jednej komórce a na pewno tak nie jest.

w Komórce np A1 wpisujesz aktualny kurs.

Załóżmy że w komórce B7 masz cenę podaną w euro to do komórki B8 wpisujesz formułę =$A$1*B7

Mniemam że komórkach C7, D7 itd masz kolejne ceny w Euro, jeśli tak to wystarczy to wystarczy że formułę z komórki B8 przekopiujesz w dół i będzie miał wszystkie aktualne ceny w PLN.


(pawel500) #8

OK poczekajcie raz jeszcze pokaże co i jak dam screena http://imageshack.us/photo/my-images/254/przykladi.jpg/

jedyną rzecz jaką potrzebuje to zamienić te ceny na ceny w pln, nie chce tworzyć osobnej tabelki.


(Xenvl) #9

Przecież dostałeś odpowiedź, nie widzisz? Łatwiej się tego nie da wytłumaczyć :roll:


(Pablo_Wawa) #10

A jeśli chodzi Ci o to, żeby w tych samych komórkach , które obecnie zawierają ceny w euro, uzyskać odpowiednie ceny w PLN, to oczywiście formułą się tego nie da zrobić - musisz użyć makra (napisanego przez siebie).


(pawel500) #11

Widzisz marrysin :slight_smile: czytaj uważniej.

Dopiero Pablo_Wawa udzielił odpowiedzi na którą czekałem.

Nie da się :slight_smile:

Potrafi ktoś w takim razie napisać takie makro ?


(Pablo_Wawa) #12

To jest proste, tylko musisz jakoś wskazać, o jakim zakresie komórek mówisz - czy ceny (w euro) zajmują jakiś konkretny prostokątny obszar i je wszystkie chcesz zamienić?

Nie może to być cały arkusz, jeśli gdzieś w nim ma być bieżący przelicznik (euro => PLN). No chyba, że program (makro) ma się o niego zapytać przy uruchomieniu.

-- Dodane 31.05.2012 (Cz) 17:39 --

Sub Przelicz()

  Przelicznik = InputBox("Podaj kurs euro w PLN:")

  For Wiersz = 1 To 12

    For Kolumna = 1 To 20

      Komorka = Cells(Wiersz, Kolumna)

      If Komorka <> Empty Then

        If Komorka = "eur" Then

          Cells(Wiersz, Kolumna).Value = "PLN"

        Else

          Cells(Wiersz, Kolumna).Value = Komorka * Przelicznik

        End If

      End If

    Next

  Next

End Sub