hicham2610

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

السلام عليكم من فضلكم وإن تكرمتم أن تصحح لي هذا الكود الخاص بالطبع وأن تبينوا لي الخلل فيه خصوصا في جزئية طبع البطائق مجتمعة في ملف واحد بالنسبة لي العيب فيها البطائق تظهر متداخلة جزاكم الله خيرا وأحسن إليكم زر الطبع في الورقة 4 RH vSITE2.xlsm

السلام عليكم كمال على طارق جزاك الله خيرا وأحسن إليك.

السلام عليكم من فضلكم كيف أعدل على الكود التالي بحيث يعطي رسالة الخطأ في حالة مخالفة الصيغة:"00/00/0000" Private Sub UserForm_Initialize() TextBox5.Value = "00/00/0000" TextBox7.Value = "00/00/0000" TextBox18.Value = "00/00/0000" TextBox19.Value = "00/00/0000" TextBox13.Value = "00/00/0000" TextBox14.Value = "00/00/0000" End Sub لأ ن الكود السابق يسمح بمرور تواريخ بصيغ أخرى وشكرا جزيلا

السلام عليكم شكرا جزيلا وجزاكم الله خيرا على التفاعل مع مشاركتي معلومات تخص الطلبة معلومات تخص الموظفين البحث بعناصر مختلفة للحصول على معايير للفرز للطلبة وكذا للموظفين شواهد العمل للموظفين/ شهادة النقط للطلبة/إحصائيات ...... إلى غير ذلك كمنطلقات لإنجاز برنامج من الصفر والوصول به لنوع من الاحترافية

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

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

السلام عليكم ورحمة الله وبركاته من فضلكم هل من إعدادات معينة يجب القيام به ؟ لكي تظهر الشهادة ملء ورقة A4 ( الورقة العادية للطباعة )لأن عند الطبع تظهر الشهادة في الوسط وشريط أبيض فارغ في كل من الأعلى والأسفل وجزاكم الله خيرا

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

جزاك الله خيرا وأحسن إليك أستاذي الكريم

السلام عليكم من فضلكم يوضع الملفان في نفس المكان وبفتح xlsm وبالضغط على زر الطبع pdf يتم استيراد لائحة الأسماء ويتم الطبع بصفحتين pdf في نفس مكان تواجد الملفين لكن المشكلة هي أن في الصفحة الثانية يتم تجاهل السطر 26 للتلميذ 26 المرجو حل المشكلة مع الابقاء على الطبع صفحتين وطبع السطر 26 وشكرا جزيلا الملف.rar

السلام عليكم في الملف المرفق أردت تكوين لوائح قاعات الامتحان بالمعادلات بحيث لما تكتب رقم القاعة في A9 من الورقة LS يتم ملء الجدول بشكل أوتوماتيكي بدالة Revherchev دالة البحث الرأسي VLOOKUP وحاولت كذلك في رقم الامتحان إدخال معادلة if بحيث تجلب أرقام الامتحان بحيث يكون عددها بعدد التلاميذ داخل كل قاعة من قاعات الامتحان لكن في هذه الجزئية لم ينجح معي الأمرابتداء من F13 وهناك تنسيق في قاعدة يتم تسطير الجدول تلقائيا بحسبب عدد السطر التي تملأ بدلالة عدد التلاميذ في كل قاعة أردت فعل ذلك بالمعادلات وترك vba excel للطبع pdf بحلقات تكرارية تضع رقم القاعة وتطبع لوائح القاعات إن أمكن وحسب رسالة تخرج للمستخدم هل يريدها مختمعة في ملف pdf واحد أم كل لائحة في ملف pdf مستقل والطبع في نفس مكان تواجد xlsm في path وشكرا الملف الرئيسي1.xlsm

