< návrat zpět
MS Excel
Téma: obrázek přes makra
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: 36971_makro.jpg.jpg (83kB, staženo 67x)
AL(26.7.2017 17:20)#036976 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 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
AL(26.7.2017 22:53)#036979 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
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 SubPříloha: 36980_kontrola-bunky.zip (33kB, staženo 32x) citovat
kolouch(27.7.2017 9:55)#036981 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 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 Dobrý den, tak se omlouvám a posílám ještě jednou.
Příloha: 36983_zkouska.zip (90kB, staženo 34x) citovat
elninoslov(27.7.2017 14:55)#036987 Príklad s poznámkami...
Příloha: 36987_zkouska.zip (91kB, staženo 44x) citovat