gamalin

الاخوة الافاضل اكرمكم الله لدي ملف استخدم فيه advanced filter واقوم بتنفيذه لمرات عديدة باستخدام الماكرو بالكود التالي Sub mg() ' ' mg Macro ' ' Range("A4:S1039").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("ãÝÑÏÇÊ!Criteria"), Unique:=True ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 1 End Sub ولالغاء الفلترة قبل تنفيذها من جديد استخدم الكود التالي Sub mg2() ' ' mg2 Macro ' ' ActiveSheet.ShowAllData End Sub وتم ربط الكودين معا ليعملوا تلقائيا عند التغيير في بيانات الصفحة بحيث يتم تنفيذ اظهار كل البيانات اولا ثم عمل الفلتر بالكود التالي Sub mmm() ' ' mmm Macro ' ' Application.Run "ãÍãÏ.xls!mg2" Application.Run "ãÍãÏ.xls!mg" End Sub المشكلة انه في حال ظهور كل البيانات وتغيير اي بيان في الصفحة اي عند تنفيذ الماكرو mg2 والبيانات كاملة يتوقف ويعطي رسالة خطأ فهل يمكن عمل شرط على الكود السابق انه في حال ظهور كل البيانات لا يتم تنفيذ الماكرو mg2 ويتم تنفيذ mg فقط وفي حال انه يوجد فلتر منفذ بالفعل يتم تنفيذ mg2 ثم mg ارجو الاهتمام وسرعة الرد اشكركم

أخي هذه اامور تاتي مع الخبرة و مع متابعة الحلول اما الكتب و الشروحات فمعظمها نظرية و ليست عملية هنا نقف برهه بعد اذن الاخ الغالي نرجوا وضع مثال لاستخدام * بمعنى and + بمعنى or لنستوعبها اخي راجع الشرح في هذا الرابط و ستجد الجواب ان شاء الله اين الرابط اخي الكريم

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

هنا نقف برهه بعد اذن الاخ الغالي نرجوا وضع مثال لاستخدام * بمعنى and + بمعنى or لنستوعبها

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

جزاكم الله خيرا موضوع جديد وجميل وافادة عظيمة بارك الله فيكم جميعا وهذه المعلومة قيمة جدا ومفيدة جدا بالنسبة لي

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

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

اشكرك اخي الكريم شكرا جزيلا لكن هل الدالة mround موجودة باكسل 2003 تحديدا لاني احتاج اليها وبحثت عنها ولم اجدها

الوظيفة mround الموجودة باكسل 2007 وغيرها من الوظائف الموجودة هل يمكن استخدامها في ملفات 2003 او نقلها كبرامج ودوال منفصلة add in مثلا يرجى الافادة الموضوع هام جدا رجاء سرعة الرد

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

اخي اذا امكن التواصل عبر الميل mohd_25_10@hotmail.com

اخي جزاك الله خيرا لقد قابلت الاختبار هذا في النت كثيرا ولكن وجودة في ملف اكسل بطريقة الحساب هذه رائع ويسرع تطبيقه وحسابه جزاك الله خيرا سؤال هل انت متخصص بمثل هذه الاختبارات او العلوم mohd_25_10@hotmail.com

جزاك الله خيرا اخي وياترى في اي امكانية للتواصل للاستفادة من المعلومات القيمة بالملف mohd_25_10@hotmail.com

رائع جزاك الله خير

اخي ابو اسامة اشكرك شكرا كثيرا تمكنت من تعديل الكود ليصبح كالتالي ويعمل بنجاح اشكرك Sub onChange() Dim cell As Range Dim myt As Range Application.EnableEvents = False For Each cell In Sheets("ÝæÇÊíÑ ").Range("b2:b65500") Set myt = Range("c63").End(xlUp) If myt.Value = cell.Value Then For i = 1 To 13 myt.Offset(0, i).Value = cell.Offset(0, i + 2).Value myt.Offset(0, -1).Value = myt.Row - 13 Next Exit For End If Next Application.EnableEvents = True End Sub

اخي ابو اسامة كنت قد اخبرتني عن كود بيسرع تنفيذ الاكواد ياترى ممكن لانه مازال تنفيذ هذا الكود بطيء جدا على ما ينقل التركيز لخليه جديدة يأخذ وقت طويل جدا اخي اعتقد ان البطئ في في الكود لدي نابع من السطر التالي For Each cell In Sheets("فواتير ").Range("b2:b65500") لانه حتى بعد ان يجد قيمة ويستكمل البيانات يظل ينفذ الحلقة الى نهاية المدى b2:b65500 هذا وفق فهمي فاعذرني فهل هذا صحيح وان كان صحيح فهل يمكن جهل الحلقة تتوقف بمجرد ان يجد قيمة ويأتي ببياناتها ملاحظة الكود كامل في الاسطر التالية ولكم وافر التحية والاحترام Sub onChange() Dim cell As Range Dim myt As Range Application.EnableEvents = False For Each cell In Sheets("فواتير ").Range("b2:b65500") For i = 1 To 13 Set myt = Range("c63").End(xlUp) If myt.Value = cell.Value Then myt.Offset(0, i).Value = cell.Offset(0, i + 2).Value myt.Offset(0, -1).Value = myt.Row - 13 End If Next Next Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range Dim myt As Range Application.EnableEvents = False For Each cell In Sheets("ÝæÇÊíÑ ").Range("b2:b65500") For i = 1 To 13 Set myt = Range("c63").End(xlUp) If myt.Value = cell.Value Then myt.Offset(0, i).Value = cell.Offset(0, i + 2).Value myt.Offset(0, -1).Value = myt.Row - 13 End If Next Next Application.EnableEvents = True End Sub هذا الكود لاخي ابو اسامة هذا الكود يتم تنفيذه كلما حدث تغيير في الشيت اريد تعديله ليعمل كلما حدث تعديل في خلايا محدده في مدى معين مثلا من c3 الى c10

3

3

3

اخي الحبيب ابو اسامة وباقي الاخوة ارجو بحث هذ الامر او الرد

اخي ابو اسامة رجاء بحث هذا الامر او الرد وكذلك باقي الاخوة الكرام

اخي ابو اسامة رجاء بحث هذ الامر او الرد وكذلك باقي الاخوة الكرام

للرفع