الصـقر

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

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

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

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

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

تفضل اخى الحبيب الملف يعمل مع الصفوف جرب وعلمنى اوفسينا2.zip

بعد اذن الاستاذ ياسر اخى الكريم جرب المرفق ربما يحلو لك اوفسينا2.zip

اخى الحبيب عبدالعزيز ما شاء الله روعه بل روعه الروعه زادكم الله من علمه وفضله وحلمه تقبل تحياتى

متخلنيش اقلب عليك يا بتاع الالوان اياها

اخى الكريم جرب المعادله دى فى الخلية j3 وسحبها نزولا لاسفل =IF(MAX(G3;E3;C3)=C3;$B$1;IF(MAX(G3;E3;C3)=E3;$D$1;IF(MAX(G3;E3;C3)=G3;$F$1))) جرب وعلمنى تقبل تحياتى

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

الاخ الحبيب وائل طبعا الكود ده للعلامه القدير استاذى / عبدالله باقشير حفظه الله الكود وظيفته ان يمنع فتح الاكسيل فى حال عدم تفعيل الماكرو والكود ده وضعه بالملف سهل جدا لكن ازالته صعبه جدا عايزه حرفيه شوية زى كدا عملية فصل الجنين عن الام وممكن كمان تضحى بالام علشان الجنين يعيش او تضحى بالجنين علشان الشعب يعيش يعنى موضوع ازالته عايز جراح وجراح ماهر وبما انك حولت الملف الى ملف تنفيذى فأصبح الكود ليس منه فائده لان الملف التنفيذى هيشتغل سوء الماكرو مفعل او غير مفعل فخد اسهل الحلول لحل هذه المشكله مش هنلجأ لحذف الكود لكن هنخليه ممكن تفكر ترجع الملف الى اكسيل مره اخرى فبالتالى هتحتاجه الحل زى ما بيقولو كدا زى شكة الدبوس فى الكود التالى Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub قوم بحذف السطر التانى من الكود اللى هو kh_wVisible False او ممكن متحزفش بس تعطله تحط على اليسار هذه العلامه ' كالتالى ستجد لون الكود اصبح اخضر 'kh_wVisible False جرب وعلمنى تقبل تحياتى

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

اخى الكريم اسف جدا نظر لضيق وقتى لانى بالدوام جرب هذا الحل 0 يعنى اجعل تنسيق التاريخ رقم يعنى تاريخ اليوم على سبيل المثال 29-10-2015م هذا التاريخ كرقم يساوى 42306 ------------------------------------------------- بالنسبه لطلبك الثانى تعبئة الكمبوبوكس بالاشهر جرب هذا الكود فى حدث الفورم Private Sub UserForm_Initialize() For i = 1 To 12 ComboBox1.AddItem Format(DateSerial(2015, i, 1), "mmmm") Next i End Sub ----------------------------------------------------------------------- الطريقه الاخرى وهذا الكود لو حبيت يكون للكمبوبوكس عدد 2 عمود عمود فيه اسماء الشهور واخر فيه ارقام الشهور Private Sub UserForm_Initialize() With ComboBox1 For i = 1 To 12 .AddItem Format(DateSerial(2015, i, 1), "mmmm") .List(.ListCount - 1, 1) = Format(DateSerial(2015, i, 1), "mm") Next i End With End Sub وضع هذا الكود ايضا Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value End Sub ومتنساش فى الخاصيه Bound Column للكمبوبوكس توضع رقم 2 وايضا الخاصيه Column count للكمبوبوكس توضع رقم 2 انصحك تراجع شروحات الفورم ستستفيد اعذرنى لضيق وقتى كنت عايز ارفق لك فورم عليه التضبيق تقبل تحياتى

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

الاخ الحبيب هذا هو رابط برنامج EMA http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/?page=1

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

اسعد الله صباحك يا عم ياسر

تـهـنـئـه اخى وحبيبى واستاذى ابوعيد الف مليون مبروك ترقيه مستحقه عن جداره اتمنى لك دوام التقدم والرقى تقبل تحياتى

استاذى الحبيب مرحبا بك فى جامعه اوفيسنا بعد ان اطلعت على صفحتك الشخصية بالمنتدى فلقيت ان حضرتك مدير مالى فما رائيك تجربة هذا البرنامج http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/ شوف هيعجبك او لا فيه كل اللى انت عايزه تقريبا لو عجبك البرنامج قولى وانا ابعتلك احدث نسخه له ولو مش عجبك مفيش مشكله انا او غير من الاعضاء بالمنتدى لو عندنا متسع من الوقت لن نبخل عليك ولكن نصيحه من اخ لك اطلب طلب طلب حتى يسهل لمن يريد المساعده تقديم يد العون لك ملحوظه على الهامش تاريخ اشتراك بالمنتدى من شهر 4 والان بشهر 10 يعنى ست شهور بالمنتدى ودى اول مشاركه لك بالمنتدى وكما تفضلت وقلت انك استفد كتير من المنتدى لم يخطر ببالك ولو مره تكتب اى تعليق على اى مشاركه انت استفد منها ومريت عليها عملتلك اول طلب كدا على السريع فى شيت المبيعات طلبك بخصوص الكمية المتاحه فى الخلية D4 قم بنسخ المعادله التالية واسحبها نزول للاسفل وشاهد النتيجة ستجد ان الكمية تتناقص عند بيع كمية =LOOKUP(C4;'قائمة الاصناف'!$B$4:$B$1000;'قائمة الاصناف'!$E$4:$E$1000)-SUMIFS($F$3:F3;$C$3:C3;C4) تقبل تحياتى

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

جرب هذا الملف ايضا للقدير استاذى سليم حاصبيا تغيير اللغة اوتوكاتيكياً.rar

اخى الكريم الكود يعمل تمام شاهد الملف المرفق مسافه بادئه للتكست.zip