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

السلام عليكم للأسف كل المقالات التي قرأتها حول الفرق بين الأكسل والأكسس غير مضبوطة تماما فعندما يكون الشخص محترف الأكسل تجد أنه يفضله على الأكسس ويقلل من أهمية الأكسس والعكس صحيح مما يجعل القاريء في حيرة ولكن لنرى ماذا يقول أصحاب الشأن شركة مايكروسوفت المنتجة للبرنامجين أعدت مقارنة بينهما وعندما تقرأ هذا المقال ستلاحظ أن لكل منهما مزايا وتتحدد الأفضلية بينهما ينوع البيانات التي يريد أن يتعامل معها المبرمج لاحظ هذا المقال من أصحاب الشأن حتى تخرج بنظرة واقعية وصحيحة https://support.office.com/ar-sa/article/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-Access-%D8%A3%D9%88-Excel-%D9%84%D8%A5%D8%AF%D8%A7%D8%B1%D8%A9-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-09576147-47d1-4c6f-9312-e825227fcaea

السلام عليكم ورحمة الله وبركاته فيديو خطوات تصميم برنامج بدون معادلات او اكواد VBA اتمنى ان يكون هذا الفيديو بسيط والخطوات واضحه للجميع . زكاة العلم نشره برجاء مشاركة الجميع ولاتنسونى بصالح دعاؤكم ========================== فى برنامج التقارير المصمم بالجداول المحوريه وطريقة مقسم العرض pivot &slicer وضعت عنونا ان البرنامج مصمم بدون معادلات او اكواد وهو بالفعل كذلك كان هدفى الاتى -ان ابرز الامكانيات الرائعه والسهله والبسيطة لل pivot والتى مايظن البعض انها صعبه ومعقده وان اكسر هذه الصعوبه. -والتفكير فى حلول اخرى لمشاكل بطىء الحساب بسبب المعادلات الكثيره او الاكواد . مما يجعل العمل على ملفات صعب للغايه -حاولت ان اعرض الموضوع ببساطه وهذا كان هدفى -هذا وما كان من توفيق فمن الله وحده، وما كان من خطأ أو سهو أو زلل أو نسيان فمني ومن الشيطان رابط الفيديو على اليوتيوب https://www.youtube.com/watch?v=SbfBPHpLFRo&list=PLg7Q0x2ucveeEYIGaoM0pbpXFOWm4S8i6

لا حاجة للكود في مثل هذه الحالة تفضل الحل تنسيق شرطي تلقائي salim.rar

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

تم معاجة الأمر defect_mahine advanced.rar

Private Sub Worksheet_Change(ByVal Target As Range) Dim x x = Format(Date, "d") If Target.Address = Range("A1").Address Then If Range("A1").Value < Val(x) Then Range("A1").Value = 0 Else End If End If End Sub السلام عليكم جرب هذا الكود

السلام عليكم بالنسبة للبداية اعتقد انها تكون اولا بالتعرف على بعض التسميات المهمة سواءا في الدوال او الكود مثل : Worksheets - Sheets - Rows - Columns - Cells - Range و هذه الكلمات اسمها يدل عليها بمعنى الذي يعرف اللغة الانجليزية بعض الشيئ لا يجد صعوبة في معرفتها ، هذه الكلمات هي التي نسميها كلمات محجوزة و للتعرف عنها إفتح ملف اكسيل ثم اذهب الى المطور vba و ذلك بالضغط على المفتاحين Alt+F11 ستجد في الجانب الايسر اسم الملف المفتوح ThisWorkbook و اسفله اسماء اوراق العمل ورقة1 ، ورقة2 . . . . . اضغط مزدوجا على اي منها تفتح لك في الجانب الايمن مكان ادراج الكود ، اكتب اي حرف ثم اضغط بعده بيمين الفأرة و اختر من القائمة complete word ستظهر لك قائمة كبيرة من الكلمات تلك هي التي نسميها كلمات محجوزة ابدأ في المرور عليها ستجد نفسك تعرف الكثير منها من خلال اسمها ما معنى الكلمات المحجوزة ؟ في المحرر الذي انت فيه الآن و كتبت فيه ذلك الحرف ، اكتب اي كلمة من عندك مثل اسم شخص او مدينة او اي شيئ و ضع امام الكلمة نقطة ( . ) فلا تلاحظ اي شيئ اما اذا اخترت كلمة مثل الكلمات التي كتبتها لك قبل قليل مثل Sheets - Rows - Columns - Cells - Range ثم ضع مباشرة بعدها نقطة ستفتح امامك قائمة و ذلك لان هذه الكلمات خاصة بالاكسل و هو يعرفها طبعا مع مرور الوقت ستعرف انه بامكانك حجز كلمات من عندك و ذلك بتعريفها مسبقا للاكسل مثلا لوكتبت كلمة officena و هو اسم المنتدى ثم كتبت بعده نقطة فلا تلاحظ اي شيئ لاكن اكتب اولا هذه الجملة Dim officena As Worksheet ثم انزل بعدها بسطر و اكتب كلمة officena و ضع امامها نقطة ستجد القائمة قد اصبحت موجودة لان هذه الكلمة اصبح الاكسل يعرفها من خلال التعريف باستعمال كلمة Dim و عرفها على انها ورقة عمل من خلال كلمة As Worksheet تكلمت مباشرة في الاكواد لانني ارى ان البداية تكون من هنا احسن ( هذه على الاقل في نظري ) و السلام عليكم

السلام عليكم ورحمة الله تعالى وبركاته كنت قد بدات هذا الموضوع من قبل وهو خاص بجعل العميل يرسل لك تقييم عن برنامجك او رسالة خاصة بالاخطاء الفنيه . كل هذا يرسله العميل لك بالبريد الاليكترونى ووجدنا انه من الصعوبة فتح كل بريد وارد لرؤية اللتقييم به ومن الصعب الحصول على فلترة لتلك الايمالات لاستخلاص منها درجات التقييم خاصة وان كان عدد مبيعات برامجك كبيرة فهدانا الله الى انشاء قاعدة بيانات لتكون منصة لاستقبال البيانات التى يرسلها عملاؤنا من جميع انحاء العالم وكان السؤال كيف سيتم الاستغناء عن ارسال ميل خاص بكل تقييم ؟؟ وكيف سيتم ربط قاعدة البيانات لديك كمصمم بكل برنامج تبيعه لعملاؤك لمعرفة ذلك يرجى متابعة هذا الموضوع بكل صفحاته بتعليقاته شرح بسيط مع الصور صورة نموذدج التقييم ملاحظة بسيطة ارجو كتابة الاسم عند ارسال التقييم فى زر ارسال التقييم قمت بادراج كود الربط الذى سيربط نموذج التقييم بالجدول المرفوع على سيكوال سيرفير هذا الكود ستجدونه هنا فى موقع ميكروسوفت الرسمى https://support.microsoft.com/en-us/kb/892490 والان منصة استقبال التقييمات وهو عبارة عن نموذج مربوط برمجيا بقاعدة سيكوال سيرفير هذا النموذج يمكنه الاتصال بكل برنامج تبيعه للعملاء دن الحاجة الى ستقبال الميل لن يتم ارفاق قاعدة البيانات الخاصة باستقبال التقييمات الان فقط سيتم ارفاق نموذج التقييم فقط وارجوا منكم ارسال تعليقاتكم وتقييماتكم من نموذج التقييم وهى ستصلنى ان شاء الله وسارفقها لاحقا نموذج التقييم.rar

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

جرب المعادلة التالية أخي الكريم =LOOKUP(B7,$O$4:$P$9,$N$4:$N$9) عفواً لم أنتبه لمشاركتك .. ما المشكلة في المعادلة طالما أنها تؤدي الغرض ، فهي فعالة وعملية في حالتك هذه تقبل تحياتي

على كل حال الشرح يكون كالتالي Sub استدعاء() ' في حالة الخطأ إستمر On Error Resume Next '----------------------------------- '************************************ '------------------------------------ ' اذا كانت الخلية بي4 فارغة و سي4 فارغة و أو4 فارغة ، إذا If [B4] = "" And [C4] = "" And [E4] = "" Then '------------------------------------- '************************************* '------------------------------------ ' اخرج مساج بوكس نصه هو التالي MsgBox "يجب اختيار حساب بدلالة رقم الحساب او اسم الحساب او اختار رقم فيد", vbInformation + vbMsgBoxRight, "تنبيه" '----------------------------------- '*********************************** '---------------------------------- ' و إلا Else '---------------------------------- '*********************************** '---------------------------------- ' إمسح النطاق : ـ [B9:H200].ClearContents '---------------------------------- '********************************** '----------------------------------- ' الخلية بي 6 تساوي فراغ مضاف اليه الخلية كا 1 ( مضاف لا تعني علامة + و غنما توضع بجانبها [B6] = "" & [K1] '----------------------------------- '********************************** '---------------------------------- 'امنع اهتزاز الشاشة Application.ScreenUpdating = False '---------------------------------- '********************************** '---------------------------------- 'حلقة تكرار تبدأ من 1 الى عدد صفحات العمل For x = 1 To Sheets.Count '----------------------------------- '********************************** ' اسناد الصفحة الحالية الى رقم المتغير إكس MySheets = Sheets(x).Name '--------------------------------- '********************************* '--------------------------------- ' إذا كان اسم الصفحة هو : قيود اخرج من الحلقة التكرارية If Sheets(x).Name = "القيود" Then Exit For '----------------------------------- '*********************************** '----------------------------------- ' حلقة اخرى بدايتها الصف الثالث و نهايتها آخر شيئ مكتوب في العمود أ For R = 3 To Sheets(MySheets).[A1500].End(xlUp).Row '--------------------------------- '********************************* '--------------------------------- ' اذا كانت الخلية حسب قيمة المتغير آر في العمود الرابع تساوي الخلية بي 4 ( نفس الشيئ بالنسبة لبقية السطر مع بعض التغييرات ) ـ If (Sheets(MySheets).Cells(R, 4) = [B4] Or Sheets(MySheets).Cells(R, 6) = [C4] Or Sheets(MySheets).Cells(R, 1) = [E4]) And (Sheets(MySheets).Cells(R, 7) >= [G4] And Sheets(MySheets).Cells(R, 7) <= [H4]) Then '-------------------------------- '********************************** '--------------------------------- ' انظر الى آخر خلية فارغة في العمود بي من ورقة القيود With Sheets("القيود").[B200].End(xlUp) '------------------------------- '******************************** '--------------------------------- ' امشي بصف واحد من أخر خلية في العمود بي وأكتب فيها ما هو موجود في الخلية مصدر البحث الموجودة في العمود الاول الصف آر .Offset(1, 0) = Sheets(MySheets).Cells(R, 1) ' بقية الاسطر نفس الشي باختلاف الموقع فقط '--------------------------------- '********************************* '--------------------------------- 'انتهى اسناد الصفحة End With '---------------------------------- '********************************* '-------------------------------- 'انتهى الشرط End If '--------------------------------- '********************************* '--------------------------------- ' اكمل ححتى آخر عدد Next R '-------------------------------- '********************************* '--------------------------------- Next x '----------------------------------- '************************************ '------------------------------------ ' ارجع الشاشة لحالتها الاصلية Application.ScreenUpdating = True '--------------------------------- '********************************* '---------------------------------- 'اظهر مساج بوكس ينص على التالي MsgBox "!تم استخراج الكشف المطلوب بنجاح", vbInformation + vbMsgBoxRight, "تم الاستخراج" '-------------------------------- '********************************* '--------------------------------- ' امسح النطاق التالي [B4:E4].ClearContents '********************************** '---------------------------------- 'انتهى الشرط الثاني End If

