ياسر خليل أبو البراء

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

أخي الحبيب إبراهيم مشكور على متابعتك الجيدة للموضوع والتجاوب بشكل فعال ، وصدقني أنا بتعلم معكم تماماً ... الموضوع شيق ومفيد جداً ولكن أعاني دائماً قلة المتابعين تقبل تحياتي

قم بjتحميل الأداة التي تمكنك من تحميل النسخة 32 بت من هنا 64 بت من هنا شوف النطام المطلوب . وحمل الأداة الخاصة بيه واتبع الخطوات حتى تستطيع أن تحمل النسخة 10

بطلت إكس بي من زمن .. مفيش أفضل من إنك تواكب كل جديد حاول تنزل ويندوز 10 (سمعت إنه بيجمع بين خفة الإكس بي وثبات السفن) جرب تنزل ويندوز 10 ...حمل وجرب مش هتخسر حاجة لما تجرب يمكن يكون أفضل الأنظمة وأخفها

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

خرجنا برا الموضوع .. أخي الحبيب إبراهيم اتفضل البرنامج التالي قم بتحميله وبعد التحميل فك الضغط وبعد فك الضط قم بتنصبه بشكل عادي زي أي برنامج عادي اعمل كليك يمين على الملف المراد مغرفة الهاش الخاص به ..هتلاقي تبويب جديد ظهر معاك اسمه File Hashes فيه الهاش الخاص بالملف خد الهاش اللي وضعته في المشاركة أي واحد من التلاتة وليكن SHA-1: 98451FEB0A5A1F58322D450B0EE2891D6FCDCADA خد الجزء ده نسخ 98451FEB0A5A1F58322D450B0EE2891D6FCDCADA والصقه في المستطيل الموجود في التبويب File Hashes .. في النهاية لو الهاش الخاص بالملف صحيح هيديك علامة صح ... لو مش مظبوط هيديك علامة غلط .. الحكاية مجرد التأكد من صحة وسلامة الملف الذي تم تنزيله HashTab_v4.0.0_Setup.zip

إليك الملف التالي عله يكون الحل النهائي للموضوع Function AvAngles(Param As Range) As Double Dim Cell As Range, AvSin As Double, AvCos As Double, At2 As Double Dim F As WorksheetFunction Set F = WorksheetFunction For Each Cell In Param AvSin = AvSin + Sin(F.Radians(Cell.Value)) AvCos = AvCos + Cos(F.Radians(Cell.Value)) Next Cell AvSin = AvSin / Param.Count AvCos = AvCos / Param.Count At2 = F.Degrees(F.Atan2(AvCos, AvSin)) AvAngles = IIf(At2 < 0, At2 + 360, At2) End Function النتائج للدالة المعرفة تماماً مثل النتائج المرفقة لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي AvAngles UDF Function.rar

صراحة ليس لدي رابط للنسخة الفرنسية أحياناً بتكون المشكلة في الويندوز جرب تستخدم برنامج تنظيف الملفات المؤقتة ببرنامج زي CCleaner

أخي الكريم حسام قم بوضع الكود التالي في حدث المصنف Private Sub Workbook_Open() 'يقوم الكود بحذف جميع أوراق العمل بعد تاريخ محدد '----------------------------------------------- Dim exDate As Date, SH As Worksheet exDate = "10/08/2015" Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlManual If Date >= exDate Then If MsgBox("سيتم حذف أوراق العمل .. هل أنت متأكد من هذا الإجراء", vbExclamation + vbYesNo) = vbYes Then For Each SH In ThisWorkbook.Sheets If SH.Name <> "متوسط اوزان الشهر " Then SH.Delete Next SH Else MsgBox "لم يتم حذف أوراق العمل لأنك قمت بإلغاء المهمة", vbInformation End If Else MsgBox ("لن يتم حذف أوراق العمل إلا بعد مرور " & exDate - Date & " يوم"), vbInformation End If Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub الكود مرتبط بالتاريخ فإذا كان التاريخ أقل من أو يساوي تاريخ اليوم يتم الحذف Delete Sheets After Specific Date.rar

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

