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

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

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

الاخ الغالي محمد الخازمي مشكور على مرورك العطر وكلماتك الرقيقة ... الأخ رجب طرح الموضوع وسابني أنا أرد ! ماشي يا أخ رجب .. تترد لك إن شاء الله تقبلوا تحياتي

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

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

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

اخى الحبيب حضرتك عامل فى الملف المرفق بتاعك ان قيمة التكلفه تساوى اخر قيمة تم شراء بضاعه بها وهذا غير صحيح علشان تحسب متوسط تكلفه الصنف مجموع قيم الكميات اول المده+مجموع قيم الكميات من المشتريات - مجموع قيم مردودات المشتريات متوسط تكلفه الصنف = ------------------------------------------------------------------------------------------------------------ مجموع الكميات اول المده+مجموع الكميات من المشتريات - مجموع مردودات المشتريات مثال الصنف أ الكمية سعر الحبه القيمة اول المده 5 10 50 مشتريات 6 11 66 مردود مشتريات 2 10 20 --------------------------------------------------- المجموع 9 96 50 + 66 - 20 96 متوسط التكلفه فى هذه الحاله هى = --------------------- = ------ = 10.66 5 + 6 -2 9 طبعا حضرتك مش عندك اول المدة ولا عندك مردود مشتريات كله بس شراء وبيع حركة الشراء تؤثر على تقيم المحزون أما حركة البيع لا تؤثر على تقيم المخزون اتمنى ان اكونا وضحت الفكرة تقبل تحياتى

لمعرفة رقم الصف لاول خلية غير فارغة في العامود A مثلاً (هذا الامرلا يأخذ بالحسبان الغراغات) المعادلات صفيف (ctrl+shift+enter) =MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0) لمعرفة عنوانها =ADDRESS(MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0),1) لمعرفة ماذا تحتوي =INDEX($A$1:$A$500,MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0)) لمعرفة رقم الصف لاخر خلية غير فارغة في العامود A مثلاً =MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)) لمعرفة عنوانها =ADDRESS(MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)),1) لمعرفة ماذا تحتوي =INDEX($A$1:$A$500,MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)))

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

أستاذي الكريم ياسر... وفقك الله وزادك من علمه وجوده، كفاني الحل بالمعادلات ووظفت حل الاستاذ علاء في زر في فورم وكانت النتيجة المرجوة منه؛ بيد أني لما وجدتك أستاذي اشرت بهذه الجملة: ("أخي الكريم علاء .. ما قدمته حلاً وحلاً رائعاً أيضاً .ينقصه فقط أن تقوم باختصار الكود المسجل بواسطة الماكرو لتحسن أداء الكود....") ||~ لأنه فعلا ثقيل بعض الشئ~|| فظلت ترك الموضوع مفتوح لبعض الوقت ربما تأتي أفكار أخرى .... فقط القصد من وراء ذلك تعميم الفائدة، واني ممتن أستاذي.

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

استاذي الكريم "علاء رسلان" شكرا فانك اسعفتني من حيث ابدعت في حل مشكور عليه وله، مكانه؛ ولك مكانتك .... شكرا انه المطلوب ... جازاك الله خيرا أستاذي الفاضل "YasserKhalil" تعلمنا منذ صغرنا ان لا نغضب من معلمينا لأنهم كالنخيل شامخة وعراجين التمر منها تتدلى منها تتدلى لهذا نجلهم ونبجلهم أما أني لم أحدد فذلك صراحة عن قصد لانه في الحالتين لهما مكانهما وأما حلك أستاذي فانه المطلوب؛ وقد حاولت ولم افلح ولو حاولت دهرا ما وصلت الى ما قدمت أستاذي؛وطبعا لم اقصد الفلترة أو الفرز، شكرا أستاذي، واني ادعوك لو تتكرم وترد على طلبي الذي هو هنا: http://www.officena.net/ib/index.php?showtopic=60770&hl=

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

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

جزاك _الله_ خيراً أخي محمد. الحمد لله الذي بنعمته تُقضى الحاجات

الأخ الحبيب رشراش علي ايه الكلام الجامد ده ؟ ايه الكلام الكبير اللي ملوش رد ده؟ مش لاقي رد على تحية الورد .. بجد بجد تقبل تحياتي

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

1-حدد الخلايا المناسبة 2 ضع الفأرة على حدود التحديد حتى يظهرلك سهم بأربع رؤوس 3-اضغط باليمين و اسحب التحديد قليلاً (حوالي 1 سم) 4- الى حيث كنت مع الحفاظ على الزر مضغوطاً 5-اترك رز الفأرة تظهر لك لائحة 6-اختر منها Copy as values 7- وخلا ص بقى هو ده كل حاجة

تم معالجة الامر ملف.rar

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

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

من قدّك يا رمهان ومثل ما نحن العمانيين نقول: صرت فوق النخل جعفر

ا / خالد لا داعى ابدا للاسف و كده الملف تمام و فى انتظار ابداعات اخرى

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

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

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

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

السلام عليكم ورحمة _الله_ وبركاته أستأذن الأستاذ رمهان وكل المشاركين في إضافة فكرة لعل فيها مراد أخينا محمد وهي إضافة على الكود الخاص بكم أستاذ رمهان. استخدمت فقط (IF) الشرطية في نفس حل الأستاذ رمهان جزاه الله خيرا. أرجو أن أكون أحسنت الفهم A_SearchHighlight.rar

يجب كتابة المعادلة بشكل صحيح : (A1 هي الخلية التي تحتوي على الزاوية مثلاً) =SIN(A1*PI()/180)

اخى الحبيب الاستاذ هانى بدر فكرتك صحيحيه بنسبة 100% ولكن دعنى الفت نظركم الى شيى ووجب على ذكره ان طرق تقييم المخزون( FIFO .LIFO .WA) نتائجها واحده فى ظل نظام الجرد الدورى (Periodic Inventory System) ونظام الجرد المستمر (Perpetual Inventory System) فيما عدا طريقة المتوسط المرجح تختلف نتائجها فى النظامين لان المتوسط المرجح يستخدم اذا كنت تعمل بالجرد الدورى فقط واما اذا كنت تعمل بالجرد المستمر فانك لابعد من استعمال المتوسط المتحرك ( متوسط متحرك او جديد ) كما ذكر الاستاذ الفاضل هانى بدر تقبلوا منى تحياتى

استاذى الحبيب هانى بدر انا سعيد جدا بدخول حضرتك على خط النقاش الساخن حول هذا الموضوع اسمح لى وبكل تواضع منى لشخصكم الكربم حركات فواتير المبيعات ومردودات المبيعات لا تؤثر على متوسط تكلفه المخزون بأى طريقه نهائيا طبعا علشان اوصل لحضرتك على اى اساس كتبت الكلام ده لازم لى ساعات علشان اكتب ووضح لحضرتك بالامثله المثال اللى حضرتك بتستشهد بيه اليك المثالين يوضحون الفرق مثال 1 تاريخ الحركه نوع الحركة الكمية السعر القيمة 2015-4-1 مشتريات 10 4 40 2015-4-4 مبيعات 5 5 25 ( ملحوظه هنا سعر البيع طبقا لسياسة الشركه وادارة المبيعات هى من تقرر السعر وبافتراض هنا انها 5 جنية) 2015-4-4 اذن صرف من المخازن 5 4 20 ( هنا تم عمل سعر التكلفه بناء على المتوسط المرجح قيمة المشتريات 40/ كمية المشتريات 10= 4** يعنى تم تقييم المخزون صرفه من المخزن وبسعر المتوسط عند الخروج وليس البيع) 2015-4-15 مشتريات 10 6 60 ----------------------------------------------------------------------------------------------------------------------------------------------------------- المثال 2 تاريخ الحركه نوع الحركة الكمية السعر القيمة 2015-4-1 مشتريات 10 4 40 2015-4-4 مبيعات 5 5 25 ( ملحوظه هنا سعر البيع طبقا لسياسة الشركه وادارة المبيعات هى من تقرر السعر وبافتراض هنا انها 5 جنية) 2015-4-15 مشتريات 10 6 60 2015-4-16 اذن صرف من المخازن 5 5 25 ( هنا تم عمل سعر التكلفه بناء على المتوسط المرجح قيمة المشتريات 100/ كمية المشتريات 20 = 5 ** يعنى تم تقييم المخزون عند صرفه من المخزن وبسعر المتوسط عند الخروج وليس البيع) هنا اصبح قيمة المخزون 5 بدلا من 4 والسبب فى ذالك هى حركة المشتريات بتاريخ 15-4-2015م التى أثرت على التكلفه ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- من المثالين السابقين يتضح لنا ان عملية تقيم تكلفه المخزون مختلفه والسبب هنا هو حركة المشتريات وليس المبيعات علشان كدا انا بقول لحضرتك ان عملية البيع ليس لها اى علاقه بتقييم المخزون لا بطريقه الجرد الدورى ولا طريقه الجرد المستمر طبعا الكلام فى هذا الموضوع كتير جدا وانا سعيد جدا بالنقاش حول هذه النقطه ودار بينى وبين الاستاذ احمد عبدالناصر والاستاذ الحبيب محمد الريفى نقاش طويل حول هذا الموضوع واتمنى مشاركتهم لنا بالنقاش