السلام عليكم ..الإخوة الكرام في الملف المرفق : الورقة الأولى EXAMENبها توزيع لجميع التلاميذ بحيث لكل تلميذ رقم امتحانه ورقم قاعة الامتحان في الورقة الثانية TEMP بها تها تصميم للائحة القاعة من فضلكم كيف أبرمج كودا لكي تملأ في TEMP لكل قاعة من قاعات الامتحان لائحة خاصة بها لكي تعلق بمدخلها بحيث تصدر هذه اللائحة بصيغة PDF في نفس مكان تواجد الملف PATH للإشارة فقط يجب أن يكون الكود فعالا مهما كان عدد التلاميذ الذي سيكتب فيM7/ عدد التلاميد في كل قاعة الذي سيكتب فيM9/ عدد القاعات الذي سيكتب فيM12 حاولت بتسجيل للماكرو في موديل 8 لكن من الأفضل إن كان من الاخوة من يستطيع البرمجة عبر الحلقات التكرارية لكي يكون العمل متقنا وفعالا وجزاكم الله خيرا ..تعديل بسيط في ورقة TEMP fichier1.rar

وعليكم السلام ورحمة الله وبركاته أستاذي الكريم بن علية حاجي جزاك الله خيرا وأحسن إليك الكود الآن يعمل بكفاءة.

السلام عليكم الاخوة الكرام في الملف المرفق زر جلب يجلب البيانات من ملفات مختلفة ويجلب معها اسم الملف لكن عيب جلب اسم الملف هو زيادة 16 اسما زائدا في الملف الأخير فلو كان ملفا واحدا زاد 16 ولو كانا ملفين زاد 16 في الملف الثاني ولو كانا 3 زاد 16 في الملف الثالث ولو كانا 4 زاد 16 في الملف الرابع، للأسف لم أستطع العثور على سبب هذه المشكلة وحلها المرجو المساعدة وجزاكم الله خيرا الملف.rar

الحمد لله تمكنت من حل المشكل بالكود الأخير الحل هو كتابة الامتداد داخل الكود "fichier1.xlsm" وليس فقط fichier1

السلام عليكم شاهدت فيديو للأخ الكريم samir Tobeil ت"جميع البيانات من ملفات اكسيل مغلقة دون فتحها حتى لو كانت بصيغ مختلفة VBA" جازاه الله وجازاكم خيرا لكن لم ينجح معي بعد ..الكود: Sub information() Dim wb As Workbook, lr1 As Integer, lr2 As Integer Dim fil As Variant, dat As Long Application.ScreenUpdating = False Application.DisplayAlerts = False lr1 = Sheets("Examen").Cells(Rows.Count, 2).End(xlUp).Row Sheets("Examen").Range("B18:I" & lr1 + 1).ClearContents INF = ThisWorkbook.Path 'fil = Dir(INF & "\*.xl??") fil = Dir(INF & "\*.xlsx") Do While fil <> "" If fil <> "fichier1.xlsm" Then Set wb = Workbooks.Open(INF & "\" & fil) lr1 = Workbooks("fichier1.xlsm").Sheets("Examen").Cells(Rows.Count, 3).End(xlUp).Row lr2 = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row ActiveSheet.Range("C18:F" & lr2).Copy Workbooks("fichier1").Sheets("Examen").Range("C" & lr1 + 1).past dep = Right(ActiveWorkbook.Name, Application.Search(".", ActiveWorkbook.Name) - 1) 'thisworkbook.Sheets("examen").range("g"&lr1+1&":g" & lr1+lr2-1)=dep Workbooks("fichier1").Sheets("Examen").Range("g" & lr1 + 1 & ":g" & lr1 + lr2 - 1) = dep ActiveWorkbook.Close fil = Dir End If Loop Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

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

