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

MS Excel

Téma: Ověření přítomnosti obrázku ve složce

Zaslal/a Pavel4444 1.2.2016 22:48

Zdravím, mám na zdejší chytré hlavy dotaz. Mám databázi/tabulku cca 6000 položek a cca 5500 obrázků ve složce. Samozřejmě nevím pro kterou pložku obrázek ve složce je a pro kterou ne. Nevím zda je excel k tomu vhodný, ale potřeboval bych následující věc, kdy excel mi na základě názvu položky řekne (není - 0/ je - 1), zda je obrázek se stejným názvem ve složce přítomen? Zatím jsem to dělal manuálně, ale je to na hlavu....Díky za případnou pomoc, případně doporučení vhodného nástroje.

Pavel
pavel.krivanek@atlas.cz

Zaslat odpověď >

---

elninoslov(2.2.2016 0:55)#029780

Z brucha na tablete:
Vo VBA pridajte Modul a vložte do neho
Function CHECKIMG(N As Range) As byte
CHECKIMG = (Len(Dir(ThisWorkbook.Path & "\Obrázky\" & N)) > 0) And 1
End Function
V zpšite potom túto UDF funkciu volajte vzorcom
=CHECKIMG(A1)
kde v A1 je názov obrázku napr. "abcd.jpg" a obrázky sú uložené v adresári zošitu v podadresári "Obrázky".

EDIT:
Alebo ešte s ošetrením toho, aby nedalo nič ak do vzorca vstupuje prázdny názov:
Function CHECKIMG(N As Range) As Variant
'Application.Volatile
If N = "" Then CHECKIMG = "": Exit Function
CHECKIMG = (Dir(ThisWorkbook.Path & "\Obrázky\" & N) <> "") And 1
End Function
Apostrof pred Application.Volatile dajte preč, ak chcete aby sa to prepočítavalo pri každej príležitosti.citovat

Opičák(2.2.2016 14:48)#029790

Zkuste třeba toto. Spustit makrem START. Vyhledá všechny soubory v adresáři, barevně označí ty, které mají shodné jméno bez přípony. Ty co zůstanou "bílé" jsou solo.(použito rekurz. vyhledávání J.Walkenbach)

Příloha: 29790_hledani-stejnych-souboru-v-adresari.zip (27kB, staženo 31x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse