يحيى حسين

السلام عليكم و رحمة الله يمكنك ايجاد اكبر قيمة و اصغر قيمة مع وجود الخطأ بإستخدام معادلات الصفيف و في مثالك لإيجاد أكبر قيمة استخدم =MAX(IF(ISERROR(F3:F8),"",F3:F8)) و لإيجاد اصغر قيمة =MIN(IF(ISERROR(F3:F8),"",F3:F8)) لا تنسى أن تضغط Ctrl+Shift+Enter و إذا كنت تستخدم الإكسيل 2010 يوجد دالة جديدة و مفيدة جدا اسمها AGGREGATE و لإستخراج اكبر قيمة بواسطتها =AGGREGATE(4,6,F3:F8) و اصغر قيمة =AGGREGATE(5,6,F3:F8) ===================== دمتم في حفظ الله

السلام عليكم و رحمة الله يا ربت لو ترفقي ملف به المشكلة حتى نحاول معرفة المشكلة و حلها

السلام عليكم و رحمة الله و بركاته اضافة لمى ذكره الاخ طارق شاهد هذا الرابط فيه شرح الدالة VlookUp http://www.officena.net/ib/index.php?showtopic=28618 =========== دمتم في حفظ الله

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

السلام عليكم و رحمة الله اضافة لحل الاخ خالدي جرب هذه المعادلة =MROUND(12122,25) قم بإستبدال الرقم 12122 بمرجع اي خلية و هي تعمل بشكل ماشر مع نسخة 2007 و 2010 من الاكسيل و في النسخ القديمة يجب تثبيت Analysis ToolPak ======== دمتم في حفظ الله

السلام عليكم و رحمة الله مرفق حل اخر اضافة لحل الاخ طارق و يتجاهل يومي السبت و الجمعه تسلسل الايام.rar

السلام عليكم و رحمة الله اضافة لطريقة الاخ طارق جر هذا الكود Sub ExcelV() MsgBox ("You are using Excel Version Number " & Application.Version) End Sub

السلام عليكم لقد قمت بالرد عليك في الموضوع الثاني و لكن في حال رغبتك بإضافة حل بإستخدام index with match اعلمني بذلك و ستجد ما يسرك ان شاء الله

السلام عليكم و رحمة الله إضافة لحل الاخ طارق يمكنك فتح صفحة مستلقة لكل مركز كلفة بضغط زر واحدة ضع مركز الكلف في خاة ال report filter ثم من التاب الاضافي في الجدول المحوري في تاب الخيارات اوول مجموعة اسمها خيارات و يوجد بجانبها سهم صغير اختر ثاني خيار show report filter Pages و سيتم فتح صفحات بأسماء جميع مراكز الكلفة في المجلد ============ دمتم في حفظ الله

السلام عليكم و رحمة الله اخي حسام في ملفك لا تستطيع استخدام الدالة vlookup لكن استخدم match with index

السلام عليكم و رحمة الله و بركاته الأخ الحبيب ابو اسامة جزاك الله كل خير و شكرا على سؤالك انت و الأخوة الأحبه في الله و عذراً على انقطاعي عن المنتدى و السبب اني كنت اواجه بعض المشاكل في الدخول للمنتدى و ارسلت للاخ محمد طاهر ابلغه بالمشكلة و لم استطع حلها الا بعد ان قمت بعملية فرمته للجهاز =============== دمتم في حفظ الله و كل عام و انتم بخير

السلام عليكم و رحمة الله إضافة لحل الأخ بن علية جرب هذا الكود Sub DelZero() Dim LastR As Long LastR = Range("c" & Rows.Count).End(xlUp).Row For i = LastR To 2 Step -1 If Range("c" & i).Value = 0 Then Range("c" & i).EntireRow.Delete Next i End Sub

السلام عليكم و رحمة الله أخي طلبك غير واضح و لكن لو فرضنا أننا نريد ان يتم تنسيق الارقام اكبر من 10 بالتنسيق 0.000 و التي اقل من 5 التنسيق 0.00 و الارقام المحصورة بين القيمتين 0 جرب هذا التنسيق [>=10]0.000;[<=5]0.00;0

السلام عليكم و رحمة الله و استخدم اخي هذا الكود لإنشاء ملفات حسب قيم الخلايا في المدى B Sub Excel4Us() Dim LastR As Long, c As Range, Fname As String LastR = Range("b" & Rows.Count).End(xlUp).Row Application.DisplayAlerts = False For Each c In Range("b3:b" & LastR) Fname = ThisWorkbook.Path & "\" & c.Value & ".xls" Workbooks.Add On Error Resume Next ActiveWorkbook.SaveAs Fname On Error GoTo 0 ActiveWorkbook.Close Next c Application.DisplayAlerts = True End Sub ====== دمتم في حفظ الله

السلام عليكم و رحمة الله بخصوص طلبك الأول فقط قم بالتعديل على المعادلة بدل رقم 1 ضع الرقم 5 =MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-5)

