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

مجهود بسيط مني إليكم وإلى كل من يعاني من استدعاء الصور في الإكسيل.. تم استخدام طريقة مختلفة وهي تلوين المستطيل بالصورة مما وفر علينا كثير من الكودات.. حيث يمكنك البحث عن الصور والتعديل عليها وكذلك إضافتها إلى المجلد بشكل تلقائي .. إليكم المرفق. (الرجاء نقل المجلد pics إلى مجلد المستندات لديكم) lockup and get pics.rar

السلام عليكم ورحمة الله اخواني الاعزاء ابراهيم ابوليله وعبدالعزيز البسكري الاخ عبدالعزيز عجبة الموضوع الشيًق واظن انه يقصد تجديد وتقديم الموضوع والله اعلم

السلام عليكم ادهب الى محرر الأكواد و اعمل رايت كليك على الفورم و اختر Export File من القائمة و احفظ الملف (UserForm.frm) في محفظة من اختيارك افتح الملف الثاني و ادهب الى محرر الأكواد و اعمل رايت كليك على ال VBAProject للملف و اختار Import File من القائمة و اختار ملف الفورم الدي حفظته في الخطوة السابقة لو أردت ازالة الفورم نهائيا من الملف الأول بعد اتمام عملية النقل فاعمل كالتالي: ادهب الى محرر الأكواد و اعمل رايت كليك على الفورم و اختر Delete UserForm من القائمة

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

السلام عليكم تفضل المرفق مقارنة.rar

السلام عليكم هدا الكود ينفع اذا اردنا ان يكون ملفنا يتيما أي أن نضمن له ان يكون دائما مفتوحا على انفراد في نسخة منفصلة لبرنامج الاكسيل .. كنت قد كتبت هدا الكود قبل سنين و الأن أدخلت عليه بعض التحسينات المهمة أضف الكود التالي في ThisWorkbook Module : لكي يشتغل الكود ينبغي أولا حفض الملف بعد اضافة الكود ثم اغلاقه ثم اعادة فتحه Option Explicit Private WithEvents oAppEvents As Application Private oWb As Workbook Private Sub Workbook_Open() Dim oNewApp As New Application On Error GoTo errHandler If Workbooks.Count > 1 Then Application.DisplayAlerts = False Me.ChangeFileAccess xlReadOnly oNewApp.Workbooks.Open Me.FullName oNewApp.Visible = True Me.Close False End If Set oAppEvents = Application errHandler: Set oNewApp = Nothing Application.DisplayAlerts = True Application.EnableEvents = True End Sub Private Sub oAppEvents_NewWorkbook(ByVal Wb As Workbook) Dim oNewApp As New Application Wb.Close False oNewApp.Workbooks.Add oNewApp.Visible = True Set oNewApp = Nothing End Sub Private Sub oAppEvents_WorkbookOpen(ByVal Wb As Workbook) If Wb Is Me Then Exit Sub On Error GoTo errHandler Set oWb = Wb With Application .DisplayAlerts = False .EnableEvents = False oWb.ChangeFileAccess xlReadOnly .OnTime Now, Me.CodeName & ".CloseWB" End With errHandler: Application.DisplayAlerts = True Application.EnableEvents = True End Sub Private Sub CloseWB() Dim oNewApp As New Application oNewApp.Workbooks.Open oWb.FullName oNewApp.Visible = True oWb.Close False Set oWb = Nothing Set oNewApp = Nothing End Sub

برنامج طباعة ارقام جلوس مقاسات مختلفة انا بستخدمه في المدرسة التي اعمل بها حاليا ً seets2014.rar

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

السلام عليكم ورحمة الله وبركاتة اولا أحب اشكر القائمين علي المنتدي وجعله الله في ميزان حسناتهم طلبي إذا سمحتم اذا كنت اريد عمل insert في جميع الشيتات مرة واحدة بمعني عندي اصناف في شيت الوارد وورد صنف جديد غير مسجل عندي واريد عمل Insert بحيث يتم اضافة اسم الصنف وبيناته في شيت المنصرف وباقي الشيتات مرة واحدة وشكرا لكم

السّلام عليكم و رحمة الله و بركاته فعلاً .. ملف على المقاس .. بارك الله فيك وجزاك الله خيرًا إحتراماتي

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

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

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

ببساطة حدد النطاق A1:H8 ثم اذهب للتبويب Home ثم Conditional Formatting ثم اختر New Rule ثم من النافذة اختر آخر خيار المسمى Use a formula to determine which cells to format ثم ضع المعادلة التالية في المستطيل بالأسفل =$F1=0

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

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

وعليكم السلام أستاذ علي عذرا على التأخر في الرد ، كنت في ابوظبي من يوم الاثنين ، وبعيد عن كمبيوتري هذا هو التقرير: . وعلشان يعمل ، فيجب النقر على الزر الجديد لطباعة التقرير: . وهذا الزر يستعمل الكود التالي: Private Sub cmd_rpt_Absent_Late_Click() If Len(Me.cmb_Month & "") = 0 Then MsgBox "Can't leave the Month Empty" Exit Sub ElseIf Len(Me.Grades & "") = 0 Then MsgBox "Can't leave the Grades Empty" Exit Sub ElseIf Len(Me.Sections & "") = 0 Then MsgBox "Can't leave the Sections Empty" Exit Sub End If 'Delete the data from MySQL = "Delete * From tbl_Absent_Late" CurrentDb.Execute (MySQL) DoCmd.SetWarnings fasle 'DoCmd.OpenQuery "Absents_Crosstab_1-3" DoCmd.OpenQuery "Absents_Crosstab_2-3" DoCmd.OpenQuery "Absents_Crosstab_3-3" 'DoCmd.OpenQuery "Late_Crosstab_1-3" DoCmd.OpenQuery "Late_Crosstab_2-3" DoCmd.OpenQuery "Late_Crosstab_3-3" DoCmd.SetWarnings True DoCmd.OpenReport "rpt_Absent_Late", acViewPreview End Sub جعفر 221.Folow up V.2.accdb.zip

السّلام عليكم و رحمة الله و بركاته ملف آخر أخي الكريم حليم ناصر .. بطريقة مختلفة عن الملف الأوّل .. حيث الحروف الأولى من الكلمات تُكتب كبيرة .. و بموديل واحد تفقيط النقود بالفرنسية 2.rar

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

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

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

السلام عليكم بورك في أخي عبد العزيز الامر واضح الآن شكرا جزيلا

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

السلام عليكم أستادي الفاضل أنس دروبي السلوك الطبيعي للاكسيل هو أن يفتح جميع الملفات داخل برنامج أكسيل واحد يعني في نفس ال Excel Instance أما ما يفترض أن يحدث عندما نفتح الملف الدي يحتوي على الكود فهو كالتالي: السيناريو الاول - عندما يكون هنالك ملف أخر أو أكثر مفتوح مسبقا قبل فتح الملف الدي فيه الكود بمجرد ما يفتح الملف فان الكود ينطلق و يبحث هل هنالك ملف أخر مفتوح مسبقا فلو هنالك ملف أخر مفتوح فان الملف صاحب الكود يغلق نفسه بنفسه ثم يفتح نفسه من جديد في نسخة جديدة للاكسيل السيناريو الثاني- عندما ليس هنالك أي ملف أخر مفتوح مسبقا بمجرد فتح الملف فان الكود يبدأ بمراقبة الحدث Application_NewWorkbook و حدث Application_WorkbookOpen بحيث عندما يتم لاحقا فتح ملفا جديدا فان الملف الجديد يغلق نفسه ثم ينفتح نفسه لكن في نسخة جديدة للاكسيل النتيجة المفترضة : في كلا السينارهات الملف الدي فيه الكود يبقى دائما مفتوحا على انفراد في نسخة لوحده فقط و هدا هو المطلوب استادي أنس دروبي .. هل جربت الكود و أعطى النتيجة المطلوبة ? أما في ما يخص مسألة كون الاكسيل يفتح الملفات في شكل نوافد منفصلة عن بعضها البعض كما تفضلت فان هد أمر أخر لا صلة له بما نتحدث عنه هنا لأن رغم انفصال نوافد الملفات الا أن الملفات تكون كلها مفتوحة في نفس نسخة الاكسيل أما ما يفعله الكود هو اجبار الملفات أن تكون مفتوحة في نسخ منفصلة لبرامج الاكسيل ... هنالك فرق بين ال Workbook.Windows و الApplication Instances هنالك شيئ واحد لم انتبه اليه و لم أخده بعين الاعتبار عند كتابة الكود هو في حالة وجود ملف Personal.xls او ملف Addin.xla مفتوح يمكن للكود أن يفشل في تحقيق المطلوب ... لاحقا سأعدل الكود ليأخد هده الحالة في عين الاعتبار ***************************************************************************************************************** في ما يتعلق بسؤالك عن فتح ملف أخر بينما اليوزرفورم مفعل فهل تقصد أن تفتح الملف الأخر عبر كود في اليوزرفورم أم مادا ... السؤال غير واضح لي يا أستادي الفاضل ... حسب معلوماتي و تجربتي فان وجود يوزرفورم مفعل لا يمنع من فتح ملف أخر بطريقة مباشرة ادا كان الفورم مفعلا بطريقة Modeless أو عن طريق الكود سواء كان الفورم مفعلا بطريقة Modeless أو Modal أرجو التوضيح اكثر

