الصـقر

الاخ الكريم نظر لضيق الوقت لدى ارجوا المعذره لكن بدلك على فكره قد تفيدك جرب الاتى Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual With Sheet1 .Select lr = .Range("b100000").End(xlUp).Row With Sheets("ميزان المراجعة").Range("e8:e" & lr) .Formula = "=SUMIFS(قم بتكملة المعادله الازمه .Value = .Value End With With Sheets("ميزان المراجعة").Range("f8:f" & lr) .Formula = "=SUMIFS(قم بتكملة المعادله اللازمه .Value = .Value End With End With Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic هذه الطريقه بنظرى افضل الطرق فهى غير مستخدم فيها حلقات تكراريه ومجربه عندى بالبرنامج والسرعه فوق الخيال ارجوا منك المعذرة وتقبل تحياتى

الاخ الحبيب ممكن حضرتك تدخل على الرابط التالى http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/ ربما تجد ضالتك واى استفسار انا موجود تقبل تحياتى

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

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

استاذى الكريم وبعد اذن الاستاذ ضاحى سوف اقدم شرح بسيط حسب ما يتسع لى الوقت نمسك اول شئ رقم 1 كما هو موضح بالصورة عاليه وهى عباره عن تشيك بوكس جديد وتشيك بوكس بحث وتعديل وطباعه طبعا عند عمل سند صرف وتنشيط الفورم أما نقوم بتسجيل سند جديد او اننا نبحث عن سند ما لتعديله وطباعته أولا الجزئيه الاولى وهى وهى عند ما نريد عمل سند جديد نقوم بالضغط على التشيك بوكس سيظهر لنا علامة صح داخل المربع ويتم تنفيذ الكود تلقائيا ما هو الكود الذى يتم تنفيذه عند الضغط على التشيك بوكس جديد اضغط دبل كليك على التشيك بوكس ستجد الكود التالى Private Sub ChNew_Click() On Error GoTo 1 If ChNew.Value = True Then Clear ChCmdSearch.Value = False ChCash.Value = True CmdSearch.Visible = False TxNo.Visible = True LabNo.Caption = "ÑÞÜÜã ÇáÓäÜÏ / " CmdPrint.Visible = False CmdSave.Visible = True CmdEdit.Visible = False ChCash.Value = True Lpay.Caption = "ÓäÏ ÕÑÝ" CkqTxt.Visible = False Lbl40.Visible = False ChNames.Visible = True L1.Visible = False Chabout.Visible = True L2.Visible = False ChBank.Visible = True L3.Visible = False m = sheet1.[M9] mm = 9 Do Until sheet1.Cells(mm, "a").Text = "" mm = mm + 1 Loop TxNo.Value = mm + 1 - 10 + m TxDate.Text = Format(Date, "yyyy/mm/dd") End If 1 End Sub عندما نريد عمل تشيك بوكس فى الفورم فأن الفيجوال بيسك يقوم بتسمية التشيك بوكس CheckBox1 واذا اردنا رسم تشيك اخر فان الفيجوال بيسك يقوم بتسميته تلقائيا CheckBox2 فالاستاذ ضاحى بعد ما رسم عدد 2 تشيك بوكس قام بتغيير الاسم CheckBox1 تم تغيير الاسم " name" الى ChNew CheckBox2 تم تغيير الاسم " name" الى ChCmdSearch وللتاكد من ذالك قم بالوقوف على التشيك بوكس جديد ستجد فى الخصائص اول سطر هو ( Name) وبجواره ChNew وكذالك بكل الادوات والازرار الموجوده بالفورم الاسم ChNew الذى قام بتغيره الاستاذ ضاحى هو الاسم الذى يعتمد علية فى كتابه الاكود فلولاحظنا بالكود عاليه اول سطر Private Sub ChNew_Click() ستجد ان الاسم هو ChNew وليس CheckBox1 ثم بعد ذالك السطر التالى On Error GoTo 1 وهو يعنى ان فى حال حدوث اى خطأ يقوم الكود بالانتقال الى رقم 1 ثم يستأنف عمله 1 End Sub فحينما يحدث خطأ ما بالكود وينتقل الى رقم 1 ثم يباشر الكود تنفيذ مهامه سيجد نفسه وصل الى End sub نهاية الكود بعد كدا السطر التالى If ChNew.Value = True Then تم استخدام if لو كان التشيك بوكس اللى هو اسمه " ChNew" يساوى true أى تم الضغط عليه وعمل علامه صح then نفذ ما يلى Clear Clear هنا تشير الى كود موجود بالفورم لو بحثت عنه ستجد هذا الكود كان ممكن يكون السطر بالشكل التالى Call Clear بمعنى وضع كلمة Call قبل Clear وهى تعنى الاتصال بالكود Clear لتنفيذه فيقوم الكود الاساسى بعمل توقف مؤقت ويذهب الى الكود Clear لتنفيذه ثم يعود لاستئناف الكود مره اخرى بعد الانتهاء منه الكود Clear هو Sub Clear() TxNo = vbNullString TxDate = vbNullString TxName = vbNullString TxDescription = vbNullString TxAmount = vbNullString TxChDate = vbNullString TxChBank = vbNullString TxChNo = vbNullString ChCash.Value = False ChChaqe.Value = False TxDate.Text = Format(Date, "yyyy/mm/dd") End Sub طبعا لازم نشرح كل سطر بهذا الكود وهو كود Clear بختصار TxNo هو اسم تكست بوكس وقام الاستاذ ضاحى بتغيير اسمه كما وضحنا سابقا طيب اين هو هذا التكست لو نظرت للفروم ستجد رقم السند / وبجواره كمبوبكس لو قمت بتصغير الكمبوكس ستجد تحته تكست بوكس لو وقفت علية ونظرت لخصائصه ستجد اسمه ( Name ) هو TxNo طيب سؤال واحد هيقولى هو ليه واضع التكست بوكس والكمبوبكس فى التصميم فوق بعض الاجابه هى عند الضغط على جديد سيظهر التكست بوكس وبه رقم السند ويختفى الكمبوبكس وعند الضغط على تشيك بحث يظهر الكمبوبكس لاختيار رقم السند المراد البحث عنه ويختفى التكست بوكس طيب ماذا يعنى هذا السطر TxNo = vbNullString هو يعنى افرغ محتوى التكست بوكس اللى هو اسمه TxNo يعنى جعله فارغ وكان ممكن يكون بالشكل التالى TxNo = "" وكان ممكن يكون كدا TxNo = Empty لكن الاستاذ ضاحى كتبه بهذه الطريقه TxNo = vbNullString وكما قلت ان كل هذه الاسطر تعنى جعل التكست فارغ ليكون جاهز لكتابه شئ جديد به من قبل المستخدم وهكذا باقى الاسطر بالكود حتى نصل الى ChCash.Value = False ChChaqe.Value = False السطرين السابقين التشيك بوكس رقم 3 والتشيك بوكس رقم 4 قم بالوقوف على تشيك بوكس نقدا وانظر بالخصائص ما هو اسمه ستجده ChCash وايضا قم بالوقوف على تشيك بوكس شيك وانظر بالخصائص ما هو اسامه ستجده ChChaqe يبقى احنا عرفنا ماذا يعنى ChCash وماذا يعنى ChChaqe طيب عند الضغط على تشيك بوكس جديد نريد ان يكون التشيك بوكس نقدا والتشيك بوكس شيك بدون علامة صح ليكون جاهز امام المستخدم الخيارين ليختار اى منهما ولجعل التشيك بوكس بدون علامه صح قلنا انه = False ChCash.Value = False ثم ننتقل الى السطر الاخير وهو TxDate.Text = Format(Date, "yyyy/mm/dd") TxDate هو تكست بوكس بتاع التاريخ وكما قلنا سابقا كيف يتم تغيير مسمى التكست بوكس الى اى مسمى نريده ولكن بشرط بعد التغيير للاسم لازم نلتزم به فى كتابته داخل الاكواد فهنا التكست بوكس بتاع التاريخ اسمه TxDate طيب ليه كتب TxDate.Text .Text لاننا عندما نتعامل مع تاريخ نتعامل معه كانه نص ثم قلنا = Format(Date, "yyyy/mm/dd") يعنى ادرج تاريخ اليوم بالتكست بوكس وبالتنسيق التالى "yyyy/mm/dd" ثم يتنهى الكود بتاع Clear ويعود الكود الى الكود الاصلى وهو Private Sub ChNew_Click() لو رجعنا للكود سنجد اننا قمنا بشرح الاسطر التالية Private Sub ChNew_Click() On Error GoTo 1 If ChNew.Value = True Then Clear ان شاء الله المره الجايه سنبدء من هذا السطر ChCmdSearch.Value = False اتمنى ان اكون وفقت بشرح تقبلوا تحياتى اخوكم حسام

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

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

الاخوة الاعضاء يمكن مراجعه الراوبط التالى لكى يتم تشغيل اى ملف exe على جهازك https://support.microsoft.com/ar-sa/kb/950505 http://www.solvusoft.com/ar/file-extensions/file-extension-exe/ http://www.traidnt.net/vb/traidnt2201842/

طيب حضرتك نزل البرنامج ده اللى بالمرفق شوف هينزل معاك او لا ولو نزل عاود حمل البرنامج مره اخرى XLtoEXE.zip

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

الاخ احمد عبده عند التنزيل ستظهر رساله اختر كنسل ثم رساله اخرى اختار اوك ممكن اعرف نسخه الاوفيس اللى بتشتغل عليها

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

بسم الله الرحمن الرحيم الاخوة والاخوات فى هذا الصرح العظيم أقدم لكم اليوم الاصدار الثالث من برنامج EMA يشمل جميع الامور المحاسبيه هذه النسخه نسخه تجريبيه يرجى من الاخوة المحاسبين والمهتمين بالامور المحاسبية التجربه والتقييم للوصول الى الافضل ان شاء الله بنزل الشرح عن كيفية الاستخدام والتعامل مع البرنامج اى سؤال أو استفسار لا تترد وأنا تحت امركم كلمة المرور - الدعم الفني الباسورد - 123 تفضل نسختك EMA.zip

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

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

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

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

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

اخى الحبيب اهلا بك فى اوفيسنا يرجى مراجعه التوجيهات على الرابط التالى http://www.officena.net/ib/topic/63020-المشاركة-في-إرساء-قواعد-وتوجيهات-للأعضاء-ليسير-الجميع-على-دربها/ ورجاء من حضرتك ارفاق الملف للعمل وفهم ما تريد حتى يتقنى للاستاذة بالمنتدى خدمتك تقبل تحياتى

الاخ الحبيب محمد الخازمى وبعد اذن استاذى الفاضل خالد الرشيدى هذه العباره سوف تتفادى الفرز بمعنى ان الخطأ كان يقع بالكود بعد السطر Range("C11:M86").Select هنا عند وصول الكود لهذا السطر وتتم عملية التحديد للنطاق المذكور يأتى الكود الموجود بحدث الورقه ويقوم بمهمته بعد التحديد ثم يقوم بحماية الورقه ثم بعد ذالك يرجع الكود الاصلى فى اكمال مهامه فيأتى عند هذا السطر Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal وهذا السطر مهمته هى عملية الفرز للنطاق الذى تم تحديده مسبقا وعند تنفيذه سيجد الشيت محمى فهنا يحدث error للكود فلو وضعنا هذا السطر كما تفضل استاذى خالد الرشيدى On Error Resume Next سوف يقوم الكود بالقفز الى السطر التالى لسطر الفرز ولا يقوم بمهمة الفرز وطبعا السطر التالى هو ActiveSheet.Protect "1234" End Sub اعتذر لاستاذى خالد الرشيد ولكن حبيت ان اوضح للاخ محمد الخازمى من اين ياتى error تقبلوا تحياتى واحترامى

الاخ الحبيب ضع هذا السطر فى الكود ActiveSheet.Unprotect "1234" بعد هذا السطر Range("C11:M86").Select وذالك لان الكود اللى بحدث الورقه يعمل عند تغيير التحديد للخلايا فيقوم بعمل الحمايه للورقه لذالك يجب بعد سطر التحديد بالكود نرجع نفتح الحمايه مره اخرى تقبل تحياتى

الاخ الكريم يوجد كود فى حدث الورقه واحد عند تغيير التحديد قم بحذفه ( مش عارف ايه الفايده من وجوده ؟ ) عموما قم بالحذفه كما قلت ستجد الكود يعمل تمام تقبل تحياتى

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

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

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