هل يوجد ملف اكسل انشاء QR code

[karrar.khalid]

هل يوجد ملف اكسل انشاء QR code 

عن طريق مجموعة اسماء

 

[أ / محمد صالح]

أبسط هذه الطرق استعمال دالة image

=IMAGE("https://quickchart.io/qr?size=100&text="&A2)

خيث A2 هي الخلية التي بها النص المراد تحويله

ولمن ليس لديه دالة image يمكن استخدام هذه الدالة المعرفة

Function masqr(mytext As String)
Dim URL As String, myrng As Range, myshp As Shape
Set myrng = Application.Caller
URL = "https://quickchart.io/qr?size=100&text=" & mytext
On Error Resume Next
ActiveSheet.Pictures("myqr" & myrng.Address(False, False)).Delete
ActiveSheet.Pictures.Insert(URL).Select
Set myshp = Selection.ShapeRange.Item(1)
myshp.Placement = xlMoveAndSize
With myshp
    .LockAspectRatio = msoFalse
    .Name = "myqr" & myrng.Address(False, False)
    .Left = myrng.Left
    .Top = myrng.Top
End With
masqr = ""
End Function

وطريقة استخدامها 

=masqr(A2)

بالتوفيق

[karrar.khalid]

ربي يوفقك اذا ممكن ملف اكسل 

 

[أ / محمد صالح]

أخي الكريم

ما الذي يمنعك من استعمال المعادلة أو الكود في ملفك 

لا حاجة لطلب ملف اكسل إذا كنت تريد أن تتعلم