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

السلام عليكم تعمدت ان اضع هذا الموضوع مستقل عن سلسلة الشروحات كي يتمكن الجميع من رؤية الموضوع لمن لم يتابعوا السلسلة اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد تقبلو تحياتي ياسر العربي يتبع start.rar شرح طريقة عمل البرنامج اضغط هنا

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

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

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

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

السلام عليكم ورحمة الله تعالى وبركاته إستكمالا لدرس الأستاذ/الصقر الجريح داله DateDif رائعه لايجاد الفرق بين تاريخين او طرح تاريخين شرح مبسط للدوال تستخدم هذه الدالة فى إيجاد الفرق بين تاريخين شكل الدالة يكون كالتالي: YEAR(Date2)-YEAR(Date1) MONTH(Date2)-MONTH(Date1) DAY(Date2)-DAY(Date1) شرح الدوال وتتكون من جزئين Date1 هو تاريخ الاقدم Date2 هو تاريخ الاحدث واليكم تطبيقات عمليه للداله مثال 1 لدينا تاريخ بالخلية B1 وهو 2010/08/05 تاريخ الميلاد وتاريخ بالخلية B2 وهو 2014/12/27 تاريخ اليوم ونريد كم فرق السنوات بين تاريخين : نكتب بالخلية B4 الداله التالية : لإيجاد الفرق بين السنوات = YEAR(B2)-YEAR(B1) ويكون ناتج المعادله وهو 4 سنوات كما في الشكل السنة 4 نكتب بالخلية B5 الداله التالية: لحساب الفرق بين الشهور =MONTH(B2)-MONTH(B1) ويكون ناتج المعادله وهو 4 شهور كما في الشكل الشهر 4 نكتب بالخلية B6 الداله التالية : لإيجاد الفرق بين الأيام =DAY(B2)-DAY(B1) ويكون ناتج المعادله وهو 22 يوما كما في الشكل اليوم 22 نكتب بالخلية B8 الداله التالية: = YEAR(B2)-YEAR(B1)&" سنوات " &MONTH(B2)-MONTH(B1)&" شهور "&DAY(B2)-DAY(B1)&" يوم " تنسيق النص على الشكل التالي 4 سنوات 4 شهور 22 يوم مع مراعاة تنسيق إتجاه النص من اليمين لليسار وفي الأخير أتمنى الشرح أن ينال إعجابكم مع تحيات محبكم/ الجموعي

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

صباح الخير جميعاً.. كثيراً ما يجول لدينا حول إمكانية رسم الأشكال بأبعاد معينة ورصها ببعضها البعض برمجيا.. هنا أرفق إليكم الملف مع بعض الصور التي تمثل الفائدة العظيمة لرسمها برمجيا وتقبلوا تحياتي add shapes.rar

السلام عليكم السؤال لمحترفي الاكسس المطلوب فكرة توليد قيد الي لفاتورة البيع اوالشراء مع حجز رقم في سند القيد؟؟؟

أخي الكريم وائل أنا لم أعدل المشاركة إنما وضعت مشاركة جديدة بعد رؤيتي لمشاركتك الأخيرة ، والمنتدى يقوم بدمج المشاركات في حالة إذا كان التوقيت قريب!! تقبل تحياتي

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

فرز النصوص بناء على عدد الكلمات.rar

تم تعديل العلاقة مرة اخرى ليتناسب مع فورم الاضافة

مشاركة مع اخونا ابو عبد الله برنامج شركات.rar

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

جرب التعديل التالي رغم أن الكود يعمل لدي ولم ألاحظ المشكلات التي تتحدث عنها ، عموماً قم بتجربة الكود مرة أخرى بعد التعديل وإذا وجدت ملاحظات فيرجى ذكر ملحوظة واحدة فقط في كل مرة للتركيز عليها ومعالجتها ..لأن الكود طويل ويحتاج لتدقيق ... بدأت أفقد السيطرة على الكود Sub Find_All() Const nGroup As Long = 25 Const nInsert As Long = 3 Dim Ws As Worksheet, Sh As Worksheet Dim myDate1 As Double, myDate2 As Double Dim arr1 As Variant, arr2 As Variant Dim I As Long, J As Long, P As Long, mCol As Long Set Ws = Sheets("add") Set Sh = Sheets("Aldata") Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.add.Name = "Temp" On Error GoTo 0 If IsDate(Sh.Range("W2")) And IsDate(Sh.Range("W3")) Then myDate1 = Sh.Range("W2"): myDate2 = Sh.Range("W3") End If With Sh If .Cells(Rows.Count, 2).End(xlUp).Row > 5 Then .AutoFilterMode = False .Range("B5:S5").AutoFilter Field:=1, Criteria1:="<>" .Range("B6:S" & .Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).ClearContents .AutoFilterMode = False End If End With With Ws .AutoFilterMode = False .Range("A2:S2").AutoFilter Field:=4, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 If Sh.Range("U3").Value <> "الكل" Then .Range("A2:S2").AutoFilter Field:=2, Criteria1:=Sh.Range("U3").Value mCol = Application.Match(Sh.Range("V2").Value, .Rows(2), 0) .Range("A2:S2").AutoFilter Field:=mCol, Criteria1:=Sh.Range("V3").Value .Range("A2").CurrentRegion.Offset(2).SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1") .AutoFilterMode = False End With Sheets("Temp").Columns(1).Delete arr1 = Sheets("Temp").Range("A1").CurrentRegion.Value On Error GoTo Skipper I = ((UBound(arr1, 1) \ nGroup) + 1) * (nGroup + nInsert) arr2 = Sh.Range("A6").Resize(I, UBound(arr1, 2)).Formula For I = 1 To UBound(arr1, 1) P = P + 1 For J = 1 To UBound(arr1, 2) arr2(P, J) = arr1(I, J) Next J If I Mod nGroup = 0 Then P = P + nInsert Next I Sh.Range("B6").Resize(UBound(arr2, 1), UBound(arr2, 2)).Formula = arr2 Skipper: Sheets("Temp").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub لا تنسى وضع ملاحظة واحدة فقط للعمل عليها .. مع وضع وإرفاق ملف أصلي لم يتم تنفيذ الكود عليه ، أي قم بتجربة الكود ولكن بدون حفظ على الملف حتى أرى المشكلة التي تحدث بعيني .. مع ذكر متى تحدث المشكلة بالضبط ؟

ها قد سبقنى أبو جنى ولكن انظر هذا التعديل (على استحياء ) Database551.rar

ممتاز اخي الاستاذ عبد السلام بارك الله فيك وفي عائلتك ولكن هل نستطيع تغيير الخلية O26 لتكون صفر بمعني عند يتغير قيمة الخلية N فان الخلية O تصبح صفرا هذه في حالة ان كانت الخلية O بالسالب فقط وشكرا

الاخت الفاضله بخصوص طلبك الاول زر التبديل جربى تغير اتجاه الفورم وذالك بالدخول الى شاشة الخصائص للفورم رقم 2 ومن الخاصيه Right to left غيريها من False الى True ---- وبخصوص طلبك الثانى والثالث جربى المرفق هل هو طلبك تقبل تحياتى نسخة من الهنوف.zip

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

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

السلام عليكم اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه مش هشرح غير لما الاقي تفاعل الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد للردود او الاستفسار يرجى الدخول على هذا الرابط تقبلو تحياتي ياسر العربي يتبع start.rar

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

اخى الكريم ارفق مثالا او استعمل الدالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. صيغتها كما يلي : A = NZ(B,0) أو A = NZ(B) S = NZ (V,"") ومن هذا يتضح أن لهذه الدالة ممران 1- القيمة المطلوب فحصها 2- القيمة المعادة في حال كون القيمة الأولى Null وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null

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

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

بارك الله فيك أخي الكريم موريادي على قوة الملاحظة تقبل تحياتي

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

قم بالضغط على موظف جديد في الاسفل على شكل ورقة +

جرب الكود التالي عله يفي بالغرض ويحل المشكلة تماماً Sub Find_All() Const nGroup As Long = 25 Const nInsert As Long = 3 Dim Ws As Worksheet, Sh As Worksheet Dim myDate1 As Double, myDate2 As Double Dim arr1 As Variant, arr2 As Variant Dim I As Long, J As Long, P As Long, mCol As Long Set Ws = Sheets("add") Set Sh = Sheets("Aldata") Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.add.Name = "Temp" On Error GoTo 0 If IsDate(Sh.Range("W2")) And IsDate(Sh.Range("W3")) Then myDate1 = Sh.Range("W2"): myDate2 = Sh.Range("W3") End If With Sh If .Cells(Rows.Count, 2).End(xlUp).Row > 5 Then .AutoFilterMode = False .Range("B5:S5").AutoFilter Field:=1, Criteria1:="<>" .Range("B6:S" & .Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible).ClearContents .AutoFilterMode = False End If End With With Ws .AutoFilterMode = False .Range("A2:S2").AutoFilter Field:=4, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 If Sh.Range("U3").Value <> "الكل" Then .Range("A2:S2").AutoFilter Field:=2, Criteria1:=Sh.Range("U3").Value mCol = Application.Match(Sh.Range("V2").Value, .Rows(2), 0) .Range("A2:S2").AutoFilter Field:=mCol, Criteria1:=Sh.Range("V3").Value .Range("A2").CurrentRegion.Offset(2).SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1") .AutoFilterMode = False End With Sheets("Temp").Columns(1).Delete arr1 = Sheets("Temp").Range("A1").CurrentRegion.Value I = ((UBound(arr1, 1) \ nGroup) + 1) * (nGroup + nInsert) arr2 = Sh.Range("A6").Resize(I, UBound(arr1, 2)).Formula For I = 1 To UBound(arr1, 1) P = P + 1 For J = 1 To UBound(arr1, 2) arr2(P, J) = arr1(I, J) Next J If I Mod nGroup = 0 Then P = P + nInsert Next I Sh.Range("B6").Resize(UBound(arr2, 1), UBound(arr2, 2)).Formula = arr2 Sheets("Temp").Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تقبل تحياتي