السلام عليكم و رحمة الله لإضافة صفحة جديدة إضغط على Shift+F11 و لإضافة سطر بإختصار آخر قم بالضغط على Ctrl مع علامة الزائد ستظهر مربع يطلب تحديد خيار الإضافة و اختر منه سطر =============== دمتم في حفظ الله

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

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

السلام عليكم و رحمة الله و بركاته نسأل الله له المغفرة و الرحمة و ان يسكنه فسيح جناته

السلام عليكم و رحمة الله و بركاته جرب هذا الكود لعملية الحذف Private Sub CommandButton1_Click() If ComboBox1 = "&Atilde;&Icirc;&Ecirc;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &atilde;&auml; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute;" Then MsgBox "!&iacute;&Igrave;&Egrave; &Aring;&Icirc;&Ecirc;&iacute;&Ccedil;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &atilde;&auml; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute; &Ccedil;&aacute;&atilde;&auml;&Oacute;&Iuml;&aacute;&Eacute; &Atilde;&aelig;&aacute;&Ccedil;&eth;", vbExclamation, "&Aring;&Icirc;&Ecirc;&iacute;&Ccedil;&Ntilde; &Icirc;&Ccedil;&Oslash;&AElig;" ComboBox1.DropDown Else Beep If MsgBox("&aacute;&THORN;&Iuml; &Oslash;&aacute;&Egrave;&Ecirc; &Iacute;&ETH;&Yacute; &Ccedil;&aacute;&Oacute;&Igrave;&aacute; &Ccedil;&aacute;&Icirc;&Ccedil;&Otilde; &Egrave;" & ComboBox1 & " .. &Yacute;&aring;&aacute; &Ecirc;&aelig;&Iuml; &Ccedil;&aacute;&Aring;&Oacute;&Ecirc;&atilde;&Ntilde;&Ccedil;&Ntilde;&iquest;", vbQuestion + vbYesNo) = vbYes Then a = Application.WorksheetFunction.Match(ComboBox1.Value, Sheets("Sheet1").Range("B1:B45533"), 0) Sheets("Sheet1").Range("b" & a).EntireRow.Delete 'For C = 1 To 14 'Cells(a + 14, C) = "" 'Next Me.Hide Sort MsgBox " &Ecirc;&atilde; &Iacute;&ETH;&Yacute; &Ccedil;&aacute;&Oacute;&Igrave;&aacute; &Ccedil;&aacute;&Icirc;&Ccedil;&Otilde; &Egrave;" & ComboBox1 & " &Egrave;&auml;&Igrave;&Ccedil;&Iacute;", vbInformation, "&Ecirc;&atilde; &Ccedil;&aacute;&Iacute;&ETH;&Yacute;" End If End If End Sub

