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

السلام عليكم ورحمه الله وبركاته اتقدم لكل أعضاء هذا المنتدى الغالى بملف قمت بترجمته من أحد الكتب الأجنبية وهو عن الحيل الذكية فى أكسل 2010 وهى بعض المهارات لا يعرفها الكثيرين فى المنتدى أتمنى أن يستفيد منها كل الأعضاء وشكرا جزيلاً Excel 2010 Tips.zip

السلام عليكم ورحمة الله وبركاته حتى لا تمل في انتظار تنفيذ امر الماكرو اقدم لكم هذا الملف هدية لاعضاء المنتدى الكرام تحياتي testawy.rar

السلام عليكم ورحمة الله وبركاته (هذا العمل لوجه الله تعالى) للمحاسبين العاملين فى الخزائن والبنوك والمرتبات والنقديه بشكل عام وجميع المحاسبين . برنامج توزيع فئات النقديه يغنيك عن عد الفئات مثلا 200 و100 و50 وهكذا . مع امكانية البحث عن الموظف للامانه العلميه : يوجد معادله واحده وهى رقم 2 مقتبسه من الاخت الغائبه عنا الحاضره باعمالها ام عبدالله مع تعديلات فى نفس المعادله لاتنسونا بصالح دعاؤكم تقبلوا خالص تحياتى برنامج فئات النقديه.rar

السلام عليكم ورحمة الله وبركاته مجموعة أوامر مهمة تخص اليوزر فورم الجميع يحتاجها تحياتي UserFormControls.rar

أخى قم بتغير الكود الخاص بك الى الكود الاتى Sub tarheel() LastRow = Range("A10000").End(xlUp).Row + 1 LR = Range("b10000").End(xlUp).Row + 1 For r = 5 To LR If Cells(r, 2) = Range("b2") Then MsgBox "This Item Name already exist, No shift will done": Exit Sub Next Cells(LastRow, 1).Value = Range("A2").Value Cells(LastRow, 2).Value = Range("B2").Value Cells(LastRow, 3).Value = Range("C2").Value Range("A2:C2").Select Selection.ClearContents Range("A2").Select End Sub تقبل تحياتى

جرب هذا الملف واعطني رأيك بضغطة على اعجبني التقريب الى سنوات.rar

السلام عليكم الأفضل عملها نصف يدويا كالتالي مثلا إسم محمد إستخدم خاصية الاستبدال Ctrl-H مرتين المرة الأولي لاستبدال "محمد" بـ " محمد " أي تستبدله بما يزيد عليه بمسافة قبله ومسافة بعده وتكرر ذلك مثلا لكلمة "عبد" وأي إسم آخر تشتبه في أن به خطأ ثم المرة الثانية لاستبدال مسافتين متتابعتين" " بـمسافة واحدة" " أي تستبدل أي مسافتين متتابعتين في الشيت بمسافة واحدة =============== لاحظ أن عند استخدام المرة الأولي سينتج كثيرا من المسافتين المتتابعتين

أخي الحبيب أبو نبأ ... أفضل أن يكون شرح المطلوب بالموضوع وليس داخل الملف المرفق .. عموما جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 And Target.Column = 10 Then If Target.Value = "صرفت" Then Target.Offset(, 1).Value = Date Target.Offset(, 2).Value = Format(Date, "ddd") End If End If End Sub كتابة التاريخ واليوم عند كتابة كلمة.rar

طريقة عمل أو استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل ولكن يجب علي هنا اولا ان اقدم الشكر والعرفان لاستاذي ومعلمي الاول في عالم الاكسيل والاكواد خاصة الاستاذ القدير الرائع / يحيي حسين حيث تعلمت منه اكثر من طريقة لعمل كشف حساب واشياء اخري كثيرة ولكني كالعادة دائما احب ان اختار اسهلها علي الاطلاق لسهوله فهمهما وتنفيذها والاعتماد عليها ويمكن لكل ملف وكشف حساب ان يتم استخراجه بأكثر من طريقة ( بالطبع ) ولكني دائما احب الاسهل والاوضح وبالطبع يمكنك تطويع الكود بعد فهمه جيدا لاستخدامه كما تريد وسأقدم الشرح بطريقة الفيديو المباشر في درسين في المشاركتين التاليتين ويمكنكم تحميلهما منهم وكذلك روابط خارجية لتحميل الفيديوهات ارجو أن يوفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا

بسم الله الرحمن الرحيم أساتذتى بالمنتدى و ألاخوة الزملاء كل عام وانتم بخير بمناسبة العام الجديد مما لا شك فيه أن الأهداء يقدم الى أغلى شخص لدى الانسان وبما انه اغلى شخص فلابد من تقديم أغلى هدية يملكها فسمحو لى ان اقدم أغلى ما املك واعز ما أملك وهو برنامج EMA الى أغلى منتدى . منتدى أوفيسنا هذا الصرح العظيم الذى شرفت بالانضمام اليه أهداء برنامج EMA برنامج EMA تم تصميمة بعمل متواصل على مدار 300 يوم بمعدل لا يقل عن 5 ساعات يوميا معظمها كان البحث والتفكير وكيفية التنفيذ فأن أحسنت فمن الله وما توفيقى الا بالله وأن أخطأت فمن نفسى والشيطان والحمد لله الذى بنعمته علينا تتم الصالحات تم رفع البرنامج بتاريخ 29-9-2014م وهذا كان الاصدار الاول من الجزء الاول للبرنامج وبعد التواصل مع الاعضاء ومشاركتى لأرائهم طلب منى بعض الاضافات الاخرى والحمد لله تم ذالك أقدم لكم الاصدار الثانى من الجزء الاول أتمنى أن يحوز اعجابكم ورضاكم البرنامج به أمكانيات وخيارات كبيرة جدا تم تصميمه على اعلى مستوى من الرقابه والتحكم فى المدخلات أنا الحمد لله عملت على برامج كبرى وهذا البرنامج عصارة خبرة محاسبية وأنتظرو منى قريباً الجزء الثانى للبرنامج (المخازن والمبيعات والمشتريات) فى نفس الملف وأخيرا وليس أخراً البرنامج بين أيديكم لا يتم فتج البرنامج الا فى الساعه 12ص أى بالليل 2015/1/1م لأنه نسخة عام 2015م ملحوظه مهمه جدا 1-يفضل تشغيل البرنامج على 2007 2-لا يتم تغيير اسم البرنامج نهائيا لانه لا يفتح عند تغيير- الاسم (EMA)فقط فى بعض الاحيان عند التنزيل يكون EMA 1 فى هذه الحالة يحذف 1 أن شاء الله نرفق لكم شرح لكيفية العمل على البرنامج اسم المستخدم / الدعم الفنى الباسورد / 123 EMA.zip

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

السلام عليكم شكرا أخى الفاضل محمود على هذه الكلمات الطيبة بالنسبة لطلبك الكود التالى يحفظ الملف باسم يدل على التاريخ والوقت كما طلبت أنت وبالتالى لا داعى لوجود الدالة NOW فى الخلية A1 فى شيت 10 فقد قمت بوضعها داخل الكود Sub SaveAs() Dim FName As String Dim FPath As String On Error Resume Next FName = Format(Now(), "mm_dd_yyyy hh mm AMPM") FPath = ActiveWorkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51 End Sub حفظ ملف باسم يدل على التاريخ والوقت.rar

استخدم جملة WorksheetFunction والدالة Round التي تحقق الهدف ... حاول أن تستفيد من الدرس الذي تم شرحه مسبقاً ..لكي تتعلم

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

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

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

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

تم التعديل حسب الحاجة كلما اضفت اسماً غي مكرر يضاف الى اللائحة hide_colums 1.rar

وعليكم السلام أخوي السالم 1. اذا كان قصدك تشغل برنامجك الاكسس ، من نماذج وتقارير ، وما تريد الجداول واي شئ آخر يظهر ، فيمكن عمل المتعارف عليه في برامجنا اللي نعطيها للزبائن: بأنك تجعل نموذج الواجهة يفتح اول ما يشتغل البرنامج (محل السهم الاحمر) ، ولا تختار المربعين (كما موضح بالدوائر الحمراء): 2. واذا قصدك تريد ان تشغل نموذج معين (البرنامج يشتغل مخفي ، والنموذج يشتغل كذلك مخفي) ، ويقوم النموذج بعمل المطلوب (مثل ارسال تقارير الى ايميل معين) عن طريق "حدث التحميل" ، ولما يخلص الكود ، يغلق الكود البرنامج ، فيمكن عمل هذا عن طريق أمر للماكرو (ولنسميه Run_Frm_Email) ، والماكرو يقوم بفتح هذا النموذج ، وطريقة العمل هكذا (يجب تغيير اسم ومسار المايكروسوف اكسس): "C:\Program Files\Microsoft Office\Office15\msaccess.exe" "D:\myDB.mdb" /X Run_Frm_Email جعفر

استاذى الحبيب هانى جزاكم الله خيرا تقبل تحياتى

أخي الأستاذ: حسام عيسى السلام عليكم ورحمة الله وبركاته. ..جزاك الله خيراً.. ..وفقك الله لما يحب ويرضى..

إخوتى الأفاضل بعد أفضل تحية تم دمج الموضوعين فى موضوع واحد خالص تحياتى

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لحضراتكم طريقة استدعاء أى برنامج من الاكسل من خلال القاعدة الأساسية الآتية : Call Shell("C:\TEST\TestApplication.exe", vbNormalFocus) لاحظ أخى الكريم مسار وامتداد البرنامج الذى نستدعيه ده يفرق كتير يمكن استدعاء Notepad Control PaneL taskmgr SnippingTool calc WORD POWERPNT iexplore Firefox كل هذا وأكثر ======= vbNormalFocus لجعل نافذة البرنامج الذى نستدعيه عادية vbMaximizedFocus للجعل نافذة البرنامج الذى نستدعيه مكبرة فى المرفقين التاليين أمثلة متعددة ومتنوعة لاستدعاء البرامج (متوافق مع ويندوز 7 ) أتمنى أن تستفيدوا منه لكم منى كل محبة وتقدير واحترام *************** Open any Program from Excel.rar games by mokhtar.rar

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

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

استاذى الحبيب هانى لو عايز تفتح vba بدون ما يغلق الملف انا عامل خيار بالكود لو الخليه A1 بشيت 3= 1 لا يتم اغلاق الملف يعنى ادخل على شيت 3 واكتب رقم 1 فى الخليه A1 ودا طبعا بمثابه باسورد تاكيد انك صاحب الملف لو انك مش صاحب الملف مش هتعرف ايه الخلية اللى هيتكتب بها ولا هتكتب ايه فيها قبل الذهاب الى فتح vba وبعدها افتح vba وخد راحتك فى الاضافه او الحذف مش هيغلق الملف تقبل تحياتى

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

السلام عليكم ورحمه الله وبركاته تفضل أخى الفورم أرجو أن يكون طلبك شكرا 4533.zip

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

السلام عليكم ورحمة الله وبركاته عزيزي الفاضل الأستاذ صقر الحمد لله انني ساكون من أوائل المعلقين على مجهودك المحمود ولي عتاب بسيط وخد بالك انا بضحك وانا بكتب ومش هبطل ضحك يعني مش لازم تمسك لي على الكلمة وتذكرني بمقولة ( ندفن رؤوسنا في الرمال ) تحياتي لك وعلشان أؤكد لك ان عدونا المشترك واحد هتلاقي موضوع انا عملته بعنوان مجرد فكرة لمنع كسر الحماية وده رابط الموضوع http://www.officena.net/ib/index.php?showtopic=60632#entry389805 تحياتي لك ولكل من معنا في المنتدى

السلام عليكم إثراء للموضوع و بالإضافة لحل أخى الحبيب م / طارق توجد دالة فى الاكسل باسم Trim تقوم بالغاء الفواصل الزائدة بين الكلمات مع ابفاء فاصلة واحدة بين كل اسم و تكتب المعادلة بهذا الشكل البسيط =Trim(A1) حيث ان A1 تشير للخلية و يتم السحب نزولاً

السلام عليكم ورحمة الله شكرا اخي واستاذي الاستاذ / ياسر بارك الله فيك وجزاك الله خير الجزاء تسلم

شكرا ياأخى بس لو اكو شروحات اقراص ديفيدى احسن حتى نعرف شون نسوى وفى اخر باراك الله بك الفففففف

في الخلية J7 ضع المعادلة =IF(H7="","",$G$7-SUM($H$7:H7)) ثم قم بسحبها لأسفل

