الـعيدروس

وانا بعد جربت شغال اخي الفاضل تحياتي

السلام عليكم جميلة جدا اخي الحبيب يحياوي بصراحة كذا توم وجيري بيرفعو عليك قضيه قاعد اطارد ( لا ) مصيبه ههههههه تحياتي

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

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

السلام عليكم الاخوة الاساتذة لدي استفسار حول عمل معادلة عند شريط المعادلة للاسفل تقوم بحساب مثال كالاتي فرض ان المعادلة في ورقة2 تقرا من ورقة1 =IF(ورقة1!B6>0;ورقة1!B6;"") مااريده عند سحب المعادلة لاتعطيني =IF(ورقة1!B7>0;ورقة1!B7;"") اريد كل مااسحب تعدي اربعه صفوف يعني يكون الناتج هكذا =IF(ورقة1!B10>0;ورقة1!B10;"") عدد الاسماء تفوق الـ 500 فيأخذ وقت لتعديل كل معادلة ارجو من خبراء المعادلات التكرم بإعطاء الحلول والسلام عليكم وهذا مثال المرفق سحب لـ 4 خلايا.rar

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

السلام عليكم الاخوة الاعزاء حفظكم الله هذا كود لتقييد التمرير بين صفوف والاعمدة ScrollArea ماعدا ثنايا الصفوف التي بها بيانات زايد صف فارغ و عمود فارغ افادني الكود في تقليص كبر حجم ملف الاكسل بالاستخدام الخاطئ وهو استخدامي طريقة التمرير السريع بين البيانات (الكنترول + الاسهم ) عند استخدامي للاختصار اكثر الاحيان اتاري وانا في الصف 65536 والاكسل كل حركه فيه بحسابه بمعنى يحسبه كيلو بايتات مافيه وقت المعذرة على الاطالة هذا هو الكود في حدث الشيت Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LastColumn As Integer Dim LastRow As Long If WorksheetFunction.CountA(Cells) > 0 Then LastRow = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row If LastRow <> 65536 Then LastRow = LastRow + 1 LastColumn = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Column If LastColumn <> 256 Then LastColumn = LastColumn + 1 Me.ScrollArea = Range(Cells(1, 1), Cells(LastRow, LastColumn)).Address Else Me.ScrollArea = "" End If End Sub تحياتي

السلام عليكم اللهم علمنا ماينفعنا هذا كود تحديد مدى ليعمل ماقلت عنه ولاكن بهذه الصيغة 010109 اي 01/01/2009 تكتب التاريخ ارقام متواصله وهو يقوم بعمل (/) علامة فواصل التاريخ ولاكن رجائي من الاساتذه الخبراء التعديل عليه كي يقوم بالفصل في حالة كتابة التاريخ كامل بمعنى في حالة 8 ارقام الاحتمال الحقيقي 01032011 يعني 01/03/2011 حاولت اعدل عليه ولم انجح على العموم هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim StrVal As String Dim dDate As Date If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub With Target StrVal = Format(.Text, "000000") If IsNumeric(StrVal) And Len(StrVal) = 6 Then Application.EnableEvents = False If Application.International(xlDateOrder) = 1 Then dDate = DateValue(Left(StrVal, 2) & "/" & Mid(StrVal, 3, 2) & "/" & Right(StrVal, 2)) Else dDate = DateValue(Mid(StrVal, 3, 2) & "/" & Left(StrVal, 2) & "/" & Right(StrVal, 2)) End If .NumberFormat = "dd/mm/yyyy" .Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate))) End If End With Application.EnableEvents = True End Sub تحياتي

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

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

اخي عبدالقادر انسى تفضل هذا المرفق وابلغني هل زبط ام لا حسابات المحل.alidroos5.rar

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

السلام عليكم اخي عبدالقادر هذه محاولة جرب ان اشتغل معك او اعطيك محاولة اخرى وهي مجرد ماتظهر الرساله اعطيه اوك وبعدها خش على قائمة الاكواد اختصارها alt + F11 وبعدها تشوف قائمة مسماها Tools ومنها References والسطر االذي يظهر امامك مضلل عليه او مؤشر عليه الغي التحفيز منه و ان شاء الله يمشي الحال بعدها والله اعلم حسابات المحل.alidroos4.rar

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

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

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

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

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

السلام عليكم تم تنصيب اوفيس 2007 تفضل اخي والسموحه منك على التأخير كنت مشغول ولم ارى مشاركتك الا متأخراً أرجو أن يكون هكذا حسابات المحل.alidroos2.rar

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

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

السلام عليكم اخي عبدالقادر اطلع على المرفق علا وعسى يكون المطلوب الجمع لتقرير التاريخ المحدد حسابات المحل.alidroos1.rar

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

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

السلام عليكم الاستاذ الحبيب يحياوي الاخوة الافاضل اريد عمل شرط لكود جعل الفورم في المقدمه بمعنى يشتغل في المقدمه وفي الخلف الشرط على اي اداة مثلا ret = SetWindowPos(formHWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) OptionButton1 يقوم بجعل الفورم في مقدمة البرامج ret = SetWindowPos(formHWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) OptionButton2 يقوم بجعل الفورم خلف البرامج حاولت اعمل شرط في حدث UserForm_Initialize لايتقبل الشرط لماذ لاادري