اخى عبد العزيز منور طبعا بس انا مش فاهم انت تقصد ايه تقبل تحياتى

طبعا استعنت برنامج لهذا لخصوص انظر في الروابط ادناه http://www.officena.net/ib/topic/56530-مشكلة-في-فتح-قاعدة-بيانات-msysdb/ http://www.officena.net/ib/topic/56440-هل-من-حل-لهذه-المشكلة/

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

تفضل جرب المرفق التربية - توسيع البطاقة1.rar

هذا كل ما قدرت عليه ... انظر ان كانت بياناتك كاملة Prog200.rar

بعد ادن الأستاد المحترم عادل حنفي الكود المقترح يعمل Selection لكنه لا يعمل السكرول و لا يدهب الى الخلية المقصودة أقترح الكود البديل التالي Private Sub Workbook_Open() Application.Goto Sheets("Sheet3").Range("H6"), True End Sub

اخي اولا هل لازالت المشكلة موجودة ام لا ثانيا بالفعل ظهرت لي رسالة لا اتذكرها حاليا وتتبعت الخطا وذلك بعد ان اغلق الاكسل نفسه والفتح مرة اخري وقمت بالحفظ بعد ذلك وانتهت المشكلة عموما غدا وفي وقت الفراغ يذكرني الله واعيد فتح الملف من البداية لمعرفة سبب الخطا تحياتي

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

اخي aburajai وبعد اذن اخي الحبيب ياسر خليل أبو البراء جرب المرفق سيكون القيد كالتالي Private Sub Workbook_Open() Sheets("sheet3").Activate ActiveSheet.Range("H6").Select End Sub active.rar

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

اخي سمير الكازاوي جرب المرفق تحياتي SAMI1.rar

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

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

جرب المعادلة بهذا الشكل =LEFT(A2,FIND("*",A2)-1)*MID(A2,FIND("*",A2)+1,LEN(A2))

اساذنا العزيز وهنا عملت على تصغير حجم قاعدة بياناتك ، فصغرت من 56MB الى 12MB جعفر Folow up V.2.zip

السلام عليكم ورحمة الله وبركاته الدرس الاول 1-Introduction علشان تستطيع جعل الاكسيل قادرا على التاعمل مع ملفات vba اتبع الخطوات الاتيه تقبلوا تحياتى

جرب الكود بهذا الشكل Private Sub CommandButton1_Click() Columns("L:L").ClearContents Range("I12:I" & Cells(Rows.Count, "I").End(xlUp).Row - 15).Copy Range("L27").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

برنامج احصاء شئون العاملين ارجو ان يحوز الاعجاباحصاء شئون العاملين1.rar

السلام عليكم يجب ان تكون قائمة الاسماء مفروزة تصاعديا المرفق 2010 تصفيه.rar

أخى الفاضل / أحمد فؤاد أشكركم على مشاعركم أسمكم جميل يا ليته يكون باللغة العربية (اسم الظهور) *** ملف به غالبية الدوال مع أمثلة XLFDIC04.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حل أخي الحبيب طارق حفظه الله إليك الكود التالي : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Target.Offset(0, -1).Value = Now End Sub الذي يضيف التاريخ والوقت الحليين في العمود A بمجرد إدخال أي معلومة في العمود B في السطر نفسه... أرجو أن يفي الكود بالغرض المطلوب... وتطبيق الكود على الملف الذي قدمه أخي الحبيب طارق في الملف المرفق... أخوكم بن علية تجميد الوقت في عمود حسب عمود آخر.rar