MS Excel

Dobrý den, používám office 2007 CZ a potřeboval bych vyřešit jeden problém.V měsíčním reportu bych potřeboval také názvy dnů, ale protože zaměstnavatel to chce v angličtině, potřeboval bych převést textový obsah buňky formátované na dddd z českého názvu na anglický.Příklad

Buňka A2 obsahuje datum 01.11.2010 A1 sformátovaná na DDDD s odkazem =A2 mi ukáže pondělí.Potřeboval bych vzorec, který přečte textovou hodnotu z A1 a do A3převede "pondělí" na "sunday"

už jsem vyzkoušel všechno ,ale nějak se mi nedaří.....

Děkuji předem za váš tip.

Zaslat odpověď >

RomanNTA(19.11.2010 7:00)#003210

Ahojky.

Myslím, že to není tak složité. V podstatě, má šéf anglické win + off a tak to převádět vůbec nepotřebuješ. Pokud se to zobrazí u něj, tak format "dddd" bude vypadat jinak než u Tebe.

Pokud to ale potřebuješ donést šéfikovi vytištěné, pak to musíš udělat :)

Řešení je například ve vytvoření vlastní funkce, kterou budeš volat z buňky.

- vytvoř funkci s proměnnou
- definuj pole 0 - 6 (nebo 1-7) a urči názvy
- otestuj, jestli proměnná je DATE jinak vyhoď chybu
- do výsledku funkce vlož z pole den týdne podle funkce WEEKDAY, které předáš datum.
Konec

R.citovat

Stalker(19.11.2010 21:05)#003242

Nevím jestli je to ještě aktuální, ale řešil sem to takhle.
Je to sice taková menší prasečinka, ale funguje.

Edit:
V buňce A1 můžeš změnit vzorec na:
=HODNOTA.NA.TEXT(A2;"dddd")

Příloha: rar

3242_dny_v_tydnu.rar (5kB, staženo 23x)

citovat

RomanNTA(19.11.2010 22:26)#003246

Function den_v_tydnu_en(datum As Variant) As Variant
Dim cMoje_dny
cMoje_dny = Array("Hnusné pondělisko", "TUESDAY", "WEDNESDAY", "THURSDAY", "Paťulinek", "Sobotěnka", "Nedělinka")
If Not IsDate(datum) Then
den_v_tydnu_en = CVErr(xlErrValue)
Exit Function
End If
den_v_tydnu_en = cMoje_dny(Weekday(datum, vbMonday) - 1)
End Function

A1 ... =PERSONAL.XLS!den_v_tydnu_en("2010-01-19")
citovat

Johan-Kraczmar(27.11.2010 0:21)#003323

Díky moc všem za tipy, teď zkouším ten nejlepší

citovat

bach1(8.12.2010 12:08)#003421

já to řešil takto jednoduše:

=IFERROR(KDYŽ(DENTÝDNE(B4)=1;"Sunday";KDYŽ(DENTÝDNE(B4)=2;"Monday";KDYŽ(DENTÝDNE(B4)=3;"Tuesday";KDYŽ(DENTÝDNE(B4)=4;"Wednesday";KDYŽ(DENTÝDNE(B4)=5;"Thursday";KDYŽ(DENTÝDNE(B4)=6;"Friday";"Saturday"))))));"Chyba")citovat

Téma: Pomoc se změnou názvu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje