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

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

بسم الله الرحمن الرحيمميزه وخاصية ممتازه وهى Flash Fill (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم. رابط الفيديو

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

يمكنك تجربة هذا الملف كل حروف.rar

أخي الكريم محمد عبد الناصر إذا كان ما فهمته صحيح ، فإليك الرابط التالي فيه شرح للمطلوب ، ولكن يجب أن تتبع الخطوات بشكل جيد وتزيل الحماية في البداية عن العمود بالكامل قبل وضع الكود في حدث ورقة العمل الرابط من هنا تقبل تحياتي

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

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

اخى الكريم ادخل على الموديول 2 واستبدل الكود الموجود بالتالى وعلمنى بالنتائج تقبل تحياتى ولا تنسانى من صالح دعائك Sub iPageSetup() Application.ScreenUpdating = False Dim sh As Worksheet, Lr As Integer, Last As Integer Set sh = Sheets(2) With sh Last = .Range("A" & Rows.Count).End(xlUp).Row + 1 .PageSetup.PrintArea = "" .Range("A8:g" & Last).Borders.Value = 0 '----------------------------------------------------- .Range("A8:g" & Last).ClearContents .Range("A8:g" & Last).Borders.Value = 0 .PageSetup.LeftMargin = Application.InchesToPoints(0.7) .PageSetup.RightMargin = Application.InchesToPoints(0.7) .PageSetup.TopMargin = Application.InchesToPoints(0.7) .PageSetup.BottomMargin = Application.InchesToPoints(0.7) .Columns("A:A").ColumnWidth = 5: .Columns("B:B").ColumnWidth = 15 .Columns("C:C").ColumnWidth = 20: .Columns("D:D").ColumnWidth = 10 .Columns("E:E").ColumnWidth = 5: .Cells.Font.Size = 10 .Columns("f:f").ColumnWidth = 5: .Cells.Font.Size = 10 End With Dim i, a As Integer a = 8 For i = 0 To UserForm1.ListFind.ListCount - 1 sh.Cells(a, 1) = UserForm1.ListFind.List(i, 0) sh.Cells(a, 2) = UserForm1.ListFind.List(i, 3) sh.Cells(a, 3) = UserForm1.ListFind.List(i, 4) sh.Cells(a, 4) = UserForm1.ListFind.List(i, 6) sh.Cells(a, 5) = UserForm1.ListFind.List(i, 8) sh.Cells(a, 6) = UserForm1.ListFind.List(i, 9) sh.Cells(a, 7) = UserForm1.ListFind.List(i, 10) a = a + 1 Next i Lr = sh.Range("A" & Rows.Count).End(xlUp).Row sh.PageSetup.PrintArea = "A1:g" & Lr sh.Range("A8:g" & Lr).Borders.Value = 1 Application.ScreenUpdating = True End Sub

اخى الكريم ابوالقاسم ادخل محرر الاكواد نشط الفورم ثم اضغط على زر البحث سيدخلك الى الكود الخاص بالضغط على زر البحث المهم فى اخر سطر من الكود اللى هو ده If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0 استبدله بالسطر التالى If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ColumnWidths = "70;0;0;60;60;0;60;0;60;60;60": Me.ListFind.ListIndex = 0 الشرح ما تم اضافته هو هذه الجزئيه Me.ListFind.ColumnWidths = "70;0;0;60;60;0;60;0;60;60;60" وهى الخاصيه المسئوله عن تحديد عرض الاعمده بالليست بوكس لو قمت باحصاء الارقام ستجدها 11 لان عدد الاعمده فى الشيت 11 ( من العمود A الى العمود K ) فأنا عملت عرض للــ 11 عمود ولكن العمود اللى انا مش عايزه يظهر كتبت عرضه 0 وبكدا مش هيكون ظاهر بأمكان أخفاء اى عمود أو أظهار من خلال التحكم فى عرض العمود على سبيل المثال اول رقم من على اليسار 70 طبعا ده العمود بتاع الكود اللى هو عمود A لو انت مش عايز تظهره مثلا تستبدل 70 بــ 0 وبكدا عمود الكود اللى هو A مش هيظهر ارجوا ان تكون وضحت الفكره تقبل منى وافر الاحترام والتقدير

الحل هو التحايل على مربع البحث وتحريره من التركيز جرب ارسال المفتاح كما هو موضح وافدنا بالنتيجة Dim X X = text1.Text text2 = X Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & text2 If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark Me.text1.SetFocus SendKeys "{f2}" Else DoCmd.GoToRecord , , acNewRec End If

امثلة بسيطة ارجوا ان تنفعنا جميعا صيغة الدالة DLookup DLookup(expr, domain [, criteria] )‎ expr( مطلوب) اسم الحقل domain( مطلوبة) اسم الجدول/الاستعلام criteria( اختيارية) الشروط دا مثال بسيط : عازوين نعرف اسم الصنف الذي كوده 15 في جدول الاصناف اسم الجدول : items اسم الحقل الذي يحمل أرقام الاصناف : code_items اسم الحقل الذي يحمل أسماء الاصناف: items_Name كود: MsgBox DLookup("[items_Name]", "items", "code_items=15") ممكن ناخد كود الصنف من مربع نص موجود في نموذج بدلاً من التصريح في الدالة عن كود الصنف لنفترض مثلا أن مربع نص موجودٌ في النموذج باسم txtItemsCode كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode) ممكن ناخد قيمة كود الصنف من نموذج آخر بس بشرط أن يكون مفتوحاً ، فلو كان txtItemsCode موجود في نموذج آخر باسمfrm1 فإن الكود سيأخذ الشكل التالي : كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) ملحوظة بالنسبة للشروط يجب أن تأخذ في الاعتبار نوع بيانات الحقل الذي نعتمد عليه في الشرط ، في المثال السابق كان حقل نوع بياناته (رقم) ، فلو كان نوع بياناته (نص) سيكون الكود بالشكل التالي :code_items كود: MsgBox DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") طب لو كان نوع بياناته (وقت/تاريخ) الكود هيبقى كدا كود: MsgBox DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") وشكر الله لكم جميعا