السلام عليكم و رحمة الله أخي ابو ياسمين يوجد خطأ في في عملية تحديث البيانات عندي تغيير الكمبوبوكس و يجب تغير الحدث من Private Sub ComboBox1_Change() ليصبح الكود ضمن الحدث Private Sub ComboBox1_AfterUpdate() On Error Resume Next If ComboBox1 <> "&Atilde;&Icirc;&Ecirc;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &atilde;&auml; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute;" And Application.WorksheetFunction.CountIf([B3:b65536], ComboBox1) = 0 Then MsgBox "!&aring;&ETH;&aring; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute; &aacute;&Aring;&Icirc;&Ecirc;&iacute;&Ccedil;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &Yacute;&THORN;&Oslash; .. &aacute;&aacute;&Ecirc;&Uacute;&Iuml;&iacute;&aacute; &iacute;&atilde;&szlig;&auml;&szlig; &Aring;&Oacute;&Ecirc;&Icirc;&Iuml;&Ccedil;&atilde; &atilde;&Ntilde;&Egrave;&Uacute; &Ccedil;&aacute;&auml;&Otilde; &Ccedil;&aacute;&Icirc;&Ccedil;&Otilde; &Egrave;&Ccedil;&aacute;&Aring;&Oacute;&atilde;", vbExclamation, "&Uacute;&Yacute;&Uuml;&aelig;&Ccedil;&eth;" ComboBox1 = "&Atilde;&Icirc;&Ecirc;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &atilde;&auml; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute;" ComboBox1.DropDown Exit Sub End If TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 1, 0) TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 2, 0) TextBox3 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 3, 0) TextBox4 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 4, 0) TextBox5 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 5, 0) TextBox6 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 6, 0) TextBox7 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 7, 0) TextBox8 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 8, 0) TextBox9 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 9, 0) TextBox10 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 10, 0) TextBox11 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 11, 0) TextBox12 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 12, 0) TextBox13 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 13, 0) TextBox14 = Application.WorksheetFunction.VLookup(ComboBox1, [B3:p65536], 14, 0) End Sub و من ثم قم بنسخ الكود التالي في زي التعديل و هو نفس الكود الأصلي مع بعض التعديلات البسيطة عليه Private Sub CommandButton4_Click() If ComboBox1 = "&Atilde;&Icirc;&Ecirc;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &atilde;&auml; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute;" Then MsgBox "!&iacute;&Igrave;&Egrave; &Aring;&Icirc;&Ecirc;&iacute;&Ccedil;&Ntilde; &Ccedil;&aacute;&Aring;&Oacute;&atilde; &atilde;&auml; &Ccedil;&aacute;&THORN;&Ccedil;&AElig;&atilde;&Eacute; &Ccedil;&aacute;&atilde;&auml;&Oacute;&Iuml;&aacute;&Eacute; &Atilde;&aelig;&aacute;&Ccedil;&eth;", vbExclamation, "&Aring;&Icirc;&Ecirc;&iacute;&Ccedil;&Ntilde; &Icirc;&Ccedil;&Oslash;&AElig;" ComboBox1.DropDown ElseIf TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" Or TextBox13 = "" Or TextBox14 = "" Then MsgBox "!&iacute;&Igrave;&Egrave; &Ecirc;&Uacute;&Egrave;&AElig;&Eacute; &szlig;&Ccedil;&Yacute;&Eacute; &Ccedil;&aacute;&Iacute;&THORN;&aelig;&aacute; &Atilde;&aelig;&aacute;&Ccedil;&eth;", vbExclamation, "&Iacute;&THORN;&aelig;&aacute; &Ucirc;&iacute;&Ntilde; &atilde;&atilde;&Ecirc;&aacute;&AElig;&Eacute;" Else Beep If MsgBox(":&aacute;&THORN;&Iuml; &Oslash;&aacute;&Egrave;&Ecirc; &Ccedil;&aacute;&Ecirc;&Uacute;&Iuml;&iacute;&aacute; &Aring;&aacute;&igrave; &Ccedil;&aacute;&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &Ccedil;&aacute;&Ecirc;&Ccedil;&aacute;&iacute;&Eacute;" & vbNewLine & "" & vbNewLine & "&Ccedil;&aacute;&Aring;&Oacute;&atilde;: " & TextBox1 _ & vbNewLine & "" & vbNewLine & "&Ccedil;&aacute;&Uacute;&atilde;&Ntilde;: " & TextBox2 & vbNewLine & "" & vbNewLine & "&Ccedil;&aacute;&atilde;&Oacute;&atilde;&igrave; &Ccedil;&aacute;&aelig;&Ugrave;&iacute;&Yacute;&iacute;: " & TextBox3 & vbNewLine & "" _ & vbNewLine & "&Yacute;&aring;&aacute; &Ecirc;&aelig;&Iuml; &Ccedil;&aacute;&Aring;&Oacute;&Ecirc;&atilde;&Ntilde;&Ccedil;&Ntilde;&iquest;", vbYesNo + vbQuestion, "&Ecirc;&Atilde;&szlig;&iacute;&Iuml; &Ccedil;&aacute;&Aring;&Iuml;&Icirc;&Ccedil;&aacute;") = vbYes Then a = Application.WorksheetFunction.Match(ComboBox1.Value, Sheets("Sheet1").Range("B1:B45533"), 0) With Sheets("sheet1") .Cells(a, 2) = TextBox1.Value .Cells(a, 3) = TextBox2.Value .Cells(a, 4) = TextBox3.Value .Cells(a, 5) = TextBox4.Value .Cells(a, 6) = TextBox5.Value .Cells(a, 7) = TextBox6.Value .Cells(a, 8) = TextBox7.Value .Cells(a, 9) = TextBox8.Value .Cells(a, 10) = TextBox9.Value .Cells(a, 11) = TextBox10.Value .Cells(a, 12) = TextBox11.Value .Cells(a, 13) = TextBox12.Value .Cells(a, 14) = TextBox13.Value .Cells(a, 15) = TextBox14.Value End With Me.Hide Sort MsgBox "&Ecirc;&atilde; &Ecirc;&Uacute;&Iuml;&iacute;&aacute; &Igrave;&atilde;&iacute;&Uacute; &Ccedil;&aacute;&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &Egrave;&auml;&Igrave;&Ccedil;&Iacute;", vbInformation, "&Ecirc;&atilde; &Ccedil;&aacute;&Ecirc;&Uacute;&Iuml;&iacute;&aacute;" End If End If End Sub أتمنى أن تجرب التعديلات و تعلمني بالنتيجة ========== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي لجمع بيانات عدة خلايا في خلية واحد يمكنك استخدام علامة الدمج & او إستخدام الادالة CONCATENATE أما لفصل بيانات الخلية إلى عدة خلايا فيمكنك استخدام خاصية TextToColumn و اختيار محدد الفصل الفاصلة كما هو واضح في مثالك ============ دمتم في حفظ الله

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

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

اليلام عليكم و رحمة الله جرب هذا الكود اخي و هو نفس كودك و لكن مع اضافة اول سطر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$1" Then Exit Sub If Target.Address = "$B$1" And Target.Value <> "" Then Target.Offset(1, 2).Value = Target.Offset(1, 2).Value + 1 Target.Select End If End Sub