شكرا أخ عبدالله ولمزيد من مواصفات الأكسس الجبارة أحيلك إلى شركة مايكروفوست صاحبة البرنامج https://support.office.com/en-us/article/Access-2010-specifications-1e521481-7f9a-46f7-8ed9-ea9dff1fa854 ومواصفات الأكسل الجبارة من شركة مايكروسوفت أيضا https://support.office.com/en-us/article/Excel-specifications-and-limits-1672b34d-7043-467e-8e27-269d656771c3

عندي ربع ساعة و انا احضر في السلطة دي ، أطلعها و لا أوضعها في الثلاجة ؟

كود بلا ملف مرفق زي السلطة من غير طماطم .. مع تحياتي

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

السلام عليكم ورحمة الله وبركاته وجدت الحل بالامر التالي Me.Frame2.ScrollWidth = mylef ممكن اخلي اول سطر في الفريم يتعمل له Freeze يعني يفضل ثابت وانا بحرك الفريم Vertical تحياتي

حسناً فيها وجهة نظر بارك الله بك

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

TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "": TextBox6 = "" اخي ضف هذا السطر في الاخير

الملف الصحيح هو الملف الآخر الذي يتم انتاجه ، و الموجود في نفس المجلد: 377_2.txt

بارك الله فيك استاذى ان شاء الله ستجد ال Format Slicer فى 2010 بكل تاكيد واعتقد ايضا فى 2007

الغيت المعادلة السابقة ، ثم ادخلتهافي الحقل Total2 (للأسف ، بسبب الكلمات العربية فالمعادلة ترتيبها غير صحيح) : . والنتيجة . جعفر 374.8A13.accdb.zip

السلام عليكم استاذ سليم ابداع ما بعده ابداع بارك الله

السلام عليكم قبل السطر Select. ضف السطر التالي .Range("E2").Value = .Range("F" & Lr).Value - .Range("G" & Lr).Value - .Range("G" & Lr + 1).Value

وعليكم السلام استخدم النموذج Form1 لطباعة التقرير ، وكود الطباعة: Private Sub cmd_Clean_Click() File_From = Application.CurrentProject.Path & "\377.txt" DoCmd.OutputTo acOutputReport, "rpt_EMPDATAA", acFormatTXT, File_From, False File_To = Application.CurrentProject.Path & "\377_2.txt" Dim TextLine Open File_From For Input As #1 'open file for input Open File_To For Output As #2 'open file for output Do While Not EOF(1) 'Loop until end of file. Line Input #1, TextLine 'Read a line into variable. If Len(TextLine) > 5 Then 'if the line is NOT empty, write it to File_To Print #2, TextLine End If Loop Close #1 'Close file. Close #2 MsgBox "Done" End Sub جعفر 377.تحويل التقرير لتكست.accdb.zip

السلام عليكم أخي الحبيب أبو البراء إبداع يسير قدماً بخطىً واثقة بارك الله والسلام عليكم.

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

السلام عليكم بارك الله بك استاذ محمد الريفي وجزاك الله كل خير تستحقه ادامك الله ذخراً

السلام عليكم للأسف كل المقالات التي قرأتها حول الفرق بين الأكسل والأكسس غير مضبوطة تماما فعندما يكون الشخص محترف الأكسل تجد أنه يفضله على الأكسس ويقلل من أهمية الأكسس والعكس صحيح مما يجعل القاريء في حيرة ولكن لنرى ماذا يقول أصحاب الشأن شركة مايكروسوفت المنتجة للبرنامجين أعدت مقارنة بينهما وعندما تقرأ هذا المقال ستلاحظ أن لكل منهما مزايا وتتحدد الأفضلية بينهما ينوع البيانات التي يريد أن يتعامل معها المبرمج لاحظ هذا المقال من أصحاب الشأن حتى تخرج بنظرة واقعية وصحيحة https://support.office.com/ar-sa/article/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-Access-%D8%A3%D9%88-Excel-%D9%84%D8%A5%D8%AF%D8%A7%D8%B1%D8%A9-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-09576147-47d1-4c6f-9312-e825227fcaea

جرب اخي المرفق زر طباعة.rar

qشكرا استاذي ولكن ليس للمبيعات انا اصرف كميات مخزنة فقط اريد عمل مثل طريقة ملء الوصفة او اضافة الادوية بشرط انا املء سند خروج المواد من المخزن بدل الوصفة و الاسم يحمل اسم المصلحة التي صرف لها والتاريخ يبقى وكود الوصفة هو كود سند الاخراج tفانا يا استاذي لا اقوم بالبيع لاني اعمل في مؤسسة حكومية اقوم بتسيير العتاد فما ابحث عليه هو عمل مثل طريقة الوصفة لاخراج الكميات بمجرد الضغط وربح الوقت والحفظ مع عمل حقل لادخال الكمية يدويا عند الاختيار تسيير المخزونات.rar hاريد تعديل على هذا البرنامج اظن المشكل في الكود فقط خاصة في colomn == كما احتاج هذا العمل في انجاز طلبيات التموين يكون شكله جميل ومفيد وتفادي الاخطاء

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

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

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

اخى الحبيب انس حمد لله على سلامتك شفاك الله وعافك اسال الله تعالى ان يشفيك شفاء لا يغادر سقما اود ان الفت انتباه حضرتك الى الرابط التالى وبخصوص طلبك تم تعديل الكود ليناسب طلبك شاهد المرفق هل هو ما تريد تقبل منى وافر الاحترام والتقدير اخوك الصقر ملف بحث بفورم ممتاز.zip

السلام عليكم ورحمة الله جرب ما يلي : lc = Range("IV2").End(xlToLeft).Column Set Rng = Range(Cells(2, 2), Cells(25, lc)) ActiveSheet.PageSetup.PrintArea = Rng.Address أو lc = Range("IV2").End(xlToLeft).Column ActiveSheet.PageSetup.PrintArea = Range(Cells(2, 2), Cells(25, lc)).Address

نريد مساعدتك برجاء اعادة رفع الملف بصيغة 2003 او 200 وافر تقديرى

تفضل هذا النموذج ، بزر استيراد بيانات اول صفحة ، وزر حفظ البيانات في الاكسل: والكود (لاحظ اسم ومسار ملف الاكسل ، في الحدثين): Option Compare Database Dim ExcelApp As Object 'Excel.Application Dim WkBk As Object 'Excel.Workbook Private Sub cmd_Import_From_Excel_Click() File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls" Set ExcelApp = CreateObject("Excel.Application") Set WkBk = ExcelApp.Workbooks.Open(FileName:=File_Path) 'With WkBk.Sheets("input data") With WkBk.Sheets(1) Me.Control_No = .Range("B2").Value Me.SN = .Range("B3").Value Me.DATE = .Range("B4").Value Me.TS_Name = .Range("B5").Value Me.Component_PN = .Range("B7").Value Me.Description = .Range("B8").Value Me.JIC_NO = .Range("B10").Value Me.JIC_Rev_NO = .Range("B11").Value Me.JIC_Rev_Date = .Range("B12").Value Me.CMM_JIC_Approval = .Range("B13").Value Me.CMM = .Range("B14").Value End With If Not (ExcelApp Is Nothing) Then ExcelApp.Quit Set WkBk = Nothing Set ExcelApp = Nothing End Sub Private Sub cmd_Save_to_Excel_Click() File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls" Set ExcelApp = CreateObject("Excel.Application") Set WkBk = ExcelApp.Workbooks.Open(File_Path) ExcelApp.Application.Visible = False 'True 'With WkBk.Sheets("input data") With WkBk.Sheets(1) 'WkBk.Sheets(1).Range("B2").Value = Me.Control_No .Range("B2").Value = Me.Control_No .Range("B3").Value = Me.SN .Range("B4").Value = Me.DATE .Range("B5").Value = Me.TS_Name .Range("B7").Value = Me.Component_PN .Range("B8").Value = Me.Description .Range("B10").Value = Me.JIC_NO .Range("B11").Value = Me.JIC_Rev_NO .Range("B12").Value = Me.JIC_Rev_Date .Range("B13").Value = Me.CMM_JIC_Approval .Range("B14").Value = Me.CMM End With WkBk.Save WkBk.Close Set WkBk = Nothing Set ExcelApp = Nothing MsgBox "Done" End Sub 372.Database1.mdb.zip جعفر