أخي الكريم صلاح استخدام كلمة Sheets فقط في هذا السطر استخدام سيء إلى حدٍ ما For Each Sh In Sheets الأفضل استخدام كلمة Worksheets إذ أن كلمة Sheets تتعامل مع كل أنواع أوراق العمل بما فيها Charts .. وهذا قد يسبب مشاكل في حالة وجود ورقة عمل Chart في ملفك أما استخدام نطاق محدد كما وضعت A1:C5000 فسيء أيضاً حيث قد تزيد البيانات أو تنقص أما استخدام CurrentRegion فإنه يكيف النطاق الحالي للعمل عليه أياً كان مدى هذا النطاق بالنسبة لكود الأخ الحبيب عبد السلام فهو جيد ولكن يعيبه حدوث أخطاء وقد تجنب الأمر بوضع جملتين لتجنب الأخطاء أما إذا أزيلت هاتين الجملتين فإنه يحدث خطأ في حالة أن الفلترة غير قائمة أو أن الفلترة قائمة ولا يوجد شروط للتصفية (وأنا أفضل الابتعاد عن تلك الجمل ومعالجة الموقف بالكود نفسه) عموماً كل السبل تؤدي المطلوب إن شاء الله تقبل تحياتي

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

هلا قمت بالأمر لأنني لدي مشاغل كثيرة الآن وبعد العمل على الملف قم برفعه مرة أخرى للعمل عليه إن شاء الله

السلام عليكم إخواني سليم وعبد السلام جزيتم خيراً على الحلول المتميزة ولكن لاحظت اختلاف في النتائج فقمت بحساب العملية بشكل يدوي للتأكد من صحة المعادلات المقدمة عدد الأسهم = 39 سهم ( بطرح 24 نحصل على 15 سهم متبقي .. ولا خلاف في النتائج المقدمة من الطرفين) عدد القراريط = 47 قيراط (وبإضافة القيراط الذي حصلنا عليه من الأسهم يكون الإجمالي 48 قيراط) .. وفي هذه الحالة يتم تحويل 48 قيراط إلى عدد 2 فدان (مما يعني أن عدد القراريط سيكون صفر وليس 24 أو 23) عدد الأفدنة = 103 فدان + عدد 2 حصلنا عليه من النقطة السابقة مما يعني 105 فدان ، وليس 104 بناءً على ما سبق ... فضلت أن أقوم بتحويل كل عمود من الأرقام إلى أسهم (ومن خلال إجمالي الأسهم يمكن بناء المعادلات ببساطة) في أي خلية ضع المعادلة التالية والتي ستقوم بحساب وجمع إجمالي الأسهم لكل عمود ، حيث يتم ضرب الأسهم * 1 ، والقيراط * 24 ، والفدان * 576 ( 24 سهم * 24 قيراط) =SUM(($E$6:$E$9*1),($F$6:$F$9*24),($G$6:$G$9*576)) والمعادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter ******************** ننتقل لآخر جزئية وهي المعادلات التي تقوم بحساب عدد الأسهم =INT(MOD($E$3,24)) باعتبار أن الخلية E3 هي الخلية التي وضعت فيها إجمالي الأسهم للثلاثة أعمدة ----------------------------- والمعادلة التالية للحصول على عدد القراريط =INT(MOD($E$3/24,24)) ----------------------------- والمعادلة التالية للحصول على عدد الأفدنة =INT($E$3/576) أرجو أن يكون الناتج صحيحاً إن شاء الله

لعله المطلوب جمع مساحات SALIM.rar

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

اخي خالد الرشيدي

