🚀 go-pugleaf

wiktor [wiki] matlakiewicz pisze:
> czeŚĆ,
>  ... a dzień taki sam u nas jak u Was,
>  napisał user.80 na pl.comp.gis do nas:
> 
>> W swoim zadufaniu nie wziąłeś pod uwagę najprostszej możliwości,
>> że ktoś postawił już dawno takie pytania jak moje, a ktoś inny kiedyś na 
>> nie odpowiedział, zachował tą odpowiedź i byłby skłonny się nią podzielić.
>> Zgadza się geniuszu, najlepiej jakby ktoś miał to w excelu i widzę, że 
>> to co pisze zaczyna wreszcie być zrozumiałe.
> 
> Przecież już na samym początku [1] dostałeś ode mnie link do strony,
> na której stoi jak byk (na samym tejże strony początku):
> <http://www.syryjczyk.krakow.pl/Mapy_Polskie_GPS.htm>
> | Możliwość ściągnięcia spakowanych arkuszy Excel - poniższa tabela, 
> | kalkulator i objaśnienia oraz kalkulator  do przeliczania  współrzędnych 
> | autorstwa p. Edwarda Zadorskiego: Mapy_Pol_GPS_1_4.zip (61 kb)
> </>

Witam,
jako że informacje z tej grupy okazały się dla mnie bardzo przydatne i 
dość sporo ułatwiły mi życie, to chciałbym odwdzięczyć się być może 
równie przydatną informacją, zwłaszcza dla osób, które podobnie jak ja 
przedstawiają równie marne talenty krasomówcze w językach Python i jemu 
podobnych.

Oto prościutkie makro, które pobiera współrzędne z listy, podstawia je 
do Kalkulatora Zadorskiego:
http://www.syryjczyk.krakow.pl/Mapy_Pol_GPS_1_4.zip
i odnosi wyniki z powrotem do listy,
a więc przelicza listę współrzędnych praktycznie jednym kliknięciem ;-)

Sub Makro1()
Dim plik As Workbook
Dim i As Long, start As Integer, stop As Long
'jesli nie dalej niz wiersz Nr 32767 wystarczy As Integer
start = 2
stop = 1000
'jesli w tym samym katalogu
Set plik = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Kalkulator 
Zadorskiego 1_1.xls")
'jesli nie, to sciezka dostepu i nazwa pliku
'Set plik = Workbooks.Open(Filename:= "C:\TwojKatalog\Zeszyt2.xls")
'zakladam, ze w pliku Kalkulator Zadorskiego 1_1.xls kopiujesz do/z 
Kalkulator
For i = start To stop
     plik.Sheets("Kalkulator").Range("D11") = 
ThisWorkbook.ActiveSheet.Range("A" & i)
     plik.Sheets("Kalkulator").Range("D12") = 
ThisWorkbook.ActiveSheet.Range("B" & i)
     ThisWorkbook.ActiveSheet.Range("C" & i) = 
plik.Sheets("Kalkulator").Range("N6")
     ThisWorkbook.ActiveSheet.Range("D" & i) = 
plik.Sheets("Kalkulator").Range("N7")
Next
plik.Close savechanges:=True
Set plik = Nothing
End Sub