ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   How can I create a new 2-language reversible dictionary? (https://www.excelbanter.com/excel-discussion-misc-queries/2524-how-can-i-create-new-2-language-reversible-dictionary.html)

Dictionary

How can I create a new 2-language reversible dictionary?
 


Frank Kabel

Hi
not really sure what you're trying to achieve and if this is an Excel
related question?

--
Regards
Frank Kabel
Frankfurt, Germany
"Dictionary" schrieb im Newsbeitrag
...




Arvi Laanemets

Hi

Excel isn't best for such a task, I'm afraid! But anyway, you can try this:

Create a sheet p.e. DictTable with colmns p.e. English, German, English
Into C2 enter the formula
=IF(A2="","",A2)
and copy down for some reasonable amount of rows.
Into columns A:B enter words in english with responses in german (or in any
other language)
Define named ranges p.e.
Eng=OFFSET(DictTable!$A$2,,,COUNTIF(DictTable!$A:$ A,"<")-1,2)
EngLst=OFFSET(DictTable!$A$2,,,COUNTIF(DictTable!$ A:$A,"<")-1,1)
Ger=OFFSET(DictTable!$B$2,,,COUNTIF(DictTable!$A:$ A,"<")-1,2)
GerLst=OFFSET(DictTable!$B$2,,,COUNTIF(DictTable!$ A:$A,"<")-1,1)

Create a sheet p.e. DictDesktop
Select cell B1, and then from Data menu Validation. Set Allow to 'List' and
into source field enter
"English-German,German-English"
You can enter some text into cell A1, when you like.
Select some entry into cell B1.
Create named ranges
Lang1=MID(DictDesktop!$B$1,1,FIND("-",DictDesktop!$B$1)-1)
Lang2==MID(DictDesktop!$B$1,FIND("-",DictDesktop!$B$1)+1,255)
Into cell A3 enter the formula
=Lang1 & ":"
Into cell A4 enter the formula
=Lang2 & ":"
Select cell B3, and then Data.Validation. Allow='List' with source
=IF(Lang1="English",EngLst;GerLst)
Into cell B4 enter the formula
=IF(ISERROR(VLOOKUP($B$3,IF(Lang1="English";Eng;Ge r),2,0)),"",VLOOKUP($B$3,I
F(Lang1="English",Eng,Ger),2,0))

Thats all
Merry Cristmas!
Arvi Laanemets


"Dictionary" wrote in message
...




Arvi Laanemets

A correction for cell DictDesktop!B4

=IF(ISERROR(VLOOKUP($B$3,IF(Lang1="English",Eng,Ge r),2,0)),"",VLOOKUP($B$3,I
F(Lang1="English",Eng,Ger),2,0))


Arvi Laanemets




All times are GMT +1. The time now is 07:56 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com