عبدالله باقشير

الشكر واصل لجميع المشاركين حفظكم الله ورعاكم خبور خير

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

======================== الاخ الفاضل / آيسم ========================

السلام عليكم عملتها في ملف آخر خبور خير ترتيب العشرة الطلاب الاوائل.rar

السلام عليكم لا توجد حلقة هنا وانما مجموعة اجراءات ستنفذ على الغرض MyRng العلامة 95 ملحوظة: في هذا الكود ما في عندنا نسخ ولا لصق وانما تنتقل بالطريقة ربط قيمة Value قيم خلايا معينة = قيم خلايا مغينة يجب ان تكون الخلايا في الجهتين بنفس عدد الصفوف والاعمدة مثال لخلية واحدة [code]Range("E16").Value = Range("E5").Value Range("D16:G16").Value = Range("D5:G5").Value

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

السلام عليكم اختبار تحريري كيف ترحلت الخلايا في هذا الكود Private Sub Kh_Start(iColumn As Integer) Dim RCount As Long, C As Integer C = Cells(iRow, Columns.Count).End(xlToLeft).Column + 1 With MyRng RCount = .Rows.Count Cells(iRow, C).Resize(RCount, 1).Value = _ .Cells(1, iColumn).Resize(RCount, 1).Value End With End Sub اريد شرحا مفصلا ؟ العلامة 100 خبور خير

السلام عليكم دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي ثلاثة معطيات بدالة واحدة Option Explicit ' بسم الله الرحمن الرحيم ' ******************** ' دالـــــــــــــــة ' Kh_Date_Sex_Province ' ( استخراج تاريخ الميلاد او النوع (ذكر - انثى ' او المحافظة من الرقم القومي '============================================== ' MyTest ' اذا كانت = 1 تقوم باستخراج تاريخ الميلاد ' اذا كانت = 2 تقوم باستخراج النوع ' اذا كانت = 3 تقوم باستخراج المحافظة '---------------------------------------------- ' MyProvinces في متغير الجدول ' العمل لم يستكمل بعد ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ ' بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة ' : مثال على ذلك ' "01/القاهرة" '============================================== '----------------------------------------------------------------- Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== ' يمكنك إضافة المحافظات الاخرى الغير موجودة ' او تعديل الموجود في حالات الخطأ MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "Error_MyNumber" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "انثى" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function بالنسبة لمعطيات المحافظات لم تستكمل بعد ويمكنك اضافة المحافظات المتبقية حسب ما شرحت بالكود خبور خير دالة استخلاص تاريخ الميلاد و النوع و المحافظة من الرقم القومي.rar

السلام عليكم يعني انا فهمت قصدك خطا حقك علي هنا مسحنا النطاق المحدد للطباعة في التقرير السابق

السلام عليكم اذا كنت قاصدا ان ده الكود مثلا: Sheets("ورقة2").Select Range("A3:E11").Select Selection.Copy هو نفسه ده: Sheets("ورقة2").Range("A3:E11").Copy فهذا صحيح اما هذا : كيف بدون نقطة؟؟؟؟ لازم للصق تعيين خلية واحدة Cells(irow, C) هذه خلية اللصق هنا لم تعين ورقة اللصق فقط وتاخذ افتراضيا ActiveSheet الورقة التي واقف عليها مفهوم الى حد هنا ؟؟؟

=================================== وماذا تفعل With With .<تعليمات> End With تنفذ عدد من الاجراءات على غرض ما =================================== MyRng هي الخلايا المنسوخة وهي مربوطة بالغرض بداية الكود With Sheets(Sh_MyDate) Set MyRng = .Range(MyRng_MyDate) End With هذه الاجراءات الخاصة MyRng التي تبدأ بنقطة With MyRng RCount = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(1, iColumn).Resize(RCount, 1).Copy End With اما خلايا اللصق هي ليست محددة باي ورقة وحتاخذ افتراضيا الغرض ActiveSheet وهي الورقة الواقف عليها وهي ورقة التفارير التي ينقلك اليها الفورم عند الفتح With Sheets(Sh_Report) .Select End With خبور خير

السلام عليكم بالنسبة لموضوع التذاييل والريسان انت قمت بالواجب وزيادة (التذاييل والريسان) هذه لهجة بلدنا حضرموت طبعا انكت معاك شوية علشان تعرف اننا مش زعلان ولا حاجة وايه في الدنيا هذه يحتاج الزعل كلها فانية ------------------------------ اين الاسئلة انا في انتظارها؟؟ وهذه هدية علشان تضحكك وعلى فكرة برضوه الهدية دي عايزة شرح انت معايا رمضانيات.rar

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

السلام عليكم اذا كانت ما فهمت صحيح المعادلة التالية تقوم بما طلبت: لو فرضنا ان الرقم القومي في الخلية B6 =IF(MOD(LEFT(RIGHT($B6;2);1);2)=1;"ذكر";"انثى") خبور خير

السلام عليكم تم التعديل: شاهد المرفق kh_Test_3.rar

السلام عليكم التعديل تمام التمام بارك الله فيك

السلام عليكم انا الذي تشرفت بذلك اخي عماد كل عام وانت بخير تقبل تحياتي وشكري ------------------------------ اذا اردت الترقيم في عمود الكود ضف المعادلة التالية في صفوف العمود ومن ضمنها آخر خلية فاضية =ROW()-6 خبور خير

اعتقدان ما بين الاقواس بعد كلمة Copy يمثل المدى او المجال الذي يلصق اليه وتنفذ عليه مباشرتا عملية اللصق فCopy هنا ادت غرضين النسخ اولا ثم اللصق الى المجال المحدد بين الاقواس هل أنا محق فى ذلك ؟ konafa 4000 نعم ---------------------------------------------- تعقيب: نحن نحتاج الى تعيين خلية واحدة فقط عند اللصق و يشمل اللصق بهذه الطريقة كل شي بدون تعيين خبور خير

السلام عليكم بارك الله فيك اخي هشام --------------------------- ولاثراء الموضوع عندما تحرر آخر خلية فاضية في العمود A يضاف لك الصف الجديد بنفس التنسيقات والمعادلات لصف هذه الخلية الكود موجود في الوحدة النمطية للورقة1 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Cells(Rows.Count, 1).End(xlUp).Address Then If Target.Value <> "" Then _ kh_AutoFill (Target.Resize(1, 13).Address) End If End Sub ---------------------------------------- Function kh_AutoFill(myRng As String) With Range(myRng) .AutoFill .Resize(2) .Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents End With End Function مخزن سيارات.rar

السلام عليكم Option Explicit تم شرحها في المشاركة رقم 26 في الرابط التالي: اعداد كشوفات مدرسية باختيار روؤس الاعمدة عن طريق فورم ------------------------------------------ Workbook_Exists = .Execute > 0 Execute غرض من اغراض Application.FileSearch اذا كانت قيمته اكبر من الصفر ياخذ القيمة True معنى ان الرابط موجود ------------------------------------------ On Error Resume Next يجعل الكود يستمر في التنفيذ في حالة وجود اي خطا On Error GoTo 0 تسمح بمقاظعة الاخطاء في حالة تنفيذ الاجرائية ------------------------------------------- Set wo = Nothing الغاء الربط بين المتحول wo والغرض Workbook خبور خير

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

الاخ الفاضل / آيسم و

السلام عليكم بارك الله فيك اخي كنافة وايضا ممكن بالمعادلة التالية: =SUMPRODUCT((MONTH(INDEX(myrng;0;2))=MONTH(M8))*INDEX(myrng;0;1)) شاهد المرفق sum for a month.rar

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

السلام عليكم بعد الخروج من الحلقة كرر اضافة التاريخ بالفورمات التي تريدها في التاكست الذي تريد اظهار التاريخ فيه يعني لوكان رقم التاكست 5 Me.Controls("Textbox5").Value = Format(Worksheets("all").Cells(k + 3, 5).Offset(1, 0), "yyyy/mm/dd") جرب واشعرنا بالنتائج خبور خير