Create button that toggles "show translation" of vocabulary words to the right of word?

[papazulu]

Simply, need to create a sheet with a list of language vocabulary words in one column, a toggle button in next right column that shows/hides translation in another language in third right column cell.

For example:

Before toggle button selected:


Col 1 | Col 2 | Col 3

Dog | show/hide translation | (blank)



After button selected:


Dog | show/hide translation | Cane



How can I create a macro or something that does this for a list of 500 to 1000 or so words? The toggle translation button would be in a cell between the two words (the original and its translation).


thanks for any assistance

[teylyn]

Hello,

I'm not sure that adding 500 buttons to a sheet is a good idea. You could set up a SelectionChange event that monitors if a cell is clicked. The visible words are in column A, the translations are in column B and formatted with custom format ";;;" - which will effectively hide them. With the macro below, you can click on the original word to show the translation in column B. Then click on the translation in column B to hide it again. If you click anywhere outside column A, all translations will be hidden.

Please Login or Register  to view this content.

See attached file for a working example.

[papazulu]

Thanks Teylyn, this gives me something substantial to work with. It is a great elegant solution.

[papazulu]

Hello,

I'm not sure that adding 500 buttons to a sheet is a good idea. You could set up a SelectionChange event that monitors if a cell is clicked. The visible words are in column A, the translations are in column B and formatted with custom format ";;;" - which will effectively hide them. With the macro below, you can click on the original word to show the translation in column B. Then click on the translation in column B to hide it again. If you click anywhere outside column A, all translations will be hidden.

Please Login or Register  to view this content.

See attached file for a working example.

Now I want to make it where it plays a sound file (translation) when clicking on original word. Any suggestions?

[Datafix]

Select References in Tools afrer


Cells(2, 2).Select
Application.Speech.Speak Selection