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

بعد إذن حبيبنا @omar elhosseini يمكنك استعمال هذه الأكواد في صفحة Rooming list كلك يمين ثم view code ثم تلصق هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target.Row <= 2 Then Exit Sub If Target.Column = 3 And Target.Value <> "" And Not (sheetExists(Target.Value)) Then Call newsh(Target.Value) End If End Sub Function sheetExists(sheetToFind As String) As Boolean sheetExists = False For Each Sheet In Worksheets If sheetToFind = Sheet.Name Then sheetExists = True Exit Function End If Next Sheet End Function Sub newsh(newname As String) OptimizeVBA 1 Sheets("Aqua Park HRG").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = newname ActiveSheet.Range("K2") = newname OptimizeVBA 0 End Sub Sub OptimizeVBA(isOn As Boolean) Application.Calculation = IIf(isOn, xlCalculationManual, xlCalculationAutomatic) Application.EnableEvents = Not (isOn) Application.ScreenUpdating = Not (isOn) ActiveSheet.DisplayPageBreaks = Not (isOn) End Sub وبه من كنوز مكتبتي الخاصة الكثير من التحف التأكد من وجود اسم الشيت تحسين سرعة الأكواد في vba بالتوفيق

اخي شاهد المرفق Test_1.xlsb

تفضل المشكلة كانت من عندك لأنك محدد فى الكود ظهور ثلاثة أعمدة فقط تـــم تعديل وضبط الفورم كما تريد حلقات المساجد2.xls

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذا الكود في حدث عند التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then Call ter End If End Sub كلك يمين على اسم الشيت ثم view code ثم لصق في الناحية اليمنى بالتوفيق

Sheets("ورقة").RAnge("a1").Select اذا كان اسم الشيت هو : ورقة3 نكتب في الكود: ("ورقة3")Sheets

يمكنك استعمال دالة offset Sub offsetplus() ActiveCell.Value = ActiveCell.Offset(0, -3).Value + 3 End Sub مع ملاحظة 0 تعني في نفس الصف رقم -3 تعني الخلية الثالثة السابقة رقم +3 تعني الرقم الذي يتم إضافته بالتوفيق

بعد إذن حبيبنا @Ali Mohamed Ali هذه محاولة لعرض تقرير الغياب الشهري لجميع الأقسام بصورة يمكن طباعتها بعد إخفاء الأعمدة الفارغة بالتوفيق تقرير غياب الموظفين في شهر.xlsx

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

السلام عليكم ورحمة الله وبركاته .. اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 وهذا هو الموقع : https://denigma.app الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA .. وهذا شرح مبسط للاستخدام .. بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى : نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!] : ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 هذا وسلامتكم ☺️🌹

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

🤣😂🤣 ادك على راسي ... دك عيني دك !! بصراحة استاذي العزيز @محمد احمد لطفى... احيانا نحتاج لمشعوذين او بالسوري (بصارة ) .. او بالمصري (جماعة الودع )حتى نفك رموز السؤال

بارك الله فيك استاذ جزاك الله خيرا مشكور

الان فهمت ... جزاك الله خيرا اخي ابو الحسن ... وهل كان هذا سؤالك ؟ انا لم انظر لهذا الزر ابدا .. لانه لم يكن في سؤالك

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

أستاذ محمد .. إنت عايز تنقل مجلد بالملفات اللي داخله ؟ ولا عايز تنقل ملف واحد بس ؟

على كل حال جرب هذة المحاولة ..واخبرني النتيجة حتى اقوم باي تغيير تطلبه TestLOckQ.rar

رحمة الله تغشاه وجميع موتى المسلمين

فورم الدخول للاكسل من الفورم بادخال الاسم ورقم التليفون الفيديو

تفضل لا يمكن عمل أكثر من هذا .. وبكده يبقى لديك طريقتان لطلب يمكنك الإختيار منهما حتى يتم غلق الموضوع .طريقة للأستاذ محمد صالح وطريقتى هذه قائمة منسدلة1.xlsx

العفو أخي @hougar 🙂 .. ولا تنسى تمر على الموضوع الجميل ☺️ :

طيب يا غالي ... جرب هذي الدالة : Public Function CopyFile(CopyFrom As String, CopyTo As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CopyFrom, CopyTo, True Set fs = Nothing End Function ولاستخدامها بهذي الطريقة : CopyFile("CopyFrom", "CopyTo")

جرب هذه الدالة أخي @hougar 🙂 : DCount("[ID]","[ItemsTable]","[ExpiryDate] >=#"& date &"# And [ExpiryDate] <=#"& date+30 &"#") لعد المنتجات التي ستنتهي خلال ال 30 يوما القادمة .

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

لا اعتقد ولكن الاعتماد على الرقم هذا فقط غير مناسب لان بعض المعالجات لا تظهر لها رقم كما ان Getint هو اسم وضعه المبرمج ولايشير لما يحتويه الا ان وضعت لنا الكود لنرد عليك بالرد المناسب فيما يخص الكود ولو تكرمت لو تشاركنا افكارك فى وضع التشقير والية الحماية وانا انصحك بالاعتماد على رقم الـ UUID ويمكنك الخصول عليه من الكود الاتى Public Function GetUUID() Dim strComputer As String Dim objWMIService, colItems, objItem strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems GetUUID = objItem.UUID Next End Function

السلام عليكم ورحمة الله تم إضافة زر للفورم خاص لحفظ كشوف الصفوف المختارة في الفورم بصيغة PDF باسم "الصف المختار"... أرجو أن يفي الغرض المطلوب... كشوفات الطلبة.xlsm

السلام عليكم ورحمة الله وبركاته هذا شيت عمل فاتورة مبيعات ومشتريات وسدادت العملاء والموردين الآجل (مفتوح المصدر) https://www.mediafire.com/file/3kthtk8ogoz4d2g/2022-05-31_09-41-29.mp4/file فيديو شرح اتمنى تنال على اعجابكم ان شاء الله ♥ حركة بيع ومشتريات.xlsm ان شاء الله سوف اعمل فيديو شرح له

جرب ...عليك بربط الزر بالماكرو المسمى test ...كليك يمين على الزر ثم Assing macro ثم كليك يسار على test ثم OK نموذج بيانات الموردين.xlsm

وعليكم السلام-تفضل أعتقد ان هذا سيكون أفضل مما طلبت قائمة منسدلة.xlsx

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

احتساب تاريخ نهاية الصلاحــــــــ( Expiration Report ) ـــــية ExpirationDate.mdb

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

تابع الدرس التاسع كائن المدى / النطاق Range نستعرض كائن من نوع النطاق أو ما يسمى بالمدى أو المجال وهو الأكثر شيوعاً أي أن أغلب الأكواد تشير بكثرة لهذا النوع من الكائنات Sub MZM14 () Range("d2:i10").Select End Sub يقوم الكود بتحديد المجال المشار إليه بين القوسين Sub MZM15 () Range("d2:i10").Columns(2).Select End Sub يقوم الكود بتحديد العمود الثاني بالمجال المشار إليه بين قوسين Sub MZM16 () Range("b10:f15").Columns(2).Value = 0 End Sub يقوم الكود بكتابة قيمة صفر في العمود الثاني من المجال المحدد بين القوسين Sub MZM17 () Range("c5:c10").Rows(1).Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في الصف الأول من المجال المحدد بين القوسين وهو هنا الخلية C5 Sub MZM18 () Range("d2:i10").Cells(2, 3).Select End Sub يقوم الكود بتحديد الخلية الواقعة في الصف الثاني من العمود الثالث داخل المجال المحدد بين القوسين وهي الخلية F3 Sub MZM19 () Range("f10:i15").Cells(3, 2).Value = 200 End Sub يقوم الكود بكتابة قيمة 200 بالخلية الواقعة في الصف الثالث من العمود الثاني داخل المجال المحدد بين القوسين وهي هنا الخلية G12 Sub MZM20 () Worksheets(3).Range("f1:h5").Value = 100 End Sub يقوم الكود بكتابة قيمة 100 في المجال المحدد من الورقة الثالثة من أوراق المصنف Sub MZM21 () Range("d2:i10").Clear End Sub يقوم الكود بمسح محتويات المجال المشار إليه بين قوسين Sub MZM22 () Worksheets(3).Range("a1:c10").Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Bold سماكه الخط Sub MZM23 () Worksheets(3).Range("a1:c10").Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Italic إمالة الخط Sub MZM24 () Worksheets(3).Range("a1:c10").Font.Underline = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار خاصية Underline وضع خط تحت البيانات Sub MZM25 () Worksheets(3).Range("a1:c10").Font.Name = " Arabic Typesetting" End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار نوع الخط Arabic Typesetting Sub MZM26 () Worksheets(3).Range("a1:c10").Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف قم باختيار حجم الخط 18 Sub MZM27 () Worksheets(3).Range("a1:c10").Columns(1).Font.Size = 18 End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالعمود الأول فقط قم باختيار حجم الخط 18 Sub MZM28 () Worksheets(3).Range("a1:c10").Rows.Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف لجميع صفوف المجال قم باختيار خاصية Bold Sub MZM29 () Worksheets(3).Range("a1:c10").Rows(3).Font.Bold = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بالصف الثالث فقط قم باختيار خاصية Bold Sub MZM30 () Range("f20:i25").Cells.Font.Italic = True End Sub عند المجال المحدد من الورقة الثالثة في أوراق المصنف بجميع الخلايا قم باختيار خاصية Italic Sub MZM31 () ActiveCell.Formula = "=C1+D2" End Sub عند الخلية الحالية النشطة اكتب المعادلة المذكورة Sub MZM32 () Range("h10").FormulaR1C1 = "=r[-1]c[-1]+r[1]c[1]" End Sub لإدراج المعادلة بمقدار إزاحة اقل من صف وعمود لليمين + إزاحة اكبر من صف وعمود لليسار للخلية المختارة وبالتالي سيكون الناتج معادلة G9+I11 Sub MZM33 () Range("h10").FormulaR1C1 = "=rc[1]+rc[2]" End Sub لإدراج المعادلة بمقدار إزاحة أكبر من صف وعمود لليسار + إزاحة اكبر من صفين عمودين لليسار للخلية المختارة وبالتالي سيكون الناتج معادلة I10+J10 Sub MZM34 () Worksheets(3).Range("H10").Offset(1, 2).Value = 100 End Sub لإدراج القيمة 100 بمقدار إزاحة زائد عمودين لليسار وصف من الخلية المختارة وهي ستكون الخلية J11

أستاذ / محمود الشريف بارك الله فيك شرح رائع جداً جداً جداً جداً جعله الله في ميزان حسناتك ونفع بك الإسلام والمسلمين

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

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

أخي الكريم بتنفيذ ما تقول سيتم الدخول في سلسلة غير متناهية من الأوامر كيف؟ إذا وضعنا في الخلية g8 معادلة وهي حاصل ضرب c8 في e8 ثم قمنا بعملية النسخ واللصق كقيمة سيتم المطلوب في حدث عند فتح ورقة العمل ولكن إذا قمت بتغيير قيمة خلية معينة ووضعنا في حدث عند تغيير قيمة خلية أن يتم وضع معادلة ثم نسخها ثم لصقها كقيمة سيتم تكرار الأمر إلى مالا نهاية لأن اي تغيير في الخلايا سيعيد الكرّة ...................... اسمح لي أخي الكريم في اي شيء تريد أن تستعمل هذا الكود وهذه الطريقة؟؟ أخبرنا ممكن أن نضع تصوراً آخر يتوافق مع طرق البرمجة ولا يعيد سلسلة لا نهاية من الأوامر

أي مهمة؟ تثبيت الناتج أم تثبيت الأرقام العشوائية؟؟ وأين تريد وضع الكود ؟ عند فتح الملف أم عند تنشيطه أم عند تغيير قيم خلايا داخل ورقة العمل؟؟؟

أخي الكريم تعالى نتحدث بهدوء إذاً أنت تريد وضع صيغة في خلية .... تمام؟ ثم يتم حساب ناتج الصيغة موضوع القيم سواء عشوائية أو ثابتة لا يغير في الهدف الأساسي المطلوب وهو : كتابة صيغة وحساب قيمتها بعد النسخ واللصق الخاص لعمود الناتج يتم الاحتفاظ بالنتيجة بدون تغيير فهل مثلا الرقم في الخلية الأولى كان 8 بعد اللصق الخاص أصبح 20 مثلا؟؟!! لا أعتقد ............. ولكن لأنك تستعمل الدالة rand وهي تقوم بتوليد رقم عشوائي فالذي يتغير هو الأرقام التي تقوم بحسابها وليس الناتج فمثلا الأرقام عند فتح الملف 8 * 2 والناتج 16 بعد نسخ ال 16 ولصقها كقيمة لن تجد الأرقام التي حسبتها (2 و 8) ولكن ناتجها 16 موجود ولن يتغير بل تغيرت الأرقام لأرقام عشوائية أخرى ولكن يظل الناتج ثابتاً وهذا ما طلبته أنت ............. وإذا كنت تبحث عن تثبيت الأرقام التي تم حسابها قم بالنسخ واللصق الخاص كقيم لخلايا الأرقام العشوائية وليس للناتج وستجد الأرقام والناتج صحيحين والله أعلم بما تريد أنت تنفيذه أخي الكريم

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

أخي الكريم الموضوع بسيط جداً من خلال اللصق الخاص بعد وضع المعادلة في الخلايا قم بتحديدها ثم نسخها ثم على نفس الخلايا المحددة اضغط بزر الفارة الأيمن ثم اختر paste special لصق خاص ثم اختر منها values قيم

بعد إذن الأساتذة وبدون الاعتماد على أعمدة إضافية جرب أخي الكريم أن تضع هذه المعادلة في الخلية a2 =IF(SUM(COUNTIF(B2:E2,B2:E2))=COUNT(B2:E2),0,1) لا تنس الضغط على Ctrl+shift+enter بعد كتابة المعادلة لأنها معادلة صفيف

أخي الكريم جرب أن تكتب كود الصورة في التوقيع بأن ترفع صورة لك على الإنترنت ثم تضع كود html الخاص بالصورة في مربع التوقيع كالتالي: <img src="path_to_file.jpg" /> حيث أن path_to_file.jpg هو مسار الصورة التي رفعتها على الإنترنت

ممكن ترفع الملفين وبإذن الله سيتم المطلوب

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

أخى الفاضل ارسل الشيت وانا معكم GAMAL_DEGHADY_2007@YAHOO.COM

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