السلام عليكم أما عن معنى هذه المصطلحات فهي : ـ 1 الدوال و المعادلات و الاكواد هي اجراءات نقوم بها لتنفيذ طلب ما سواءا كان هذا الطلب يتعلق بالحسابات او البحث او التاريخ او النصوص او الهندسة . . . . الدوال : هي تابعة لبرنامج الاوفيس و معرفة داخل البرنامج بمعنى مثل دالة الجمع Sum او دالة احصاء مثل Count او دالة بحث مثل Index و هكذا .... المعادلة : هي كأ نقول مثل : نريد جمع الخلية A1 مع الخلية A2 و نريد ان يكون الناتج في الخلية A3 فنقول بكل بساطة A3=A1+A2 مثل المعادلات التي تدرس في المدارس الكود : او ما يسمى بالماكرو و هو تنفيذ مثل ما سبق ذكره في الدوال لاكن بصورة اكبر و بميزات غير موجودة في الدوال و هو يعتمد على كلمات تسمى الكلمات المحجوزة التي لا يمكن استعمالها إلا من خلال الكود مثل الشرط IF أو الحلقات التكرارية ( For ........ Then .......Else ........End IF ) أو Do أو Private أو Sub أو Public . . . . . . .. أما عن كيفية كتابة كود فهو يعتمد اولا على ترجمة ما تريد تنفيذه الى كلام رياضي لا يتناقض مع المنطق بمعنى يقبله العقل ( ترجمة نصية ) ثم نحول هذا الكلام الى كود باستعمال الكلمات المحجوزة التي ذكرناها قبل قليل مثال : اريد ان ابحث في العمود A1:A20 عن كلمة تبدأ بالحرف ( م ) مثلا ـ 1 صياغة ما اريده على شكل نص : يا اكسل اريد منك ان تظهر لي الكلمات الموجودة في العمود السابق بشرط ان تبدأ الكلمة بالحرف م و إن وجدتها لونها بالبرتقالي وإن لم تجدها اخبرني بذلك . و كأنننا نكتب رسالة لشخص ما ـ 2 تحويل هذا الكلام الى كود '----------------------------------------------------------------------- ' حلقة تكرارية ' روح ابحث من الخلية 1 الى الخلية 20 For x = 1 To 20 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' الشرط ' اذا كان الحرف الاول في اليمين هو حرف م If Right(Cells(x, 1), 1) = "م" Then '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'جواب الشرط ' لون الخلية بالبرتقالي Cells(x, 1).Interior.ColorIndex = 46 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' احتمال عدم تحقق الشرط Else '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'اظهر لي مساج يؤكد عدم وجود ما طلبته MsgBox "لا توجد نتائج" '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' انهاء الشرط End If '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' اكمل حتى الرقم 20 الموجود في اول الكلام Next '----------------------------------------------------------------------- ملاحظة هذا الشرح لا يعتمد على منهجية علمية بل يعتمد على تجربة خاصة فقط

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

أخي الكريم سليم ليس إصرار ولكنه محاولة بسيطة لتحسين أوضاعي عموماً إليك الكود المستخدم Sub DeleteRows() Dim LR As Long, I As Long LR = Cells(Rows.Count, "J").End(xlUp).Row For I = LR To 2 Step -1 If InStr(Cells(I, "J"), "_______") > 0 Then Cells(I, "J").Offset(-1).Resize(18, 1).EntireRow.Delete End If Next I End Sub تقبل تحياتي

اخي ياسر لا افهم لماذا تصر دائماً على تحميل مشاركاتك عبر هذا الموقع الذي يكرر اعلاناته اكثر من 5 مرات احياناً و في كل مرة صفحة جديدة وانتظر 10 ثواني,كل ذلك يحدث بشكل ممل اليس هناك من حل اخر

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

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

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

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

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

بارك الله فييييييييك جمييييعا اقصد النموذج الفورم يظهر قبل الشيت او روقة العمل