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

السلا عليكم ورحمة الله وبركاته شهر مبارك وكل عام وانتم بخير كود لتحويل المعادلات الى قيم Option Explicit Sub Kh_Formula_To_Value() Dim MyCalcu As XlCalculation With Application MyCalcu = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With '===================================== '////////////////////////////////////// '===================================== ' هنا تضع النطاق والمعادلة التي تريد تحويلها قيم ' Formula_To_Value باستخدام '===================================== ' T هنا المعادلة اللي في العمود Formula_To_Value Range("T5:T30"), "=RC[-2]*RC[-1]" ' x هنا المعادلة اللي في العمود ' مثل عمل كود الاخ كيماس Formula_To_Value Range("X5:X30"), "=IF(COUNTIF(RC16:R30C16,RC16)=1,SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20)),"""")" ' Y هنا المعادلة اللي في العمود Formula_To_Value Range("Y5:Y30"), "=SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20))" '===================================== '////////////////////////////////////// '===================================== With Application .ScreenUpdating = True .Calculation = MyCalcu End With End Sub ================================================= Sub Formula_To_Value(MyRng As Range, MyFormula As Variant) With MyRng .ClearContents .Formula = MyFormula .Cells = .Value End With End Sub وهو طلب احدهم في الموضوع http://www.officena.net/ib/index.php?showtopic=37827 المرفق ملف اكسل 2003 كود تحويل المعادلات الى قيم.rar

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "D7" '''''''' نطاق اسماء الفصول Private Const MyClass As String = "P7:P13" '''''''' نطاق اسماء المواد ومواقعها Private Const MyTotal As String = "R7:T19" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== المرفق اكسل2003 اكسل2007 ترتيب العشرة الاوائل حسب المجموع والعمر.rar ======================================================= تم التعديل حسب ملاحظة ايسم ابراهيم ادناه المرفق اكسل 2003/2007 ترتيب العشرة الاوائل حسب المجموع والعمر1.rar 61.97K 0 عدد مرات التحميل

السلام عليكم هل تعلم انه بامكانك اضافة لست الى ListBox بهذا السطر Me.ListBox1.List = Range("i1").Resize(10, 2).Value واخراج بيانات اللست الى خلايا Range("c1").Resize(10, 2) = Me.ListBox1.List

الأخوة الزملاء أقدم لكم بعض الاوراق الادارية المساعدة لأعمال الكنترول ومن عنده اى اوراق يقدمها للزملاء وأسألكم الدعاء اخيكم / البحيرى اوراق مساعدة للكنترول وبعض الاعمال الادارية.rar

السلام عليكم ترتيب السري لكنترول المدارس الادخال عبر فورم امكانية ادخال البيانات مع فرز ترتيب السري تجهيز طباعة المجموعات ظهور الفورم بكلمة سر وهي 123 ويمكنك تغييرها من بداية كود فورم كلمة السر تفضلوا المرفق اكسل 2003-2007 الرقم السري لكنترول المدارس.rar ================================================================ ملاحظة هامة يجب تغيير كود الفرز المربوط بزر فرز عكسي الى الكود ادناه في المرفقات اعلاه لان الكود السابق يفشل في عكس الفرز في بعض الحالات Sub kh_Sort() Dim c As Integer Static ibool As Boolean c = ibool + 2 With Range("I7:J7") Range(.Cells, .Cells.End(xlDown)).Sort .Columns(c), xlAscending .Columns(c).Activate End With ibool = Not ibool End Sub ================================================================

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " ' ********************* " ' دالة استخراج النص او الارقام " '==============================================" ' False = مهمل او Kh_Number اذا كان " ' تقوم باستخراج النص " ' True = Kh_Number اذا كان " ' تقوم باستخراج الارقام " '==============================================" '----------------------------------------------------------------- Function Kh_Replace_Text(ByVal Kh_Sub As String, Optional Kh_Number As Boolean) Dim Num As Byte, C As Integer Dim Sn As String, Re As String, Md As String Sn = Trim(Kh_Sub) For Num = 0 To 9 Sn = Replace(Sn, Num, "") Next Num If Kh_Number Then Re = Trim(Kh_Sub) Do While C < Len(Trim(Sn)) C = C + 1 Md = Mid(Sn, C, 1) Re = Replace(Re, Md, "") Loop Kh_Replace_Text = CDbl(Re) Else Kh_Replace_Text = Trim(Sn) End If End Function دالة استخراج النص او الارقام.rar

السلام عليكم شكرا لك اخي الحبيب طارق على التثبيت وعلى التشجيع شكرا لك اخي الحبيب هاني على كرمك المتواصل شكرا لك اخي الحبيب سامي على الدعاء جزاكم الله خيرا -------------------------------------------- نواصل سلسلة هل تعلم تعديل عرض اعمدة اللست بهذا السطر لو فرضنا ان عدد الاعمدة ثلاثة Me.ListBox1.ColumnWidths = "23,100,100" في المرفق تطبيق لنموذج عرض وتعديل اوردت فيه هذه المعلومة و ما علمناه سابقا المرفق 2003/2007 نموذج عرض وتعديل بيانات.rar

هل تعلم هل تعلم انه بامكانك اضافة لست الى ListBox من نص بهذا الكود Me.ListBox1.List = Split("عبدالله علي باقشير") او من نص في اي خلية Me.ListBox1.List = Split(CStr(Range("A1")))