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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحياناً تقابلنا في بعض المصنفات فلاشات تم إدراجها داخل الإكسيل .. ولذا فكرت في طريقة وبحثت كثيراً لكي أجد طريقة أستطيع بها استخراج الملف الفلاشي المدمج داخل المصنف ليكون الملف مستقل بذاته .. وذلك حتى أتمكن من إدراجه في مصنفات أخرى في الملف المرفق ستجد مصنفين أحدهما باسم Watch ويحتوي على الملف الفلاشي المدرج والمطلوب استخراجه ، والمصنف الثاني يحتوي على الكود الذي يؤدي المهمة بنجاح إن شاء الله تنفيذ الكود : عند تنفيذ الكود يظهر لك نافذة تحدد من خلالها مسار الملف الذي يحتوي الملف الفلاشي المدرج ، وهنا في المثال اسم الملف Watch ، والملف يحتوي على فلاش ساعة ...يمكن استخدامه في أي مصنف بعد استخراجه .. المهم حدد مسار الملف والكود سيقوم بالمهمة ويقوم باستخراج الملف الفلاشي .. ليكون الملف منفضل بذاته عن المصنف .. إليكم الكود المستخدم Sub ExtractFlash() Dim tmpFileName As String Dim FileNumber As Integer Dim myFileId As Long Dim MyFileLen As Long Dim myIndex As Long Dim swfFileLen As Long Dim I As Long Dim swfArr() As Byte Dim myArr() As Byte tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file") If tmpFileName = "False" Then Exit Sub myFileId = FreeFile Open tmpFileName For Binary As #myFileId MyFileLen = LOF(myFileId) ReDim myArr(MyFileLen - 1) Get myFileId, , myArr() Close myFileId Application.ScreenUpdating = False I = 0 Do While I < MyFileLen If myArr(I) = &H46 Then If myArr(I + 1) = &H57 And myArr(I + 2) = &H53 Then swfFileLen = CLng(&H1000000) * myArr(I + 7) + CLng(&H10000) * myArr(I + 6) + CLng(&H100) * myArr(I + 5) + myArr(I + 4) ReDim swfArr(swfFileLen - 1) For myIndex = 0 To swfFileLen - 1 swfArr(myIndex) = myArr(I + myIndex) Next myIndex Exit Do Else I = I + 3 End If Else I = I + 1 End If Loop myFileId = FreeFile tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf" Open tmpFileName For Binary As #myFileId Put #myFileId, , swfArr Close myFileId Application.ScreenUpdating = True MsgBox "Save The Extracted SWF Flash As [ " & tmpFileName & " ]" End Sub وأخيراً تقبلوا وافر تقديري واحترامي حمل الملف من هنا كان معكم أخوكم أبو البراء من منتدى أوفيسنا

