Forum Mjukvara Microsoft Windows Tråd

Excel och generera QR kod

1
Skriv svar
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?

Redigera
Citera flera Citera
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!

Redigera
Citera flera Citera
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!

Gå till inlägget

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

Senast redigerat
Redigera
Citera flera Citera
Permalänk
Jubileumsmästare ★
●
Skrivet av RobinJacobsson:

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

https://ibb.co/YkX4L0f

Gå till inlägget

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!

Redigera
Citera flera Citera
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!

Gå till inlägget

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!

Redigera
Citera flera Citera
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!

Gå till inlägget

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!

Redigera
Citera flera Citera
1
Skriv svar