السلام عليكم ورحمة الله وبركاته الأمر XCopy واحد من أومر ال Dos وظيفته نسخ فلدر بكامل محتوياته قمت باستدعائه من خلال دالة Shell هكذا Shell "Cmd.exe /C XCopy " & "D:\Icons C:\Icons" طبعا هذا الأمر بحاجة الى أن يحدد المستخدم بعد تنفيذه إما ( D ) وتعنى Directory أو (F) وتعتى File فاستخدمت الأمر SendKeys هكذا SendKeys "D" ولكن تلك الحيلة لم تفلح فهل من حل آخر وجزاكم الله خيرا

يوزر فورم يناسب اي جهاز كمبيوتر نسخة.rar

اخى الموضوع مبهم بالنسبة لى كثيرا ارفق مثالا للتعديل عليه وعموما يبدو انك ستحتاج الى وضع الكود فى الاستعلام الخاص بالبحث عموما قمت بتصميم مرفق لك يحاكى ما تطلب تم الاستغناء فيه عن رسالة ادخل اى مقطع من الاسم الدرجة فى الاستعلام بنموذج Form1 Search.rar

السلام عليكم و رحمة الله و بركاته ،قبل الدخول في الموضوع اشكرك استاذي محمد حسن المحمد على كلامك الطيب الصادق، والله لم اجد الكلمة التي تعبر عن مدى تأثري بموقفك في قول كلمة الحق ومدى اعتزازي بديني الذي رأيت فيك المسلم المدافع عن الحق و الآمر بالمعروف و الناهي عن المنكر و ذاك المسلم الذي قال فيه النبي عليه الصلاة و السلام .. المسلم اخو المسلم لا يظلمه و لا يسلمه و من كان في حاجة اخيه كان الله في حاجته .. نعم ....... هي تلك صفات المسلم ، اشكرك استاذي الفاظل و جازاك الله كل خير ، اما بالنسبة للاخوة الافاضل اشكركم عن النصيحة حتى و ان كان فيها نوعا من التقصير لعدم العلم بالسبب ،و انشغلنا بما لا ينفع ، لكن الحمد لله اننا تعرفنا على الاخ و الاستاذ الفاضل محمد حسن المحمد ، اما بالنسبة لسبب الرد بعد عامين و الذي اعتبره الاخوة جحود هو فقط انني لم استطع الدخول الى حسابي في تلك المدة ثم انشغلت في امور اخرى بعدها و لو تلاحظوا قليلا ستجدون ان آخر مشاركة للأخ محمد حسن المحمد كان في 08/08/2015 ،وفقط اليوم 09/05/2016 قرأت مشاركاتكم ..... اطلب السماح من الجميع ،فلم اقصد ايذاء اي شخص ، فقط سألت و شكرت ..... حتى و لو بعد مائة سنة

