napisał: sewer_zdw
postów: 28
 umieszczony:
24 sierpnia 2007
09:31
|
|
pewnie sie da. ja osobiscie zrobilem z kursów walut według NBP ( oczywiscie nie sam tylko z wielka pomoca Trebora) ponizej załączam link do pliku. co prawda aby dokonac zapisu ( w moim przypadku chodzilo o samo euro ) wciskam odświez kwarende i po krzyku.
http://chomikuj.pl/Chomik.aspx?id=sewer_zdw
plik "gotowy" ma dzialajaca kwarende. |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
24 sierpnia 2007
09:30
 edytowany:
24 sierpnia 2007
09:32
|
|
| kwarende. |
|
|
napisał: crespiom
postów: 43
umieszczony:
23 sierpnia 2007
20:00
|
|
| A czy da się robić tak aby kursy na bieżąco sie aktualizowały samodzielnie pod Excelem zgodnie z notowaniami z Forexa jak np. na stronie http://www.forex.nawigator.biz/kursy-walut.php. Jak zaimportować pod Excela taki aplet javy? Pozdrawiam |
|
|
napisał: Trebor
postów: 1209
umieszczony:
18 sierpnia 2007
19:31
|
|
Spróbuj tak
Sub Przycisk1_Kliknięcie()
Dim rok As Integer
Dim dzień As Byte
Dim miesiąc As Byte
Dim data_tekst As String
Sheets("WWW").Range("A19").QueryTable.Refresh BackgroundQuery:=False
data_tekst = Right(Sheets("WWW").Range("A8"), 10)
dzień = Right(data_tekst, 2)
miesiąc = Mid(data_tekst, 6, 2)
rok = Left(data_tekst, 4)
With Sheets("Kursy Walut").Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0) = DateSerial(rok, miesiąc, dzień)
.Offset(1, 1) = Sheets("WWW").Range("C15")
.Offset(1, 2) = Mid(Sheets("WWW").Range("A8"), InStr(1, Sheets("WWW").Range("A8"), "nr ") + 3, _
InStr(1, Sheets("WWW").Range("A8"), "z dnia") - InStr(1, Sheets("WWW").Range("A8"), "nr ") - 4)
.Offset(1, -1) = "=" & .Offset(0, -1) & "+1"
End With
End Sub
Pozdrawiam |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
18 sierpnia 2007
12:20
|
|
witam.
http://chomikuj.pl/Chomik.aspx?id=sewer_zdw
tu znajduje sie plik w którym pod przyciskiem zapisz chciałbym aby w drugim arkuszu zapisywał kurs euro do bazy w pierwsze wolne miejsce. chodzi o to by zapisywał date ( mysle ze mozna ja wydobyc z numeru tabeli) kurs euro oraz numer tabeli NBP.
z góry dziekuje wam za pomoc. |
|
|
napisał: Trebor
postów: 1209
umieszczony:
16 sierpnia 2007
20:40
edytowany:
17 sierpnia 2007
08:58
|
|
O literaturze się nie wypowiadam.
Umieść linię
Sheets("WWW").Range("A19").QueryTable.Refresh BackgroundQuery:=False
zaraz po deklaracjach (dim)
i jeszcze jedna poprawka 
cały kod
Dim rok As Integer
Dim dzień As Byte
Dim miesiąc As Byte
Dim data_tekst As String
Sheets("WWW").Range("A19").QueryTable.Refresh BackgroundQuery:=False
data_tekst = Right(Sheets("WWW").Range("A8"), 10)
dzień = Right(data_tekst, 2)
miesiąc = Mid(data_tekst, 6, 2)
rok = Left(data_tekst, 4)
Sheets("Kursy Walut").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Date
Sheets("Kursy Walut").Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = Sheets("WWW").Range("C15")
Sheets("Kursy Walut").Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = DateSerial(rok, miesiąc, dzień) |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
16 sierpnia 2007
20:32
|
|
| trebor skad ty masz taka wiedze wogóle. moze jestes w stanie mi polecic jakas dobra literature..?? |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
16 sierpnia 2007
20:31
|
|
| gdzie mozna umiescic plik aby inni go mogli bez problemu sciagnac?? |
|
|
napisał: Trebor
postów: 1209
umieszczony:
16 sierpnia 2007
19:38
|
|
Może tak
Dim rok As Integer
Dim dzień As Byte
Dim miesiąc As Byte
dzień = Right(Sheets("WWW").Range("A8"), 2)
miesiąc = Mid(Sheets("WWW").Range("A8"), 45, 2)
rok = Mid(Sheets("WWW").Range("A8"), 40, 4)
Sheets("WWW").Range("A19").QueryTable.Refresh BackgroundQuery:=False
Sheets("Kursy Walut").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Date
Sheets("Kursy Walut").Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = Sheets("WWW").Range("C15")
Sheets("Kursy Walut").Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = DateSerial(rok, miesiąc, dzień)
PS
przepraszam, ale nie testowałem kodu ze względu na to, że nie chciało się mi przerabiać obrazków na plik excela.
Pozdrawiam |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
16 sierpnia 2007
17:58
edytowany:
16 sierpnia 2007
18:01
|
|
Witam ponownie was tu zgromadzonych.
Poniżej zdjęcie jak wygląda arkusz 1
http://www.fotosik.pl/pokaz_obrazek/8b9a268faaab1351.html
Pytanie 1
( jakie makro przypisac do buttona "odśwież ..." by automatycznie i samoczynnie odświeżyła się tabela z kursami walut-foto)
Pytanie 2
( jakie makro przypisac do drugiego buttona który bedzie zapisywał dane ( tylko kurs euro - link2)
tabela jest zassana kwarenda ze strony NBP.
Potrzebuje teraz w arkuszu 2 link poniżej tworzyc baze z danymi o kursie.
http://www.fotosik.pl/pokaz_obrazek/5d3d54834ece6fd6.html
Baza powinna się aktualizować każdy dzień w osobnym wierszu.
czytalem troche tego, co juz przerabialiscie na forum i znalazlem post o rozdzielaniu danych z jednej komórki na dwie. zastanawiałem sie czy nie dalo by rady zczytac daty z numeru raportu( która sie uktualizuje wraz z cala tabela).
Nie prosze o gotowe rozwiązania i nie chce was wykozystywać. zalezy mi na waszej pomocy w postaci przykladowego rozwiazania ewntualnie pomyslu jak to wykonac. Nie chce tylko kopiowac rozwiazan. Chce sie uczyc na przykladach. mam nadzieje ze to rozumiecie.
pozdrawiam |
|
|
napisał: Trebor
postów: 1209
umieszczony:
14 sierpnia 2007
16:38
|
|
Sewerynie
stwórz w excelu kwerendę do odpowiedniej tabeli na stronie NBP z menu Dane/Importuj dane zewnętrzne/Nowa kwerenda sieci web. Jeśli to już zrobisz i odpowiada Ci taki sposób importowania danych, to określ się, czy chcesz aby excel sam co jakiś czas odświeżał kwerendę, czy też wolisz robić to osobiście przy pomocy przycisku. Zamieść linkę do pliku to na pewno forumowi coś wymyślą.
Czy dane mają zostać zapisane gdy zmieni się nr raportu?
Pozdrawiam |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
14 sierpnia 2007
11:45
|
|
Witam ponownie.
Zwracam sie do was z prosba o pomoc w ustaleniu makra badajacego kurs walut ( w moim przypadku Euro). Z góry dziekuje za uzyskana pomoc. |
|
|
napisał: sewer_zdw
postów: 28
umieszczony:
10 sierpnia 2007
13:50
|
|
Czy ktoś z was ma może stworzone makro które tworzyło by baze kursu euro.
Chodzi o to, by stworzyc formularz w który wpisywałbym 3 weirsze.
1. Kursy Euro
2. Date kursy
3. Numer kursu wg NBP.
Codziennie podawał bym te 3 informacje a makro miało by je zapisywać w kolejnych komórkach.
Czyli np. dzisiaj podaje te dane one za wpisane do np. komórki
1. A3
2. B3
3. C3
Gdy dopisałbym dane w dniu jutrzejszym dane te powinny zapisać się w komórkach
1. A4
2. B4
3. C4
Itd. z wykonaniem zwykłej bazy pierwszego nie ma problemu ale nie wiem jak wymusić by tylko najświeższe dane były zassane do kolejnego arkusza, lub by po podaniu daty komputer sam wstawił poprawny kurs euro na dany dzień. |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
|
