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

السلام عليكم أخي الكريم 1- سأغير عنوان الموضوع ليكون ملتزما بقواعد المشاركة أرجو الالتتزام في المستقبل 2- تفضل المرفق به ماطلبت وأكثر تجربة.rar

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

بسم الله الرحمان الرحيم السلام عليكم بعد غيابي الطويل عن هدا المنتدى العزيز لاسباب ........؟ اتركوها على الله لم اشاء ان اعود خالى اليدين لدى ارتأيت ان اضع بين ايديكم هدا الملف المتواضع وهو عبارة عن برنامج خاص لاصحاب محلات بيع الموبيلات كنت قد صممته لاحد اصدقائي بدون اطالة الباسوورد 123 لاغلاق الفورم وفتح ملف الاكسل Alt + b الباسوورد 111118 ارجو ان ينال اعجابكم تحياتي لكم Archivé Mobile V 1.001.rar الملف الاصلي بدون عمله ملف تنفيذي

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

السلام عليكم مرفق ملف بسيط تعلمت منه كثيرا واحببت ان يكون شمعه تضيء للاخرين مع التمنيات بالتوفيق للجميع المهمه الصعبه2 - .rar

هذه الاكواد المستعملة في الفورم البحث والحذف Dim LsInd As Byte Private Sub UserForm_Initialize() ComboBox1.List = Worksheets("User").Range("A1") _ .CurrentRegion.Columns("A").Value End Sub Private Sub ComboBox1_Change() Dim sh As Worksheet Dim Mh As Long, Lr As Long Dim i As Integer Dim ii If Me.ComboBox1 <> "" Then ii = Me.ComboBox1 Set sh = Sheets("User") With sh Lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Mh = WorksheetFunction.Match(ii, .Range("A1:A" & Lr), 0) End With For i = 1 To 5 Me.Controls("TextBox" & i) = sh.Cells(Mh, i) Next LsInd = Me.ComboBox1.ListIndex + 1 'Vlookup function for the textboxes once a value has been selected in ComBox1 'TextBox1 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 2, False) 'TextBox2 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 3, False) 'TextBox3 = Application.WorksheetFunction.VLookup(ComboBox1, Range("A2:J2000"), 4, False) End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub CommandButton2_Click() Dim sh As Worksheet Set sh = Sheets("User") sh.Range("A" & LsInd & ":E" & LsInd).Delete Shift:=xlUp ' If Me.ComboBox1.ListIndex = -2 Then Exit Sub ' Worksheets("USER").Range("A2").Offset(Me.ComboBox1.ListIndex, 0).Range("A1:J1").Delete Shift:=xlUp End Sub فورم به الحذف - هام.zip

تفضل يا أبو صلاح ويا ريت يبقا الشغل على ملف واحد Hide Empty Rows.rar

جرب هذه الصيغة أخى وأتمنى تكون المطلوبة =IF(ISERR(INDEX(بيانات!$C$5:$C$22,LEN(REPT("11",ROW($A2)-1))-1)),"",INDEX(بيانات!$C$5:$C$22,LEN(REPT("11",ROW($A2)-1))-1)) والصيغة لأوفيس 2007 وما أعلى =IFERROR(INDEX(بيانات!$C$5:$C$22,LEN(REPT("11",ROW($A2)-1))-1),"") تقبلوا تحياتى جلب الأسماء الزوجية والأسماء الفردية.rar

تفضل مثال يبين واحدة من الطرق تاريخ الدخول والخروج .rar

تم الاصلاح وايضا تطبيق استعلام جدولي للتقرير المذكور Wak.New3 Ali.rar

بارك الله فيكم اخى ابو محمد العباس

السلام عليكم ورحمة الله وبركاته اقدم هذا العمل واهديه الى اساتذتى وكل أعضاء اوفيسنا وهو: بعيد عن المعادلات والاكواد . استخدام الصور في المخططات والرسومات البيانية اسال الله ان يتقبل منى هذا العمل ملحوظه ذكرت أسماء أساتذتي في المنتدى ووضعت بيانات افتراضيه فقط تقبلوا خالص تحياتي تلميذ اوفيسنا استخدام الصور فى الرسم البيانى.rar

سبب ظهوره فارغ لانه ليس هناك مخالفات معوضة والموجود في الجدول مخالفات لم تعوض ومادام القيمة في احد الاطراف Null ستكون النتيجة Null وهذا الخلل لم انتبه له وانما انت من اظهره وحتى تظهر مجاميع الكل يلزم تنفيذ 3 خطوات في الاستعلام المضمن داخل التقرير 1- تغيير خصيصة العلاقة الموجودة لاظهار الكل في استعلامي المجاميع الفرعيين 2- توظيف الدالة iif في الحقول لاستبدال Null بــ الصفر 3- وضع معيار في الحقلين لا ستبعاد Null ان وجد تجدون تطبيق ذلك في المرفق طبعا هذا الحل باعتبار Null من جهة واحدة وهو خلو الجدول من المخالفات المعوضة ولو حصل العكس فيلزمنا تطبيق الاجراءات على الحقل الآخر وأرى ان الحل السليم بعد النظر والمعالجة : هو استخدام الاستعلام الجدولي وتوظيفه داخل التقرير Wak.New2 Ali.rar

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

أخي أبو محمد بارك الله فيك وجزأك الله خير الجزاء على شرح ذلك

الأستاذ / اجمد السلام عليكم ورحمة الله وبركاته الدالة معرفة بكود من أستاذنا الكبير / الحسامي جزاه الله خيراً وجعله في ميزان حسناته والشرح موجود للدالة. عموماً إليك ملف به مثال بسيط مع الشرح. AA1.rar

تم التعديل على الملف ومطلوب التجربة ‫sch10 - درجات 2.rar

يار ارحم والده حيا وميتا واجعل مثواه الجنه وامواتنا واموات المسلمين

اخى الكريم الملف يعمل على 2007 بكفاءه عاليه لان التصميم على 2007 ولا ادرى ما السبب فى عدم فتحه على 2010

برنامج قمة في الروعة