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

المصنف1.xlsx

من الخصائص الجملية العملية التى لا يستفيد منها الكثيرين استخدام ورق الملاحظات Sticky Notes فى واجهة اوتلوك: لاضافة ملاحظة جديدة : CTR +SHFT + N يمكنك تجريك الملاحظة لاي مكان على الشاشة كما يمكنك تصنيفها بحسب المجموعات و حفظها كما يمكنك استرجاع الملاحظات المحفوظة مباشرة او من خلال الايقون الخاص بالمزيد من تطبيقات More apps

السلام عليكم تنقل بين الصفحات بكود من سطر واحد⚽ كود.xlsm

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

آخر المواضيع المثبتة برامج مصممه على الأكسيل ListView Right to Left الدرس الثاني قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform UserForm interactive سلسلة دروس الفورم التفاعلي وبتاء قاعدة البيانات

وهذه طريقة اخرى من الذكاء ..... يجب وضع هذا الكود في النموذج الذي ترغب في تغيير رسالة التكامل المرجعي الخاصة به. عندما يحدث خطأ 3200 الذي يشير إلى رسالة التكامل المرجعي، ستظهر الرسالة الجديدة المحددة في الكود بدلاً من الرسالة الافتراضية. Private Sub Form_Error(DataErr As Integer, Response As Integer) ' رسالة التكامل المرجعي - Reference Integrity Message If DataErr = 3200 Then ' قم بتعديل الرسالة الجديدة هنا MsgBox "رسالة جديدة" Response = acDataErrContinue End If End Sub

جرب هذا الكود من خلال الذكاء الاصطناعي ولم اجربه ........ يتم وضع هذا الكود في قسم VBA للنموذج الذي ترغب في تغيير رسالة التكامل المرجعي له. Private Sub Form_Error(DataErr As Integer, Response As Integer) Const conReferenceNotSet = 3420 If DataErr = conReferenceNotSet Then MsgBox "تم تعيين الرسالة الجديدة هنا", vbInformation, "رسالة جديدة" Response = acDataErrContinue End If End Sub

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

وهدا اخر ملف قمت برفعه دون ان اغير اي شيء في الاكواد فقط حاول جعل الاسماء الغير معدلة درجاتهم في اخر قائمة الاسماء لكي يتطبق شرط وجود الاسماء المعدلة بشكل متتابع وسوف يشتغل معك الكود بشكل صحيح ‏‏مطابقة درجات V2.xlsm

السلام عليكم ورحمه الله وبركاته ايه رائيك تشوف الموضوع ادناه قد يفيدك قائمة منسدلة مفلترة2.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم شرح مفصل لدالة العد بشرط COUNTIF مع الصور أولا : إذا كنت تريد عد الخلايا التى بها إسم التقرير Report فقط كما موضح بالصورة فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,”REPORT”) ثانيا : إذا كنت تريد عد القيم التى أكبر من رقم 10 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">"&10) ثالثا : إذا كنت تريد عد القيم التى أكبر من أو يساوى رقم 10 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">="&10) رابعا : إذا كنت تريد عد القيم التى لا تساوى رقم 10 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"<>"&10) خامسا : إذا كنت تريد عد القيم التى أقل من رقم 40 ولكن أكبر من رقم 15 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"<"&40)-COUNTIF(C2:C10,"<="&15) سادسا : إذا كنت تريد عد القيم التى أكبر من رقم 40 ولكن أقل من رقم 15 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">"&40)+COUNTIF(C2:C10,"<"&15) سابعا : إذا كنت تريد عد الخلايا التى بها إسم التقرير Report كما موضح بالصورة حتى لو كان مقترن بكلمة أخرى فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"*REPORT*") ثامنا : إذا كنت تريد عد الخلايا التى بها إسم التقرير Report كما موضح بالصورة بحيث تكون إسم التقرير Report فى بداية الجملة فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"REPORT*") تاسعا : إذا كنت تريد عد الخلايا التى ينتهى أخرها ب RT فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"*RT") عاشرا : إذا كنت تريد عد الخلايا التى ينتهى أخرها ب RT ويكون إجمالى النص بالخلية 6 أحرف فقط فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"????RT") إحدى عشر : إذا كنت تريد عد الخلايا التى تحتوى على أى نص فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"*") إثنا عشر : إذا كنت تريد عد الخلايا التى لا تحتوى على أى نص فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,"<>"&"*") ثلاثة عشر : إذا كنت تريد عد القيمة التى أكبر من أو تساوى القيمة التى فى الخلية C12 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">="&C12) أربعة عشر : إذا كنت تريد عد القيمة التى أكبر من القيمة التى فى الخلية C12 فتكون صيغة الدالة كالتالى : =COUNTIF(C2:C10,">"&C12) أرجوا من الله العلى القدير أن ينال رضاكم وأكون قد وفقت فى توصيل المعلومة

الكود بعد اضافه سطر مسح البيانات المرحله ومسح التسطير Option Explicit Sub Test() 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو ترحيل اعمده معينه لاعمده اخرى معينه بالتسطير 'تم هذا الكود في 6/5/2017 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long Dim lr As Long 'سطر لمسح النطاق Range("A4:Z1000").Clear lr = Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("Sheet1").Range("A7:K" & lr).Value 'الأعمدة المطلوب الترحيل إليها cr = Array(3, 5, 7) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(1, 3, 5) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("Sheet2").Cells(4, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) 'سطر لمسح التسطير Sheets("Sheet2").Cells(4, cr(j)).Resize(UBound(arr, 1)).Borders.Value = 0 'سطر للتسطير Sheets("Sheet2").Cells(4, cr(j)).Resize(UBound(arr, 1)).Borders.Value = 1 j = j + 1 Next i End Sub

