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

أحبائى أعضاء وأساتذة المنتدى العظيم أتمنى من الله أن تكونوا جميعا بخير أقدم لكم اليوم كودين الكود الأول وهو لإخفاء أشرطة الأدوات والكود الثانى لإظهار أشرطة الأدوات ولا أدرى إذا كان الموضوع مكرر أم لا عموما للفائدة Sub RemoveToolbars_HH() On Error Resume Next With Application .DisplayFullScreen = True .CommandBars("Full Screen").Visible = False .CommandBars("MyToolbar").Enabled = True .CommandBars("MyToolbar").Visible = True .CommandBars("Worksheet Menu Bar").Enabled = False End With On Error GoTo 0 End Sub Sub RestoreToolbars_HH() On Error Resume Next With Application .DisplayFullScreen = False .CommandBars("MyToolbar").Enabled = False .CommandBars("Worksheet Menu Bar").Enabled = True End With On Error GoTo 0 End Sub Hide And Show The Menu Bar Yasser Albanna.rar

السلام عليكم ورحمة الله وبركاته اليوم أعود إليكم اخوانى بعد غياب بهدية بسيطة لكن قد تصبح جوهرة ثمينة عندك فى يوم ما ده لما ربنا يكرمك وتعمل شركة سوفت وير أو محمول قل إن شاء الله باختصار جُل أمور حياتنا وأعمالنا وأشغالنا كلها بقت بباسورد إما يكون بسيط أو معقد وكلاهما قابل للكسر يعنى مفيش مفر من أخى وأستاذى ياسر خليل لكن الشركات دى بتعمل سريال نمبر ازاى لكل مستخدم ؟ لو الشركة عايزه تعمل سريال يمشى الحال بتستعمل الكود التالى Sub Passwordgenerator() Do 'أمربمعنى افعل ' شرط بمعنى لو كانت الخلية التى بجانب الخلية النشطة مملوءة If ActiveCell.Offset(0, -1) <> "" Then 'ضع المعادلة التالية فى الخلية النشطة ActiveCell.Formula = Chr(Int((26 * Rnd) + 97)) & Format(Int(100000 * Rnd), "00000") 'الانتقال الى الخلايا التالية للخلية النشطة ActiveCell.Offset(1, 0).Select Else 'أيضا لو لم تكن الخلية التى بجانب الخلية النشطة مملوءة Exit Sub 'اخرج من الاجراء End If 'انتهاء جملة الشرط Loop 'استمر End Sub الكود وظيفته توليد سريال حرف عشوائى + رقم عشوائى وأهم ما فيه السطر العبقرى ده : ActiveCell.Formula = Chr(Int((26 * Rnd) + 97)) & Format(Int(100000 * Rnd), "00000") الشرح : Chr دالة النصوص CHAR تعطى حرف عشوائى مساوى لرقم معين Int دالة تقريب لأقرب عدد صحيح 26 عدد حروف اللغة الانجليزية Rnd دالة تعطى رقم عشوائى 97 لجعل الحرف الناتج يكون صغير صمول 65 لجعل الحرف الناتج يكون كبير كبتل اشمعنى الرقم 97 والرقم 65 الرقم 65 يساوى A أول حرف كبتل فى اللغة الانجليزية الرقم 66 يساوى B ثانى حرف كبتل فى اللغة الانجليزية وهكذا الرقم 97 يساوى a أول حرف صمول فى اللغة الانجليزية الرقم 97 يساوى b ثانى حرف صمول فى اللغة الانجليزية وهكذا أعتقد أن الفكرة زادت وضوحا Format(Int(100000 * Rnd), "00000 " هنا نتحكم فى عدد الأرقام التى تلى الحرف العشوائى 4 أو 5 أو 6 ...الخ ببساطة جرب تغيير الأصفار فى الشقين بالزيادة والنقصان ولو الشركة عايزه تحبكها شوية بتعمل ايه ؟ بتغير فى السطر العبقرى تضيف عليه معادلة أخرى مماثلة أو مختلفة مثل : ActiveCell.Formula = Chr(Int((26 * Rnd) + 65)) & Format(Int(100000 * Rnd), "00000") & Chr(Int((26 * Rnd) + 97)) & Format(Int(100000 * Rnd), "00000") أو زى كده : ActiveCell.Formula = Chr(Int((26 * Rnd) + 65)) & Format(Int(100000 * Rnd), "00000") & Chr(Int((26 * Rnd) + 97)) & Format(Int(100000 * Rnd), "00000") & Chr(Int((26 * Rnd) + 65)) & Format(Int(100000 * Rnd), "00000") ولو الشركة عايزه تحبكها شويتين بتعمل ايه ؟ بتغير فى السطر العبقرى وتعمل سريال مجموعات مجموعات مثل : ActiveCell.Formula = Chr(Int((26 * Rnd) + 65)) & Format(Int(1000 * Rnd), "000") & " - " & Chr(Int((26 * Rnd) + 97)) & Format(Int(1000 * Rnd), "000") & " - " & Chr(Int((26 * Rnd) + 65)) & Format(Int(1000 * Rnd), "000") & " - " & Chr(Int((26 * Rnd) + 97)) & Format(Int(1000 * Rnd), "000") ولو الشركة عايزه تعمل سريال مخصوص لأوفيسنا بتعمل ايه ؟ بتغير فى السطر العبقرى وتعمل سريال مجموعات مجموعات وتضع اسم أوفيسنا فيهم زى كده : ActiveCell.Formula = Chr(Int((26 * Rnd) + 65)) & Format(Int(1000 * Rnd), "000") & " - " & Chr(Int((26 * Rnd) + 97)) & Format(Int(1000 * Rnd), "000") & " - " & "officena" & " - " & Chr(Int((26 * Rnd) + 97)) & Format(Int(1000 * Rnd), "000") & " - " & Chr(Int((26 * Rnd) + 65)) & Format(Int(1000 * Rnd), "000") ملحوظة : الكود الأصلى هو المذكور فى بداية الموضوع وهو منقول من مشاركة فى أحد المنتديات الأجنبية أما ما تلاه من أكواد فى ثنايا الشرح هى من وحى الخيال ويمكنك أن تعيد تشكيل السطر العبقرى بالتعديل والاضافة كما تشاء مين بقى هيتفاعل مع الموضوع ويقدم لنا شكل جديد للكود ؟ طبتم وطاب مساءكم والسلام عليكم ورحمة الله Password generator.rar

يا هلا بك أخي العزيز للوصول لما تريد اكتب المعادلة التالية في الخلية D5 =IFERROR(IF(FIND(D$4;$C5);"دور ثان");"") وانسخ المعادلة رأسيا وأفقيا لكل الطلاب وكل المواد

الأخ الكريم جابر يرجى تغيير اسم الظهور للغة الزهور اللغة العربية الأخ الحبيب والمعلم الكبير محمد صالح ..بارك الله لنا فيك وجزاك الله خيراً إثراءً للموضوع إليك الملف التالي بدون أعمدة مساعدة يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبلوا تحياتي Number Analysis By Formulas & By UDF Function YasserKhalil.rar

أتمنى من الله أن تكونوا جميعا بالف خير حبيت أطرح موضوع أكيد ليس بالجديد ولكنه مفيد أحيانا أتمنى الإفادة للجميع الموضوع هو عن فك حماية أوراق العمل Worksheets في أي مستند فالمرفق يحتوي على إضافة يمكن إضافتها للإكسل لتكون ثابته في كل ملفات الإكسل ما عليك إلا أن تفتح الملف الذي به الأوراق محمية وتضغط على الزر الذي سيتم تعيينه في الـ Ribbon وسيتم فك التشفير في لحظات http://forum.tawwat.com/images-topics/images/fa/0042.gif أولا : الكود المستخدم Public Sub ExcelPasswordRemover() Dim Mess As String, Header As String Dim Credit As String Dim RepBack As String, AllClear As String Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Application.ScreenUpdating = False Header = "Ýß ÊÔÝíÑ ÕÝÍÇÊ ÇáÅßÓá" Credit = vbNewLine & vbNewLine & "ãäÊÏíÇÊ ÃæÝíÓäÇ ÇáÊÚáíãíÉ" RepBack = vbNewLine & vbNewLine & "www.officena.com" With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then Mess = vbNewLine & "áÇ íæÌÏ ßáãÉ ÓÑ ááÕÝÍÇÊ ÇáÍÇáíÉ" & vbNewLine & Credit MsgBox Mess, vbInformation, Header Exit Sub End If Mess = "ÓæÝ ÊÓÊÛÑÞ ÚãáíÉ Ýß ÇáÍãÇíÉ ËæÇäí ãÚÏæÏÉ" & _ vbNewLine & "OK ÅÖÛØ " & vbNewLine & "æÅäÊÙÑ ÍÊì íÊã Ýß ÇáÍãÇíÉ " & vbNewLine & _ Credit MsgBox Mess, vbInformation, Header If Not WinTag Then Mess = "" & _ "" & vbNewLine & _ "ÌÇÑí ÍÐÝ ÇáÍãÇíÉ " & _ Credit MsgBox Mess, vbInformation, Header Else On Error Resume Next Do For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Mess = "You had a Worksheet Structure or " & vbNewLine & _ Credit MsgBox Mess, vbInformation, Header Exit Do End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then Mess = "Only structure / windows protected with " & vbNewLine & _ "the password that was just found." & vbNewLine & _ AllClear & Credit & RepBack MsgBox Mess, vbInformation, Header Exit Sub End If On Error Resume Next For Each w1 In Worksheets w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag Then Mess = AllClear & Credit & RepBack MsgBox Mess, vbInformation, Header Exit Sub End If For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Mess = "Êã ÍÐÝ ßáãÉ ÇáÓÑ " & _ Credit MsgBox Mess, vbInformation, Header For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 Mess = AllClear & Credit & RepBack MsgBox Mess, vbInformation, Header End Sub يمكن استخدامه كماكرو عادي أو يمكن استخدامه كإضافة للإكسل لتكون ثابته في كل الملفات Addin طريقة إضافة الـ Addins للإكسل كالتالي بعد فتح أي ملف إكسل ومن علامة الإكسل في أقصى اليسار نضغط عليها ثم نضغط Excel Options ثم من القائمة نضغط على Addin ثم نضغط Go ونختار الإضافة من المكان الذي تم حفظها فيه ثانيا إظهار الإضافة في الـ Ribbon وأخير قم بفتح أي ملف به صفحات محمية بباسورد وأضغط على الإضافة كما موضحه في الصورة التالية وسيتم فك الحماية بمشية الله Sheet Password Remover AddIn.rar

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

الحمد لله والشكر ! ماكتبته في اول مشاركة هو عين العقل والصواب ! والله استسلمت مبدئيا للبرنامج وبدون قناعة ! وفعلا الشي الغير صحيح لا يقبله العقل ! اخي ابو خليل : هذه شركات نصابة تريد جمع المال فقط ! بل ان هذا البرنامج يعمل بطريقة فنية عقيمة ! لن يتحمل برنامجك عندما يصبح صخما ! اخي ابو خليل : تفضل ملفاتك الاكسس ! تحياتي New WinRAR archive.rar

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

رغم إني مش فاهم بس ممكن يكون ده المطلوب ترتيب حسب مجموعة عبارات وتاريخ.rar

اليك هذا الملف عسى ان يكون المطلوب ترحيل ناجح راسب.rar

يمكنك استعمال هذه المعادلة =IF(TODAY()-F2<0;"الإقامة قاربت على الانتهاء";IF(TODAY()-F2=0;"الإقامة انتهت اليوم";"الإقامة منتهية"))

اليك محاوله بالتسيق الشرطى للمكرر ظهور اسم الصنف آلياً لحساب العدد الإجمالي للصنف بعد التصفية.rar

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

السلام عليكم أخي محمد الريفي: أما عن الدقيقة فالحياة فانية وكل دقيقة نكتسب بها علماً هي دقيقة ثمينة لقد اطلعت على الفيديو جزاك الله خيراً وأحسن إليك وبمناسبة الدقيقة أهدي لك هذه الأبيات العربية المصرية: دَقَّاتُ قلبِ المرءِ قائلة ٌ له: . . . إنَّ الحياة َ دقائقٌ وثواني فارفع لنفسك بعدَ موتكَ ذكرها . . . فالذكرُ للإنسان عُمرٌ ثاني للمرءِ في الدنيا وجَمِّ شؤونها . . . ما شاءَ منْ ربحٍ ومنْ خسران فَهي الفضاءُ لراغبٍ مُتطلِّعٍ . . . وهي المَضِيقُ لِمُؤثِرِ السُّلْوان الناسُ غادٍ في الشقاءِ ورائحٌ . . . يَشْقى له الرُّحَماءُ وهْوَ الهاني ومنعَّمٌ لم يلقَ إلا لذة ً . . . في طيِّها شجَنٌ من الأَشجان فاصبر على نُعْمى الحياة ِ وبُؤسِها . . . نعمى الحياة ِ وبؤسها سيَّان

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

يا ريت مزيد من التوضيح تظهر فين؟ وهي بالفعل تظهر في عمود اسم الصنف ما معنى تظهر بالآجمالي؟ ............. يرجى توضويح المطلوب بالتفصيل وبإذن الله ستجد ما يسرك

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

=date()

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

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

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

الاخ المحترم/ ياسر خليل أبو البراء شكرا علي الاهتمام شكرا علي مجهودكم الرائع

الاستاذ / المحترم محمد حسن المحمد الف شكر علي اهتمامك . ..هذا تماما المطلوب

الكتب هذه المعادلة في الخلية A2 واسحب نزولاً =COUNTIF($B$2:B2,B2)

هذه محاولة مني للوصول للمطلوب ولكن بعد استخدام مجموعة من الأعمدة المساعدة أتمنى يكون هو المطلوب mas_تحليل الارقام.rar

تمام يا مستر علي .. أخيراً الحمد لله لقيت اللي يشيل عني شوية بارك الله لنا فيك وجزيت خيراً وأكلت لحم طيرٍ (كنت مفكرني هقول طيراً) ..عندي فكرة بردو باللغة العربية تقبل تحياتي

أخي الكريم احمد يمكنك أن تفتح الباب لعالم البرمجة من خلال الرابط التالي http://www.officena.net/ib/index.php?showtopic=56941 أيهما أفضل : في نظري 2007 و 2013 أستأذنك في تصغير حجم الخط قليلاً .. تقبل تحياتي

الأخ الفاضل عبد الله جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("D4")) Is Nothing Then Application.ScreenUpdating = False If Target.Value = "نعم" Then Sheets("1").Visible = True Sheets("2").Visible = True Sheets("3").Visible = True Else Sheets("1").Visible = False Sheets("2").Visible = False Sheets("3").Visible = False End If Application.ScreenUpdating = True End If End Sub تقبل تحياتي Hide Sheets Based On Worksheet Change.rar

هذا مثال لما تقول ولكن اريد ان اعرف وماذا تعنى بان خصائص الحقل نص؟؟؟؟؟؟؟ نفرض ان تاريخ الميلاد هو اسم مربع النص ضع مربع نص جديد إسمه yearوضع فيه هدا الكود =year([تاريخ الميلاد]) في مربع نص العمر ضع هذا =Year(Date())-([year]) حساب العمر.rar

تفضل يا أخي.. أدخل الأرقام في العمود B ومن ثم شغل مولد الباركود multi barcode.rar

الأستاذ / أبو علي السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب . 000011.rar

السلام عليكم قوائم مخصصة على الفورم باستخدام CommandBars المرفق 2003-2007 قوائم مخصصة على الفورم باستخدام كومندبار.rar هذا الموضوع الاحدث http://www.officena.net/ib/index.php?showtopic=47195