بسم الله الرحمن الرحيم درس اليوم بعنوان الحلقات التكرارية iterations & looping يعني ايه iterations & looping ويعني ايه حلقات تكرارية من الاصل الحلقات التكرارية في الاصل هي تكرار امر معين عدد من المرات كثيرا ما نحتاج في برامجنا تكرار بعض الاوامر عدد من المرات المحددة او الغير محددة يعني مثلا اقول لحبيبي ابو البراء قول ارنبنا فى منور انور وأرنب أنور فى منورنا عشر مرات مثلا كدا انا حددت عدد التكرار هنا عشر مرات دا ان عرف يعني يقولهم او حتى اخي احمد الفلاحجي هنا بقي نقول ان دي جمله تكرارية محددة او معروفة وتندرج تحت الاسم iterations طيب لو قلت لابو البراء قول بسيطه وماتستبسطهاش وصعبه وماتصتصعبهاش لحد ما يبان لك صاحب ههههههه كدا اول واحد هيظهر ويتعاطف مع الموقف حبيبي ابو يوسف ويقولي حرام عليك واخي الغالي عبد العزيز هيقول اشيل عنه شوية والفلاحجي هيستخبى طيب من المثال اللي فات فهمنا ايه انه لازم يفضل يعيد الجملة لحد ما يبان له صاحب يعني هنا حطينا شرط لايقاف الحلقة يبقي كدا اسمها جملة تكرارية شرطية وتندرج تحت الاسم looping ومن الامثلة السابقة نقدر نقسم الحلقات التكرارية المحددة والشرطية كما بالاسفل iterations For.........Next For.........Each looping Do.........Loop Do...........While Do...........Until While ناخد مثال على الجز الاول وهو iterations For.........Next وتكتب هكذا For i = 1 To 10 MsgBox(i) Next نوضح الجمله اولا بدأنا الجملة بكلمة محجوزة For وبعدها حرف i وهو هنا يسمي بالمتغير وبالاصح العداد المتغير وبعدها = تساوي ايه بقي تساوي القيمة الابتدائية للمتغير to القيمة النهائية للمتغير والتي اذا وصل لها توقف عن العمل ونختتم الكود ب Next للتكرار حتى نهاية القيمة يبقي المثال اللي فات ايه اللي هيحصل فيه لما نشغله هيظهر لينا رسائل متتاليه من 1 الى 10 وبعدها تتوقف لانتهاء عمل الكود طيب لو احنا محتاجين زيادة بمقدار مختلف يعني مثلا يزيد كل مره رقمين مش واحد زي ما موجود يعني بدل ما يبقي 1 2 3 4 5 6 7 8 9 10 يبقي كدا مثلا 1 3 5 7 9 وطبعا مش هيجيب ال10 لان مسافتها من بعد ال9 رقم واحد يبقي هيتوقف عند ال9 فقط ازاي نعمل الكود دا نشوف For i = 1 To 10 Step 2 MsgBox(i) Next زودنا هنا كلمة step 2 وهنا يعني مقدار الخطوة 2 للمتغير طيب ينفع بدل ما ازود انقص مثلا اه تمام ينفع نعكس العمليه For i = 10 To 1 Step -1 MsgBox(i) Next يعني ايه الكود السابق يعني المتغير يفضل يقل من 10 لحد 1 بمقدار -1 طيب احنا هنقضيها مقدار ارقام لا ممكن نعلن عن متغيرات تحمل الارقام دي ازاي بقي Dim x As Byte = 1 Dim y As Byte = 10 For i = x To y MsgBox(i) Next اظن كدا واضحة لينا احنا اعلنا عن متغيرين من نوع بايت واحد قيمته1 والتاني 10 ونستطيع ان نربط المتغير بتكست بوكس مثلا اذا كانت القيمة هنحددها من على الفورم واحنا شغالين ندخل بعد كدا على الFor Each بنستخدم امتى الفور ايتش دي بنستخدمها مع الكولكشن زي المصفوفات كدا مثلا هناخد المصفوفات دي بس بعدين المهم هنعرف ازاي نعلن عنها ونعرفها في الجملة فور ايتش في المثال التالي Dim myarr() As String = {"الفلاحجي", "ابو البراء", "ابو يوسف", "البسكري", "ياسر العربي"} For Each i In myarr MsgBox(i) Next هنا اعلنا عن مصفوفه من نوع استرنج نصي يعني وعرفناها بما هو مكتوب بين الاقواس وبعدها جينا لجملة التكرار For Each ووضعنا متغير i بيساوي المصفوفة myarr الكود السابق عند تطبيقه سيعرض لنا الاسماء الموجودة بالمصفوفة على التوالي داخل رسالة وعند الانتهاء من كل محتويات المصفوفة يتوقف عمل الكود زي ما بنعملها في الاكسيل كدا مثلا Dim rng As Range For Each rng In Sheet1.Range("a1:a100") rng = "الله اكبر" Next rng هنا بنعلن عن متغير rng وحددنا له مساحة يشتغل داخلها من الخلية a1 :a100 ونقدر نطبق على هذا النطاق ما نريده مثلا نحدد المتغير ونقول انه المتغير هيكون قيمته الله اكبر ونطاق الحلقة التكرارية هو 100 خليه يبقي كلهم هيتكتب فيهم الله اكبر ولحد هنا نتوقف ونكمل باذن الله باقي الدرس قريبا المثال المستخدم في الشرح حمل من هنا المثال تقبلو تحياتي ياسر العربي يتبع

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

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

عذرا للدخول على الخط فهذه محاولة من اخوكم لما فهمته من المطلوب تقوم بوضع هذا الكود في حدث بعد التحديث للحقل المادة Private Sub المادة_AfterUpdate() Me.Refresh If DCount("*", "الدرجة", "[المادة]= form![المادة]") > 1 Then Me.المادة = "" MsgBox "لقد قمت بإدخال هذه المادة مسبقاً", vbOKOnly, "خطأ" Cancel = True End If End Sub أخوكم مصطفى طلاب1.rar

و عليكم السلام ... New2 - Copy.rar لكن لي ملاحظة : العنوان يجب ان يكون معبر عن الموضوع او المشكلة ( لكي يكون مرجع لكل الاخوة و في اي وقت ) ارجوا ان تقبلها من اخوك الصغير ...

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

بسم الله الرحمن الرحيم استكمالا لحلقات التكرار اليوم سنتحدث عن looping ونسترجع ان اللوبنج من الحلقات التكرارية الشرطية وسنتطرق الى الجمل الاتية في الحلقات التكرارية الشرطية Do.........Loop While Do...........While Do...........Until اولهم Do.........Loop وطريقة كتابة الاكواد هتبقى ازاي نشوف المثال التالي Do MsgBox("Yasser") Loop الكود السابق بدايته DO ثم الاكواد الخاصة بنا داخل الجملة التكرارية ثم Loop لاعادة تنفيذ الكود مرة اخرى طيب لما نطبق الكود دا ايه اللي هيحصل اللي هيحصل ان البرنامج هيطلع لينا رسالة باسم ياسر بس كدا لا دا هيفضل يطلعها على طول كل ما تطلع من واحده تيجي تانيه الى مالا نهاية ايه السبب هي جملة شرطية طيب فين الشرط احنا مش حطينا شرط يبقي البرنامج هيفضل شغال رسايل على طول وطبعا دا لو كود غير الرسالة مع التكرار الى مالا نهاية سيتعرض دائما برنامجنا الى التهنيج من كثرة التكرار طيب عايزين نحل المشكلة ونحط شرط للموضوع دا نشوف المثال التالي ونركز فيه شوية Dim x As Byte = 1 Do MsgBox(x) x = x + 1 If x = 10 Then Exit Do End If Loop اول الكود مجرد اعلنا عن متغير من نوع بايت وعرفناه برقم1 وبعدين بدأنا الجملة ب Do ثم رسالة بها قيمة المتغير والسطر اللي بعده رفعنا قيمة المتغير +1 لكل حلقة تكرارية وبعدين عشان نضع الشرط للجمله نستخدم IF ونقول لو المتغير X يساوي 10 ايه اللي يحصل اخرج من الجملة التكرارية دي يبقي الكود السابق هيحصل فيه ايه بداية الكود المتغير x هيساوي1 وبعدين هنخش الجملة وتظهر رسالة برقم المتغير اللي هو 1 وهننزل على السطر اللي بعده هنلاقي انه المتغير زاد رقم بقي 2 يروح على الجملة الشرطية وهي ان المتغير يبقي عشرة والمتغير لسه 2 يبقي هيتجاهل الشرط ويكمل ينزل يلاقي لووووب هوب يرجع تاني وهكذا لحد اول ما الرقم يوصل 10 يروح للشرط يلاقي انه 10 يقوله عندك اخرج بقي من الدوخة دي واللفه دي وبكدا عرفنا الجملة Do.........Loop ندخل على الجملة الثانية وهي While Dim x As Byte = 1 While x < 10 MsgBox("الحمد لله" & x) x = x + 1 End While ايه الكود دا نفس المتغير x وندخل على الجملة While ودي جد على طول بتقولك الشرط ايه عشان اعرف اشتغل عليه من الاول بنقلها لو قيمة الاكس اصغر من 10 يطبع الحمد لله ورقم المتغير جمبها والسطر اللي بعده طبعا عارفينه وهو زيادة المتغير +1 ويرجع تاني لحد ما يتحقق الشرط عند الرقم 10 تتوقف الجمله الموضوع سهل ومفيهوش اي صعوبة وطبعا دا مثال مبسط للجمله نستطيع تركيب كود بطريقة احترافيه وطرق مختلفه كتييرررر وندخل على الجملة الثالثة وهي Do...........While Dim x As Byte = 1 Do While x < 10 MsgBox("الحمد لله" & x) x = x + 1 Loop باختصار الجملة دي تجمع Do & While مع بعض لان Do لوحدها كنا بنستخدم فيها If اما الان الشرط موجود معها فلا داعي الى IF ندخل على الجملة Do...........Until والجملةدي عكس ال Do...........While بمعني ان Do...........Until بتقول افعل الى ان يتحقق الشرط Do...........While افعل عندما يتحقق الشرط Dim x As Byte = 1 Do Until x > 10 MsgBox("الحمد لله" & x) x = x + 1 Loop هنا هيفضل يكرر الجملة الى ان تصل قيمة المتغير x الى اكبر من 10 وبكدا نكون شبه انتهينا من الجمل التكرارية المحددة والشرطية طبعا دا مجرد شرح مبسط اذا كان هناك اي استفسار يرجى طرحه داخل الردود الخاصة بالموضوع الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت تقبلو تحياتي ياسر العربي يتبع

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

حياك الله بالترتيب من خصائص القائمة ,,, بيانات ,,,التزام بالقائمة = نعم ======= السماح بتحرير القائمة = لا اضافة الى ذالك هنا سطر لو حاب تظهر رسالتك الخاصة بدلا عن رسالة الخطاء تبع الأكسس ضع هذا السطر في حدث " عند عندم الوجود في القائمة " MsgBox "فضلا... اختر من القائمة", vbCritical, "تنبيــــه" Response = acDataErrContinue بالتوفيق

ماشاء الله استاذ محمد حسن

الحمد لله يفضل تحديد افضل اجابة نتعلم منك استاذ ياسر خليل شكرا جزيلا على الكلام الجميل اللي يدي دفعة

 خواطر إكسيلية أساتذتي الكرام إخوتي الأحبة السلام عليكم ورحمة الله وبركاته: بدا لي أن أكتب موضوعاً لا يقف حكراً على أحد – بل بإمكان كلٍّ منا أن يجود بما يخطر له من مواضيع الإكسيل التي يريد أن يفيد بها - وهنا أنطلق من كلمة إكسل التي تعني البراعة أو كما يحلو لنا أن نسميها في بلدي المكلوم "برنامج الجداول الإلكترونية" : ولذلك فإنني سأنطلق من خاطرة أولى تتحدث عن بعض اختصارات برنامج الإكسيل التي نصادفها بشكل يومي كما يلي: اختصارات لوحة المفاتيح في الإكسيل: إظهار(عرض) الصيغ في الخلايا بدلاً من نتائجها المحتسبة CTRL + ~ سابقة أثر(الخلايا التي أثرت في قيمة الخلية الحالية CTRL + [ تاريخ اليوم CTRL+ ; اختيار(تحديد كل) الجدول الحالي CTRL+ * الوقت الحالي CTRL+SHIFT+ ; نسخ من الخلية المجاورة بالأعلى CTRL+ ' هذا ما استطعت عرضه في عجالة من أمري وسيتبع إن شاء الله تعالى بمواضيع أخرى والسلام عليكم خواطر إكسيلية.rar

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

السلام عليكم اخ كرار - مصطفى بارك الله بكم وبأمثالكم اللذين يسارعون لفعل الخير جمعنا الله ومن تحبون في الفردوس الاعلى

جرب هذا الملف المصنف1 Salim.rar

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

الف شكر وجزاك الله خيرا يااستاذي واخي أ/ كرار

السلام عليكم تفضل اخي الكريم New 1111111111 - Copy.rar

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

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

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

السلام عليكم أخي الكريم جزاك الله خيرا لاجتهادك ولكن ما طلبنه في الكود هو عكس ما قدمته لي في الحل وهو أني أريد ترحيل قيمة الحقل A من النموذج MainAB إلى السجلات في جدول AB بحيث تتجاور مع ما يقابلها في الحقل B وليس ارجاع القيمة من الجدول AB بل الترحيل للجدول AB وشكرا وبعد عدة محاولات توصلت لكود وأصبح 100% ضع الكود التالي في حدث عند الضغط على الزر DoCmd.RunSQL "UPDATE [AB] " & _ "SET A = form!A " & _ "WHERE B = " & Me.B مصطفى ...

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

حياك الله اخي الكريم ماهو الهدف النهائي من كل هذا بالتوفيق

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله أخي الحبيب أبو البراء...أدعو الله تعالى أن يجعل عمرك مديداً وعملك صالحاً رشيداً..وأن يجعل لك من كل همّ فرجاً ومن كل ضيق مخرجاً...آمين دعاء نرجو وجه الله تعالى به ...على أعمالكم المتجددة والرائعة ...تقبل أجمل وأرق وأعطر تحياتي وأمنياتي والسلام عليكم ورحمة الله وبركاته.

عذرا اخ ahmed_asd4 كلام حضرتك خطأ فبمجرد اعطاء امر الطباعة بعد اختيار عدد الصفحات فى الورقة الواحدة سيتم تلقائيا طباعة جميع المستند الصفحة 1 بجوار الصفحة 2 والصفحة 3 بجوار الصفحة 4 وهكذا الى نهاية المستند وليس هناك داعى لإعطاء امر لطباعة كل ورقتين فقط معا حضرتك من أين غيرت حجم الورقة A3 يتم تغيير الحجم الذى سيتم الطباعة عليه من خصائص الطابعة لا تنسنى من الدعاء لى ولأمى ولأبى

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخويَّ الكريمين عبدالله فاروق ابو ريان و ربيع العمر 200 أشكركما على مروركما الطيب العطر على موضوعاتي المتواضعة ..وجزاكما الله تعالى خيراً راجياً لكما الخير والسعادة في داري الدنيا والآخرة والسلام عليكم ورحمة الله وبركاته.

استاذ محمد حسن المحمد جزاك الله خيرا

السلام عليكم نعم استاذ عبد الفتاح به محادثات ومكالمات صوتيه ..

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

تم التعديل Sub tajmi33() Dim sh1, sh2 As Worksheet Dim Rg_N, Rg_R As Range Dim lr1, lr2 As Integer Dim My_school As String Application.ScreenUpdating = False Set Rg_N = Nothing: Set Rg_R = Nothing Set sh1 = natija: Set sh2 = tajmi3 My_school = sh2.Range("e4").Value lr1 = sh1.Cells(Rows.Count, 4).End(3).Row lr2 = sh2.Cells(Rows.Count, 4).End(3).Row If lr2 < 9 Then lr2 = 9 tajmi3.Range("d9:ac" & lr2).ClearContents sh1.Select For i = 7 To lr1 If sh1.Range("e" & i) = My_school And sh1.Range("AC" & i) = "ناجح" Then If Rg_N Is Nothing Then Set Rg_N = sh1.Range(Cells(i, "d"), sh1.Cells(i, "ac")) Else Set Rg_N = Union(sh1.Range(Cells(i, "d"), sh1.Cells(i, "ac")), Rg_N) End If End If Next If Not Rg_N Is Nothing Then Rg_N.Copy sh2.Range("d9") End If For i = 7 To lr1 If sh1.Range("e" & i) = My_school And sh1.Range("AC" & i) = "راسب" Then If Rg_R Is Nothing Then Set Rg_R = sh1.Range(Cells(i, "d"), Cells(i, "ac")) Else Set Rg_R = Union(sh1.Range(Cells(i, "d"), Cells(i, "ac")), Rg_R) End If End If Next newlr = sh2.Cells(Rows.Count, 4).End(3).Row + 1 If Not Rg_R Is Nothing Then Rg_R.Copy sh2.Range("d" & newlr) End If sh2.Select Application.ScreenUpdating = True End Sub

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

أخي الحبيب أبو عيد بارك الله فيك وجزاك الله خيراً على هذا الإبداع اللامنتهي .. معادلات رائعة .. وإن كان هناك استعانة بكثير من الأعمدة المساعدة ولكن حل رائع ومتقن جداً أخي الكريم وائل شعبان إثراءً للموضوع إليك نفس الملف في المشاركة الأخيرة الخاصة بأخونا أبو عيد بعد حذف الأعمدة المساعدة والمعادلات لأنها وإن كانت حلاً رائعاً إلا أنها تثقل التعامل مع الملف بشكل كبير جداً خصوصاً أن حجم البيانات كبير للغاية .. مما يجعل التعامل مع الملف ثقيل جداً .. فإليك حل بالأكواد .. تم تغيير امتداد الملف لتتمكن من تنفيذ الكود والاحتفاظ به كل ما عليك هو تحميل الملف من الرابط أسفل المشاركة .. تفتح الملف ثم تضغط Alt + F8 وتنفذ الكود الذي سيظهر لك باسم Test عن طريق اختيار الإجراء الفرعي المسمى Test ثم تنقر Run ويمكن تخصيص زر لتنفيذ الأمر .. هذا هو الكود Sub Test() Dim Coll As New Collection, Arr, I As Long, J As Long, K1 As Long, K2 As Long, V Arr = Sheets("القرآن كاملا").Range("A1").CurrentRegion.Value For I = 2 To UBound(Arr, 1) Coll.Add Key:=Arr(I, 2) & Chr$(2) & Arr(I, 3), Item:=Arr(I, 4) Next I Arr = Sheets("القرآن كاملا").Range("F1").CurrentRegion.Value For I = 2 To UBound(Arr, 1) Coll.Add Key:=CStr(Arr(I, 1)), Item:=Arr(I, 2) Next I With Sheets("المثال").Range("F1").CurrentRegion Arr = .Value For I = 2 To UBound(Arr, 1) Arr(I, 8) = "" V = Split(Arr(I, 7), "|"): K1 = CLng(V(0)): If UBound(V) = 0 Then K2 = K1 Else K2 = V(1) On Error Resume Next For J = K1 To K2 Arr(I, 8) = Arr(I, 8) & Space$(1) & Coll(Arr(I, 6) & Chr$(2) & J) Next J Arr(I, 8) = "(" & Arr(I, 8) & " ) < " & Coll(CStr(Arr(I, 6))) & Space$(1) & Arr(I, 7) & " >" On Error GoTo 0 Next I .Value = Arr End With End Sub حمل الملف من هنا تقبل تحياتي

و عليكم السلام ... New 1111111111.rar

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

شوف اخي الكريم الملف ده Right Click is Disbaled.rar لو انت عاوزه في الملف كله انسخ الكود في حدث الملف Private Sub Workbook_SheetBeforeRightClick _ (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox ("Sorry Right Click is Disbaled for this Workbook") End Sub

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

ماشاء الله استاذ محمد حسن وربنا يبارك في حضرتك ودي معادلة اخرى لمعرفة السنة الكبيسة على افتراض ان السنة موجودة بالخلية A3 =IF(OR(MOD(A3,400)=0,AND(MOD(A3,4)=0,MOD(A3,100) <> 0)),"سنة كبيسة","سنة بسيطة")

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

بسم الله الرحمن الرحيم اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة فى هذا الدرس من درووس اكسيل 2010 سنتعرف على كيفية البحث بين اكثر من ملف اكسل والجداول المختلفة سواء كانت بيانات العملاء او الموردين او المبيعات وذلك با ستخدام دالة من دوال البحث وهى الدالة vlookup بطريقة متقدمة وسهلة باذن الله . لمشاهدة الفيديو من هنا https://youtu.be/RSmF4imHCJM رزيارة موقعنا للتعرف على مزيد من الدرورس من هنا http://etalmfree.blogspot.com.eg/ البحث بين اكثر من ملف.rar

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة هذه الطريقة ويفضل مستقبلا الابتعاد عن المسميات العربية =DCount("[تم]";"sdad";"[تم]=-1 and [رقم]=forms![a]![sdad نموذج فرعي]![رقم]") تجميع علامه صح.rar

انسخ هذا الكود الى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) With ActiveSheet .Unprotect .Cells.Locked = True .Cells.SpecialCells(xlCellTypeBlanks).Locked = False .Protect End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("Yasser")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "It is not your right to make any adjustment without reference to the Engineer / Yasser Fathi Al-Banna " End If End Sub السلام عليكم أخى الكريم هل تريد مثل المرفق ضع هذا الكود فى حدث الشيت ثم إتبع الخطوات التالية إفتح قائمة formulas ثم Name Manager ثم إختار New Name وأكتب فى الخانة Name وليكن إسم اخوك كما بالكود Yasser ثم أمام الخانة Refers To حدد الخلايا المراد حمايتها ثم إضغط OK ثم Close وجرب Book1.rar

بداية اخي الكريم لك دعوة منا طيبة هنا فنرجو منك تلبية الدعوة http://www.officena.net/ib/index.php?showtopic=41520 الشيء الآخر والمهم ولا شك هو اهم من سؤالك ان مشروعك يحتاج الى اعادة صياغة كيف ؟ انت وضعت في قاعدة البيانات 9 جداول و 9 استعلامات و 9 نماذج و 9 تقارير والمفروض ان تختصر كل هذه في جدول واحد واستعلام واحد ونموذج واحد وتقرير واحد ، وتنشء في الجدول حقل جديد يبين النوع ملحوظة : لا يمكنني المتابعة معك لعدم تمكني مستقبلا من فتح امثلتك من جهازي الذي اعمل عليه ، وحتى اطلع على مثالك نقلته الى جهاز آخر يحتوي على اصدار اكسس اعلى من 2003 ان اردت الاستمرار والزيادة في التعلم حاول ان تكون المرفقات على امتداد mdb

الاخوة الكرام كل عام وانتم بخير لم اجد ما اهدية الا هذا البرنامج المحاسبى الرائع نظرا لحاجة الكثير اليه فقد وضعته اكراما للاخ الحبيب خبور الذى لم يتاخر لحظة لاى طلب من اخوانى الاعضاء اولا الباسوورد 400804-40809-52290-21000 ثانيا التحميل http://www.sendspace.com/file/8bhgdf http://www.sendspace.com/file/7uk628 http://www.sendspace.com/file/9u6ckm واتمنى من الجميع دعوة خالصة لله (اللهم اعز الاسلام والمسلمين اللهم انصر الاسلام والمسلمين) وكل عام وانتم بخير محمد طنطاوى