< návrat zpět

MS Excel


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

Zaslal/a 19.11.2010 0:43

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ěď >

#003210
avatar
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
#003242
Stalker
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: rar3242_dny_v_tydnu.rar (5kB, staženo 23x)
citovat
#003246
avatar
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
#003323
avatar
Díky moc všem za tipy, teď zkouším ten nejlepší 4citovat
#003421
avatar
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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse