نجوم المشاركات

السلام عليكم عندنا جدول من صفوف كثيرة بحيث لا تتسع لها صفحة واحدة كيف نقوم بطباعة كل عدد محدد من الصفوف (انت تختاره) مع جمع الارقام في كل ورقة طباعة في اسفلها و تكرار رأس الجدول في كل ورقة طباعة و اذا كانت قسمة عدد الصفوف على العدد الذي اخترته لا تساوي عدداً صحيحاً كيف يتصرف الاكسل كل ذلك في هذا الملف Smart_Printing.xlsm

كيف نجعل الخلية تتمرد على تحديدها و تنتقل مع محتوياتها الى العامود المجاور(هروباً من التحديد) شاهد هذا الملف Go_Away.xlsm

فقط اكتب للاكسل ما تريد ان تبحث عنه واضغط الزر Run حرب هذا الملف Saerch_expressions.xlsm

الكثيرون لحماية الخلايا يستعملون حماية الشيت (Protect Sheet) لكن في نطاق معين (تختاره بواسطة الكود) كيف يمكن ان نستعمل الخلية مرة واحدة فقط بحيث لا يمكن مسحها ولا التعديل عليها فيما بعد الا اذا تم توقيف الكود عن العمل كل ذلك بدون ( Protect Sheet) الكود Option Explicit Dim Old_value Dim New_value Private Sub Worksheet_SelectionChange(ByVal Target As Range) Old_value = Target.Cells(1, 1).Value End Sub '============================================== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Final_Step If Intersect(Target, Range("A1:F12")) Is Nothing Then GoTo Final_Step New_value = Target.Value If Old_value = "" And Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" Then Target.Value = New_value Else Application.Undo End If Final_Step: Application.EnableEvents = True End Sub الملف تحت التصّرف Protect_without Protect.xlsm

السلام عليكم لدي نموذج فية اكثر من دالة واكواد والاستاذ ali mohamed ali كان له الفضل ومد يد العون الي بقيت مشكلة صغيرة حيد فتح صفوف وبدون ادخال اسم المتسابق في ( B ) او وقت الوصول في ( D ) تظهر الدالة خطا ( #N/A ) المطلوب / احتاج الى طريقة ادخال القيمة في العمود ( B ) فتظهر الدوال في الاعمدة ( I+ H + G + F+E ) او جعل الدوال الخطا #N/A تضهر في الاخير مع الاحتفاظ بكود الاستاذ علي الترتيب تنازلي تحكيم سباق.xlsm

هل خطر على بالك ان تنشأ قائمة منسدلة متناقصة و مطاطة في نفس الوقت متناقصة: بمعنى انه اذا اخترت منها اي اسم يخرج هذا الاسم من محتوياتها وتتم كتابته في العامود المجاور في أول صف فارغ مطاطة: بمعنى انها تستجيب لاي تعديل في البيانات مع تجاهل الفراغات والتكرار الملف مرفق special_drop_down.xlsm

السلام عليكم اضع بين ايديكم برنامج خاص بالمعلمين والاجازات المرضية والعرضية واللجان حسب النظام المتبع في بلدنا الاردن اتمنى لكم الفائدة اجازات المعلمين.accdb

ان شاء الله يتم الرد من الخبراء الله لة يحرمنا منهم

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

ههههههه فعلاً التحديد الهارب مفارقة معبرة للغاية عن مضمون الملف

تفضل طالما انك لم تقم برفع ملف فعملت هذا الملف لك Sorting Combobox .xlsm

ربما يكون المطلوب working_hours.xlsx

تفضل لك ما طلبت ورقة عمل Microsoft Excel جديد __.xlsm

وهذه طريقة اخرى بخاصية تقسيم النص في أعمدة مختلفة https://support.office.com/ar-sa/article/تقسيم-النص-في-أعمدة-مختلفة-باستخدام-«معالج-تحويل-النص-إلى-أعمدة-30b14928-5550-41f5-97ca-7a3e9c363ed7 11.xlsx

تفضل 11(1).xlsx

الكثير يتساءل عن كيفية حساب فاتورة الكهرباء مع شطورها مثلاُ دون 70 كيلو واط السعر 5 جنيه من 71 كيلو واط الى 80 السعر 8 جنيه من 81 كيلو واط الى 200 السعر 15 جنيه من 201 و ما فوق 17 جنيه كيف نحسب الفاتورة اذا كان الاستهلاك 550 كيلو واط مثلاً هذا الملف يجيب عن هذا السؤال الكود Function My_Facture(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long '''''''''''''''''''''''''''''''''''''''''' Select Case Myfact Case Is <= 70 How_Many = Myfact * n1 Case Is <= 80 How_Many = (70 * n1) + (Myfact - 70) * n2 Case Is <= 200 How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3 Case Is > 200 How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4 End Select My_Facture = How_Many '''''''''''''''''''''''''''''''''''''''' End Function الملف مرفق Facture_Electrique.xlsm

وهذا كود بدون ما تسجل اسم المسار فقط تحطه جوار البرنامج وتسجل اسم البرنامج بدون المسار ويشتغل من اي مكان فقط انه يكون بجواره Dim xlApp, xlBook dim fso dim curDir set fso = CreateObject("Scripting.FileSystemObject") curDir = fso.GetAbsolutePathName(".") Set xlapp = CreateObject("Excel.Application") xlapp.Visible = false Set xlBook = xlApp.Workbooks.Open(curDir & "\Projram.xlsb")

شكرا اخي

استخدم هذا الكود تحث امر الكود Me.su = DLookup("[sum]", "q1", "num=" & [numm] & "") على افتراض su هو اسم مربع النص المراد اظهار الجمع فيه

جرب هذا من أعمال استاذنا الكبير ياسر خليل له منا كل المحبة والإحترام بعد فك الضغط ستجد مجلد باسم Files به ملف الإكسيل وملف VBS .. قم بفتح الملف VBS باستخدام الـ Notepad ثم عدل المسار في السطر الثالث .. ستجد اسم المستخدم Future قم بتغيير اسم المستخدم ليناسبك ثم بعد ذلك قم بفتح ملف الإكسيل Test منع اكسيل 2016 من عرض شاشة البدء الافتراضية الخضراء...او الصفراء 2010.rar

السلام عليكم لقد رددت عليك إذا أضفت مثلا صفوف أخري ممكن تغير الكود بنفسك تستبدل الرقم 113 برقم آخر صف لديك وكذلك 114 برقم آخر صف مضاف له (1) وإذا كنت تريد هذه هي الحالة بصفة دائمة فسأغير الكود ليزيد من مرونة الشييت ليقبل أي عدد من البيانات

السلام عليكم تفضل المرفق بالضغط علي الزر يتم الحذف حذف الصفوف المكررة.xlsm

ممكن تعطينا النتائج تريد ان يكون كل واحد منهم يساوي كم ؟

ذا اردنا ان تختار مجموعة عشوائية من تلاميذ صف ( بعدد محدد) و ادراج اسمائهم في عامود (دون تكرار) و في عامود اخر ما بيقى منهم اكسل يحل لنا هذا الموضوع بواسطة هذا الملف الكود Option Explicit Sub RANDOM_ELEVES() If ActiveSheet.Name <> "Salim" Then GoTo Exit_Me ActiveSheet.Unprotect With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Dim x%: x = [h2] Dim y%: y = [h3] If Not IsNumeric(x) Or x < 1 _ Or x Mod 1 <> 0 Or x >= y Then x = Int(y / 2) [h2] = x End If Range("d2", Range("d1").End(xlDown)).ClearContents Range("f2", Range("f1").End(xlDown)).ClearContents Dim My_Rg: Set My_Rg = Range("b2:b" & lr) Dim g() ReDim g(1 To lr) Dim i Dim k%: k = 1 Do Randomize i = Int((lr - 1 + 1) * Rnd + 1) If g(i) = False Then g(i) = i k = k + 1 Cells(k, 4) = My_Rg.Cells(i) End If Loop Until k = [h2] + 1 Range("d2:d" & k).SortSpecial Header:=xlNo k = 2 For i = LBound(g) To UBound(g) If g(i) = vbNullString Then Cells(k, 6) = My_Rg.Cells(i) k = k + 1 End If Next Erase g ActiveSheet.Protect Exit_Me: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف ا Choose_Studiantes.xlsm

ينفع اعمل عنوان للتقرير فوق العمودين

وعليكم السلام أخي الكريم أحمد تفضل الملف المرفق فيه ما تطلب إن شاء الله تحميل الملف المرفق من هنا

السلام عليكم أولا- إنتهيت من تصميم قاعدة البيانات (الجداول) وقمت بإضافة العمود الذي طلبه الاخ يوسف وهو أمر العمل بحيث هو حقل رقم موجود في راس الفاتورة الجداول هي حسب الترتيب في القاعدة: 1- bill: جدول الفاتورة الرئيسي ويحوي على التاريخ والمستلم والمسلم وأمر العمل . 2- bodybill: جسم الفاتورة ويحوي على الاصناف الداخلة والخارجة من المستودع 3- depot: جدول يحوي على المستودعات 4- grp1 -grp2 - grp3 - grp 4 : نظام التصنيف وسأتكلم عنه في مشاركة لاحقة 5- item: جدول يحوي المواد الموجودة في المستودع 6- options: جدول الخيارات والاعدادات الافتراضية 7- user: جدول المستخدمين كلمة مرور قاعدة البيانات هي : syriainmyheat يفضل كما في كل برامجي السابقة المقدمة للمنتدى فك ضغط قاعدة البيانات في القرص D قاعدة البيانات الافتراضية موجود داخل مجلد new وهو قاعدة بيانات فارغة يقوم البرنامج باستخدامها في انشاء قواعد البيانات لكل السنوات وأي معلومات سيتم تسجيلها فيها ستكون افتراضية لكل القواعد المنشأة من خلال البرنامج