Excel och generera QR kod

Permalänk
Medlem

Excel och generera QR kod

Hej,

Finns det någon här som har koll på hur man lättast genererar en QR kod i Excel? Antar att man måste hämta någon slags modul. Vilken är att föredra?

Säg att jag vill generera en QR kod/bild baserat på vad som anges i en kolumn, finns det någon kod att tillgå? Är det VBA som gäller då eller finns det ett grafiskt verktyg som följer med modulen man installerar?

Permalänk
Jubileumsmästare

Du kan skapa bild på QR kod med hjälp av API.
=IMAGE("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..."& B3)
B3 är cellen med vad du vill ha för info i QR kod i detta fall.

Alternativ 3 i länk:
https://www.howtoexcel.org/generate-qr-codes/

Vet inte om detta kan vara något!

Visa signatur

You have come a long way, baby!

Permalänk
Medlem
Skrivet av BumBumX:

Du kan skapa bild på QR kod med hjälp av API.
=IMAGE("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..."& B3)
B3 är cellen med vad du vill ha för info i QR kod i detta fall.

Alternativ 3 i länk:
https://www.howtoexcel.org/generate-qr-codes/

Vet inte om detta kan vara något!

Tack för ditt svar! Jag har kommit såhär långt efter att ha hittat ett Youtube-klipp (https://www.youtube.com/watch?v=ietfTtEhnII):

  • Ta bort föregående QR-koder som har genererats

  • Generera en ny QR-kod

Saken är den att jag vill inte generera endast en QR kod från en markerad cell, jag vill att 4 st QR-koder genereras:

  • Infoga QR-bild 1 i cell I4 baserat på data i cellen R3

  • Infoga QR-bild 2 i cell G11 baserat på data i cellen R5

  • Infoga QR-bild 3 i cell E21 baserat på data i cellen R7

  • Infoga QR-bild 4 i cell L21 baserat på data i cellen R9

Någon som orkar redigera koden så att den utför det som jag önskar?

Sub addQR()

For Each pic In ActiveSheet.Pictures
pic.Delete
Next pic

For Each cell In Selection

filepath = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..." & cell.Value

With ActiveSheet.Pictures.Insert(filepath)
.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
End With

Next cell

End Sub

Permalänk
Jubileumsmästare
Skrivet av RobinJacobsson:

Tack för ditt svar! Jag får det dock inte att fungera.

https://ibb.co/YkX4L0f

Läste på lite mer nu och det verkar vara en funktion som är på gång till Excel... Satt hemma igår och provade bara i Google Sheets och där fungerade det, men nu när jag provar i Excel så finns inte funktionen utan rullas ut så småningom.

Det var värt ett försök!

Visa signatur

You have come a long way, baby!

Permalänk
Medlem
Skrivet av BumBumX:

Läste på lite mer nu och det verkar vara en funktion som är på gång till Excel... Satt hemma igår och provade bara i Google Sheets och där fungerade det, men nu när jag provar i Excel så finns inte funktionen utan rullas ut så småningom.

Det var värt ett försök!

Jag uppdaterade precis mitt ovanstående inlägg, jag har fått din länk att fungera med VBA som jag hittade på nätet. Vet du hur man anpassar koden enligt mitt behov ovan? Jag har inte så bra koll på VBA.

Tack!

Permalänk
Jubileumsmästare
Skrivet av RobinJacobsson:

Jag uppdaterade precis mitt ovanstående inlägg, jag har fått din länk att fungera med VBA som jag hittade på nätet. Vet du hur man anpassar koden enligt mitt behov ovan? Jag har inte så bra koll på VBA.

Tack!

Jag är ganska kass själv, här har du en kasst kodad variant som läser data från 4 olika celler och klistrar in 4 olika QR-koder i önskade celler. Du får kanske ändra något så den uppfyller dina önskemål

Sub addQR() ActiveSheet.Cells(4, 9).Select filepath = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..." & Cells(3, 18).Value With ActiveSheet.Pictures.Insert(filepath) .ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft End With ActiveSheet.Cells(11, 7).Select filepath = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..." & Cells(5, 18).Value With ActiveSheet.Pictures.Insert(filepath) .ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft End With ActiveSheet.Cells(21, 5).Select filepath = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..." & Cells(7, 18).Value With ActiveSheet.Pictures.Insert(filepath) .ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft End With ActiveSheet.Cells(21, 12).Select filepath = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..." & Cells(9, 18).Value With ActiveSheet.Pictures.Insert(filepath) .ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft End With End Sub

Visa signatur

You have come a long way, baby!