أخي الحبيب محمد الخازمي .. لابد أن ألوم عليك أن توضح طلبك بشكل أكثر تفصيلاً .. لأن ما تطلبه الآن لم يخطر ببال أحد .. ولذلك دائماً يراعى طرح النتائج المتوقعة إليك الملف التالي وإن شاء المولى يفي بالغرض سيظهر في الخلية E10 آخر اسم تم تسجيله.. Private Sub Worksheet_Change(ByVal Target As Range) Dim X If Not Intersect(Target, Range("B17:B400")) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False X = Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Value Range("B17:B400").Sort Key1:=Range("B17"), Order1:=xlAscending, Header:=xlYes Application.EnableEvents = True Application.ScreenUpdating = True Range("E10").Value = X End If End Sub وأخيراً لا تنسى التوجيهات تقبل تحياتي Last Name Recorded By YasserKhalil.rar

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

اخي الفاضل ياسر خليل المحترم بارك الله بكم وزاد علمكم وانار دربكم . معاذ الله اني اعترض على اقتراحك او تعديلك !!! فانا مجرد تلميذ بالنسبة لكم بالنسبة للكود المرفق بالبرنامج ... قد اكون غيرته بشكل غير مقصود قبل ارساله لكم فهو كان يعمل سابقاً وبالنسبة لي فانا لا اقوم بكتابة الاكواد يدويا ... اي انني اقوم بنسخ الكود الذي يؤدي الغرض واعمل بعض التعديلات عليه بما يناسبني . اما بالنسبة للكود ( المختصر ) الذي ارسلته لي في المشاركة فانه يعمل بكفاءة ... سلَّم الله يديك .

السلام عليكم انا استعمل اوفس 2013 بالتوفيق

جزيت خيراً أخي الغالي حسام عيسى على هذه المعلومات القيمة موسوووووووووووعة

السلام عليكم عندي يعمل بشكل جيد تفضل حسب طلبك بالتوفيق ssm+tast1.zip

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

انت تستاهل كل خير استاذ رمهان بارة الله فيك

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

ا / ياسر و االله قليل عليك ان تحدد الاجابة كافض اجابة المفروض يكون فيه star او اى حاجة زى كده ده انا قعدت ربع ساعة فاتح الملفين علشان افهم بس ايه اللى بيحصل ما بالك باللى عمله روح يا شيخ ربنا يكرمك

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

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

الاخ / سنفور تفضل ما طلبت و لكن هناك ملاحظتين : 1 - فى حالة اختيار الكل سوف يظهر كلمة الكل و يمكن تغييرها فى المعادلة 2 - اما فى حالة اختيار اكثر من قيمة سوف يعطيك قيمة خطأ و يا ريت لو حد من اساتذتنا يعرف يحلنا المعضلة دى بحيث فى حالة اختيار اكثر من قيمة فى الفلتر تظهر القيمتين او اكثر فهل يمكن ذلك اظهار قيمة الفلتر.rar

اخى تم التعديل جرب المرفق Invoice.rar

علشان تضمن ان الترحيل صحيح لابد من وجود الملفين معا فى مسار واحد ( فولدر واحد ) ولابد من فتح الملفين معا وبرضه مش هاتبقى متأكد بنسبة 100 % من صحة الترحيل لانك لو فى مرة نسيت تفتح الفايل التانى ( حسابات العملاء ) مش هايرحل فالاضمن انك تعملهم هم الاتنين فى ملف واحد

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

السلام عليكم ورحمة الله اخي الغالي ابو البراء الله يجزيك خير الجزاء نموذخ آخر للإستفاده كود الاخ الاستاذ الفاضل ابن مصر الله يحفظة عمله علي الخلية A1 وقد قمت بإضافة التاريخ علي الخلية B2 واضفت فورم بالتاريخ والوقت الوقت والتاريخ كود ابن مصر.rar

السلام عليكم يبدو ان هناك مشكلة حدثت للملفات في الترقية الجديدة ويارك الله فيك اخي ضاحي على مجهودك الطيب وهنا الملفات مرة اخرى الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar

السلام عليكم مرحبا بك ياباشمهندس انا أيضا مهندس مدنى أنا حليت لك حل بسيط بدون أكواد أولا نقلت كل البيانات اللي في الورقة الأولي للثانية ثم بإستخدام عمود مساعد به فلتر يتكون فيه أوتومايتك حالة الطباعة الحالة OK تعني أن هذا البيان قد غيره العميل غيره وبالتالي يتم طباعته والحالة Hide تعني أنه لم يتغير يعني صفر يعني لاداعي لطباعته كل ماعليك قبل الطباعة أن تضغط علي السهم في العمود المساعد وتختار حالة OK وكذلك في الورقة الأولي راجع المرفق وأخبرني النتيجة III-05-2.rar