الترحيل بشرط معين في عمود معين بسهوله ويسر بالمصفوفات للنابغه ياسر خليل Option Explicit 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو ترحيل بشرط 'تم هذا الكود في 15/2/2017 Sub UsingArrays() Dim arr As Variant Dim temp As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long 'متغير اسم ورقة المصدر lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Sheets("Sheet1").Range("A2:C" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به If arr(i, 3) Like "*" & "P" & "*" Then For c = LBound(arr, 2) To UBound(arr, 2) temp(j, c) = arr(i, c) Next c j = j + 1 End If Next i 'متغير اسم ورقة الهدف واسم الخليه التي سيتم ترحيل العناوين اليها Sheets("Sheet2").Range("E5").Resize(, UBound(temp, 2)).Value = Array("Names", "Marks", "Status") 'متغير اسم ورقة الهدف واسم الخليه التي سيتم الترحيل اليها Sheets("Sheet2").Range("E6").Resize(j - 1, UBound(temp, 2)).Value = temp End Sub استدعاء بشرط.

========================================================== كود طباعه Sub MyPrnt() ' Beep If MsgBox("هل تريد الطباعة", vbYesNo, "تنبية") = vbYes Then ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If End Sub '****************** Sub معاينه_طباعه() Dim SS As Integer ''من كنوز العلامة عبد الله باقشير ' SS = Range("عدد_الأوراق").Value * [AK2] SS = Range("B" & Rows.Count).End(xlUp).Row Range("A2:J" & SS).RowHeight = 24 ActiveSheet.PageSetup.PrintArea _ = "$A$2:$J$" & SS ActiveWindow.SelectedSheets.PrintOut Copies:=1 ' PrintPreview 'PrintOut Copies:=1 [A7].Select End Sub

Sub Tarhil_Ragab() 'تعريف المتغيرات Dim Sh As Worksheet Dim strSh As String Dim I As Long Dim AA As Long 'سطر لإيقاف تحديث الشاشة Application.ScreenUpdating = False 'مسح محتويات النطاق في ورقة العمل ناجح Sheets("ناجح").Range("A12:X1000").ClearContents 'مسح محتويات النطاق في ورقة العمل دور ثان Sheets("دور ثان").Range("A12:X1000").ClearContents 'مسح محتويات النطاق في ورقة العمل راسب Sheets("راسب").Range("A12:X1000").ClearContents 'بدء التعامل مع ورقة العمل الأولى التي تعتبر الورقة الرئيسية With Sheet1 '[Y] حلقة تكرارية بدايةً من الصف الـ 12 وحتى آخر صف به بيانات بالاعتماد على العمود For I = 12 To .Cells(10000, "Y").End(xlUp).Row '[Y] تعيين قيمة المتغير ليساوي قيمة الخلية في الصف المحدد في العمود 'ففي أول حلقة تكرارية سيكون الصف هو رقم 12 [I] المقصود بالصف المحدد الصف الذي يحمل قيمة المتغير 'وفي الحلقة التالية سيكون الصف رقم 13 وهكذا مع كل حلقة تكرارية يتغير الصف strSh = .Cells(I, "Y").Value 'تعيين المتغير ليساوي آخر صف في الورقة التي سيتم الترحيل إليها 'أو يمكنك القول معرفة رقم صف أول صف فارغ AA = Sheets(strSh).Cells(10000, 2).End(xlUp).Row + 1 'إذا كان المتغير أقل من 12 الذي من المفترض أنه صف البداية لعمليات الترحيل فإنه يتم تعيين المتغير ليساوي 12 If AA < 12 Then AA = 12 'في حالة حدوث خطأ يتم تجنبه بهذا السطر On Error Resume Next 'نسخ النطاق في الصف المحدد من العمود الثاني إلى العمود الرابع والعشرون .Range(.Cells(I, "B"), .Cells(I, "X")).Copy 'لصق النطاق المنسوخ إلى ورقة العمل المناسبة واللصق يكون لصق قيم فقط Sheets(strSh).Range("B" & AA).PasteSpecial xlPasteValues 'إلغاء خاصية النسخ واللصق Application.CutCopyMode = False 'هذا السطر يقوم بترقيم الصف الذي تم ترحيله في الورقة الهدف 'حيث يعتمد على إنقاص 11 من رقم الصف الحالي 'فإذا كان الصف الحالي هو رقم 12 ألا وهو رقم البداية فإن الرقم 'المسلسل سيكون 12 - 11 أي سيكون الرقم المسلسل 1 Sheets(strSh).Cells(AA, "A").Value = Sheets(strSh).Cells(AA, "A").Row - 11 'الانتقال للصف التالي في الحلقة التكرارية Next I 'حلقة تكرارية لكل أوراق العمل لتحديد الخلية الأولى في ورقةالعمل For Each Sh In ThisWorkbook.Worksheets Application.Goto Sh.Range("A1") Next Sh 'تنشيط ورقة العمل الأولى .Activate 'انتهاء التعامل مع ورقة العمل الأولى End With 'سطر لإعادة تفعيل اهتزاز الشاشة Application.ScreenUpdating = True 'إظهار رسالة تفيد بانتهاء عمل الكود MsgBox "تم الفصل بنجاح", 64 End Sub

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