Assegnare ad ogni cella una immagine

[tempusfugitPartecipante tempusfugit]

Buonasera tramite la funzione cerca verticale ho creato una, database che inserendo il trasportatore è il destinatario mi fa comparire una stringa alfanumerica é possibile sostituire dinamicamente una, immagine al posto della stringa alfanumerica?

 

Grazie. 

[patelModeratore patel Karma: 51 pts]

non con formule

[PMC77Partecipante PMC77 Karma: 18 pts]

Concordo con @patel!

In questo caso puoi riuscire solo con una Macro!

Ciao

Paolo

[tempusfugitPartecipante tempusfugit]

In VBA mi potete aiutare?

[patelModeratore patel Karma: 51 pts]

devi allegare un file di esempio con i dati e le immagini  e spiegare esattamente cosa vuoi ottenere

[tempusfugitPartecipante tempusfugit]

Ho creato due fogli uno che uso come input (denominato ricerca) e uno come database (tabella accessi),

dove sono riportate le stesse colonne del foglio di ricerca (A,B,C,D,E), io cerco una macro che mi restituisca l'immagine del QR code abbinato ad ogni singola combinazione (esempio nella cella E2), il risultato è dato combinando, la destinazione, con il trasportatore, e il relativo con il codice CER.

In allegato il file di esempio.

Allegati:

You must be logged in to view attached files.

[patelModeratore patel Karma: 51 pts]

Da quanto ho capito il qrcode viene generato dall'ID pratica, quindi basta generare il qrcode direttamente dal foglio ricerca così:

Sub Inserisciqrcode()
stringa = Range("D3")
Call GenQRCode(stringa, "000000", "FFFFFF", 80, "E3")
End Sub

Sub GenQRCode(ByVal data As String, ByVal color As String, ByVal bgcolor As String, ByVal size As Integer, ByVal cella As String)
On Error Resume Next

    For i = 1 To ActiveSheet.Pictures.Count
        If ActiveSheet.Pictures(i).Name = "QRCode" Then
            ActiveSheet.Pictures(i).Delete
            Exit For
        End If
    Next i

    sURL = "https://api.qrserver.com/v1/create-qr-code/?" + "size=" + Trim(Str(size)) + "x" + Trim(Str(size)) + "&color=" + color + "&bgcolor=" + bgcolor + "&data=" + data
    Debug.Print sURL

    Set pic = ActiveSheet.Pictures.Insert(sURL + sParameters)
    Set cell = Range(cella)

    With pic
        .Name = "QRCode"
        .Left = cell.Left
        .Top = cell.Top
    End With

End Sub

[tempusfugitPartecipante tempusfugit]

Buonasera Patel,

sei davvero bravo, ho due cose da chiederti, una sui QR code (che tu sappia, questo server dove crei e scarichi i QR code, gestisce pure le sequenze di escape?) l'altra è posso creare una cartella (esempio QR code) dove una volta generati e scaricati i QR code posso decidere di visualizzarli da lì? (non da server ma da locale, in caso non avessi in quel momento un collegamento ad internet?).

Saluti.

[patelModeratore patel Karma: 51 pts]

Non son bravo, cerco su google quello che non so, cosa che dovresti fare anche tu, non so risponderti sulla sequenza di escape, non capisco la domanda, per quanto riguarda l'archivio dei qrcode basta fare un foglio con tutti i codici e adattare la macro per fare un ciclo che riporti il qrcode accanto al codice

[mflautoPartecipante mflauto Karma: 1 pt]

Buongiorno Patel,

per le sequenze di escape ho risolto, mi potresti suggerire il codide per fare ( l'archivio dei qrcode basta fare un foglio con tutti i codici e adattare la macro per fare un ciclo che riporti il qrcode accanto al codice).

Grazie.

Max

[patelModeratore patel Karma: 51 pts]

L'obiettivo del forum è insegnare a fare, io ti ho fatto vedere come si fa, il passo successivo lo devi fare tu, provaci e posta i tuoi tentativi

[Autore]

Articoli