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

السلام عليكم بار بسيط لمعاينة حركة اي كود على الفورم يمكنك استخدامة لاي كود يستخدم فور نكست على الفورم ويمكنك نقله مع الاكواد الخاص به الى اي فورم في ملفك هذا كود البار Private Sub kh_Update_Par(MI As Long, MX As Long) Static N As Integer If N = 0 Then Me.MousePointer = 11 Me.LabelPar.Visible = True Me.LabelPar.Caption = "" N = Int(MX / 30) End If '---------------------------------- If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n" '---------------------------------- If MI = MX Then N = 0 Me.LabelPar.Visible = False Me.MousePointer = 0 End If End Sub وهذه السطرين تضعها نهاية السلسلة فور نكست في اي كود تريد تشغيل البار معه مع تغيير المتغييرات الخاصة بالكود حسب الكود خاصتك Call kh_Update_Par(i, Lr) DoEvents وهذا الكود يمنعك من غلق الفورم اثناء حركة البار Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Me.MousePointer = 11 Then Cancel = 1 End Su واذا كنت تستخدم هذا الكود في الفورم خاصتك استخدم السطر التالي في بداية الكود خاصتك If Me.MousePointer = 11 Then Cancel = 1: Exit Sub تحياتي المرفق 2003 بار تحديث البيانات.rar

السلام عليكم و رحمة الله و بركاته مؤقت لحساب الوقت الذي تقضيه في العمل على الملف ارجو ان ينال اعجابكم time.rar

السلام عليكم استادنا القدير عبد الله باقشير اعمالك دائما لا غبار عليها و تنم عن الابداع المنقطع النظير فهنيا لنا بأستاد عظيم مثلك عندي ملا حظة صغبرة فقط وارجو ان لا تعتبرها تطاولا فنحن مجرد تلاميذ عندك استادي العزيز هي ان تكون سرعة تحرك البار متطابقة مع سرعة البحث ففي الملف الذي ادرجته مثلا الوقت المستغرق عند البحث عن رقم 1 اكثر من البحث عن رقم 2 لاكن سرعة البار هي نفسها في هذه الحالة ولما يكون عندنا قاعدة بيانات كبيرة الكود راح يزيد من بطاء البحث شخصيا استعمل كود بسيط لتحقيق هذا الغرض ويتماشا مع الحلاقات التكرارية كما هو الحال مع الكود الخاص بك If i Mod Lr / 100 = 0 Then PrgS = PrgS + 1 Image_barre1.Width = PrgS * 1.5 Label_barre1.Caption = PrgS & "%" DoEvents End If وقد ركبته على الملف الخاص بك كما هو في المرفق ارجو ان تعطينا رئيك فيه وان امكن تدمجه مع الكود الخاص بك واكرر اعتذاري كما ارجو ان تتقبل هته الملاحظة فليس لي غرض سوى تحريك واثراء الموضوع بالنقد او الاراء البنائة تقبل مني تحياتي وتقديري بار تحديث البيانات.rar

السلام عليكم ورحمة الله وبركاته بعد اذن الاستاذة الفاضلة أم عبدالله والاستاذ الفاضل سليم حاصبيا لاثراء الموضوع حل آخر عن طريق الاكواد الملف المرفق يتم حذف اي مسافات بالعمود الذي تحدده ملحوظة :- الكود ليس لي ولكن محمل من المنتدي سابق ولا اتذكر من صاحبه تحياتي لكم جميعا حذف المسافات الزائدة_W.rar

::: (( هـــديـــة الجمعـــة )) ::: سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل بمزيج من الحركات مما يستخدمها ملك الحركات الاخ الحبيب / شوقي ربيع اقدم لكم اليوم سورة ( الكهف ) كامله علي فورم في ملف اكسيل به بعض الحركات الجميله ويمكنك من خلاله التعرف علي ... ** معلومات عامة عن السورة ** ** قراءة السورة كامله ** ** فضائل قراءة السورة ( يوم الجمعة ) ووقت قراءتها ** ارجو من الله ان يحوز اعجابكم ويكون مفيدا وهو اهداء لجميع محبي منتدي اوفيسنا ... وخصوصا اساتذتي الكرام .. نسألكم الدعاء بظهر الغيب جزاكم الله خيرا ســـــورة الكهـــف فــي فـــــورم.rar

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

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR الاصدار الثاني كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR 3 with listbox.rar HR for Windows 8 FADILA.rar

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

السلام عليكم هذا الكود من عمل ا/ احمد حمور-ابوعبدالله اريد تعديل بة اضافة جزئية اخرى للكود وهى انة يعمل نسخة احتياطية دون الضغط على اى ازرار فقط عند الضغط على علامة اكس فى البرنامج يعمل نسخة احتياطى ويحفظ فى نفس الوقت وتاريخ الحفظ ولا تظهر رسائل ( حفظ وعمل نسخة احتياطى وكتابة التاريخ ) Private Sub CommandButton1_Click() Dim msg As String Dim ans As Integer Dim ahmad As String, hamoor As String msg = "åá ÊÑÛÈ ÈÚãá äÓÎÉ ÇÍÊíÇØíÉ¿" ans = MsgBox(msg, vbYesNo) If ans = vbYes Then ahmad = "c:\ahmad 1\" & ThisWorkbook.Name ThisWorkbook.SaveCopyAs ahmad hamoor = "d:\ahmad 2\" & ThisWorkbook.Name ThisWorkbook.SaveCopyAs hamoor Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit Else Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End If End Sub لكم جزيل الشكر نسخه احتياطيه.rar

أخي العزيز / هذا حل بواسطة أعمدة مساعدة وهو العمود( AA) في كلا الورقتين مع تسميات نطاقين واحد باسم القسم والآخر باسم القرار في ورقة قرار حتى يسهل كتابة المعادلة إن شاء الله يلبي طلبك كما أطلب منك طلب تكرما لا قسرا بتغير اسم الظهور للغة العربية سوف يكون أجمل وأحسن إن شاء الله تحياتي وتقديري لككم ترحيل بشرطين.rar

السلام عليكم ورحمة الله بما انك تستخدم الجداول المحورية PivotTable فيمكنك الاستفادة من مزاياها لتحقيق ما يماثل طلبك ان كنت فهمته مثلا الجدول المحوري في الورقة HC_Legal انقر نقرتين على خلية في عمود القيم(Count….) مقابل احد عناصر عمود تسميات الصفوف(Position) مثلا نقرتين على الخلية C27 ايضا اكتشف ميزة اخرى بالنقر مرتين على احد عناصر عمود تسميات الصفوف(Position) ارجوا ان يكون هناك فائدة من مشاركتي في امان الله

بالنسبة لسؤالك الرئيسي في عنوان الموضوع الخاص بالقائمة المنسدلة هل تريد هذا الشكل ؟ pro2.rar

السلام عليكم في المرفقات ملفين اكسل وورد في البداية (وفي كل عملية تحديث للبيانات قبل استخدامها في الدمج) افتح ملف الاكسل ثم قم بالضغط على زر تحديث قم بإغلاق ملف الاكسل افتح ملف الوورد (اذا دعت الحاجة الى تعريف بيانات دمج المرسلات فقط اعد تعريف البيانات ولكن اختر sheet2 لتكون المصدر وليس sheet1 (شاهد الصورة)) =============================== الفكرة كالتالي: استخدمت كود لترحيل الوجهات الست لكل سائق التي بها بيانات فقط من 27 وجهة متفرقة الى sheet2 لتكون هي مصدر بيانات دمج المرسلات ان شاء الله يكون هذا المطلوب عبدالله المجرب.rar

استعمل المعادلة : (Trim(A1= حيث ان A1 هي المكان المقصود (الأسماء) واسحبها على باقي العامود

السلام عليكم الاستاذ القدير والعلامة الخبير / عبدالله باقشير بارك الله فيك وزادك الله من فضله ومن علمه واعجبني جدا جدا جدا طريقة استخدام الخط wingdings في الليبل فهي لا تنم الا عن فكر راقي وابداعي وما رأيك استاذي في ان يصبح البار هكذا .... (( مجرد فكرة )) بارك الله لك في اولادك واهلك وعلمك ومالك تقبل خالص تحياتي

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

الأستاذ الفاضل / أبو انتصار السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب. MinMax.rar

السلام عليكم Sub test() Dim Wsh As Worksheet, Wsh2 As Worksheet Dim Lrw As Long, Lr As Long Dim i As Integer, ii As Integer, iii As Integer Set Wsh2 = ThisWorkbook.Sheets("شاشة 3003") For i = 1 To Worksheets.Count If Worksheets(i).Name <> Wsh2.Name Then Set Wsh = Worksheets(i) Else GoTo 1 Lrw = Wsh.Cells(Wsh.Rows.Count, "P").End(xlUp).Row For ii = 11 To Lrw If Wsh.Range("T" & ii) <> "" Then Lr = Wsh2.Cells(Wsh2.Rows.Count, "C").End(xlUp).Row + 1 Wsh2.Range("A" & Lr) = Wsh.Range("T" & ii) Wsh2.Range("B" & Lr) = Wsh.Range("R" & ii) Wsh2.Range("F" & Lr) = Wsh.Range("F" & ii) Wsh2.Range("C" & Lr) = Wsh.Range("P" & ii) For iii = 1 To 5 If Wsh.Range("T" & ii + iii) = "" Then Wsh2.Range("C" & Lr + iii) = Wsh.Range("P" & ii + iii) Else GoTo 2 Next iii End If 2 Next ii 1 Next i End Sub Rabie Chaouki.rar

السلام عليكم ورحمة الله وبركاته احب ان اشكر الاستاذ // ضاحي الغريب على اعماله المتميزة وجائتني فكرة تحويل اللوجو من صورة ثابتة الى متحركة اتمنى ان ينال اعجابكم... والسلام عليكم ورحمة الله وبركاته

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

الأستاذ / عادل أبو زيد السلام عليكم ورحمة الله وبركاته تم إضافة عمود للمساعدة بجوار العمود A وإليك الملف لعله يكون المطلوب. ترحيل اعمده معينة بناء على لون خلية فى عمود معين1.rar

فض لكل هذه المشاكل وجدت هذا الكود على النت يستخرج رقم البروسيسور برجاء التجربة للافادة ProcessorInfo.rar

مطلوب من الاخوة الكرام في المنتدي المساعدة في عمل برنامج مرتبات للعاملين بالتربية و التعليم يمكن من خلاله طباعة كشوف المرتبات و طباعة استمارة مفردات مرتب فردية و استخراج بطاقة أجور متغيرة لكل موظف و عمل مكافأة الـ 200 يوم . و لكم جزيل الشكر

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

جرب هذا اخي سامي حمزة تظهر رسالة تنبهني بتكرار الرقم مع خيار الموافق او الرفض صورة توصخية المرفق : Classeurb.rar

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

جزيتم خيراً ... فريقنا الاعلامي والشكر موصول لكل الطيبين الذين أثنوا ورفعوا المعنويات ، وقدروا الأداء الراقي للفريق الإعلامي .....

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

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