hicham2610

السلام عليكم حللت المشكلة MsgBox UserName + " مرحبا بكم في مسابقتي التفاعلية", vbApplicationModal, " هشام بازغ-مسابقة تفاعلية في السكراتش"

السلام عليكم لدي الكود التالي: UserName = InputBox("من فضلكم ، قومو بمسك اسمكم ", "هشام بازغ- مسابقة تفاعلية ") MsgBox "مرحبا بكم في مسابقتي التفاعلية" + " " + UserName, vbApplicationModal, "هشام بازغ- مسابقة تفاعلية" يعطي الرسالة التالية من فضلكم كيف أجعل الاسم المدخل: سمير مرتضى يظهر قبل مرحبا بكم في مسابقتي التفاعلية وحبذا لو يفصل بين الاسم والترحيب بفاصلة ، وجزاكم الله خيرا

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

السلام عليكم إليكم الملف في المرفقات عند الضغط على طباعة جميع الوصولات من الرئيسية (وهي بالمناسبة: 181) ثم الضغط على اضغط لإعداد الصفحات ثم الضغط على طباعة لايتم طبع جميع الوصولات وكذلك هناك عيب فقط الصفحة الأولي هي التي بها 6 وصولات بينما باقي الصفحات فقط اثنين كيف أعدل على الكود لتكون بجميع الصفحات 6 وصولات وبذلك يتم طبع كل الوصولات وجزاكم الله خيرا progr1.xlsm

السلام عليكم المرجو تغيير أكواد vba في أزرار الطبع من الطبع الورقي للطابعة إلى الحفظ بصيغة Pdf وجزاكم الله خيرا progr.xlsm

السلام عليكم تفضلوا ملف إكسيل مبرمجTr يعتمد على لائحة مثل لT المطلوب إضافة برمجة للوصولات لكي يتضمن الوصل المبلغ بالدرهم بعد يوم المخصص وقبل امضاء وتوقيع ويجلب مقدار المبلغ المناسب وإن كان ممكنا إضافة خانة للتحكم في عدد الوصولات في كل صفحة طريقة العمل :من زر الصفحة الرئيسة تحميل اللائحة وبالضغط على الوصولات تخرج صفحة الوصولات كود حماية vba والأوراق : 0000 وشكرا جزيلا الملف.rar

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

السلام عليكم من فضلكم ، كيف أبرمج زر الطبع لكي يطبع المجال من B3 إلى p مع آخر سطر به بيانات بصيغة PDF مع تسمية الملف ب stat_hicham مع محتوى الخلية O8 إن أمكن وذلك لكون قد يتم طبع أكثر من وثيقة في اليوم وحبذا لو تخرج رسالة msg box للاخبار بتم حفظ الملف pdf في نفس مسار البرنامج باسم مع ذكر الاسم، (بدأت الكود ولم أنجح في إتمامه) وجزاكم الله خيرا stat_hicham v1.xlsm

السلام عليكم من فضلكم لدي كود في الزر ملف xlsm مع عدم التغيير في الملفات الثلاثة الأخرى Sub aargh() Application.ScreenUpdating = False chemin = "d:\downloads\" 'répertoire où se trouvent les fichiers listeleve Set wsr = ThisWorkbook.Sheets("feuil1") ' feuille statistiques Dim tabstat(6, 2, 20) '6 années, 2 genres, jusqu'à 20 établissements Dim etab(20) 'établissements nf = Dir(chemin & "listeleve*.xls") 'on cherche le premier fichier qui correspond au filtre ctr = 0 Do While nf <> "" 'tant qu'on a un fichier qui correspond au filtre Set wb = Workbooks.Open(chemin & nf) If Range("K12") = "Etablissement" Then ctre = ctre + 1 etab(ctre) = Range("N12") For Each ws In wb.Worksheets With ws If .Range("K14") = "Classe" Then 'vérification que la feuille a la bonne structure classe = Val(Left(.Range("N14"), 1)) 'année If classe > 0 Then 'si pas préscolaire dlws = .Cells(Rows.Count, "L").End(xlUp).Row 'dernière ligne utile tabstat(classe, 1, ctre) = tabstat(classe, 1, ctre) + Application.CountIf(Range("L18:L" & dlws), "Fille") 'comptage Filles tabstat(classe, 2, ctre) = tabstat(classe, 2, ctre) + Application.CountIf(Range("L18:L" & dlws), "Garçon") 'comptage Garçons End If Else MsgBox "feuille " & ws.Name & " du fichier " & nf & " n'a pas le format attendu, feuille ignorée" End If End With Next ws Else MsgBox "fichier " & nf & " n'a pas le format attendu, fichier ignoré" End If wb.Close False nf = Dir() 'fichier suivant Loop ' mise en page des résultats With wsr.Range("C12") 'base du tableau de résultats For i = 1 To ctre .Offset(i - 1, -1) = etab(i) 'établissement For j = 1 To 6 col = (j - 1) * 2 .Cells(i, col + 2) = tabstat(j, 1, i) 'filles .Cells(i, col + 1) = tabstat(j, 1, i) + tabstat(j, 2, i) 'total Next j Next i End With End Sub الكود السابق يعطي أخطاء في الاحصائيات وجزاكم الله خيرا Etablissements.rar

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

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

الأستاذ الكريم أ / محمد صالح جزاك الله خيرا وأحسن إليك. عيدكم مبارك سعيد

أخي الكريم لا توجد مسافة، أصلا في الأول لكي تكون مطابقة أخدتها بنسخ من الملف ولصقتها بالكود (عبارة المعدل العام)

شكرا جزيلا لردك الطيب أصبحت تخرج لي نافذة الخطإ في: Key:=rg, _SortOn:=xlSortOnValues, _Order:=xlDescending, _DataOption:=xlSortNormal ما حل هذه المشكلة جزاكم الله خيرا

السلام عليكم عيدكم مبارك سعيد تقبل الله منا ومنكم Sub formulettrier() Application.ScreenUpdating = 0 Dim strfile As String, objBook As Workbook, lr As Long, c As Integer, rg As Range strfile = Dir(ThisWorkbook.Path & "\*.xlsx", vbNormal) While strfile <> "" Set objBook = Workbooks.Open(ThisWorkbook.Path & "\" & strfile) c = objBook.Sheets("data").Range("b10").CurrentRegion.Columns.Count lr = objBook.Sheets("data").Range(IIf(c = 10, "j", "l") & Rows.Count).End(xlUp).Row objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").Formula = "=IF(Or(" & IIf(c = 10, "j", "l") & "12<5," & IIf(c = 10, "j", "l") & "12=""ن.م.ر""),""يكرر"",""ينتقل"")" objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").AutoFill Destination:=objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12:" & IIf(c = 10, "k", "m") & lr) 'البحث عن عمود المعدل العام للفلترة Set rg = Rows("10:10").Find(What:="المعدل العام", LookAt:=xlWhole) AutoFilter.Sort.SortFields.Clear AutoFilter.Sort.SortFields.Add Key:=rg, _ SortOn:=xlSortOnValues, _ Order:=xlDescending, _ DataOption:=xlSortNormal With .AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With objBook.Sheets("data").Range("b12").Select objBook.Close 1 strfile = Dir() Wend Application.ScreenUpdating = 1 MsgBox "هشام:تمت عملية إضافة القرار والترتيب من أعلى معدل إلى أقل معدل " End Sub من فضلكم أساتذة ما العيب في هذا الكود لإنجاز ترتيب من أعلى معدل عام إلى أقل معدل عام في كل الملفات خاصة ابتداء من : 'البحث عن عمود المعدل العام للفلترة في الكود السابق وجزاكم الله خيرا

السلام عليكم هل من اقتراحات إخوتي الكرام؟ للكود الذي يذهب إلى ما قبل أخر عمود به بيانات في السطر 10 ويقوم بالفلترة بترتيب المعدل العام من الأكبر إلى الأصغر وحزاكم الله خيرا

السلام عليكم من فضلكم طلب التعديل على الكود التالي: Sub insertformula() Application.ScreenUpdating = 0 Dim strfile As String, objBook As Workbook, lr As Long, c As Integer strfile = Dir(ThisWorkbook.Path & "\*.xlsx", vbNormal) While strfile <> "" Set objBook = Workbooks.Open(ThisWorkbook.Path & "\" & strfile) c = objBook.Sheets("data").Range("b10").CurrentRegion.Columns.Count lr = objBook.Sheets("data").Range(IIf(c = 10, "j", "l") & Rows.Count).End(xlUp).Row objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").Formula = "=IF(Or(" & IIf(c = 10, "j", "l") & "12<5," & IIf(c = 10, "j", "l") & "12=""ن.م.ر""),""يكرر"",""ينتقل"")" objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").AutoFill Destination:=objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12:" & IIf(c = 10, "k", "m") & lr) objBook.Sheets("data").Range("b12").Select objBook.Close 1 strfile = Dir() Wend Application.ScreenUpdating = 1 MsgBox "Done" End Sub بحيث قبل Msgbox"Done يقوم الكود بإعادة الترتيب على أساس المعدل العام من أكبر معدل عام إلى أصغر معدل عام وجزاكم الله خيرا 3.rar

اللهم آمين جزاكم الله خيرا وأتابكم الجنة

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

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

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

الأستاذ الكريم:محمد صالح أولا جزاك الله خيرا وأحسن إليك على هذا الكود الرائع جربته وهو يعمل بكفاءة على هذه الملفات بهذا العدد وبهذه التسمية لكن أستاذي الكريم كرما وليس أمرا أريد مزيدا من تعديل أو تطوير في الكود بحيث يناسب كيفما كانت الملفات بغض النظر عن عدد الملفات وتسميتها لاحظ مثلا لو غيرت اسم الملف الأخير (بتغيير 12 إلى 13 )ووضعت لأخد التلاميذ معدلا عاما أقل من 5 لن تكون النتيجة سليمة 1-في هذه الملفات المستويات: التي لها قرار المجلس في العمود K هي المستويات:الأول والثاني والثالث والرابع والخامس 2- المستوى الوحيد الذي له قرار المجلس في العمود M هو المستوى السادس 3- عدد الأقسام في كل مستوى متغير فمثلا هذه السنة كل المستويات بها قسمان باستثناء السادس ابتدائي به ثلاث أقسام وها الأمر يختلف سنة بعد أخرى هناك مستويات ممكن أن تكون بها ثلاثة أو أربعة أقسام لذلك أريد كودا صالحا دائما 4- هل ممكن إنشاء كود بدلالة آخر عمود به بيانات وانطلاقا من السطر 12 أو كود يتحسس الخانة F7 بحيث إن كان بها : السادس ابتدائي عام يضع القرار في العمود M وإن كان بها غير ذلك يضع القرار في العمود K بغض النظر عن عدد الملفات وتسميتها. جزاكم الله خيرا وأحسن إليكم وأتابكم الجنة ملف الوثائق.rar

ملف الوثائق الملف.rar

السلام عليكم ... من فضلكم ... أحتاج كود vba excel أضعه في زر ملف إكسيل المرفق بمجرد الضغط عليه يقوم بفتح جميع ملفات إكسيل كيفما كان عددها وتسميتها ويذهب إلى آخر عمود باسم "قرار المجلس" ويضع فيها القرار بناء على القيمة التي في العمود باسم "المعدل العام" بحيث يحقق المعادلة التالية:إن كانت القيمة في عمود المعدل العام أكبر من أو تساوي 5 يضع في عمود "قرار المجلس" ينتقل وإن كانت القيمة في عمود المعدل العام أصغرمن 5 يضع في عمود "قرار المجلس" يكرر للإشارة فقط فإني أضع هذا القرار بالمعادلة في كل ملف لكن أحتاج كود vba excel لكي يضعها بضغطة زر في كل ملفات إكسيل كيفما كان عددها وتسميتها الموجودة في نفس الملف الأصفر التي يتواجد فيه ملف إكسيل الذي يتواجد فيه الزر المبرمج .. وجزاكم الله خيرا زر وضع القرار.xlsm

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