• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Overeni dat + pridat obrazek

Zaslal/a DJPietros 20.1.2014 9:26

Zdravim lidi,
opet jsem narazil na drobny problem,ktery castecne kopiruje tohle vlakno http://wall.cz/index.php?m=topic&id=4767&page=2#posts.

Potreboval bych aby mi na zaklade hodnot ANO/NE v bunce napr. A5 excel priradil obr1./obr.2, s tim,ze prikladova bunka A5 je rozeviraci seznam udelana pomoci overeni dat.

Vlakno,ktere jsem procetl a zminil,tento problem ovsem neresi,ale pouze nastini,protoze v tom vlakne je napsano,ze podminka zni ... slovo/nazev = nazev obrazku.

Hledal jsem proto dal a nasel jsem tohle videjko,ktery muj problem v podstate resi,ale je tedy malinko nelogicky mit v jednom souboru po dosazeni hodnoty kazdy obrazek 2x.

http://www.youtube.com/watch?v=P4XriuikOs8

Chtel bych proto vedet,jestli lze tyto dve varianty nejak dohromady zkombinovat.

tzn.

na zaklade kriteria overovaciho seznamu priradit hodnotu obr.1/obr.2, ktera bude ulozena v nejake slozce na disku

Zaslat odpověď >

---

Strana:  1 2   další »

cmuch(20.1.2014 17:31)#017365

Kdysi jsem něco někomu dělal.

Koukni a uvidíš,
V jednom se vkládá obrázek do buňky z jiného listu téhož sešitu a v druhém se vkládá z nějaké složky.

Řešeno přes makra.

Příloha: 17365_vlozobrdobunky_2.zip (21kB, staženo 18x)

citovat

cmuch(20.1.2014 17:36)#017366

A tady je druhý soubor.

Příloha: 17366_vlozobrdobunky.zip (203kB, staženo 19x)

citovat

DJPietros(21.1.2014 0:19)#017368

Ted se na to divam a tenhle pripad prave nepotrebuju. Tohle jsem zvladnul taky a neni na to potreba maker. Jde to udelat i bez maker.

Navod,jak se to muze udelat bez maker je soucasti videa prilozeneho v hlavnich tematu vlakna

cmuch napsal/a:

A tady je druhý soubor.Příloha: 17366_vlozobrdobunky.zip

citovat

DJPietros(21.1.2014 2:01)#017369

O tom,ze to funguje i bez maker,se muzes presvedcit stazenim meho souboru.

Podminka je pouze posloupnost. Nejdriv to udelas podle videa a pak teprve vytvoris seznam na overeni dat. Pri opacnem postupu to vyhodi chybu.

Hledal jsem porad dal a nejinteligentnejsi reseni je podle meho nazoru v tomhle videjku
http://www.youtube.com/watch?v=cl-kBAEoarI

Zkousel jsem postup,ale neumim anglicky a opet mi to z nejakyho duvodu nefunguje. Predpokladam,ze ten duvod je v tom,ze presne nevim,co rika o tom nakonfigurovani toho Design Modu.

Ten vzorec jsem opsal,udelal jsem to podle nej,ale proste to nejede.

Jestli spravne chapu,co tam dela,tak kdyz najedes na cas 4:53 ,tak si do toho zadani muze v podstate napsat co chce.

Tzn,kdyz v te bunce bude napr. napsano "Dobry den", tak ti to po zadani toho makra vyhodi obrazek Koaly.

Jenze,jak jsem psal,asi jsem nekde udelal chybu

Příloha: 17369_prepinani-obrazku-s-overenim-dat.zip (115kB, staženo 21x)

citovat

cmuch1(21.1.2014 6:12)#017373

Já vím, že to jde i bez maker, ale tobě nevyhovovalo mít ty obrázky uloženy v sešitě.

V té první příloze je něco obdobného co požaduješ.

Jinak on tam nic nekonfiguruje - navolí jak se má obrázek zobrazovat.

Přílohu jsi měl vložit tu kterou jsi dělal podle toho návodu, tady ta ti přeci nevyhovuje.citovat

eLCHa(21.1.2014 7:00)#017374

Pokud chcete bez kódu, musíte mít obrázky uložené v sešitě - vzorce neumí načítat data ze složek.

Vložte sem přílohu jak to máte udělané, někdo vám to opraví. Takto bychom museli tipovat, kde jste asi mohl udělat chybu.

