نجوم المشاركات

بارك الله لك أخي @أبومروان ويمكن اختصار هذه المعادلة إلى هذه =CHOOSE(B1,"الأول","الثاني","الثالث","الرابع","الخامس","السادس","السابع","الثامن","التاسع","العاشر","الحادي عشر","الثاني عشر","الثالث عشر","الرابع عشر","الخامس عشر","السادس عشر","السابع عشر","الثامن عشر","التاسع عشر","العشرون") بالتوفيق

وعليكم السلام جرب هذه المعادله لعلها المطلوب =IF(B1=1,"الأول",IF(B1=2,"الثاني",IF(B1=3,"الثالث",IF(B1=4,"الرابع",IF(B1=5,"الخامس",IF(B1=6,"السادس",IF(B1=7,"السابع",IF(B1=8,"الثامن",IF(B1=9,"التاسع",IF(B1=10,"العاشر",IF(B1=11,"الحادي عشر",IF(B1=12,"الثاني عشر",IF(B1=13,"الثالث عشر",IF(B1=14,"الرابع عشر",IF(B1=15,"الخامس عشر",IF(B1=16,"السادس عشر",IF(B1=17,"السابع عشر",IF(B1=18,"الثامن عشر",IF(B1=19,"التاسع عشر","العشرون")))))))))))))))))

السلام عليكم كذلك يمكن استخدام الدالة INDEX بهذه الطريقة =INDEX({"الأول","الثاني","الثالث","الرابع","الخامس","السادس","السابع","الثامن","التاسع","العاشر","الحادي عشر","الثاني عشر","الثالث عشر","الرابع عشر","الخامس عشر","السادس عشر","السابع عشر","الثامن عشر","التاسع عشر","العشرون"};B1)

السلام عليكم أبو أحمد هذا عمل فوق الروعة وبما أنك ذكرت أنك تحب التحدي وحتى يكون برنامجك عام لأي منطقة في العالم فيجب أن تنتبه لما يأتي : 1 - زاوية الفجر ليست ثابتة في كل المناطق حول العالم وتتراوح بين 19 إلى 17 تحت خط الأفق الشرقي 2 - وقت العشاء في السعودية - على حسب تقويم أم القرى - يكون بعد المغرب بساعة ونصف طوال العام إلا في رمضان فيكون بعد المغرب بساعتين هذا ما يخص المملكة أما في بقية المناطق حول العالم فتحتلف القيم بناء على زاوية الفجر ولكن هنا تحت خط الأفق الغربي تقبل تحياتي

وعليكم السلام تم حذف رابط الصور من الخلايا وجعله ضمن الكود حتى لا تتقيد بمسار ثابت للبرنامج تم إضافة صورة في حال لم تكن صورة المنتج موجودة تم جعل أداة الصور تحتوي الصورة بالكامل (سترتش) New folder (2).rar

جرب هذا حساب متوسط.xlsx

لا أدري - أخي الكريم - إن كان هناك مشكلة في النسخة التي لدي أستميحكم عذراً أخي الكريم - حقك عليّ - فأنا بالعادة لكثرة برامج الإكسل التي أستخدمها فإنني أعتمد على الحساب اليدوي بدل التلقائي وقد أخذ مني السن مأخذاً - نسيت التحديث فلم تظهر لي أسماء المدن التي أطلب.. أعتذر مرة ثانية تقبل تحياتي العطرة لشخصكم الكريم والسلام عليكم

السلام عليكم إثراء للموضوع وبعد إذن من سبقني إليكم الحل بطريقتين الأولى : باستخدام VlookUp حيث تم وضع الأرقام وتفقيطها في جدول بمجرد أن تكتب الرقم يتم تفقيطه =VLOOKUP($A2;Table1;2;0) الثانية: باستخدام المعادلة التي تعتمد على كود التفقيط NoToTxt الذي قمت بالتعديل على جزء يسير - بعد إذن صاحبه الذي أسأل الله تعالى أن يجعله بميزان حسناته - ليناسب الموضوع. =NoToTxt([@الرقم];"";"") راجياً أن يكون مقبولاً لديكم والسلام عليكم تحويل الأرقام الترتيبية إلى نصوص.xlsm

اللهم آمين يا رب العالمين، أنا وأنت وكل المُسلمين. الله يهديك لطريقه ويثبتك يا رب. جُزيت خيرًا . @أ / محمد صالح

بارك الله فيك وزادك الله من فضله وعلمه وجعله الله فى ميزان حسناتك أخى الفاضل أبو أحمد

السلام عليكم ورحمة الله وبركاته اليكم برنامج الجرد خاص بالمصالح الاقتصادية دمتم في رعاية الله وحفظه. برنامج الجرد العام 2022 (2).rar

السلام عليكم، لدي عمود يقوم بترتيب مثلا الطلاب في صف ما، من 1 الى 20. فكيف يمكنني تحويل الترتيب بالارقام الى نص ؟ 1 -> الاول 2 -> الثاني 3 -> الثالث 4 -> الرابع وهكذا. بارك الله فيكم.

جرب الآن تعديل بسيط.xlsm

ممكن ليه لا ولكن الى تلاحظ ان الاسم ورقم الحيازة سيتكرر .. ورأيي ان هذا غير جيد وغير احترافي كبرمجة في اكسس ... هذه الصورة نشاهدها في إكسل

يبدوا اني فهمت عليك الآن .. صحيح فهم السؤال نصف الاجابة شوف اعلنا عن اسم ياخذ اسم مصدر بيانات من النموذج الأول عند النقر على الزر .. ويكون هذ المعلن هو مصدر بيانات نموذج الملاحظات يمكنك تكرار سطر الاعلان عند حدث زر اي نموذج تريد Example3.accdb

اضافة لما تفضل به استاذ @ابوخليل حاول ان لاتكون التسميات فيها فواصل ...يمكنك في التسمية التوضيحية جرب الكود التالي بعد ان رفعت الفواصل DoCmd.OpenForm "RecordsNote", acNormal Forms!RecordsNote.RecordSource = "SELECT * from AccountsCollects where ID= ID" Forms!RecordsNote.Requery

الحمد لله على تنفيذ المطلوب وجزاء الله من جميع ابواب الخير

وعليكم السلام ورحمة الله وبركاته موجودة أسماء المدن لكل دولة بس غريبة غير ظاهرة لديك هذا مثال لمدن مصر بالعربية والانجليزي

وعليكم السلام شكرا أبو عيد لملاحظاتك بالنسبة للزوايا يمكن التعديل كما تشاء في تبويب حول وإذا ترك فارغا يحسب القيم الافتراضية وهي -0.833333333 زاوية الشروق -18 زاوية العشاء -18 زاوية الفجر أما الملاحظة الثانية فلعلي أضع شرط خاص للسعودية ولرمضان المبارك

وعليكم السلام تفضل فيها نموذج صفحة التقرير يمكنك التعديل عليها وسينعكس ذلك على شيت عهد المعلمين ولكن لا تعدل على عدد الصفوف زيادة ونقصا دون التعديل على الكود edit.xlsm

خفايف يا باشمهندس وشكرا لاحساسك وشعورك الطيب .. اخونا وحبيبنا واستاذنا القدير لكني فاضي واستمتع .. قالوها : الفاضي يعمل قاضي .. نسأل الله العافية والمعافاة وحسن الختام

نفس الفكرة والاختلاف في الحدث واستخدامه لحدث الحالي افضل العود قدها الكبير الله والمقصد ان اخونا الفاضل شايب كبير سن وهو لا يدعي انه كبير في العلم ولا يمكن ان يضع نفسه في مصافكم انتم الاساتذة فهو انسان بسيط يشارك بما يعتقد انه مفيد ويتقبل النقد بصدر رحب وخصوصا اذا كان من منصف لا يتبع الاهواء او يكيل الاتهامات بدون دليل تحياتي وتقديري اخونا الشايب 🌹

استاذ ابو احمد لا اجد كلمات تعبر عن مدى شكرى وامتنانى لحضرتك سوى جزاكم الله خير وجعله الله فى ميزان حسناتك التعديلات التى اجريتها على الكود اكثر من رائعها تنم عن رجل محترف وعبقرى ووفرت على الكثير والكثير من الوقت ادامك الله فى طاعته

تسلم ايدك استاذنا أبو أحـمـد هذا هو المطلوب والشكر موصول لك جزاك الله خيرا

فوزى فوزى luxorman احمد عبدالحليم شكرا لدعواتكم وفقكم الله

بارك الله لك وجعله فى ميزان حسناتك عمل اكثر من رائع وتصميم اكثر من رائع

مميز بجد بارك الله فيك وجعله الله في ميزان حسناتك

عمل رائع وممتاز وحتى يكتمل العمل يكون الملف غير محمى واظهار الشيتات المخفيه وادامكم الله فى طاعته

ما شاء الله جعله الله في ميزان حسناتك

بارك الله فيك وجعله الله في ميزان حسناتك

أحسنت استاذنا الكريم عمل ممتاز جعله الله فى ميزان حسناتك وبارك الله فيك

بارك الله فيك أخي الكريم وفقكم الله

وعليكم السلام ورحمة الله وبركاته بارك الله فيك وجعله الله في ميزان حسناتك

السلام عليكم ورحمة الله أعتذر مرة أخرى للخطأ الذي وقع في ملفي المرفق الثاني، مع ملاحظة أن الخطأ مني وليس منك، وقد تم التصحيح في الملف المرفق (أرجو ذلك إن لم يظهر مشكل آخر)... ملاحظة: تم إظافة رقم حساب للبيانات المرحلة "حساب رقم 44" المذكور في اليوم الثالث وغير موجود في جدول الترحيل... بن علية حاجي ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

الملف النهائي وبه كود للطباعه ============= لجان كنترول مدرسي1.rar ==========

'=========================== 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو استدعاء بشرط 'تم هذا الكود في 15/2/2017 Sub استدعاء() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long Dim ws As Worksheet Dim sh As Worksheet Set ws = Sheets("Sheet1") Set sh = Sheets("Sheet2") '= = = = = = = = = = = = ' شيت الهدف والمدى المطلوب مسحه sh.Range("B7:AJ10000").ClearContents ' اسم ورقة المصدر lr = ws.Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = ws.Range("A7:EF" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 3, 7, 8, 9, 11, 12, 24, 25, 35, 36, 46, 47, 57, 58, 72, 73) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به ورقم عمود المعيار If arr(i, 135) Like "*" & "نا*" & "*" Then temp(j, 1) = j For c = LBound(cr) To UBound(cr) temp(j, c + 2) = arr(i, cr(c)) Next c j = j + 1 End If Next i ' اسم شيت الهدف With sh .Range("B7").Resize(j - 1, UBound(temp, 2)).Value = temp 'سطر لمسح التسطير .Range("B7:AJ" & Rows.Count).Borders.Value = 0 'سطر لاضافة التسطير .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 End With End Sub هذا الكود خاص باستدعاء اعمده معينه بناء على شرط ... ( النجاح ) استدعاء بشرط1.rar

رائعة النابغه ياسر خليل في الترحيل بالمصفوفات ترحيل أعمدة غير متجاورة لأعمدة غير متجاورة باستخدام المصفوفات (كود حصري) https://youtu.be/ndC28IqkkBw ** من يريد دعمي فليقم بالاشتراك في القناة وعمل لايك للفيديوهات https://www.file-upload.com/ablfo2nqpekx رابط الملف السابق ============================================== الترحيل بشرط معين في عمود معين بسهوله ويسر بالمصفوفات للنابغه ياسر خليل Option Explicit 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو ترحيل بشرط 'تم هذا الكود في 15/2/2017 Sub UsingArrays() Dim arr As Variant Dim temp As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long 'متغير اسم ورقة المصدر lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Sheets("Sheet1").Range("A2:C" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به If arr(i, 3) Like "*" & "P" & "*" Then For c = LBound(arr, 2) To UBound(arr, 2) temp(j, c) = arr(i, c) Next c j = j + 1 End If Next i 'متغير اسم ورقة الهدف واسم الخليه التي سيتم ترحيل العناوين اليها Sheets("Sheet2").Range("E5").Resize(, UBound(temp, 2)).Value = Array("Names", "Marks", "Status") 'متغير اسم ورقة الهدف واسم الخليه التي سيتم الترحيل اليها Sheets("Sheet2").Range("E6").Resize(j - 1, UBound(temp, 2)).Value = temp End Sub ستدعاء بشرط.rar ملف الكود السابق

الجديد اختلاف مكان صف بدايه صفحه المصدر وصف البدايه لصفحة الهدف 'Private Sub Worksheet_Activate() Sub القــيم_الفريده() 'Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False 'مسح عمود القيم الفريده [S9:S500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [S9:S500] 'اسم شيت المصدرورقم صف البدايه في شيت الهدف For U = 9 To Sheets("بيانات الطلبة").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدروكذلك رقم الصف في شيت المصدر Cells(U, 19) = Sheets("بيانات الطلبة").Cells(U - 2, 22) 'رقم عمودالبيانات الفريده في الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 19)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 19).ClearContents End If Next 'فرز عمود القيم الفريده [S9:S500].Sort [S9], xlAscending Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=128040

القيم الفريده بطريقتين للمحترم عبد الله باقشير والمحترم ياسر خليل 'Private Sub Worksheet_Activate() Sub القــيم_الفريده() 'Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'مسح عمود القيم الفريده [S9:S500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [S9:S500] 'اسم شيت المصدرورقم صف البدايه في شيت الهدف For U = 9 To Sheets("بيانات الطلبة").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 19) = Sheets("بيانات الطلبة").Cells(U, 22) 'رقم عمودالبيانات الفريده في الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 19)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 19).ClearContents End If Next 'فرز عمود القيم الفريده [S9:S500].Sort [S9], xlAscending Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Unique_List() 'هذاالكود خاص بالمحترم ياسر خليل 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 28/04/2017 'تعريف المتغيرات Dim Rng As Range Dim Cel As Range Dim Coll As New Collection Dim I As Integer 'تعيين النطاق المراد استخراج القيم الفريدة منه Set Rng = Sheets("بيانات الطلبة").Range("V7:V" & Sheets("بيانات الطلبة").Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'سطر لتجنب حدوث خطأ لأنه عند إضافة عنصر موجود من قبل يحدث خطأ On Error Resume Next 'حلقة تكرارية لكل خلية من خلايا النطاق For Each Cel In Rng 'إضافة العنصر أو قيمة الخلية ويمثل الجزء بعد الفاصلة مفتاح فريد 'لتحويل قيمة الخلية لقيمة نصية في حالة التعامل مع الأرقام [Cstr] وتم استخدام الدالة Coll.Add Cel.Value, CStr(Cel.Value) Next Cel 'وضع قيم الكائن الذي استخدم في تخزين القيم الفريدة في العمود الثالث For I = 1 To Coll.Count Sheets("اوائل ").Cells(I + 8, 19).Value = Coll(I) Next I Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub القيم الفريــده.rar

بسم الله الرحمن الرحيم استخراج القيم الفريده بطريقة العلامه عبد الله باقشير .. حفظه الله ورعاه مع شرح الكود جزى الله كل من ساهم في اخراج هذا العمل الى النور بكل خير Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False 'مسح عمود القيم الفريده [V5:V500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [V5:V500] 'اسم شيت المصدرورقم صف البدايه في شيت المصدر For U = 7 To Sheets("رصد الترم الثانى").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U, 4) 'رقم عمودالبيانات الفريدهفي الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 22)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 22).ClearContents End If Next 'فرز عمود القيم الفريده [V5:V500].Sort [V5], xlAscending Application.ScreenUpdating = True End Sub استخراج القيم الفريده.rar

استدعاء بيانات اعمده معينه بطريقه المصفوفات للاستاذ المحترم زيزو العجوز جزاه الله كل خير وبارك له Sub TransData1() 'هذا الكود للمحترم زبزو العجوز 'الهدف من الكود ترحيل بيانات بمعلوميه خليه 'تم هذا الكود في 19/4/2017 '======== ' Dim ws As Worksheet, sh As Worksheet 'اعلان عن متغير شيت الهدف Set ws = Sheets("M_SH") 'اعلان عن متغير شيت المصدر Set sh = Sheets("SH") Dim Arr As Variant, Arr1 As Variant, temp As Variant Dim LR As Long, i As Long, j As Long, p As Long 'سطر لعد الصفوف في شيت المصدر LR = WorksheetFunction.CountA(sh.Range("D10:D10000")) 'سطر لمسح النطاق ws.Range("A9:AJ1000").ClearContents Arr = sh.Range("A10:DD" & LR).Value Arr1 = Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 16, 17, 26, 27, 36, 37, 47, _ 48, 59, 60, 67, 68, 71, 72, 76, 77, 81, 82, 86, 87, 91, 92, 97, 98, 105) ReDim temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr1) + 1) For i = 1 To UBound(Arr) 'سطر اذا كانت قيمه الخليه بي 1 مكتوب فيها شيت نصف العام If ws.Range("B1").Value = "شيت نصف العام ـ الصف الرابع الابتدائى" Then p = p + 1 For j = 0 To UBound(Arr1) temp(p, j) = Arr(i, Arr1(j)) ws.Cells(p + 8, 1) = p Next j End If Next i If p > 0 Then ws.Range("B9").Resize(p, UBound(temp, 2)).Value = temp End Sub Sub TransData2() Dim ws As Worksheet, sh As Worksheet Set ws = Sheets("M_SH") Set sh = Sheets("SH") Dim Arr As Variant, Arr2 As Variant, temp2 As Variant Dim LR As Long, i As Long, j As Long, p As Long LR = WorksheetFunction.CountA(sh.Range("D10:D10000")) ws.Range("A9:AJ1000").ClearContents Arr = sh.Range("A10:DD" & LR).Value Arr2 = Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 22, 23, 32, 33, 42, 43, 55, 56, 65, 66, _ 69, 70, 74, 75, 79, 80, 84, 85, 89, 90, 93, 94, 103, 104, 107) ReDim temp2(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr2) + 1) For i = 1 To UBound(Arr) If ws.Range("B1").Value = "شيت آخر العام ـ الصف الرابع الابتدائى" Then p = p + 1 For j = 0 To UBound(Arr2) temp2(p, j) = Arr(i, Arr2(j)) ws.Cells(p + 8, 1) = p Next j End If Next i If p > 0 Then ws.Range("B9").Resize(p, UBound(temp2, 2)).Value = temp2 End Sub Using Arrays.rar ========================== جزاكم الله كل خير

