اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

إضافة QR كود


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

السلام عليكم

عني في الملف المرفق لشهادة مدرسية أريد إدراج 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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

Capture1.PNG

medjahed-11.xlsx

رابط هذا التعليق
شارك

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

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

medjahed-11.xlsm

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

medjahed.PNG

med.xlsm

تم تعديل بواسطه مجاهد2013
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information