السلام عليكم هل من إمكانية لإضافة سطر لهذا الكود يُمَكِّنُ من إدراج اسم الملف الذي تِؤخذ منه البيانات في العمود G من ورقة "ُُExamen" وجزاكم الله خيرا Sub imprtdonnéesplusieursfichiers() Dim CD As Workbook 'مرتب التصدير Dim OD As Worksheet 'ورقة التصدير Dim CA As String 'الموقع Dim F As String 'الملف Dim CS As Workbook 'مرتب مصدر البيانات Dim OS As Worksheet 'ورقة مصدر البيانات Dim DEST As Range 'خلية التصدير 'منع اهتزاز الشاشة Application.ScreenUpdating = False Application.CutCopyMode = False 'effece anciennes données Range("B18:I100000").Value = "" Set CD = ThisWorkbook 'تعريف مرتب التصدير Set OD = CD.Worksheets("Examen") 'تعريف ورقة التصدير CA = CD.Path & "\" 'تعريف الموقع F = Dir(CA & "note*.xlsx?") 'تعريف الملف المبحوث عنه Do While F <> "" 'البحث مهما يوجد من ملفات If Not F = CD.Name Then 'إن كان الاسم يختلف Set CS = Workbooks.Open(CA & F) 'تعريف الملف المنبع المفتوح Set OS = CS.Worksheets("NotesEX") 'ورقة المنبع 'خلية الكتابة Set DEST = IIf(OD.Range("C18").Value = "", OD.Range("C18"), OD.Cells(Application.Rows.Count, "C").End(xlUp).Offset(1, 0)) OS.Range("C18:F118").Copy DEST 'المجال المنسوخ CS.Close False 'ferme le classeur source sans enregistrer F = Dir 'الملف الموالي End If 'نهاية الشرط Loop 'boucle OD.Activate 'تنشيط الورقة Application.ScreenUpdating = True Application.CutCopyMode = True End Sub الملفات.rar

السلام عليكم ..من فضلكم كيف أطور كود زر "ملء" بحيث يستورد بيانات الأقسام الأربعة من الأوراق الأربعة في ورقة الامتحان بغض النظر على عدد أسطر كل قسم فهو متغير ثم يقوم بترتيت أرقام العمود الأول رت في ورقة الامتحان ترتيبا تصاعديا ثم يضع أرقام الامتحان تصاعديا في العمود رقم الامتحان ابتداء من : 1 ثم 2 وهكذا ابتداء من D2 ويضع رقم قاعة الامتحان في عمود قاعة الامتحان ابتداء من 1 بناء على عدد كل تلاميذ القاعة المكتوب في i2 (وهذا الرقم سيكون متغيرا حسب الحاجة) بحيث لو كتب 24 فمثلا من 1 إلى 24 في القاعة 1 وبعد 24 في القاعة 2 وبعد 48 في القاعة 3 وهكذا ..وجزاكم الله خيرا 1.xlsm

السلام عليكم من فضلكم هل من اقتراحات إخوتي الكريم وشكرا جزيلا

السلام عليكم من فضلكم هذا الملف يتوفر على ورقتين: الأولى بها:قاعدة بيانات BD الثانية : بها التوصيل R وزر لطبع التوصيلات وفي الخانة: W2 من ورقة التوصيل وضعت معادلة تجلب لي أكبر رقم للدلالة على عدد التوصيلات المراد طبعها، من فضلكم أريد كودا أدمجه في زر الطابعة بورقة R بحيث يقوم بترتيب الجدول في قاعدة البيانات BD على أساس العمود ر ب ت و تصاعديا من A إلى Z ويضع بعد ذلك أرقاما ترتيبية في رت عمود A من الورقة BD ويبد أ في تعبئة الوصولات التي برمجتها بدالة البحث الرأسي ويطبعها PDF في نفس مكان تواجد البرنامج في ملف pdf واحد .. لقد بدأت البرمجة لكنها تعطيني أخطاء المرجو المساعدة جزاكم الله خيرا 1.xlsm

تفضل أخي الكريم جرب: =IF(A1<25;"متوسط";IF(A1<31;"جيد";IF(A1<41;"جيد جداً";IF(A1<51;"ممتاز"))))

السلام عليكم عندي ملف باوربوانت به 7 شرائح هل من طريقة بدون VBa لعرض الشرائح:2،3،4،5،6 كل مرة يفتح فيها الملف أن تعرض بطريقة عشوائية وشكرا جزيلا

السلام عليكم من فضلكم أبحث عن كود vba excel يطلب إدخال كلمة مرور محددة مثل "0000" عند وصول تاريخ معين أو عدد مرات استعمال الملف وأيت يتم مسك هذا الكود؟ وجزاكم الله خيرا