و عليكم السلام و رحمة الله و بركاته ... مبروك اخي ابو مصطفى ...

الأخت الكريمة ريهام أهلاً بك في المنتدى ونورتي بين إخوانك يرجى تغيير اسم الظهور للغة العربية جربي الملف التالي عله يفيدك في موضوعك .. Transfer Specific Columns By CheckBoxes On UserForm.rar

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

كل الشكر والتقدير استاذي الكريم ابوالبراء الاداة جداً رائعة والكود عمل بشكل ممتاز بارك الله فيك وجزاك كل خير

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

ربنا يبارك فيك هههههههه اسال الله ان يديم عليك ستره وعافيته

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

يوجد موضوع مشابه اخي الكريم ..

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

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

و عليكم السلام و رحمة الله و بركاته ... اعتقد انه افضل سيناريو كالاتي عند تسجيل الدخول يتم حفظ اسم المستخدم في جدول و عند كل عمل يتم تسجيل اسم المستخدم اعمل مثال و ارفقه للتعديل عليه ...

سبب المشكلة في تسمية الحقول في الجدول فالوحدة النمطية يتم الفلترة فيها بناء على حقل اسمه id ولكن في الجدول 2 لا نجد هذه التسمية كمفتاح للجدول تم تعديل الحقل الفرعي المرتبط الى id_2 وتعديل المفتاح الى id اتبع هذا الترتيب اذا اردت اضافة جداول اخرى tree customer5.rar

رأينا المظهر فاشتقنا للمخبر شكرا جزيلا استاذنا وحبيبنا هل يوجد نسخة mdb ؟

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

الله يحفظك يا غالي منكم نتعلم. هل نجح لديك التنفيذ أخي رمهان.

اخ صالح التعبير السابق كتبه محترف وليس مجتهد بالتوفيق

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

نعم الايام معرفة مسبقا وتأخذ اليوم من التاريخ ()Date الذي هو فعلا تاريخ الجهاز ولاشتراط الجمعة والسبت تكتب الدالة هكذا : if Weekday(Date();1) = 6 or Weekday(Date();1) = 7 then على اعتبار يوم الاحد هو اول ايام الاسبوع

بعد اذن استاذنا كرار انا وجدت مثالا جاهز ا يشبه مثالك تماما ولا اعلم لمن وحق لصاحبه منكم دعوة بظهر الغيب حساب اقساط.rar

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

شكرا لحضرتك بس النموذج المرفق مفهوش اي تقارير فعند الغاء التذكير يظهر النموذج فارغ برنامج اظهار سالة عند انتهاء عقد.rar

نضع الكود التالي عند تحميل التقرير Private Sub Report_Load() If aaa.Value = 0 Then MsgBox "لا يوجد كذا", vbOKOnly, "لا يوجد" DoCmd.Close acReport, "اسم التقرير" End If End Sub على فرض ان الحقل aaa هو حقل عدد السجلات ...