السلام عليكم أخي خالد الرشيدي انه كتاب رائع بالفعل بعد الاطلالة السريعة عليه جزاك الله خيرا

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

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

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

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

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

السلام عليكم أخي العزيز كليك يمين علي المحور الافقي بالشارت ثم من فورمات المحور إلغي اختيار الوضع المعكوس الاكسل عندي انجليزي بس هاتفهم الفيديو المرفق بسرعة تفضل Chart.rar

الاخ العزيز: لديناثلاث نصوص متحركة في النموذج : 1- العنوان في شريط العنوان ويأخذ قيمته الابتدائية من الكود Me.Caption = "مدرسة بلال بن رباح طلاب المرحلة الخامسة ................ " وقلت قيمة ابتدائية ليظهر النص في شريط العنوان عند فتح النموذج ثم يتم تحريكه بكود التايمر 2- نص متحرك بالنموذج ويأخذ قيمته الابتدائية من مربع النص [aa] في النموذج [form2] ويتم ذلك إما بفتح النموذج form1 وبحدث عند التحميل نفتح النموذج form2 و نأخذ القيمة من النموذج form2 لنضعها في مربع النص المذكور ثم وبنفس الحدث يتم إغلاق النموذج form2 بعد أن انتهت الحاجة إليه وليس لهذا النموذج وظيفة أخرى. أو بفتح form1 عن طريق زر الأمر بالنموذج form2 ثم إغلاق form2 بحدث عند التحميل للنموذج form1 . 3- نص متحرك في شريط الحالة بأسفل النموذج ويأخذ قيمته الابتدائية من txtScrollStatus ويتم تعريفها بأعلى النموذج بما يلي: Public txtScrollStatus As String أما كود التايمر فيتم فيه تحريك النصوص المذكورة أعلاه مع التحية

السلام عليكم: المثال الذي أورده الأخ anowrosh88 مثال جميل ومفيد أشكره عليه. ولفهمه يجب أن نحلل حدث النموذج عند التحميل Form_Load وحدث عند الموقت الزمني Form_Timer Private Sub Form_Load() DoCmd.OpenForm "form2" ' شريط متحرك بأعلى النموذج Me.Caption = "مدرسة بلال بن رباح طلاب المرحلة الخامسة ................ " ' شريط متحرك بالنموذج وهو يأخذ قيمته الابتدائية من مربع النص [aa] في النموذج [form2] Me.lblScrollingLabel.Caption = Forms![form2]![aa] ' شريط متحرك بأسفل النموذج txtScrollStatus = "وما أوتيتم من العلم إلا قليلا .. لا تنسونا من الدعاء" & Space(25) DoCmd.Close acForm, "form2" End Sub Private Sub Form_Timer() ' تنتنج النص المتحرك في شريط عنوان النموذج Me.Caption = Mid(Me.Caption, 2, _ (Len(Me.Caption) - 1)) & Left(Me.Caption, 1) ' تنتنج النص المتحرك في مربع التسمية على النموذج Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _ (Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1) ' تنتنج النص المتحرك في شريط الحالة للأكسس SysCmd acSysCmdSetStatus, txtScrollStatus txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1) End Sub

حقيقه لا بد ان تقال ان جهودكم جباره يعطيكم الف عافيه لقد عملت المثال بشكل جيد وهو يعمل بالفعل يقال لا تطعمني السمك بل علمني كيف اصطاد والقصد اني قمت بالعمل بشكل نسخ ولصق ولكني اجهل الاليه المتبعه بشكلها العلمي او المنطقي لذلك طلبت الشرح للعمل كي اقف على اسس العمل نفسه ارفق اليكم مثال هو رائع يحتوي على كتابه متحركه اسفل نظام اكسس فارجوا ان تشرح لي طريقه تحريك الكتابه اسفل النظام 4ط§ظ„ط·ظ„ط§ط¨.rar

السلام عليكم: الشرح بعد إذن أخي ابو خليل : تسمية مربع النص t الجديد هي مسافة فارغة قبل التسمية الافتراضية "بسم الله الرحمن الرحيم" Me.t.Caption = " " + Me.t.Caption إذا أصبح طول محارف تسمية مربع النص t مع المسافات الفارغة يساوي 100 فإن التسمية تصبح " بسم الله الرحمن الرحيم" ويتكرر الحدث مع عداد الوقت للنموذج وقيمته /100/ يعني 0.1 ثانية If Len(Me.t.Caption) = 100 Then Me.t.Caption = " بسم الله الرحمن الرحيم"

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

السلام عليكم هذا مثال من عمل أحد الإخوة .. آمل أن تستفيد منه نص متحرك.zip