أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره اكسيل اسئله واجابات


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



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ضبط كود السلاسل الرقمية

السلام عليكم ورحمة الله وبركاته حدثت عندى مشكلة عند دمج الاعمدة فالكود اصبح لايعمل ارجو المساعدة فى هذا الشيت السؤال مرف ..



13-10-2018 10:32 صباحا
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 494
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 705
الاعجاب : 31
 offline 

السلام عليكم ورحمة الله وبركاته حدثت عندى مشكلة عند دمج الاعمدة فالكود اصبح لايعمل ارجو المساعدة فى هذا الشيت السؤال مرفق بالملف  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ضبط كود السلاسل الرقمية.rar   تحميل rar مرات التحميل :(6)
الحجم :(215.534) KB
  ضبط كود السلاسل الرقمية.rar   تحميل rar مرات التحميل :(0)
الحجم :(215.534) KB








13-10-2018 02:43 مساء
مشاهدة مشاركة منفردة [1]
ابونور
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 79
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 4
قوة السمعة : 463
الاعجاب : 0
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
وعليكم السلام ورحمة الله وبركاته
الكود المضاف غير متجانس مع ورقة العمل ولا باقى الاكواد
عملت دمج بين كودين وفى اقتراح لاتمام العمل 
ان ادخال الاسماء يكون بالرقم القومى وفصل الاسم فى عمود مستقل واسم الاب كاملا فى عمود اخر
لتسهيل استخراج النوع والتواءم والاخوات
واخيرا وليس اخرا اليك الكودين المدمجين وبالتوفيق ان شاء الله
Sub FF()
'ßæÏ ÇáÓáÇÓá ÇáÑÞãíÉ
Dim K%: K = 17
Dim X%: X = 2
Dim C As Range
With Range("A16:H5000")
.UnMerge
.ClearContents
.Interior.ColorIndex = 0
.Borders.ColorIndex = 0
.Font.ColorIndex = 0
End With
For s = 2 To 12 Step 2
Set C = Range("D" & s)
With Cells(K, 1)
With .Offset(-1)
.Value = Range("B" & s).Value
.Resize(1, 8).Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 5
.Borders.ColorIndex = 1
.Font.ColorIndex = 2
End With
.Value = 1
.DataSeries ROWCOL:=xlColumns, STOP:=C.Value
Count = Val(Range("C" & s))
For J = 1 To Count
Cells(K, 2) = J & " / " & Range("A" & s)
K = K + 1
Next
M = 1
For Z = 1 To C
LR1 = Range("E" & Rows.Count).End(xlUp).Row + 1
If Left(Range("A" & LR1), 4) = "ÇáÕÝ" Then LR1 = LR1 + 1
Cells(LR1, 5) = M & " / " & Range("A" & s)
M = M + 1
If M > Count Then M = 1
Next
End With
K = Cells(Rows.Count, 1).End(3).Row + 2
Next
End Sub







13-10-2018 03:11 مساء
مشاهدة مشاركة منفردة [2]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 494
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 705
الاعجاب : 31
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
الله ينور عليك هو ده الشغل جزاكم الله خير وجعله الله فى ميزان حسناتك






13-10-2018 04:01 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6181
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17046
الاعجاب : 143
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
جزاك الله خيراً أخي الحبيب أبو نور .. الله ينور على النشاط المميز






13-10-2018 04:13 مساء
مشاهدة مشاركة منفردة [4]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 494
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 705
الاعجاب : 31
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
ماذا تعنى هذه الكلمه  ÇáÕÝ






13-10-2018 04:22 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6181
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17046
الاعجاب : 143
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
هي كلمة باللغة العربية لكن عند نسخ الكود كان اتجاه اللغة بالإنجليزية فظهرت بهذا الشكل ..






13-10-2018 05:00 مساء
مشاهدة مشاركة منفردة [6]
ابونور
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 79
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 4
قوة السمعة : 463
الاعجاب : 0
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
المشاركة الأصلية كتبت بواسطة:مالك ماريه
الله ينور عليك هو ده الشغل جزاكم الله خير وجعله الله فى ميزان حسناتك

وعليك اخى الكريم وعلى الاساتذه اصحاب الاكواد






13-10-2018 05:02 مساء
مشاهدة مشاركة منفردة [7]
ابونور
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 79
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 4
قوة السمعة : 463
الاعجاب : 0
 offline 
look/images/icons/i1.gif ضبط كود السلاسل الرقمية
المشاركة الأصلية كتبت بواسطة:YasserKhalil
جزاك الله خيراً أخي الحبيب أبو نور .. الله ينور على النشاط المميز

جزاك الله عنا خيرا استاذنا 







الكلمات الدلالية
السلاسل ، الرقمية ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 06:21 مساء

أعلن هنا
أعلن هنا
أعلن هنا