MS Excel

Dobrý den všem, chtěl jsem se někoho z Vás chytřejších zeptat, jak v excelu udělat přepočet hodnot pomocí tlačítka. Mám navigační program, který vygeneruje navigační štítek kde jsou hodnoty v mílích a knotech za hodinu a já bych tyto hodnoty potřeboval nějakým jednoduchým postupem přepočítat na km za hodinu a kilometry. Nehledám vzorce kolik km je mil, ale abych nemusel zdlouhavě přepisovat stovky kolonek. Vše může probíhat třeba na dalším listě pomocí tlačítka naprogramovaného na tento úkon. Moc děkuji za pomoc a doufám, že nehledám nemožné:-))) Pěkný den Laďa.

Zaslat odpověď >

marjankaj(31.8.2017 18:01)#037475

Sub knot()
Dim bunka As Range
On Error Resume Next
For Each bunka In Selection
If bunka <> "" Then bunka = bunka * 1.852
Next
End Sub
Toto ti prípadne prepočíta aj dátum na km/hod. Predpokladám, že sám vieš na čo sa pýtaš. A tiež vieš ako priradiť k tlačítku makro.

námorná míľa=1,852km
anglická míľa=1,609344 km
rímska míľa ≈ 1,480 km
rakúsko-uhorská míľa ≈ 7,586 km

uzol=námorná míľa /hodina ?????

Tak som to aj ja upravil.citovat

elninoslov(31.8.2017 18:19)#037476

Pre prepočet viac ako jednej bunky:
Selection = Evaluate("=" & Selection.Address & "*1.852")

a pre prepočet viac ako jednej bunky, ale s ničnerobením keď je prázdna:
Selection = Evaluate("=IF(" & Selection.Address & "="""",""""," & Selection.Address & "*1.852)")

Samozrejme sa bavíme o súvislej oblasti (viacriadkovej alebo viacstĺpcovej alebo oboje), nie o oblasti "hocikde". Ak chcete tak, povedzte, tam sa musí urobiť cyklus pre všetky podoblasti Areas.

EDIT: Pre hocijakú oblasť nesúvislú, to je fuk, mení iba čísla, prázdne a nečíselné bunky nie:
Sub PrevodAreas()
Dim ARE As Range, Adr As String
For Each ARE In Selection
Adr = ARE.Address
ARE = Evaluate("=IF(ISNUMBER(" & Adr & ")," & Adr & "*1.852," & Adr & ")")
Next ARE
Set ARE = Nothing
End Subcitovat

AL(31.8.2017 19:12)#037478

V knotech za hodinu asi sotva. Knot (uzol) je namorna mila za hodinu, ako spravne podotkol marjankaj. Uzol za hodinu je tym padom blbost. 1 m/s su priblizne 2 uzly, ako vedia vsetci, ktori cuchli k jachtingu, lietaniu, ci windsurfingu.citovat

marjankaj(31.8.2017 19:33)#037479

@AL
Prečo blbosť? Uzol za hodinu je predsa zrýchlenie. Aj keď netuším, načo mu to bude.

Možno čuchol k niečomu inému.

citovat

AL(31.8.2017 19:43)#037480

Zrychlenie ako prva derivacia rychlosti? Teoreticky ano, prakticky skor vyjadrene v m/s2 nez km/hod2. Ale o.k., asi by to slo i v milach/hod2. Ale ze by to ukazoval ako vysledok nejaky navigacny program, o ktorom je rec, tak tomu sa mi naozaj nechce verit.citovat

vl.ky(3.9.2017 8:00)#037510

Dobrý den, zkoušel jsem podle toho co jste mi psal naprogramovat ono tlačítko, ale úspěchu jsem nedosáhl. Proto Vás prosím o to, jestli by jste mi v tom pomohl v níže přiloženém souboru, kam jsem napsal jak by to mělo fungovat. Moc díky za pomoc, L.

PS: Samozřejmě že to měly být jen knoty (uzly) a ne za hodinu, zbylo to tam z kopírování textu.

Příloha: xlsx

37510_prepocet.xlsx (15kB, staženo 31x)

citovat

elninoslov(3.9.2017 8:20)#037511

Čo má tlačítko robiť vieme, čo ale nevieme je kde to má robiť.
-Ten navi-program vytvorí súbor XLSX, kde nebude nič iné len obdobná tabuľka? Ak je to inak popíšte ako.
-Tá tabuľka je v dobe prepočtu zasadená aj do iných číselných dát (je niečo kdekoľvek okolo nej) ?
-Je rovnako rozmiestnená a koncipovaná, teda vždy 10 bodov v stĺpcoch po piatich so zlúčením 3-och riadkov v čísle bodu, vynechaním jedného riadku medzi uzlom a míľou, je rovnako odsadená od okrajov listu, rovnako sa volá list, ... ?
-Ak je vždy iná, ako ju máme identifikovať ? Vyhľadaním "Otočný bod" ?
-Konvertované majú byť na inom liste - teda je jednoduchšie urobiť kópiu prvého listu, kvôli tomu že netreba potom riešiť opätovné formátovanie, zlučovanie a pod. Je to možné takto robiť, alebo je ten list na nové hodnoty, už prichystaný aj s niečím iným okolo ?
To je spústa a ešte viac nejasností...citovat

Téma: Přepočet hodnot

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje