-
Posts
3,277 -
تاريخ الانضمام
-
Days Won
20
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو الـعيدروس
-
السلام عليكم استاذ عماد الحسامي حفظك الله ورعاك اكوادك تدل على انسان متمكن الاكسل مع الحسامي ( بلا حدود ) وفقك الله وسدد خطاك وحماك من كل مكروه تقبل تحياتي وشكري
-
شيت كنترول أول ثانوي مع جبر الكسر وبدون جبر الكسر
الـعيدروس replied to جلال محمد's topic in منتدى الاكسيل Excel
السلام عليكم الاخ الاستاذ جلال محمد عمل جميل جعله الله في موازين حسناتك تقبل مروري -
السلام عليكم جزاك الله خير استاذ طارق عمل متقن وفقك الله تقبل مروري
-
السلام عليكم هل تريد الكشف في شيت منفصل ام في الشيت نفسه في عدة طرق بالامكان بالفلترة او كود تحياتي
-
(تمت الاجابة) الاخوة بحاجة لتعديل هذا الكود بالفورم المرفق
الـعيدروس replied to abouelhassan's topic in منتدى الاكسيل Excel
السلام عليكم الاخ الفاضل ابو الحسن حفظك الله ==================== بمعنى ان يقوم بالعمل على اخر سطر بالصفحة لكل صفحات العمل لو اخر سطر به كلمة الاجمالى لايعمل " إقتباس " ولو اخر سطر لا يوجد به كلمة الاجمالى يتم تنفيذ الكود ================ هذا هو عمل الكود فما الاضافة التي تريدها ؟؟ -
ملف به فصل الناجح و الراسب و الغائب بالمعادلات بدون أكواد
الـعيدروس replied to magodey's topic in منتدى الاكسيل Excel
السلام عليكم ياهو لايوجد مرفقات ربما حذفت مع مشكلة البارح ام ماذا ؟؟؟ -
ما ريكم في هذا التطبيق (آراؤكم ونصائحكم وتصحيحاتكم تهمني)
الـعيدروس replied to أبو عبد النور's topic in منتدى الاكسيل Excel
السلام عليكم حقيقة ملف به اشياء قيمة جزاك الله خير لي طلب بسيط شرح هذا الجزء من الكود ما مهمة هذا الجزء Private Sub Export(ByVal lig As Long) استخدمت فيه هذه الدالة ماعملها ByVal ولك منا كل الشكر والتقدير وعمل ان شاء الله في موازين حسناتك -
السلام عليكم هل يمكن ارفاق الملف وان كان به اسرار عمل اعمل منه نسخة وسو عليه بيانات وهميه وارفقة وان شاء الله يتم عمل المطلوب
-
مشروع عمل فورم لدوال الاكسل - شاهد هذا العمل خطوة خطوة -
الـعيدروس replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
السلام عليكم الاستاذ الفاضل عبدالله المجرب انا جربت كودك على ملف الاستاذ خبور خير Application.Speech.Speak ch وعمل بكفائة ولاتوجد اي لخبطه ؟؟ -
السلام عليكم الاخ الفاضل ضى النور طيب على حسب شرحك في الملف المرفق يعتبر برنامج متكامل وليس طريقة ربط فقط ولاكن كل شيء سهل في منتدى اوفسينا طالما يوجد به علماء كبار ماعلينا سوا الإنتظار لمن يتكفل بعمل هذا البرنامج وسوف اكون اول المستفيدين به لإني احتاجه في عملي فكرة البيانات من ملف الى ملف وربطها مهمة جدا لان قاعدة ملف الاكسل صغيرة جدا لاتتحمل البيانات الكثيرة لذا ندعو الاساتذة والعباقرة بأن يتعاونو معنا لكي نتوصل الى برنامج عبارة عن شئون موظفين مهماهة مقتصرة على حسب شرح اخونا ضى النور اهنيك اخي ضى النور على افكارك الجميلة تقبل تحياتي وشكري
-
هل يمكن عمل الحدث changeـworksheet مرتين فى الورقة الواحدة
الـعيدروس replied to فضل حسين's topic in منتدى الاكسيل Excel
السلام عليكم الاستاذ خبور خير والاستاذ عماد الحسامي جزاكم الله خير على هذه الاكواد المذهله التي تنير طريق امثالنا في مجال البرمجه متمكنين جدا في صياغة الاكواد جزاكم الله عنا كل كل خير تقبلو مروري -
مشروع عمل فورم لدوال الاكسل - شاهد هذا العمل خطوة خطوة -
الـعيدروس replied to عبدالله باقشير's topic in منتدى الاكسيل Excel
السلام عليكم استاذ عبدالله (خبور خير) حفظك الله حقيقة عمل اساتذه كبار لاادري ماذا اسمية قمة الروعة ذو فائده قيمة عمل من العيار الثقيل جعله الله في موازين حسناتك ان شاء الله تقبل مروري -
Air lins Tkt & BSP مبيعات تذاكر الطيران
الـعيدروس replied to احمدزمان's topic in منتدى الاكسيل Excel
السلام عليكم استاذنا الحبيب احمد يعقوب حفظك الله والله انا لااعلم شيء عن هذه المقارنه وان توصلت الى المعلومه سوف لن اقصر ان شاء الله تتوصل لما تريد استاذ احمد تقبل اعتذاري والسلام عليكم -
السلام عليكم وهذا كود تم عمله مسبقاً شبيه كثير لكود استاذنا الحبيب محمد صالح لاثراء الموضوع هذا الكود في حدث ThisWorkbook Private Sub Workbook_Open() For Each sh In ActiveWorkbook.Worksheets ALI_SH = ALI_SH & "," & sh.Name Next sh With ورقة1 .Range("A1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=ALI_SH End With End With End Sub وهذا في حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Worksheets(Target.Value).Select End If End Sub
-
جزاك الله خير استاذ محمد صالح حل جميل جدا
-
تفضل واي ملاحظات انا موجود تحياتي SH_ALI.rar
-
اطلع على المرفق fffd.rar
-
السلام عليكم الذي في المرفق لااعتقد ان تقدر تربطه على تنفيذ ولاكن انشاء ليست بوكس من عناصر تحكم Activex وحط هذا الكود في حدث الصفحة Private Sub ListBox1_Click() Dim sh As Worksheet With ListBox1 Set sh = Sheets(.Column(0)) End With sh.Activate End Sub Private Sub ListBox1_LostFocus() On Error Resume Next Dim C_ALI As Integer For C_ALI = 1 To ActiveWorkbook.Sheets.Count ActiveSheet.ListBox1.AddItem ActiveWorkbook.Sheets(C_ALI).Name Next C_ALI = Null End Sub
-
السلام عليكم استاذ احمد يعقوب حفظك الله ورعاك ياللروعة اعمالك برنامج عملي جدا وقيم اهنيك على الافكار التي فيه استفدت منها تقبل مروري
-
الحمد لله الذي بنعمته تتم الصالحات
-
السلام عليكم اتبع الشرح اذا مازبط معاك اخبرني شرح.rar
-
السلام عليكم جرب هذا الكود ربما يفي بالغرض والشكر موصول لمن كتب الكود المدى تحدده من الكود موضح علية من اين تعدل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False '======================================================= ' هذا الجزء في حال النقر غير صف 2 من اي عمود لاينفذ الكود If Target.Row <> 2 Then Exit Sub '======================================================= ' هذا المدى الذي سيتنفذ فيه الكود! ! If Not Intersect(Target, Range("A2:I2")) Is Nothing Then '======================================================= ' نطاق الفرز يبداء من اول سطر البيانات بعد صف 2 Rows("3:65536").Sort Key1:=Cells(3, Target.Column), _ Order1:=xlAscending, Header:=xlNo Cancel = True Cells(3, Target.Column).HorizontalAlignment = xlRight End If Application.EnableEvents = True End Sub يتفعل الكود عند النقر مرتين على صف العمود ماهو ضمن المدى