Pytanie : Łamigłówka geocache

I próbować łamigłówka geocache. Anyone mieć jakaś pomysł gdzie?

Here być the połączenie the page.

http://www.geocaching.com/ seek/cache_details.aspx? guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The Szybki Brown Fox

N 44° 20.403 W 074° 21.042

First rzecz najpierw, the tajna kryjówka lokalizować przy the dawać coordinates; po prostu zapewniać ty z ładny miejsce i i the kryptogram ładny. The tajna kryjówka być między 0.25 mila i 6.50 mila zdala od the oryginalny coordinates. I liczyć 18 rodzaj drzewo między mój samochód i the tajna kryjówka lokacja, zobaczyć 3 rodzaj ptak, 4 typ zwierzę ślad, i am 97% pewny że I zobaczyć ryś rudy. Szczęście ten tajna kryjówka, ono być w niektóre naprawdę piękny woods.

1-4-1, 2-1-2, 3-2-6, 4-2-3, 1-8-4, 2-2-1, 3-12-4, 4-8-4, 1-1-2, 2-3-2, 3-2-3, 4-3-3, 1-8-7, 2-4-5, 3-6-2, 4-4-1, 1-2-2, 2-2-5, 3-7-1, 4-4-3, 1-2-5, 4-1-1, 2-1-3, 3-4-5, 1-2-1, 4-9-1, 3-2-2, 4-2-3, 3-4-1, 1-9-1, 2-4-3, 3-4-3, 3-19-1, 3-19-1, 2-5-3, 2-8-4, 2-5-2, 3-15-1, 3-26-2, 3-19-1, 4-11-1, 2-5-1, 3-26-2, 3-19-1, 2-5-3, 3-3-1, 2-5-2, 3-19-1, 2-5-4, 3-26-2

The tajna kryjówka zbiornik być być ammo-móc wypełniać z handlowy rzecz, logbook, i pencil.

Additional Aluzja (Utajniać)

You musieć sprawnie sprawnie z wydruk the pozycja i ołówek

Odpowiedź : Łamigłówka geocache

Tutaj być jeden podejście, rezultat na sheet2.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Okręt podwodny x ()

Ćmić oDic Przedmiot, sNames () Jako Sznurek, vInput (), i Długo, n Długo

vInput = Sheet1.Range ("A1", Sheet1.Range ("C" & Rows.Count). Końcówka (xlUp)). Wartość
ReDim sNames ((1) UBound (vInput, 1), (1) 3)
Ustalony oDic = CreateObject ("Scripting.Dictionary")

Z oDic
    Dla i = (1) UBound (vInput, 1)
        Jeśli nie. Istnieć (vInput (i, 1)) Wtedy
            n = n + (1)
            sNames (n, 1) = vInput (i, 1)
            sNames (n, 2) = vInput (i, 2) & "(" & vInput (i, 3) & ")"
            sNames (n, 3) = vInput (i, 3)
            . Dodawać vInput (i, 1), n
        ElseIf. Istnieć (vInput (i, 1)) Wtedy
            sNames (. Rzecz (vInput (i, 1)), 2) = sNames (. Rzecz (vInput (i, 1)), 2) & "," & vInput (i, 2) & "(" & vInput (i, 3) & ")"
            sNames (. Rzecz (vInput (i, 1)), 3) = sNames (. Rzecz (vInput (i, 1)), 3) + vInput (i, 3)
        Kończyć Jeżeli
    Następnie i
Końcówka Z

Sheet2.Range ("A1"). Resize (n, 3) = sNames

Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us