< návrat zpět

MS Excel

Téma: obrázek přes makra rss

Zaslal/a kolouch 26.7.2017 14:33

Dobrý den, mám vytvořené makro, že po zadání v buňce "ANO" se zobrazí obrázek. Pokud v buňce "ANO" není, tak obrázek zmizí. Má to ovšem jednu chybu. Pokud vyplňuji sloupec buněk a používám klávesu ENTER, tak mi pokaždé kurzor skočí do buňky, která kontroluje makro. Mohl by mi s tím někdo pomoci, aby se pokaždé kurzor nevracel ke kentrole makra ? Kod makro je v příloze. Děkuju

Příloha: jpg36971_makro.jpg.jpg (83kB, staženo 68x)
36971_makro.jpg.jpg
Zaslat odpověď >
icon AL(26.7.2017 17:20)#036976
avatar
asi si budes musiet v ramci udalosti Worksheet_Change urobit test na Target.Address, inak pri akejkolvek zmene na liste kurzor vzdy skoci do bunky U32, presne v zmysle, ako to v kode pozadujes :)citovat
kolouch(26.7.2017 18:51)#036978
avatar
A bylo by možné ten kod nějak upravit,aby při každé změně nekontroloval stále dokola to makro, ale například pouze jednou ? Děkuju za odpověďcitovat
icon AL(26.7.2017 22:53)#036979
avatar
Vloz sem excel subor, v ktorom sa nachadza to makro, aby ten, kto ti bude pomahat, nemusel kod prepisovat z obrazku. Popis co najpresnejsie, co chces, aby kod robil.citovat
elninoslov(27.7.2017 1:49)#036980
elninoslov
Príklad:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U32")) Is Nothing Then
Select Case Range("U32").Value
Case "ANO": Shapes("Skupina 3").Visible = True
Sheets("VYKRES").Shapes("Skupina 133").Visible = True
Case " ": Shapes("Skupina 3").Visible = False
Sheets("VYKRES").Shapes("Skupina 133").Visible = False
End Select
End If
End Sub
Příloha: zip36980_kontrola-bunky.zip (33kB, staženo 33x)
citovat
kolouch(27.7.2017 9:55)#036981
avatar
Dobrý den, v příloze posílám soubor excel a uvnitř je vysvětlení jak funguje. Děkuji za pomoc.citovat
elninoslov(27.7.2017 10:07)#036982
elninoslov
Príloha s makrom, teda XLSM, musí byť zabalená do ZIP a veľkosť max tuším 256 kb. Inak Vám ju nevloží. Ak je to väčšie, použite GoogleDrive alebo ine Free úložné služby.citovat
kolouch(27.7.2017 10:38)#036983
avatar
Dobrý den, tak se omlouvám a posílám ještě jednou.
Příloha: zip36983_zkouska.zip (90kB, staženo 35x)
citovat
elninoslov(27.7.2017 14:55)#036987
elninoslov
Príklad s poznámkami...
Příloha: zip36987_zkouska.zip (91kB, staženo 45x)
citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje