Verifica esistenza immagine in cella Excel

Anonimo
2023-11-30T15:15:44+00:00

Windows 10 Enterprise

Microsoft 365 Apps for enterprise

Excel vers. 2302

Buonasera a tutti,

esiste la possibilità o una funzione che verifichi la presenza di un'immagine in una cella di Excel?

Ho un elenco piuttosto corposo di righe che hanno, nella colonna A un'immagine del prodotto i cui dati si trovano nelle successive colonne.

Non sempre tutte le immagini sono disponibili per cui c'è la possibilità che qualche riga manchi di essa.

Vorrei verificare con una funzione se la cella An (dove n è la riga) contiene o meno l'immagine e scrivere il risultato su di un'altra cella della stessa riga in modo che, in ultima analisi, filtrando tale colonna addizionale, posso trovare le righe che ne sono prive (ad esempio con VERO e FALSO).

Grazie,

Stefano

Microsoft 365 e Office | Excel | Per il lavoro | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

1 risposta

Ordina per: Più utili
  1. Anonimo
    2023-12-02T12:50:29+00:00

    Ciao Stefano,

    Purtroppo, non esiste una funzione nativa in Excel per verificare la presenza di un'immagine in una cella. Tuttavia, puoi utilizzare una macro VBA per verificare la presenza di un'immagine in una cella specifica.

    Ecco un esempio di codice VBA che puoi utilizzare:

    
    Sub CheckForImage()
    
        Dim pic As Picture
    
        Dim cell As Range
    
        Set cell = Range("A1") 'imposta la cella di partenza
    
        Do While Not IsEmpty(cell) 'cicla finché la cella non è vuota
    
            For Each pic In ActiveSheet.Pictures 'cicla attraverso tutte le immagini nella foglio attivo
    
                If pic.TopLeftCell.Address = cell.Address Then 'verifica se l'immagine si trova nella cella corrente
    
                    cell.Offset(0, 1).Value = "VERO" 'scrive "VERO" nella cella adiacente se l'immagine è presente
    
                    Exit For 'esci dal ciclo For
    
                Else
    
                    cell.Offset(0, 1).Value = "FALSO" 'scrive "FALSO" nella cella adiacente se l'immagine non è presente
    
                End If
    
            Next pic
    
            Set cell = cell.Offset(1, 0) 'passa alla cella successiva
    
        Loop
    
    End Sub
    
    

    Puoi modificare il codice per adattarlo alle tue esigenze specifiche. Spero che questo ti aiuti!

    Sandro

    La risposta è stata utile?

    0 commenti Nessun commento