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

اليك اخي alyfahem نسخه اخري من ملفك ب Progress indicator ثاني مختلف عن الاول ومعه ملف منفصل ل Progress indicator Omar_2.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اسمحو لي بمشاركة بسيطه الاخ alyfahem بعد التحيه ارجو تجربة المرفقات وهى تحتوي علي ملفين الاول هو ملفك بعد عمل المطلوب الثاني ملف ل Progress indicator بسيط وسأقوم بشرح كيفية استخدامة في القريب العاجل Omar_1.rar

جرب الكود التالي Sub Delete_Rows_Using_Filter_Method() Dim Rng As Range Application.ScreenUpdating = False On Error Resume Next With ActiveSheet .AutoFilterMode = False .Range("A1:C" & .Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="" Set Rng = .Range("A2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) .AutoFilterMode = False Rng.EntireRow.Delete End With Application.ScreenUpdating = True End Sub تقبل تحياتي أخي الكريم عبد السلام بارك الله فيك وجزاك الله كل خير بصراحة أحاول دائماً الابتعاد عن الحلقات التكرارية ، وقد ذكرت من قبل سبب تخوفي من ذلك بفرض أن الملف يتعامل مع مثلاً 10 آلاف صف .. مع هذا الكم الهائل سيكون الكود بطيء جداً جربت الكود الخاص بي وحسبت المدة الزمنية في ملف يحتوي 10 آلاف صف فاستغرق 1.3 ثانية في حين أن استخدام الحلقات التكرارية استغرق حوالي 12 ثانية تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته نبدء بشرح برنامج Omar_Progress وهو عباره عن فورم وموديول كود الموديول يتم التعديل فيه كالاتى اللوب الموجود به ( For ..Next) يعدل ليكون هو اللوب للبرنامج الخاص بك كالاتي هذا اللوب () سيكون اللوب الرئيسي لبرنامجك مع تغير قيم ( Start_Counter و End_Counter ) لتكون هي قيم اللوب الخاص لبرنامجك او او استبدال متغيرات ( For … Next) وهي ( Start_Counter و End_Counter ) بمتغيرات البرنامج الخاص بك ( For … Next) فقط لا غير Sub Omar_Progress() ' Dim Per As Single, x As Double End_Counter = 50 '========================================================================================== For Start_Counter = 1 To End_Counter O_Omar_Progress_O.Caption = Space(12) & Start_Counter & Space(3) & "مـن إجمـالـى" & Space(3) & End_Counter Per = Start_Counter / End_Counter O_Omar_Progress_O.Label_Bar.Caption = Format(Per, "00%") MyProgress Per DoEvents '========================================================================================== ' My Code '========================================================================================== Next ' End Sub Omar_1.rar

بعد اذن الاخوة الكرام وزيادة في اثراء الموضوع هذه المعادلة =SUMPRODUCT(IF(ISNA(MATCH($B$3:$B$19,$G$3:$G$19,0)),1,0),$D$3:$D$19) إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية بفاصلة منقوطة

وعليكم السلام ورحمة الله وبركاته أخي الكريم طاهر محمد لك عدد مشاركات 188 مشاركة مما يعني أنك عضو قديم بالمنتدى ..ألم تفكر في مرة أن تطلع على التوجيهات في الموضوعات المثبتة في المنتدى ألم ترى مشاركة من قبل أحد إخوانك يطلب فيها وضع عنوان مناسب للموضوع؟ الرجاء الرجاء الرجاء وضع عناوين مناسبة للموضوعات ... تخيل أنني أتصفح المنتدى ورأيت عناوين الموضوعات بهذا الشكل (أريد المساعدة - ساعدوني من فضلكم - الرجاء المساعدة - حل مشكلة - تعديل على كود - أغيثوني - أنقذوني - ...) ترى هل هذا شكل مناسب للمنتدى !! أعتذر عن الإطالة ، فقد سئمت التوجبه !!!! لأنه لا مجيب إلا القليل !!!!! (أرجو أن يتسع صدرك لكلامي ، فالكلام ليس موجه لك وحدك والله إنما هو موجه لجميع الأعضاء ممن يطرحون الموضوعات ولا يراعون أن يكون الموضوع مكتمل الأركان) عموماً نعود لطلبك ..جرب المعادلة التالية =SUM($D$3:$D$19)-SUMPRODUCT($D$3:$D$19,COUNTIF($G$3:$G$20,$B$3:$B$19)) المعادلة معادلة صفيف أي يجب الضغط على CTRL +SHIFT +ENTER إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

حل سريع جمع1.rar

البروجرز بار الثالث و الرابع والخامس وتستخدم بنفس الاسلوب الاول Omar_3_5.rar ملحوظه : مؤشرات التقدم الخمس صناعة عربية مصرية 100% لكم مني كل تحية الاخ أبو يوسف شكرا لك اخي هذا اكثر مما استحق فهذه البرامج من مكتبتي وقد انشأتهم منذ عدة سنوات سابقه

تفضل بدون تكرار وفراغات.rar

اعتذر عن التاخر في الرد بسبب انقطاع الكهرباء وضعف الانترنت جرب المرفق عسى ان يكون هو الحل كود تلقائي استناداً الى رقم الجنسية واسم السائق 1.rar

السلام عليكم هذا كود من أعمال الأستاذ الكبير عبدالله باقشير حفظه الله ورعاه أحببت أن اطرحه في موضوع كي يستفيد منه الجميع في أول الكود تحط الشروط المراده * بداية البيانات بدون رؤس الاعمدة * الاعمدة المراد عمل عليها جمع بالامكان تحديد الاعمده اما بشكل فردي وهو "$A$1,$C$1,$F$1" أو بشكل مدى من الى هكذا "$A$1:$G$1" أو بشكل مدى متقطع هكذا "$A$1,$C$1,$E$1:$H$1,$i$1:$K$1" ******************************************************************** الكود ينشاء صف وبه الجمع وبعد الانتهاء من وضع معاينة الطباعه يحذف الصف ******************************************************************** الكود يوضع في مودويل '**************************************** ' بداية البيانات بدون رؤس الأعمدة Private Const Row_Star As Integer = 2 '**************************************** 'الاعمدة المراد جمع قيمها في نهاية فواصل الصفحات Private Const C_N As String = "$A$1,$C$1,$D$1:$F$1" Sub Ali_Sum_Page() Dim Ar() As Integer Dim Rng As Range, Cc As Range Dim C As Range, Cr As Range Dim iCont As Integer Dim i As Integer, ii As Integer Dim r1 As Integer, r2 As Integer Dim Cv As Integer, L_C As Integer ''''''''''''''''''' For Each Cc In Range(C_N) L_C = Cc.Column Next With Cells.Worksheet With .PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With .ResetAllPageBreaks .Range("A65536").Select .Cells(Row_Star, "A").Select iCont = .HPageBreaks.Count If iCont = 0 Then Exit Sub ''''''''''''''''''''''' ReDim Ar(1 To iCont) For i = 1 To .HPageBreaks.Count ii = .HPageBreaks(i).Location.row Ar(i) = ii Next ''''''''''''''''''''''' r1 = Row_Star For i = 1 To iCont ii = Ar(i) - 1 With .Range("A" & ii).Resize(1, L_C) .EntireRow.Insert With .Offset(-1, 0) L_r = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).row If Rng Is Nothing Then Set Rng = .Cells Else Set Rng = Union(Rng, .Cells) r2 = ii - 1 For Each C In Range(C_N) Cv = C.Column .Cells(1, Cv) = WorksheetFunction.Sum(Range(Cells(r1, Cv), Cells(r2, Cv))) Next r1 = r2 + 2 End With End With Next For Each Cr In Range(C_N) Cv = Cr.Column With .Cells(L_r, Cv) .Value = WorksheetFunction.Sum(Range(Cells(r1, Cv), Cells(L_r - 1, Cv))) .Interior.ColorIndex = 6 End With Next End With '''''''''''''''''''''' If Not Rng Is Nothing Then With Rng .Interior.ColorIndex = 6 .Worksheet.PrintPreview Range("A" & L_r).EntireRow.Delete .EntireRow.Delete End With End If ''''''''''''''''''''''' Erase Ar Set Rng = Nothing: Set Cc = Nothing Set Cr = Nothing: Set C = Nothing End Sub والسلام عليكم

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

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

السلام عليكم كم افتقدت وجودي بينكم في الفترة السابقة ولكن قدر الله وما شاء فعل عموما هنا هدية العودة برنامج دخول للمستخدمين مع صلاحيات محددة لدخول الصفحات وقد تم اضهار صفحة الصلاحيات بشكل مؤقت وهي بالاساس يجب ان تكون مخفية وتم عمل البرنامج باسلوب جديد وباستخدام فورم واحد فقط ... وسارفق في اقرب فرصة ملف اخر باسلوب اقل بساطة باسورد الدخول : 1111 صفحة صلاحيات ديناميكية.rar

هذا الموضوع امتدادا لمشاركة الاخ الكريم ابو نادر هنا وحيث ان العنوان اساس وهو الدليل على المحتوى رأيت فصله بوضوع وعنوان مستقل تفضل هذا مثال لكيفية عمل انتدابات الموظفين ، ويصلح لغير ذلك كالاجازات والترقيات ونحوها entdab.rar

Sub DeleteBlanks() Dim i As Integer Dim LR As Integer LR = ActiveSheet.UsedRange.Rows.Count For i = 2 To LR If Cells(i, 3) = "" Then Rows(i).Delete Next End Sub

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

أخي الكريم ناصر سعيد قم باستبدال الجزء الذي يحدث فيه الخطأ بهذا الكود With Sheet1 LR = .Cells(.Rows.Count, "AF").End(xlUp).Row .Range("AD6:BH" & LR).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet2.Range("A1:A2"), CopyToRange:=Sheet2.Range("C9:AF9"), Unique:=True End With بالنسبة لنطاق الشرط ... اجعله في ورقة العمل المسماة "نتيجة 4 ترم ثاني" واكتب في الخلية A1 كلمة "التقدير" ، وفي الخلية A2 اكتب كلمة "ضعيف"

وهذا ملف آخر add chape.rar يهمني رأيكم

رحم الله أخى الحسامى و غفر له

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

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

=LEFT(A1;FIND("\";A1)-1) =RIGHT(A1;LEN(A1)-FIND("\";A1)) الاولى تستقطع الجزء الايسر والثانية الجزء الايمن

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

وعليكم السلام اخي ابحث عن هذه الجملة في المحرر Node.FullPath واستبدلها بهذه Node.Text

حياك الله استاذ ياسر العربي دائما حلولك ممتاز وسهلة

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

فكرة بسيطة وتفى بالغرض (وزي ما ابو البراء بيقول - يعجبني حلولك عندما تكون السهل الممتنع) فائق احترامي تقبل تحياتي

السلام عليكم أخي الحبيب أبو أسيل عمل رائع قمت به من خلال كود تصفية متقدمة للبيانات ومن ثم نسخها إلى عمود جديد بارك الله بكم ونفع بعلمكم آمين.

إن شاء الله اخي

وفب هذه الحالة ، لو تكرر الاسم لوحده أو الشهر لوحده ، يمكن ذلك ؟

من خلال هذا السطر أخي الكريم FolderPath = ThisWorkbook.Path & "\" يمثل السطر المسار الحالي لنفس المصنف الذي يحتوي الكود

الاخ ناصر سعيد شكرا لك الاخ ياسر خليل أبو البراء شكر لك علي ترحيبك الكريم اراك نبراسا يضئ الطريق للاخوة شكرالك اخي

جرب هذا الملف الماكرو في الصفحة الاولى (حينما تغير اي شيء في العامود الاول يغمل الماكرو تلقائياً بشرط ان يكون التغيير في خلية واحدة) بالنسبة للسؤال الثاني انظر الى الصفحة 2 work_with_5.rar

السلام عليكم ورحمة الله جرب الملف المرفق، طباعة الكل على أساس 3 إخطارات في صفحة واحدة... بن علية New ورقة عمل Microsoft Excel.rar

أخي الكريم محمد الحسيني يرجى فيما بعد وضع عناوين مناسبة للموضوعات .. إليك الملف المرفق عله يكون المطلوب كل ما عليك هو كتابة رقم الطالب في الخلية L1 .. تقبل تحياتي TestThis.rar

تفضل اخي الكريم المطلوب ويرجى تغيير اسم الظهور للغة العربية ومرحبا بك في منتديات اوفيسنا Book1.rar

مبارك - وفقكم الله واعزكم - وزادتكم علماً وفضلاً

السلام عليكم استاذ وضعت المعادلة وكانت النتيجة كما مبينة بالصورة ارجو اعزك الله معالجة الأمر

نعم ربما يكون هو السبب لان اكسس لم يهيأ للعمل بصيغة exe

في الحقيقة ليس لدي مراجع ... لكني بدأت الاحظ استخدامها في الاكواد من هنا و هناك , و ابرز ما يرد على بالي الان في الشرط في الدوال dmax , dmin , dlookup ... الخ مثلا : dlookup ("[asm]";"asmaa";"[id]="& [aaa]) dlookup ("[asm]";"asmaa";"[sakn]='"& [sss]"'") فالكود او الكلام ما بين " " يربطها & مع ما يليها , اما ' فتستخدم للحقل النصي ففي الكود الثاني تعاملنا مع السكن و هو نص اما الاول لم نستخدمها لاننا تعاملنا مع رقم اما * فتستخدم للتعبير عن سلسلة حرفية قد تكون حرف او حروف او ارقام او فراغ او جميعها مثلا عندما نستخدمها في الشرط في الاستعلام : like "م"&* فتشمل محمد و ماجد و مدرسة و ماليزيا ... الخ اتمنى ان يكون الشرح قد افادك ولو بالقليل ... تحياتي ... كرار ...

السلام عليكم ورحمة الله أخي الكريم alyfahem شاهد الملف المرفق أتمنى أن يكون كما طلبت سوف يتم تنفيذ كود الترحيل أثناء ظهور شريط البروجرس وينتهي الترحيل عند الوصول الى 100% وبالنسبة لملف أستاذنا عبد الباري القصد كان من كلامي في المشاركة السابقة أن الاستاذ عبد الباري قام بنشر الموضوع والفكرة فقط في ذلك الوقت ولم يكن هو المبرمج كما فهمت مني له منا كافة التقدير والاحترام وجزاه الله كل خير على مايقدمه للموقع من مواضيع وافكار متميزة وبالنسبة لسؤال أخي ناصر سعيد حول تطويع الفورم والكود على أي ملف في الملف المرفق التالي أكبر مثال على ذلك تقبلو تحياتي ومروري كود الترحيل بالبروجرس1.zip

للإجابة على هذا السؤال علينا إسقاطه على ثلاث نقاط أساسية لنخلص بعدها إلى جواب علمي مرتكز على معايير واقعية وليس على أهواء وميولات. - النقطة الأولى: التكلفة Cost: معلوم ان لغة PHP لغة مجانية، ويمكن تشغيلها على مختلف انظمة التشغيل من Windows و Mac و Linux، إضافة إلى أن استضافة المواقع والتطبيقات المبرمجة بها متوفرة ومتاحة بكثرة وسعرها مناسب جدا. بينما تقنية ASP.Net تابعة لشركة ميكروسوفت، وهي ليست مجانية وإنما مدفوعة، ويا ليت الأمر يتوقف عندها بل إن التكاليف مستمرة، خصوصا أن المواقع والتطبيقات المبرمجة بتقنية ASP.Net لا تشتغل إلا على الويندوز وهو منتج مدفوع، أضف إلى ذلك أن بيئة التطوير الخاصة ب ASP.Net وهي الفيجوال ستوديو مدفوعة أيضا وليست مجانية، إلا في حال أردت أن تشتغل على بيئة Mono Project على نظام Linux و Mac أو تشتغل على النسخ Express من الفيحوال ستوديو وهي مجانية لكنها ليست بمستوى كفاءة وقوة النسخ الكاملة مثل Ultimate و Professional... ويستمر تفوق PHP على ASP.Net إذا ما تطرقنا إلى موضوع التوافقية Interoperability مع قواعد البيانات، فسوف نجد أن لغة PHP متوافقة بشكل كبير مع نظام إدارة قواعد البيانات MySQL وهو منتوج مجاني متاح للجميع :) بينما تستمر دواهي وطوام ASP.Net لنجد أنها متوافقة بشكل كامل مع نظام إدارة قواعد البيانات MS SQL Server وهو مدفوع وغير مجاني :) ما عدا النسخة Express طبعا. إذن من حيث عامل التكاليف فلغة PHP أفضل بمراحل من تقنية ASP.Net - النقطة الثانية: الكفاءة والأداء Performance: هذه النقطة بالذات لا نستطيع الجزم فيها لأن كلا من لغة PHP وتقنية ASP.Net تشتغلان بكفاءة عالية وبأداء جيد، ويمكنك الاطلاع على سرعة مواقع كبيرة مصممة بهما، فمثلا موقع Facebook وهو أكبر شبكة تواصل اجتماعي مبرمج بلغة PHP، وموقع StackOverFlow أكبر تجمع للمبرمجين حول العالم مبرمج بتقنية ASP.Net بالارتكاز على لغة C# ما دمنا نتحدث حول الأداء والكفاءة فدعوني أوجه رسالة لكل مبرمج كفاءة البرامج مرتبطة بكفاءة المبرمج فما دمت تعتمد على الدقة في كتابة الكود Optimize the code، وما دمت تحرص على كتابة استعلامات منسقة ونظيفة Clean and Proper SQL Queries فأنا أضمن لك أن كفاءة برامجك ستزداد. - النقطة الثالثة: مصادر التعلم مصادر تعلم لغة PHP متوفرة بشكل أكبر من مصادر تعلم تقنية ASP.Net ولعل ذلك راجع إلى مجانية اللغة والعدد الكبير للمبرمجين بها. كذلك من حيث سهولة التعلم فلغة PHP أسهل، يكفيك أن تتابع دورة أو تقرأ كتابا ثم تبدأ بتطوير برمجيات ب PHP، كما يكفيك أن تطلع على قليل من قواعد PHP لتبدأ تطوير أنظمى إدارة المحتوى Content Managemeny System مثل ووردبريس أما تقنية ASP.Net فمصادر تعلمها نادرة قليلا بالقياس مع وفرة مصادر PHP، لكنها سهلة التعلم إن كان لك سابق عهد بإحدى لغات الدوت نيت (فيجوال بزيك أو سي شارب) إضافة إلى دعمها للعديد من تقنيات الويب بشكل بسيط نذكر على سبيل المثال تقنية Ajax التي ستستطيع استخدام مجموعة من الأدوات الجاهزة، كل ما عليك سوى سحبها داخل Source Code والاستمتاع بها أيضا تقنية ASP.net غنية جدا على مستوى تقارير الطباعة Reporting لأنها تدعم الكريستال ريبورت و Report Document بشكل قوي جدا، الشيء الذي سيجعل شعرك يشيب في PHP لأنها عقيمة على مستوى التقارير. في الختام أحب أن أشير إلى أن الاختيار بين لغة PHP وتقنية ASP.Net يحكمه توجهك الخاص أيها المبرمج، فلو كنت من رواد الدوت نيت فالتحق بركب ASP.Net ولا تلتفت لكل ما يشاع فإنك على صواب. أما إن كنت جديدا وليس لك دراية بإحدى لغات الدوت نيت، فلا تتردد بخوض غمار لغة PHP ورأسك مرفوع، وإن سألوك عن السبب قل لهم: أوصاني بها رجل كريم

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