أخي الحبيب عبد العزيز المشكلة ليست الآن في توضيح طلبك ..إنما في غرابة طلبك سألك الأخ الغالي عبد الله عن المعطيات ..!! الأفضل أن تكون القيم في ورقة العمل لأن التعامل مع جميع الفورم في نفس الوقت أعتقد أنه غير مريح بالمرة ولكن عموما إليك الملف المرفق ..انقر على زر إدخال بيانات سيتم فتح الفورم الثلاثة قم بإدخال رقم في المجموع في الفورم الأول ثم انتقل للفورم الثاني واكتب رقم في المجموع في انتقل في الفورم الثالث واكتب رقم ولاحظ المجموع العام للثلاثة أرقااااااااااااام (متعبة ..بس دا طلبك) Try This.rar

عسى ان ينال اعجابك في حال ذلك اضغط اعجبني ملاحظة :التاريخ لا يتغير اذا (لا يتحدث) اذا تم الكتابة مرة ثانية في الخلية Target الا اذا تم مسحة اولاً كتابة التاريخ واليوم عند كتابة كلمة salim.rar

أيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــن المرفــــــــــــــــــق؟ http://www.officena.net/ib/index.php?s=8163a5c9bc0d75c5ad4b6002ac76795a&showtopic=60147

صوره من واقع المثال اثناء التجربة

ملف مرفق به طريقة لايجاد العشره الاوائل يارب ينتفع به العشرة الاوائل.zip

جرب مبيعات.rar

جزيت خيراً أخي الحبيب هاني بدر على هذه الهدية القيمة والرائعة والمذهلة والمدهشة

هذا هو المرفق االمعادلات في اكسيل.zip

حياك اخي بكري مالماهو االاصدار الويندوز لديك؟ تحياتي

رائع جهد ممتاز الله يعطيك العافية

جزاك الله خيرا اخى الفاضل على الموقع المفيد

اخى الكريم بخصوص طلبك على ما فهمت قم بأدراج كمبوبوكس جديد فى الفورم ثم قم بتحديد الكمبوبوكس بالوقوف عليه ومن خصائص الكمبوبوكس ( Row source ) قم بكتابة التالى المخزن!B6:B1000 يعنى اكتب اسم الشيت المراد جلب البانات منه وهو كما تفضلت شيت اسمه المخزن ثم علامة التعجب ! ثم كتابة النطاق المراد عرضه بالكمبوبوكس طبعا هذه اسهل الطرق لتغذية الكمبوبوكس بالبيانات وهناك طرق اخرى كتيره جدا انظر المرفق وتقبل تحياتى إدراة المحل جديد 1.zip

الأستاذ: مصطفى سعد.. السلام عليكم ورحمة الله وبركاته. تفضل أخي .. أدخل على هذين الرابطين، واختر ما شئت.. وفقني الله وإياك لما يحب ويرضى. http://it-ebooks.info/tag/excel/ http://www.google.com/cse?cx=013493258683483688568:xhfa6ctm1ki&q=Excel%202013#gsc.tab=0&gsc.q=Excel%202013%20VBA&gsc.sort=

up المطلوب استخدام الالوان على الحروف التى يتم عمل فلتر علبها

السلام عليكم هذا اول برنامج اقوم بعمله على الاكسس وهذا العمل تحت اشراف الاساتذه الكبار بهذا الصرح التعليميى الكبير وكنت انوى عرضه بعد تقفيله ولن لظروف خاص لم اتمكن من ذلك ولحرصى على ان يستفيد الجميع وليكون مرجع لكل مبتدء مثلى لما به من خلاصه دروس الاساتذه الكبار الذين احبهم فى الله وادعوا المولى عز وجل ان يعطيهم من الخير قدر كرمه البرنامج تم تحت الاشراف المباشر لاستاذى الجيليل أبـوخليل بارك الله فيك وكذلك جميع الاساتذه والاخوه بهذا الصرح الكبير ______________________________- بعض المشكلات التى واجهتنى بالبرنامج: اولا لم اتكمن من حفظ نشخه مقفله منه وتواجهنى هذه الرساله : وكنت فى حيره من امرى ؟ هل اقوم باخفاء الاكسس ام اقوم بعمل قوائم مخصصه على الاكسس اترككم مع بعض الصور student_up.rar

سبب امتناع التحويل الى mde هو وجود وحدتين نمطيتين بمسمى واحد تم التعديل ويمكنك الآن التحويل اما بالنسبة للملاحظات فتصميمك الحالي يناسبه اخفاء الاطارات ويمكنك ان اردت الاستغناء عن الواجهة الرئيسية وتحويلها الى قوائم منسدلة student2.rar