علي فاهم

البروجرس الخاص بالمبرمج الامريكي الكود الخاص به لا اجد فيه اسم الاستاذ عبد الباري اين مكانه حتى يظهر في البروجرس ارجوك .. اشرحه ... عامل زي الشفرات بالنسبه لي

Private Sub CommandButton1_Click() Frame1.Visible = True Label1.Visible = True For rep = 1 To 100 Call UpdatePercentage(rep * 0.01) Timeout 0.1 ' هنا تستطيع تغيير معدل الوقت لكل درجة مئوية هنا وضعته ثانية واحدة فقط Call anas2 ' أثناء النقر سوف يعمل هذا الماكرو أنظر في الاسفل Call anas ' هذا ماكرو المعادلات التي سوف تنفذ اثناء تقدم الشريط Next rep End Sub Sub Timeout(seconds As Double) Start_Time = Timer Do DoEvents Loop Until (Timer - Start_Time) >= seconds End Sub Sub UpdatePercentage(what_percent As Double) Dim output_percentage As Integer Dim new_width As Integer control_width = 180 'تستطيع تغيير رقم العرض (180) حسب عرض الفيرم وعرض اليبل (1) new_width = what_percent * 180 output_percentage = what_percent * 100 Label1.Width = new_width Label1.Caption = output_percentage & "%" End Sub 'هذا كود المعادلات التي تعمل أثناء ظهور شريط التقدم حسب كل نسبة مئوية 'تستطيع كتابة أية معادلة تريدها لكي تنفذ أثناء العمل Sub anas() 'هذه معادلة الكتابة في المدى المحدد عند وصول الشريط الى درجة 30% If Label1.Caption = "20%" Then Label2.Visible = True Label2.Caption = "جاري البدء لعملية النسخ" ElseIf Label1.Caption = "30%" Then Sheets("sheet1").Range("A1") = "الاسم" Sheets("sheet1").Range("B1") = "المبلغ" ElseIf Label1.Caption = "50%" Then Label2.Caption = "يتم الآن نسخ البيانات" Sheets("sheet1").Range("A2:A10") = "Anas Droubi" Sheets("sheet1").Range("B2:B10") = "1000" ElseIf Label1.Caption = "70%" Then Label2.Caption = "يتم الآن لصق البيانات في المكان المحدد" Sheets("sheet1").Range("A11") = "المبلغ الإجمالي" Sheets("sheet1").Range("B11").Formula = "=SUM(B2:B10)" ElseIf Label1.Caption = "85%" Then Label2.Caption = "جاري التقدم لإنتهاء تثبيت البيانات" ElseIf Label1.Caption = "100%" Then Label2.Caption = "أنتهى التثبيت بنجاح" End If End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub 'الكود الذي يعمل أثناء تشغيل الفورم Private Sub UserForm_Activate() Frame1.Visible = False Label1.Visible = False Label2.Visible = False End Sub 'هذا كود عند النقر على زر بدء عملية نسخ البيانات Sub anas2() If CommandButton1.TakeFocusOnClick Then 'عندما ننقر على الزر سوف يختفي لحتى ينتهي تقدم شريط التثبيت CommandButton1.Visible = False End If If Label1.Caption = "100%" Then 'وعند وصول اليبل رقم 1 الى نسبة 100% سوف يظهر زر بدء عملية التثبيت مرة ثانية CommandButton1.Visible = True End If End Sub جزاك الله كل خير وبارك الله فيك .. ارجو وضع كود الترحيل الموجود بالمرفق مع شريط التقدم . عايز اضغظ على زر الترحيل واثناء الترحيل يظهر البروجرس ويعد الى ان ينتهي 100% ثم يختفي البروجرس كود الترحيل بالبروجرس1.rar

يوجد بالمرفقات بروجرس بار مفيد جدا للاستاذ عبد الباري البنا رائع ولكن اريد التعديل عليه من فضلكم بحيث يعمل عند تنفيذ اكواد تانيه Progressbar.rar

جزاك الله خيرا

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

استاذ جمال عبد السميع حقا ملك المعادلات

اسلوبك في الحوار استاذ عبد الباري راائع حتى العمل متقن لكن خليك مع الاخوه الاساتذه ختى يخرج هذا العمل في قمة الاعمال

جزاك الله كل خير وبارك الله فيك اخي ابن مصر

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

الدرة النادرة استاذ ماس استسمحك في تجربة المرفق الموجود في المشاركة 4 ستجد ان الكود يستدعي البيانات بدون كتابه اي معادلات فوق ارقام الجلوس عند المسح يمسح الجميع ماعدا عدد 2 رقم جلوس نريد نفس الغكره مع اختلاف بسيط هو عدد ارقام الجلوس في اعلا ورقتنا3 ارقام هذا هو الاختلاف الوحيد فإن تم تعديله اصبح راائع وهو المطلوب

هذا هو الكود Sub تنسيق() AA = Range("صف").Value E = Range("نصف_الطلبة").Value Range("B4:P12").Select Selection.Copy For R = 1 To E ActiveCell.Offset(9, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next Application.CutCopyMode = False Range("B13:P" & AA).RowHeight = 27 End Sub Sub ترحيل() On Error Resume Next Application.ScreenUpdating = False تنسيق Range("B4:P4503").ClearContents AA = Range("صف").Value E = Range("نصف_الطلبة").Value U = 5 R = 6 For M = 1 To E Y = 2 For N = 1 To 2 Cells(U - 1, Y) = " رقم جلوس طالب " Cells(U, Y) = " " & Range("المديرية").Value Cells(U, Y + 5) = " رقم اللجنة / " Cells(U + 1, Y) = " " & Range("الادارة").Value Cells(U + 2, Y) = " " & Range("المدرسة").Value Cells(U + 3, Y) = " الاسم / " & Sheets("بيانات أساسية").Cells(R, 5) Cells(U + 4, Y) = " رقم الجلوس / " & Sheets("بيانات أساسية").Cells(R, 2) Cells(U + 5, Y) = " رئيس الكنترول / " Cells(U + 6, Y) = " ناظر المدرسة / " Y = 10 R = R + 1 Next N U = U + 9 R = R Next M ActiveSheet.PageSetup.PrintArea = "$B$4:$P$" & AA Application.ScreenUpdating = True On Error GoTo 0 End Sub Sub مسح() AA = Range("صف").Value Range("B13:P" & AA).clear Range("B13:P" & AA).Rows.AutoFit ActiveSheet.PageSetup.PrintArea = "$B$4:$P$12" End Sub Sub معاينة() ActiveWindow.SelectedSheets.PrintPreview End Sub

هذا الملف به كود سهل ورائع لجلب بيانات ارقام الجلوس ويؤدي الغرض بعد تعديل بسيط في عدد ارقام الجلوس في الملف 2 في ملف اخي قصي 3 وال 3 افضل لتوفير الورق بعد اذن اخي قصي المهم ان نصل لاحد الكودين لجلب بيانات ارقام الجلوس كود لجلب بيانات ارقام الجلوس.rar

صدقت و بالجق نطقت و لاننسى الشكر للاستاذ رجب جاويش

الاكثر جمالا ومنفعه لكثير من المدارس هو ارقام الجلوس بنفس الكود السريع ورقة ارقام الجلوس تقسيمة الورقه فيها افضل تقسيم لانها اخدت 9 ارقام وهو اكبر عدد ممكن في الورقة

ربنا يجازيك عنا خيرا انا اجد نفسي مع شرحك

اول كنترول بالمنتدى لاستاذ ندعو الله ان يكون بخير هو الاستاذ مجاهد XP وبعده تم الاقتباس منه كنترول مدارس.rar

تكمله للمرفقات لعملية بناء شيت كامل نسخة من شيت الصف الثانى 2015.rar

تكمله ماسبق من شرح للاستاذ الكريم منير لبيب جزاه الله كل خير الدرس الرابع لشرح الشيت.rar الدرس الخامس لشرح الشيت.rar شرح كيفية عمل الشهادات بدمج المراسلات من علي الوورد و الاكسيل.rar

عمل وجدته لاحد الاساتذة الكرام حفظه الله وهو الاستاذ منير لبيب يفيد في عمل الشيت طريقة تصميم الشيت والشرح بالوورد درس رقم 1.rar الدرس الثا ني.rar الدرس الثالث لشرح الشيت.rar

جزاك الله كل خير وبارك لك بذلت مجهود تشكر عليه وباضافات توزيع الشهادات بمعيار الفصول مهم ليه لان الفصول كتيره ولتسهيل عمليه توزيع الشهادات وكذلك اارقام الجلوس انت من المميزين استاذ عبد الباري

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

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=49092 لتجميع الموضوع

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

للرفع

كل عام وحضراتكم بخير أعجبني هذا الكود وإضافة الأستاذ رجب عليه الرائعة ولكن ... أريد أن أعرف 1- إذا تم تغير صف البداية وليكن الصف العشرون مثلاً أين التغيير في الكود ؟ 2- إذا أردت إضافة صفحة أخرى وتعمل مع الكود ولتكن شيت 2 .. فما هي الإضافة التي أضيفها ؟ وشكراً