Mimochodem, to s těmi obrázky není novinka od verze 2007, fungovalo to určitě i ve 2003 a asi i starších verzích (nástroj fotoaparát).
Nedávno jsme se bavili o rychlosti výpočtů a právě propojení obrázku je jedna z věcí, která mi znatelně zpomalovala výpočty (pro ALa - daleko více, než volatilní fce ;))) ) a tak jsem od toho ustoupil. Nicméně jsou asi situace, kdy - pokud se chci vyhnout kódu - to jinak nejde (viz vlajky na tom videu).citovat

DJPietros(21.1.2014 13:42)#017387

Já to mam reseno zatim prave bez zmeny tech obrazku. Ta moznost vymeny me napadla v podstate az pote,co jsem na youtubu nasel to videjko s tema vlajkama.

Zip obsahuje vzor toho,jak to zatim vypada,porad je to rozpracovany a tech hodnot tam bude esce vic a taky slozku s me zatim dostupnymi,zpracovanymi a upravenymi obrazky.
Ty kategorie jsou tam kvuli tomu,ze ve vysledku ten obrazek na kazdem liste bude mit jinou velikost. S tim, uz se nejak budu muset potom poprat.

Tim,ze se ucim zpusobem pokus/omyl tak mam rozdelanych takto asi 3-5 souboru,z krerych ve finale budu muset vytvorit 1 soubor
------------------------------------------------

Vzor sem nejde skrz velikost vlozit,takze link na download :

http://ulozto.cz/xftBjuXu/vzor-zipcitovat

lubo(21.1.2014 14:38)#017391

Pokud jsem to pochopil, tak potřebuješ neaktivní obrázek odbarvit.

Úloha je to spíše na makro, obrázky jsou malé (nebo je zřejmě lze zmenšit). Tahání z disku bych použil až když to nebude fungovat z listu.

Máš nejméně 3 možnosti:
1. Vždy natáhnout na místo obrázek (o to se asi pokoušíš)
2. Umístit všechny varianty obrázku na potřebné místo přes sebe a makrem přepínat jejich viditelnost nebo je podle potřeby přesouvat nahoru/dolu
3. měnit vlastnosti obrázků - například následující příkaz zobrazí obrázek v šedé:

ActiveSheet.Shapes("Picture 1").PictureFormat.ColorType = msoPictureGrayscale

A tento to vrátí zpět:

ActiveSheet.Shapes("Picture 1").PictureFormat.ColorType = msoPictureAutomatic
citovat

DJPietros(21.1.2014 15:28)#017397

Obrazky jsou male jsou tri ruzne velikosti 40x40 pixelu,60x60 pixelu a 76x76 Pixelu,ale porad jich pribyva a jak pisu,mam to zatim rozpracovany a ulozeny v nekolika souborech,protoze se na tom ucim s Excelem.
Kdyby byl kazdej obrazek ulozenej na kazdym liste a pri jine velikosti,tak ten soubor ma zbytecne ve finale 15MB po slouceni vsech rozpracovanych casti mozna i vic, coz si myslim,ze je zbytecny,proto se to snazim resit tim natahnutim z te prilozene slozky.

Vypada to zatim nejak takhle, kdyz je to zeleny(volba ANO),obrazek musi byt barevny,kdyz je to cerny (volba NE), obrazek musi byt sedy.
ALE NEJEDNA SE O TEN SAM OBRAZEK. Ten sedy obrazek je malinko odlisny, ma kolem takovej divnej ramecek



Jinak jak jsem psal, kdyz ty obrazky budou primo v sesite,tak mi to funguje spravnecitovat

cmuch(21.1.2014 20:41)#017399

Asi bych to uděla takto.

Do každe buňky kde mají být obrázky bych vložil oba dva na sebe a pojmenoval je např.
Prvními 4písmeny listu + číslem sl. + číslem řádku a jestli je barevný nebo černobílý např.
(SimV203Black nebo SimV203Color - platí pro buňku T3
SL.A=1 - T=20 a řádky jsou jasné.

Upravil bych jim ještě kompresy.

Potom bych do listu kde jsou obrázky vložil toto makro
Private Sub Worksheet_Change(ByVal Target As Range)
Call ColorPicture
End Sub
a do Obyčejného modulu toto
Sub ColorPicture()
Dim NamePicture As Variant

on error resume next
NamePicture = Left(ActiveSheet.Name, 4) & ActiveCell.Column & ActiveCell.Offset(-2, 0).Row
If ActiveCell.Value = "Ano" Then
ActiveSheet.Shapes(NamePicture & "Color").ZOrder msoBringToFront
ElseIf ActiveCell.Value = "Ne" Then
ActiveSheet.Shapes(NamePicture & "Black").ZOrder msoBringToFront
End If
on error goto 0
End Sub

Pak by se mi podle "ano" nebo "ne" přepínal obrázek v buňce nad výběrem.

Radši mít větší soubor než spousty složek.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse