إضافة QR كود

[مجاهد2013]

السلام عليكم

عني في الملف المرفق لشهادة مدرسية أريد إدراج QR كود أسفل الشهادة و يحتوي على البيانات المدونة باللون الأحمر

و هي مجمعة في الخلية M15.فهل ممكن المساعدة في هذا.

medjahed.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Sub Join_array()
Dim My_rg As Range, Entire_Mot$, Cel As Range
Set My_rg = Union(Range("I5"), Range("C12"), Range("B13"), Range("E13"), _
          Range("G13"), Range("C16"), Range("E16"), Range("H16"), _
          Range("F18"), Range("H18"))
  For Each Cel In My_rg
   Entire_Mot = Entire_Mot & " " & Cel.Text
  Next
  Range("N14") = Mid(Entire_Mot, 1, Len(Entire_Mot) - 1) & "."
 
End Sub

 

[مجاهد2013]

أولا شكرا أستاذ سليم

الكود شغال و لكن لا يحافظ على الترتيب

حتى بالمعادلة حصل معي نفس الشيئ ( الملف المرفق)

و لكن الذي أريده بالضبط هو إدراج رمز QR  أسفل الشهادة كما هو مبين في الصورة المرفقة

medjahed-11.xlsx

[salimhebboul]

من الافضل في المرة القادمة انا يكون  الملف  كاملا 

 ويجب ان يكون لديك  اتصال انترنت ليقوم  الملف بانشاء كود بار 

medjahed-11.xlsm

لاتنسانا من طيب الدعاء  

[سليم حاصبيا]

للحفاظ على الترتيب 

افعل كما في الصورة

[مجاهد2013]

الف شكر و ألف تحية للجميع

حفظكم الله بحفظه و جعل ما تقدموه لنا من مساعدات في ميزان أعمالكم الصالحة

كود جمع اليانات في خلية واحدة شغال و لكن العيب فيه أن الاسم يأتي بعد اللقب و ليس بعد تاريخ و مكان الازدياد و كذلك التاريخ غير كامل ينقصه اليوم لا يظهر (كما هو مبين في الصورة المرفقة)

med.xlsm

تم تعديل أبريل 1, 2020 بواسطه مجاهد2013