إنت تؤمر يا غالي النسخة 2010 باللغة الإنجليزية 32 بت من هنا النسخة 2010 باللغة الإنجليزية 64 بت من هنا

ما الغرض والفائدة من التحويل من تنفيذي لملف إكسيل ..؟؟ إذا عرف السبب بطل العجب يوجد طريقة ولكنها غير مفيدة وتفسد البياانات في الملف ..يعني طريقة للأسف غير فعالة

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

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

وعليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله أبو يوسف هديء من روعك ... ما الذي أثار غضبك ؟ وأين هذا الجفاء ؟ وما هو التجاهل الذي تقصده ؟ في حقيقة الأمر أنا لست متابعاً جيداً للموضوع حيث أنني لا أفهم طبيعة الملف بحكم أن عملي بعيد عن هذه المصطلحات (سند وقبض وصرف وحاجات كدا ولا أفهم فيها) حاولت أن أقدم في بداية الأمر الشكل العام وتوضيح للنقاط الرئيسية وآملت أن أجد من يقدم أو يكمل المعلومة ..لكن ما باليد حيلة ... أرجو ألا تحزن .. وأقول لك فصبر جميل .. مشكلتي أنني لا أجيد التعامل مع الفورم ولكن هذا لا يمنعني من المحاولة .. إن شاء الله عندما أنتهي من موضوع المصفوفات (لأنه موضوع مفيد جداً) سأحاول أن أكمل معك مشوار هذا البحث رغم أنني أجهل فيه الكثير تقبل وافر تقديري واحترامي

يرجى توضيح هذه الملحوظة بشيء من التفصيل .. ملحوظة :- لا يتم تكرار نفس الرقم خلال عملية متتالية . أنت تتعامل مع دالة أرقام عشوائية من ثم فإن الأرقام تأتي بشكل عشوائي أي غير منظم وبالتالي هناك تعارض في الطلب .. ما قدمه الأخ الحبيب سليم يفي بالغرض بالنسبة لطلبك فهو المطلوب على ما يبدو لي ، ولكن إذا دققنا النظر ستجد أنك تريد أن تكون منظمة بحيث تظهر الأرقام بشكل مرتب ؟؟!!! عندي حل في حقيقة الأمر وهو يوافق طلبك تماماً لكن لن أقدمه إلا إذا وضحت الفائدة من الأمر لكي أستفيد ويستفيد الجميع

الحلول المقدمة كلها بالمعادلات .. نسينا الأكواد هذا حل يغنيك عن معادلات الصفيف والمعادلات كلها والأعمدة المساعدة و وو .. وفر حجم ورقة العمل واستمتع بأداء أفضل مع الاكواد Private Sub Worksheet_Change(ByVal Target As Range) Dim A, I As Long If Target.Cells.Count > 1 Then Exit Sub If Target.Value = vbNullString Then Exit Sub If Intersect(Range("I2:J2"), Target) Is Nothing Then Exit Sub A = Range("A4", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value With CreateObject("Scripting.Dictionary") For I = 1 To UBound(A, 1) If Target.Address = "$I$2" Then If A(I, 1) = Target.Value Then .Item(A(I, 2)) = Empty Else If A(I, 1) = Target(, 0).Value And A(I, 2) = Target.Value Then .Item(A(I, 3)) = Empty End If Next If .Count Then Target.Resize(, 2).Offset(, 1).Validation.Delete Target.Offset(, 1).Validation.Add 3, , , Join(.keys, ",") Application.EnableEvents = False Target.Offset(, 1).ClearContents Application.EnableEvents = True End If End With End Sub أرجو أن يفي بالغرض Validation Lists VBA.rar

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

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

بسم الله ما شاء الله حلول ممتازة أنا كنت مجهز ملفك من بدري لكن حصل انقطاع للكهرباء لمدة ساعتين فمنعت من المشاركة في الموضوع عموماً زيادةً في إثراء الموضوع إليك الملف التالي .. تم الاستعانة بعمودين مساعدين ..عمود لاستخراج القيم الفريدة لأسماء العملاء في العمود I بدايةً من الخلية I4 ، وذلك بناءً على قيمة الخلية K2 ، تم وضع معادلة الصفيف التالية =IFERROR(INDEX($B$4:$B$31,MATCH(0,COUNTIF($I$3:$I3,$B$4:$B$31)+($A$4:$A$31<>$K$2),0),COLUMN(A1)),"") معادلة صفيف تعني أنه بعد الإدخال يتم الضغط على Ctrl + Shift + Enter العمود الثاني المساعد هو العمود J بدايةً من الخلية J4 ، وذلك بناءً على الخليتين K2 وL2 تم استخراج أرقام القيد الغير مكررة بمعادلة الصفيف التالية =IFERROR(IF(I4="","",INDEX($C$4:$C$31,MATCH(0,COUNTIF($J$3:$J3,$C$4:$C$31)+($A$4:$A$31<>$K$2)+($B$4:$B$31<>$L$2),0),COLUMN(A1))),"") معادلة صفيف تعني أنه بعد الإدخال يتم الضغط على Ctrl + Shift + Enter ************************** المرحلة الثانية .. تحديد الخلية L2 ثم الذهاب إلى التبويب Data ثم Data Validation ثم اختيار List من القائمة ثم كتابة المعادلة التالية =OFFSET(I4,0,0,MATCH("",I4:I1000,0)-1,1) نفس الكلام مع الخلية المجاورة M2 =OFFSET(J4,0,0,MATCH("",J4:J1000,0)-1,1) أرجو أن أكون قد وفقت لتوصيل المعلومة تقبل تحياتي Validation Lists YasserKhalil.rar

تمام تمام الله ينور عليك .. بس ركز في المعطيات .. الخطوات صحيحة 100% ولكن المعطيات المطلوبة لم تكن بالدقة المطلوبة ..حيث طلبت النطاق A1:A15 وعملية ترحيل قيم النطاق التي تم تخزينها في مصفوفة تنقل للخلية K5 تقبل وافر تقديري واحترامي

أخي الحبيب إبراهيم أبو ليلة إليك رابط نسخة أوفيس باللغة الإنجليزية 2013 .. 32 بت من هنا إليك رابط نسخة أوفيس 2013 باللغة الإنجليزية .. 64 بت من هنا *********************************************** وإليك معلومات الهاش الخاصة بكل نسخة ■ File hashes from iso: ♦ 32 bit: CRC32: 04BF8BBE MD5: D57E91F7B533406049231AB7C6B75F49 SHA-1: 98451FEB0A5A1F58322D450B0EE2891D6FCDCADA ♦ 64 bit: CRC32: 3C3F8EE9 MD5: 2611BE3B16EA15C152D463C4CAC01E53 SHA-1: 98CE4579F1A646F98ECE459C1A43A996DE266B9F

الأخ الكريم أبو حازم جرب الكود التالي في حدث ورقة العمل Private Sub TextBox1_Change() Dim LastRow As Long, RngFiltered As Range, I As Long, Arr Static Rng As Range Application.ScreenUpdating = False ActiveSheet.AutoFilterMode = False If Not Rng Is Nothing Then Rng.EntireRow.Hidden = False LastRow = Range("B1000").End(xlUp).Row Set Rng = Range("B8:B" & LastRow) Arr = Rng.Value If Len(TextBox1.Text) > 0 Then For I = 1 To UBound(Arr, 1) If IsNumeric(Arr(I, 1)) Then Arr(I, 1) = "'" & Arr(I, 1) Next I Rng.Value = Arr Rng.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*" End If Set RngFiltered = Rng.SpecialCells(xlCellTypeVisible) ActiveSheet.AutoFilterMode = False For I = 1 To UBound(Arr, 1) If Left(Arr(I, 1), 1) = "'" Then Arr(I, 1) = Mid(Arr(I, 1), 2) End If Next I Rng.Value = Arr Rng.EntireRow.Hidden = True RngFiltered.EntireRow.Hidden = False Application.ScreenUpdating = True End Sub يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي البحث عن الرقم او الرصيد.rar

الحمد لله الذي بنعمته تتم الصالحات مشكور على إغلاق الموضوع بالشكل المناسب أخي الفاضل أكرم .. تقبل تحياتي

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