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

اخى الفاضل جرب المرفق فاتورة الكهرباء.rar

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

أخي الكريم أهلا ومرحباً بك في المنتدى بداية المشاركات ملف تنفيذي تم الكشف عنه على موقع Virus Total وها هو رابط نتيجة الفحص لمن يريد الإطلاع من هنا

اخى الفاضل خالد الرشيدى جزاك الله كل الخير سلمت يداك بكل خير وجزا الله كل الخير الاخ الفاضل علاء رسلان

الأخ ياسر والأخ زوهير، أنتما مثالان كبيران حقا للعطاء والخير، بارك الله فيكما وغفر الله لكما ورزقتما الجنة بدون سابقة عذاب

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

الأخ المتميز زوهير بارك الله فيك على هذا الكود الرائع جزيت خير الجزاء أخي الكريم شكيب عمار .. موضوع الشرح مرهق للغاية استغرق مني الشرح حوالي ساعة ونصف (لا تنسى أن تضغط على كلمة "أعجبني هذا") ولا تضغط على كلمة "تحديد كأفضل إجابة" إذ أن مشاركتي ليست بإجابة إنما هي شرح لما تفضل به الرائع زوهير Option Explicit 'يوضع الكود في حدث الفورم ليتم إضافة واستدعاء وتعديل البيانات 'البيانات في ورقة عمل باسم "ورقة 2" والصف الأول يحمل العناوين الآتية 'كود الموظف - الاسم واللقب - تاريخ الميلاد - الوظيفة 'يتم إنشاء مربع نص للكود وآخر للاسم وآخر لتاريخ الميلاد وآخر للوظيفة 'وزري أمر للاستدعاء والتعديل [ListBox1] ويوضع داخله مربع القائمة [Frame1] يتم إنشاء إطار 'بعنوان البحث والتعديل كما يتم إنشاء زر أمر باسم إضافة [CheckBox1] يتم إنشاء '--------------------------------------------------------------------------------------- Private Sub CheckBox1_Click() 'حيث أن لمربع الفحص قيمتان [CheckBox1] يقوم الكود بالعمل عند النقر على '[True] إذا كان المربع تم تحديده أي وضع علامة صح فإنه يحمل القيمة '[False] إذا كان المربع لم يتم تحديده أي أنه لا توجد علامة صح فإنه يحمل القيمة '--------------------------------------------------------------------------- '[True] فإذا كانت القيمة تساوي If CheckBox1.Value Then 'يظهر الإطار بما في داخله من أدوات Frame1.Visible = True '[False] وإذا كانت القيمة تساوي Else 'يختفي الإطار بما في داخله من أدوات Frame1.Visible = False End If End Sub Private Sub CommandButton1_Click() 'يتم تنفيذ الأسطر عند النقر على زر الإضافة '--------------------------------------- Dim iRow As Long, I As Long 'سطر لتنشيط أو تحديد ورقة العمل الهدف Sheets(2).Activate 'تعيين قيمة للمتغير ليساوي رقم آخر صف به بيانات في العمود الأول iRow = Range("A" & Rows.Count).End(xlUp).Row 'في آخر صف به بيانات يتم الإشارة إلى الصف التالي لأنه أول صف فارغ 'توضع قيمة مربع النص الأول في العمود الأول Range("A" & iRow + 1).Value = TextBox1.Value 'تتم الإزاحة إلى الخلية المجاورة بمقدار عمود واحد وتوضع قيمة مربع النص الثاني Range("A" & iRow + 1).Offset(0, 1).Value = TextBox2.Value 'تتم الإزاحة إلى الخلية المجاورة بمقدار عمودين وتوضع قيمة مربع النص الثالث 'يتم تنسيق مربع النص لتاريخ الميلاد لتظر بهذا التنسيق المذكور في السطر Range("A" & iRow + 1).Offset(0, 2).Value = Format(TextBox3, "yyyy/dd/mm") 'تتم الإزاحة إلى الخلية المجاورة بمقدار ثلاثة أعمدة وتوضع قيمة مربع النص الرابع Range("A" & iRow + 1).Offset(0, 3).Value = TextBox4.Value 'حلقة تكرارية لمسح مربعات النصوص الأربعة بعد ترحيل البيانات For I = 1 To 4 Controls("TextBox" & I).Value = "" Next I End Sub Private Sub CommandButton2_Click() 'يتم تنفيذ الأسطر عند النقر على زر الاستدعاء '----------------------------------------- 'الإعلان عن المتغيرات Dim Zouhir As Worksheet Dim V As Integer, LastRow As Integer Dim M As String Dim Q, F 'سطر لتنشيط أو تحديد ورقة العمل الهدف Sheets(2).Activate '[ListBox1] إظهار مربع القائمة ListBox1.Visible = True 'سطر لتجنب حدوث خطأ On Error Resume Next 'مسح البيانات داخل مربع القائمة ListBox1.Clear 'إذا كان مربع النص الأول فارغ يتم القفز إلى السطر الذي بدايته رقم 1 'أي إنهاء الإجراء الفرعي If TextBox1.Text = "" Then GoTo 1 'تعيين قيمة للمتغير ليساوي قيمة مربع النص الأول M = TextBox1.Text 'تعيين قيمة للمتغير ليساوي ورقة العمل الهدف Set Zouhir = Sheets(2) 'بدء التعامل مع ورقة العمل With Zouhir 'تعيين قيمة للمتغير ليساوي رقم آخر صف به بيانات في العمود الأول LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'تعيين المتغير ليساوي النطاق الذي يطابق البحث عن قيمة مربع النص Set Q = .Range("A2:A" & LastRow).Find(M) 'إذا تم إيجاد الكود الذي يطابق مربع النص If Not Q Is Nothing Then 'يتم تعيين قيمة للمتغير ليساوي عنوان الخلية التي طابقت عملية البحث F = Q.Address 'حلقة تكرارية تنفذ إلى أن تنتهي نتائج البحث عن القيمة الموجودة بمربع النص Do 'سطر يستخدم دالة البحث عن قيمة مربع النص داخل النطاق فإذا كانت النتيجة تساوي 1 If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then 'يتم إضافة العناصر إلى مربع القائمة 'عبارة عن صفوف وأعمدة والصفوف تمثل الفهرس الذي يبدأ من صفر [ListBox1] مربع القائمة 'لم يتم تعيين قيمة له في الأسطر السابقة لذا فإنه يحمل القيمة صفر [V] المتغير المسمى 'تمثل الأرقام 1 و 2 و 3 و 4 أرقام الأعمدة في مربع القائمة ListBox1.AddItem Q.Value ListBox1.List(V, 1) = Q.Offset(0, 1).Value ListBox1.List(V, 2) = Q.Offset(0, 2).Value ListBox1.List(V, 3) = Q.Offset(0, 3).Value ListBox1.List(V, 4) = Q.Offset(0, 4).Value 'العمود الخامس في مربع القائمة وهو وهمي ليحمل عنوان النطاق الحالي المطابق للبحث ListBox1.List(V, 5) = Q.Address 'زيادة قيمة المتغير بمقدار واحد V = V + 1 End If 'مرة أخرى ليساوي هذه المرة نتيجة البحث التالية [Q] تعيين المتغير المسمى Set Q = .Range("A2:A" & LastRow).FindNext(Q) Loop While Not Q Is Nothing And Q.Address <> F End If End With 1 End Sub Private Sub CommandButton3_Click() 'يتم تنفيذ الأسطر عند النقر على زر التعديل '----------------------------------------- 'الإعلان عن المتغيرات Dim Zouh As String Dim MYSH As Worksheet Dim MSG As String Dim ANS As Integer Dim I As Long 'سطر لتنشيط أو تحديد ورقة العمل الهدف Sheets(2).Activate On Error Resume Next 'تعيين المتغير ليساوي السلسلة النصية بعد علامة يساوي MSG = "هل أنت متأكد؟" '[Yes - No] تعيين المتغير ليساوي قيمة النقر على أحد الاختيارين ANS = MsgBox(MSG, vbYesNo) 'إذا كانت الإجابة بنعم يتم تنفيذ الأسطر التالية If ANS = vbYes Then 'تعيين المتغير من النوع سلسلة نصية ليساوي عنوان الخلية في العمود الأول للبيان الذي تم النقر عليه Zouh = ListBox1.List(ListBox1.ListIndex, 5) 'تعيين المتغير ليساوي ورقة العمل الهدف Set MYSH = Sheets(2) 'بدء التعامل مع ورقة العمل With MYSH 'تحديد الخلية للمتغير المشار إليه .Application.Range(Zouh).Activate 'قيمة الخلية نفسها وهنا لا تتم عملية الإزاحة لأنها نقطة البداية وتساوي مربع النص الأول .Range(Zouh).Offset(0, 0).Value = TextBox1.Value 'تتم عملية الإزاحة بمقدار عمود واحد وتساوي مربع النص الثاني .Range(Zouh).Offset(0, 1).Value = TextBox2.Value 'تتم عملية الإزاحة بمقدار عمودين وتساوي مربع النص الثالث .Range(Zouh).Offset(0, 2).Value = TextBox3.Value 'تتم عملية الإزاحة بمقدار ثلاثة أعمدة وتساوي مربع النص الرابع .Range(Zouh).Offset(0, 3).Value = TextBox4.Value End With End If 'حلقة تكرارية لمسح مربعات النصوص الأربعة بعد ترحيل البيانات For I = 1 To 4 Me.Controls("TextBox" & I).Text = "" Next I 'إغلاق الفورم بشكل مؤقت Unload Me 'إظهار الفورم UserForm1.Show 'إخفاء مربع القائمة ListBox1.Visible = False End Sub Private Sub ListBox1_Click() '[ListBox1] يتم تنفيذ الإجراء في حالة النقر داخل '---------------------------------------------- 'في حالة حدوث خطأ يتم إنهاء الإجراء الفرعي On Error GoTo 1 Dim MYSH As Worksheet, Zouh As String 'تعيين المتغير من النوع سلسلة نصية ليساوي عنوان الخلية في العمود الأول للبيان الذي تم النقر عليه Zouh = ListBox1.List(ListBox1.ListIndex, 5) 'تعيين المتغير ليساوي ورقة العمل الهدف Set MYSH = Sheets(2) 'بدء التعامل مع ورقة العمل With MYSH 'تحديد الخلية للمتغير المشار إليه Application.Range(Zouh).Activate 'مربع النص الأول يساوي نطاق الخلية المشار إلى عنوانها TextBox1.Text = .Range(Zouh).Value 'مربع النص الثاني يساوي الخلية المجاورة بمقدار عمود واحد TextBox2.Text = .Range(Zouh).Offset(0, 1).Value 'مربع النص الثالث يساوي الخلية المجاورة بمقدار عمودين TextBox3.Text = .Range(Zouh).Offset(0, 2).Value 'مربع النص الرابع يساوي الخلية المجاورة بمقدار ثلاثة أعمدة TextBox4.Text = .Range(Zouh).Offset(0, 3).Value End With 1 End Sub Private Sub UserForm_Initialize() 'ينفذ هذا السطر عند تشغيل الفورم ويقوم بإخفاء الإطار بما في داخله من أدوات '------------------------------------------------------------------------- Frame1.Visible = False End Sub وزيادة في الخير أرفق لك الملف به الكود مشروح ربما لا تحب أن تقرأ الشرح في المنتدى وتقرأه من داخل محرر الأكواد لا تنسانا بدعوة بظهر الغيب تقبل الله منا ومنكم :gift2: Add Edit Call UserForm Zuhair.rar

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

الأخ الكريم هشام كمال الأخ الغالي علاء رسلان الأخ الحبيب زيزو العجوز جربوا الدالة المعرفة التالية UDF Function يتم وضع الدالة في موديول جديد Public Function Wish(rngData As Range, rngWish As Range) Dim ArrData, ArrWish, ArrOut, ArrSwap Dim ColCount As Long, I As Long, J As Long, K As Long ArrData = rngData.Value ArrWish = rngWish.Value ReDim ArrOut(1 To UBound(ArrData, 1), 1 To 1) ColCount = UBound(ArrData, 2) ReDim ArrSwap(1 To 1, 1 To ColCount) For I = 1 To (UBound(ArrData, 1) - 1) For K = I To UBound(ArrData, 1) If ArrData(K, ColCount) > ArrData(I, ColCount) Then For J = 1 To ColCount ArrSwap(1, J) = ArrData(I, J) ArrData(I, J) = ArrData(K, J) ArrData(K, J) = ArrSwap(1, J) Next J End If Next K Next I For I = 1 To UBound(ArrData, 1) For J = 1 To (ColCount - 1) If ArrOut(I, 1) = "" Then For K = 1 To UBound(ArrWish, 1) If ArrData(I, J) = ArrWish(K, 1) Then If ArrWish(K, 2) > 0 Then ArrOut(I, 1) = ArrWish(K, 1) ArrWish(K, 2) = ArrWish(K, 2) - 1 End If End If Next K End If Next J Next I For I = 1 To (UBound(ArrData, 1) - 1) For K = I To UBound(ArrData, 1) If ArrData(K, 1) < ArrData(I, 1) Then ArrSwap(1, 1) = ArrData(I, 1): ArrSwap(1, 2) = ArrOut(I, 1) ArrData(I, 1) = ArrData(K, 1): ArrOut(I, 1) = ArrOut(K, 1) ArrData(K, 1) = ArrSwap(1, 1): ArrOut(K, 1) = ArrSwap(1, 2) End If Next K Next I Wish = ArrOut End Function لاستخدام الدالة في ورقة العمل يتم تحديد النطاق الذي ترغب في ظهور النتائج به ... النطاق K8:K27 بعد تحديد النطاق روح لشريط المعادلات وضع المعادلة التالية =Wish(D8:J27,M12:N15) حيث يمثل الجزء الأول نطاق البيانات بالكامل D8:J27 ويمثل الجزء الثاني نطاق الحد الأقصى المسموح به M12:N15 ثم أخيراً بعد وضع المعادلة في شريط المعادلات تضغط على Ctrl + Shift + Enter ... هنا لا يتم كتابة المعادلة ثم سحبها بل يتم تحديد النطاق بالكامل ثم وضع المعادلة ثم تضغط على Ctrl + Shift + Enter أرجو أن يفي بالغرض .. جرب الملف وأعملنا بالنتائج إذا أعجبك الحل لا تنسى أن تحدد أفضل إجابة ، وأن تضغط على كلمة "أعجبني هذا" إذا أعجبك الحل تقبلوا تحياتي Pupils Distribution According To Marks & Wishes.rar

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

