karrar.khalid قام بنشر نوفمبر 20 مشاركة قام بنشر نوفمبر 20 هل يوجد ملف اكسل انشاء QR code عن طريق مجموعة اسماء رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر نوفمبر 21 أفضل إجابة مشاركة قام بنشر نوفمبر 21 أبسط هذه الطرق استعمال دالة 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) بالتوفيق 3 1 رابط هذا التعليق شارك More sharing options...
karrar.khalid قام بنشر نوفمبر 23 الكاتب مشاركة قام بنشر نوفمبر 23 ربي يوفقك اذا ممكن ملف اكسل رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر نوفمبر 23 مشاركة قام بنشر نوفمبر 23 أخي الكريم ما الذي يمنعك من استعمال المعادلة أو الكود في ملفك لا حاجة لطلب ملف اكسل إذا كنت تريد أن تتعلم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.