amoudi

السلام عليكم اخي ابو هاجر مشكور على مجهودك الكبير لي ملاحظة على هذا الجزء قد يفهم بشكل خاطي . للتوضيح ال RANGE (B1:C1 ، E1:F1 ) عبارة عن المدى من الخلابا B1:C1 الى مدى من الخلايا E1:F1 فهو الى وليس و يعن نقدر نقول Range(Start,End) eg وال End اختياري فالموضوع ليس يقبل اثنين او ثلاثة ولكنه من الى فقط فلو وضعت(" Range("A1","Z1 فمعناه من A الى Z وليس AوZ لكن لو كتبت(" Range("A1,Z1 فمعناه A وZ وبهذا ممكن تكتب( "Range("A1,B2,C3:C10,D8,AB5,F3:G8 يعني مدى متقطع ارجو اكون وفقت اوصل معلومة تحياتي

السلام عليكم اذا اعدادات الفورمات في جهازك عربي فأنت ما تحتاج تعدل اي شي عند استخدام مخصص واعدادتك انجليزي وتريد فورمات لتاريخ عربي تستخدم B2 والعكس تستخدم B1 تحياتي

السلام عليكم تجاوبا مع الموضوع في http://www.officena.net/ib/index.php?showtopic=27133 اضع الكود الموجود في المرفق ب Private Sub Workbook_Open() Sheets("sheet1").Range("A6").Formula = "=Now()" End Sub او Private Sub Workbook_Open() [sheet1!A6] = "=Now()" End Sub

السلام عليكم اضافة للفائدة Cells(i, 2).Select يتم تحديد او الوقوف علي الخلية التي في العمود الثاني من الصف If Selection.Value > 0 Then اذا كانت قيمة الخلية المحددة اكبر من صفر يختصر الى If Cells(i, 2).Value > 0 Then طيب لو واحد قال ايش الفائدة بس اختصار سأقول لا هذا الكود Application.ScreenUpdating = False Application.ScreenUpdating = True هذا الكود خلاص ما احتاجة وامسحة. Sheets("si").Select Sheets("si").Range("E6").Select يختصر ب Application.Goto Sheets("si").Range("E6") تحياتي

السلام عليكم اضافة بالمعادلات السنة (()YEAR(TODAY= الشهر (()MONTH(TODAY= اليوم (()DAY(TODAY=

File>Save Workspace

السلام عليكم اعتقد فقط اضف 60 الى سنة الميلاد وتحصل على التاريخ ممكن يكون زي كده ((DATE(YEAR(D5)+60,MONTH(D5),DAY(D5= تحياتي

السلام عليكم بعد اذن اخي نزار اذا كان مافهمت فالخطوات هي تفتح الملفات س ص ع ج وحين تكون فتوحة جميعا تذهب لقائمة ملف ف ي واحد منهم وتختار حفظ مساحة العمل وتضع اسم الملف ك والآن عند فتح ك سيفتح جميع الملفات س ص ع ج تحياتي

ممكن كمان اختصار الكود ب Private Sub Form_Current() Dim cntl As Control For Each cntl In Me.Controls If cntl.ControlType = acTextBox Or cntl.ControlType = acComboBox Then cntl.Locked = Not IsNull(cntl) End If Next End Sub

السلام عليكم اضافة للفائدة هذا الكود m = Target.Value تعريف نخزن به قيمة الخلية المحددة اذا انطبق عليها الشروط السابقة Target.Value = m + Cells(Target.Row, Target.Column - 1).Value قيمة الخلية المحددة يساوي قيمة المعرف السابق و هو M يضاف اليه قيمة الخلية التي في صف الخلية المحددة و العمود الذي قبلها مباشرة يختصر ب Target.Value = Target.Value+ Cells(Target.Row, Target.Column - 1).Value يعني المتغير ما له داعي تحياتي

عزيزي خبور خير بصراحة انا كنت منتظر منك تقول معليش هذه غلطة هذه الجزئية مالها داعي انت تقول 1=1 طيب اصلا الواحد هو واحد تحياتي

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

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

اخي عمر جزاك الله خير على مجهودك . للمعلومية لخلية اليوم علشان يطلع عربي مثل الثلاثاء الأربعاء خليها على مخصص ( B2(ddd تحياتي

For T = 5 To 29 If ورقة1.Cells(T, 5) <> "" Then If ورقة1.Cells(T, 4) <> "" Then MySheet = ورقة1.Cells(T, 4) Else MySheet = MySheet With Sheets(MySheet) LAST = .Cells(.Rows.Count, 5).End(xlUp).Row + 1 For R = 1 To 7 CR = Choose(R, 2, 3, 5, 6, 7, 8, 9) .Cells(LAST, R + 1) = ورقة1.Cells(T, CR) Next R End With End If Next T الكود واضح ماعدا Else MySheet = MySheet

اخي الكريم بالنسبة لعمر الطالب تفضل ملفك بالمعادلات و مضبوطة انشاء الله 22_1.rar

السلام عليكم اخي الكريم على حسب طلبك بالمرفق تم عمل كل المطلوب تحياتي Test_1.rar

فكرة طيبة

السلام عليكم باسوورد على ايش؟؟؟

السلام عليكم اخي الكريم بدل ما تعدل التاريخ ضيف يوم على التاريخ داخل الدالة (datedif(first Date,TODAY()+1 تحياتي

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

السلام عليكم جزاك الله خير

السلام عليكم تفضل الملف المرفق في توضيح كافي تحياتي ____________.rar

السلام عليكم ما القصد من بالأيام هل تقصد مثلا 320 يوم او تقصد كذا سنة وكذا شهر وكذا يوم تحياتي

السلام عليكم اخي الكريم استخدم دالة DATEDIF اسهل لك تحياتي