Смяна на картинки в Ексел само с формула (без макроси)

Microsoft Excel » Microsoft Excel

oldstar   трудност:    видян: 16175

Картинки могат да се сменят и чрез формули. С формули има две основни неудобства. Първо, формулите могат да се получат сложни и дълги за изписване и второ - има известни ограничения в броя на снимките/картинките, които могат де се сменят чрез формули.

Тук ще ви посоча един лесен и прост начин за смяна на снимки с само с формули и с помощта на камерата. За улеснение картинките са 3. По желание снимките могат предварително да са намалени и поставени в отделна папка. Или пък да се намаляват в самия Ексел. 

За този начин обаче камерата (иконката) трябва да е извадена и да е при другите иконки (ако не е там). Ето как става това:

А) При 2003 - Tools-Customize-Commands. В лявото прозорче намирате Tools и в дясното прозорче търсите Camera. Маркирате я и с натиснат десен бутон я провлачвате в лентата с иконките
Б) При 2007- кликвате върху основния бутон (Office button)-Excel option-Customize. От горното меню избирате Commands not in the Ribbon. Намирате камерата и Add.

Ето стъпка по стъпка - по-подробно:

1) В Sheet2 в две съседни колони изписвате имената на снимките и срещу имената вкарвате съответната снимка. Разширявате клетките така, че умалените снимки да се вместят точно в клетките-без допир до страничните линии. Двете колони трябва да имат антетка, т.е да изглежда като таблица.
2) Маркирате двете колони (без антетката) и Insert-Name- Create (за 2003) или Forrmulas-Create from Selection (при 2007) Заб. И при двете версии може да се използва комбинацията Ctrl+Shist+F3. В прозорчето Create Names маркирате Left column. По този начин клетките със снимки автоматично приемат имената на снимките.

3) Маркирате колоната с имената вкл. и антетката и Ctrl+Shift+F3 (или по споменатия начин). Тук маркирате Top Row. По този начин създавате списък, на който автоматично се присвоява името на антетката.
4) Под снимките или в страни на удобно място маркирате празна клетка. Там ще излиза списъка от имената на снимките. Data Validation. Там избирате List и Source - името на антетката на имената (в случая пишете =Име). След потвърждаване, в избраната клетка (за примера C5) се появява меню с имената на снимките.

5) Маркирате отново клетката с менюто (С5) и давате име на клетката (за свързване нас името с картинката). За примера съм избрал име Change. В прозорчето Refers to e изписан адреса на клетката и Sheet-a. В случая е изписано =Sheet2!$C$5. Трасформирайте формулата в

=indirect(Sheet2!$C$5)       и потвърдете.

6) Тук идва ред за използване на камерата. От падащия лист на имената с картинките изберете която и да е. Клетката остава маркирана. Кликнете върху иконката на камерата. Клетката се огражда, а курсорът става на кръстче, с което очертаваме правоъгълниче на произволно място. В очертанието се появява името на снимката, а в лентата за формулите – абсолютния адрес на клетката със списъка. (в случая =$C$5)
7) Замествате този адрес с името, което е присвоено на клетка С5 (моето име беше Change)т.е. формулата става =Change. След потвърждаване веднага в очертанието се появява, избраната снимка. Разширявате очертанието или го премествате на друго място.

Сега при избирането на име от списъка, съответната картинка се появява в очертанието.
Остава само окончателното оформяне. Тъй като в Sheet2 са снимките, имената и списъка (много е „пренаселено”), трябва да прехвърлите действията от Shеet2 в Sheet1 т.е на „чисто”. Това става така:

- Кликвате върху очертанието на картинката – COPY и PASTE в другия Sheet. Правите контролен тест - в Sheet2 сменяте картинките и проверявате дали на новото място картинките също се сменят.
- Кликвате върху клетката със списъка (С5) и CUT (Не COPY!). Правите PASTE на новото място в клетка по желание. Там също може да премествате очертанието на най-подходящо място. Може и да разкрасите фона на новото място по различни начини.

Автор: oldstar