بارك الله فيك أخي وحبيبي في الله خالد الرشيدي معادلة في منتهى الجمال والروعة زيادة في الخير وإثراءً للموضوع أقدم لكم حل بدالة معرفة والدالة للعلامة الكبير عبد الله باقشير - غفر الله لنا وله - Function Kh_Names(FullName As String, ParamArray Index1()) As String Dim I As Integer Dim Kh_Split, MyArray, Arr Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Application.WorksheetFunction.Trim(FullName) For Each Arr In MyArray RE = Replace(Arr, " ", "^") SN = Replace(SN, Arr, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(Index1) Kh_String = Kh_String & " " & Kh_Split(Index1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function استخدام الدالة =Kh_Names($F2,COLUMN(A$1)) أو يمكن بهذا الشكل =Kh_Names($F2,1) الرقم 1 يمثل الاسم الأول .. استخدم نفس المعادلة واستبدل الرقم 1 برقم 2 لاستخراج الاسم الثاني وهكذا تقبلوا تحياتي :fff: Split Compound Names.rar

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

الأخ الكريم هشام كمال أعتذر عن التأخر في الرد إليك الملف التالي عله يفي بالغرض ماستر 2015-2016.rar

الاخ ياسر اخي الكريم جزاك الله خيرا ولله كل من فضلكم - منكم اخذنا ولم تبخلوا علينا بالعطاء جزاكم الله عنا خير الجزاء شرح ولا اروع لو كنت كنت انامن شرح لم شرحته بهذه الكفاءة الاخ شكيب عمار دعاءك لنا تشيجيع اكثر واكثر جزاك الله خيرا

اخى الحبيب المهندس ياسر فتحى وانت دائما تسعدنى وتشرفنى بمرورك وكلماتك الطيبه فى حقى كل عام وانتم بخير والف مبروك على الترقيه المستحقه تقبل تحياتى

السلام عليكم كل عام وانتم بكل خير وزارة الكهرباء حابه تعيد عليا ممكن معادله لضبط عديه وزارة الكهرياء على اساس أولًا: الشرائح الثلاث الأولى -الشريحة الأولى من 0 إلى 50 كيلو وات ستكون 7.5 قروش للكيلو وات. - الشريحة الثانية من 51 إلى 100 كيلو وات 14.5 قرش للكيلو وات. - الشريحة الثالثة من 101 إلى 200 كيلو وات 16 قرشا للكيلو وات. ثانيًا: الشريحة الرابعة من 201 إلى 350 كيلو وات سيكون 39 قرشا للكيلو وات بدلاً من 24 قرشا. - الشريحة الخامسة من 351 إلى 650 كيلو وات سيكون 39 قرشا لكل كيلو وات بزيادة 5 قروش. - الشريحة السادسة 651 إلى ألف كيلو وات 68 قرشا لكل كيلو وات بزيادة 8 قروش. - الشريحة السابعة أعلى من 1000 كيلو وات 78 قرشا للكيلو وات بزيادة 4 قروش. يتم وضع قيمة الاستهلاك على الاساس السابق فى الخليه A15 والاستهلاك الموجود فى الخليه A13 فاتورة الكهرباء.rar

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

السلام عليكم اخى الكريم علاء الاخ الكريم خالد نعم ما ذكرة الاخ علاء هو المطلوب 1- يتم حساب اول 50 كيلو وات بسعر 0.075 وهما 50 كيلو وات يكون قيمتهم 3.75 2- يتم حساب ما فوق 50 كيلو وات والى 100 كيلو وات بسعر 0.145 وهما 50 كيلو وات يكون قيمتهم 7.25 3- يتم حساب ما فوق 100 كيلو وات والى 200 كيلو وات بسعر 0.160 وهما 8 كيلو وات يكون قيمتهم 1.28 وهكذا

نحن نبحث لك عن الافضل ، ولا نعلم آلية العمل لديك تفضل تم التعديل حسب الطلب 13_UP.rar

اخى الفاضل أبو حنين هل ما ذكرة أ.علاء رسلان هو المطلوب أ.علاء اعجبنى كثيراً اسلوب التوضيح غير المباشر - جزاك الله خيراً استاذى واخى الحبيب -

لكم أن تتخيلوا اننى اعتقدت ان الحوار سيكون أول شريحة فى المبلغ ثم الثانية و هكذا و ليس الاستهلاك فى قيمة الشريحة الواقع فيها الاستهلاك بمعنى ان 108 ك.و ستقسم اول 50 ك.و يضرب فى ثمن اول شريحة ثم تليها 50 ك.و الاخرى فى ثمن الشريحة الثانية و يتبقى 8 يضرب فى ثمن الشريحة الثالثة و ليس 108 مباشر فى قيمة الشريحة الثالثة الواقع فيها على أى حال متابع للموضوع و ماذا عن الحالة التى سردتها ماذا سيكون حال المعادلات فيها ؟ ان أمكن ذلك دمتم بخير و أعزكم الله

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

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

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

السّلام عليكم و رحمة الله و بركاته تفضّل أخي زوهير هذا الملف وهو عبارة عن مزيج بين أكواد ملفك و أكواد ملفي أخوك / عبد العزيز البسكري زوهير للتعديل.rar

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

ما شاء الله .. الاكواد تلعب دور هام هنا .. جربت الحل و النتيجة رائعة و تلاعبت بالاختيارات و النتيجة مبهرة تتغير بتغير الرغبات و وفقا للشروط المحددة أستطيع ان ألتقط نفسي الأن بكل إرتياح .. سؤال لأخى الحبيب ياسر خليل لما لا تقدم فيديوهات تعليمية لـ VBA نتعلم منها هذا الفرع الهام فى الأكسيل و يكون قائم على أمثلة عملية فعلية .. عموما لدى حافز شديد لتعلم لغة برمجة التطبيقات و سبر أغوارها .. مشكلتى تكمن فى اننى معقد التفكير برغم من أن أغلب المشاكل المفترض ان يكون الامر قائم على بساطة التفكير سأحاول العمل على هذا النحو و اختيار الأبسط ثم الأعقد كلما ارتفع المستوى دمتم بخير جميعا و أعزكم الله .

اخى الحبيب والاستاذ المتميز خالد الرشيدى كل عام وانتم بخير نسال الله ان يتقبل منا ومنكم صالح الاعمال تقبل تحياتى

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

السلام عليك اخي ضع الكود في حدث الورقة وجرب ان شاءالله ياتي بثماره Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.EnableEvents = False On Error Resume Next For Each c In Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row) X = Cells(c.Row, Columns.Count).End(xlToLeft).Column + 1 If c = "Yes" Then If Cells(c.Row, X) = "" Then Cells(c.Row, X).Value = c.Offset(, -3).Value End If End If Next c Application.EnableEvents = True End Sub

وعليكم السلام :-) يمكنك استخدام الكود التالي ، و بدون الوحدة النمطية: =Sum(Nz([invoiceAmt],0) NZ معناه: Null to Zero جعفر

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

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

الأخ مصر 2015 ... ربنا يصلح مصر في 2015 يرجى تغيير اسم الظهور للغة العربية وباسم مناسب إذا أمكن (دا إذا مكانش يضايقك طبعاً) بالنسبة لطلبك سهل للغاية بفرض أن العمود الأول والثاني يحتوي قيم وتريد جمع القيم من العمودين في العمود الثالث C قم بتحديد العمود بالكامل .... من خلال النقر مرة واحدة على رأس العمود (انقر عليه هيطب سااااكت علطول ..) هتلاقي العمود كلها متحدد روح لشريط المعادلات وضع المعادلة فيه =SUM(A1:B1) واضغط Ctrl + Enter مش إنتر بس ... سيتم تنفيذ المعادلة على كامل العمود .. ملحوظة : يرجى عدم تطبيق المعادلة على كامل العمود .. لأن ذلك سيسبب ثقل في الملف حيث أن عدد الصفوف في ورقة العمل كبير جداً .. يكفي أن تكتب القيم مثلاً في العمودين ثم تسحب المعادلة مرة واحدة إلى نهاية النطاق الذي تعمل عليه أو تضغط دبل كليك على مقبض السحب .. تقبل تحياتي

الأخ الفاضل أبو إلياس إليك الكود بعد التصحيح .. من الأخطاء الظاهرة الخفية في الكود الذي قمت بكتابته كتابة رقم 1 بدلاً من حرف L في جملة xlup ويرجع ذلك إلى أنه عند كتابة حرف الـ L صغير بهذا الشكل l فإنه يشبه إلى حد كبير رقم 1 في محرر الأكواد .. وكذلك رقم 1 بدلاً من المتغير i يراعى عند كتابة الأكواد الدقة التااااااااامة ثم الدقة التامة .. التصحيح أصعب عندي من بناء الكود !! استغرق الأمر مني حوالي نصف ساعة لمعرفة الخطأ .. ظللت أنظر للكود ثم أنظر مرة أخرى ثم أنظر ولم ألاحظ أن حرف الـ L قد كتب بدلاً منه رقم 1 عموماً الحمد لله تم تدارك الخطأ .. ومعرفة مكمن المشكلة إليك الكود بعد التعديل Private Sub CommandButton1_Click() Dim MySH As Worksheet Dim I As Long, K As Long, R As Long, LR As Long Set MySH = Sheets("البيانات") K = 1 Columns("A:J").ClearContents For I = 3 To MySH.Cells(Rows.Count, 1).End(xlUp).Row LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For R = 1 To 10 If Me.Controls("CheckBox" & R) Then Cells(LR, K) = MySH.Cells(I, Me.Controls("CheckBox" & R).Caption) K = K + 1 End If Next R K = 1 Next I Unload Me End Sub لا تنسى أن تحدد أفضل إجابة .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" تقبل تحياتي :fff: Transfer Specific Columns By CheckBoxes On UserForm.rar

السلام عليكم . بعد اذن استاذى الحبيب ياسر خليل لجعل الارقام السالبه بين قوسين افتح تنسيق الخليه رقم ثم مخصص ثم انسخ هذا التنسيق وضعه فى النوع #,##0_);[أحمر](#,##0) وبالنسبة لموضوع التفقيط فراجع هذا الرابط وطبق مافيه http://www.officena.net/ib/index.php?showtopic=40562 تحياتى

اهلا بك اخي في منتدى اوفيسنا . سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه . انظر الى الصورة

الاستاذ الفاضل / مجاهد القوصى مجهود وافر برجاء زيارة الرابط التالي http://arabsh.com/files/0c34434b6cf6/مرتبات تعليم.rar.html