حتى لا يتشعب الموضوع سنبقى في مجال نسخ الملفات والمجلدات داخل اكسس وسأعدل العنوان حتى يكون اشمل في الدلالة بالنسبة لنسخ الملفات من مكان لآخر فاكسس لديه اداة جاهزة وهي filecopy مثال : FileCopy "C:\filename", "C:\filename" اما نسخ المجلدات فالصق هذه في المكان المناسب حيث يمكنك جعلها في النموذج او في وحدة نمطية عامة ونقل حدث الزر الى النموذج Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS End Type Private Const FOF_MULTIDESTFILES = &H1 Private Const FOF_CONFIRMMOUSE = &H2 Private Const FOF_SILENT = &H4 Private Const FOF_RENAMEONCOLLISION = &H8 Private Const FOF_NOCONFIRMATION = &H10 Private Const FOF_WANTMAPPINGHANDLE = &H20 Private Const FOF_CREATEPROGRESSDLG = &H0 Private Const FOF_ALLOWUNDO = &H40 Private Const FOF_FILESONLY = &H80 Private Const FOF_SIMPLEPROGRESS = &H100 Private Const FOF_NOCONFIRMMKDIR = &H200 Private Const FO_MOVE = 1 Private Const FO_COPY = 2 Private Const FO_DELETE = 3 Private Const FO_RENAME = 4 Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long Public Function CopyFolder(ByVal strSource As String, ByVal strDest As String) As Boolean '========================================================================================== Dim varFOS As SHFILEOPSTRUCT With varFOS .fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOCONFIRMMKDIR .wFunc = FO_COPY .pFrom = strSource .pTo = strDest End With Call SHFileOperation(varFOS) CopyFolder = (varFOS.fAnyOperationsAborted = 0) End Function Private Sub Command1_Click() CopyFolder "d:\foldeName", "d:\foldeName" End Sub

السّلام عليكم و رحمة الله و بركاته لماذا لم تطرح الموضوع عزيزي الفاضل بقسم الاكسس ربما يكون لك إحتراماتي

السلام عليكم ورحمة الله وبركاته... معلومة قرأتها وأحببت أن أتحفكم بها وهي: كيف نعرف السنة الميلادية ..كبيسة أو غير كبيسة "عادية".. =IF(DAY(EOMONTH(DATE(A1;2;1);0))=29;"سنة كبيسة";"سنة عادية") حيث نضع تاريخ السنة في الخلية A1 و المعادلة في B1 تتعلق المادلة بحساب شهر شباط 29 يوم كبيسة...28 يوم عادية تقبلوا تحياتي العطرة ...والسلام عليكم ورحمة الله وبركاته. للاطلاع على دوال أكثر ومعادلات تتعلق بمعرفة السنة الكبيسة راجع الرابط التالي:أربعة عشر معادلة لمعرفة السنة الكبيسة لأبي البراء ياسر خليل .

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

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

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

السلام عليكم و رحمة الله وبركاته ألف شكر أستاذنا الغالي محمد حسن المحمد على النصيحة المسداة .. حاولت تعديل الرسالة فلم تظهر لي أيقونة التعديل ..لا أعرف لماذا .. بارك الله فيك و جزاك الله خيرا ..ثقْ تمامًا أنّ كلمتك الذهبيّة مسموعة أستاذنا و معمول بها ..

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

أليس هذا هو الجحود بحد ذاته ..تشكره بعد عاميْن عجاف ..سنتيْن ..730 يومًا لا حول و لا قوّة إلاّ بالله العلي العظيم

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

أخي الكريم جرب أن تضع الرقم الأول في الخلية A1 ثم الرقم الثاني في الخلية B1 ثم اكتب المعادلة التالية في C1 =INT(A1)*INT(B1) عاشق الإكسيل

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