{ بسم الله الرحمن الرحيم } اخواني واساتذتي واعضاء منتدى اوفيسنا .... لاحظت ان هنالك الكثير من الأخوة يريدون يومية مبيعات ومصاريف و ان يكون هنالك ترحيل يومي حسب التاريخ وطباعة للصفحه احببت ان اضيف البرنامج ويوجد بداخله علم فلسطين وبداخل العلم يوجد ترحيل لمجموع المبيعات و ترحيل لمجموع المصاريف وترحيل لصفحة حسب التاريخ وزر مسح البيانات بعد الترحيل وزر طباعة الصفحه لمن اراد ان يستفيد وهو مفتوح وجاهز لكل من احب ان يعدل عليه .... واي استفسار احبتي انا جاهز .... لا تنسوني من صالح دعائكم بظهر الغيب هدية لمنتدى اوفيسنا.rar

أخي الحبيب محي الدين أحي فيك روح التفاعل الجميلة والمطلوبة من الجميع ، فهذا هو المقصود بعينه أن نقوم بتطبيق ما تعلمناه لنتعلم المزيد وترسخ المعلومة بالنسبة لسؤال حول الخلايا الفارغة يمكن استخدام شرط لتفادي الخلايا الفارغة بهذا الشكل For I = 1 To UBound(myData) - 1 If Not IsEmpty(myData(I, 1)) And myData(I, 1) <> 0 Then Obj(myData(I, 1) & "") = "" End If Next I أما بالنسبة إلى أن بعض الأسماء مكررة هذا يرجع للإدخال فكلمة "أنس" غير كلة "انس" غير كلمة "إنس" ... وكلمة "محمد" غير كلمة "محمد " الثانية بها مسافة زائدة ... تقبل تحياتي

السلام عليكم لا عليك اخي ابو ليالى حفظها الله لك وتتربى في عزك ان شاء الله اطلع على المرفق وجرب ان شاء الله به ماتريد واي تعديلات او ملاحظات نحن بالخدمة تحياتي رصد درجات الفصول فى الكنترول_111.rar