كل الانشطه

للتوضيح ، حيث ما تم تعديله أنه عند القيام بعملية بيع ، تقوم المعادلة حالياً بإعادة إضافة الكمية المكتوبة حالياً إلى الرصيد المحسوب في ورقة المخزن ، فيسترجع التحقق من الصحة الرصيد الفعلي المتوفر قبل إدخال الحركة الحالية وتكتمل العملية بنجاح عند إدخال 5 أو 4 أو أي رقم ضمن حدود الرصيد المتوفر . عذراً على التأخر في اكتشاف الخلل .. والشكر موصول للأستاذ @عبدالله بشير عبدالله على مشاركته وملاحظاته معنا .

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

طيب ، شو رأيك نغير الخطة شوي ؟؟ رح نحتاج إلى إعادة إضافة الكمية الحالية E3 إلى نتيجة الـ VLOOKUP لكي نتمكن من المقارنة مع الرصيد المتاح قبل الحركة الحالية . يعني استبدل معادلة Data Validation في العمود E بالمعادلة التالية :- =AND($B3<>"", $D3<>"", OR($D3="شراء", $E3 <= IFERROR(VLOOKUP($B3, المخزن!$B$3:$I$800, 8, FALSE), 0) + IF($D3="بيع", $E3, 0))) جربها وأعطيني النتيجة اذا سمحت ..

🎯 أقدم لكم قالب بوربوينت PowerPoint جاهز لإنشاء مسابقات متعددة الخيارات، ويضم 20 شريحة بتصميم تفاعلي وسهل الاستخدام. تبدأ كل شريحة بعرض السؤال مع ثلاثة خيارات للإجابة، ويقوم المشارك باختيار الإجابة الصحيحة. وبعد اختيار الإجابة الصحيحة، يظهر زر (السؤال التالي) للانتقال مباشرة إلى السؤال التالي ومتابعة المسابقة حتى النهاية. ⬇️التحميل من المرفقات. مسابقة.pptx

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

السلام عليكم معادلة استاذنا Foksh بالملف المرفق لم اضف اليها شئ سوى معالجة الاخطاء IFERROR وشرط اختيار نوع الحركة وشرط اختيار الصنف فمت بالتجربة بيع وشراء -المعادلة تعمل حسب طلبك لا تسمح باظافة اي كمية في حالة تفاذ الرضيد ولا تسمح باظافة اي كمية قبل اختيار نوغ العملبة ( بيع - شراء) قم بالتجربة بالملف المرفق واعلمني بالنتائج في حال ان المعادلة تعمل لديك وتريد تقلها الى ملفك الاصلي تكون الاعدادات -الغاء التأشير على تجاهل الفراغات +التمط - ايقاف اذا لم تغمل لديك حقيقة لا اعلم السبب مخزن 3.xlsb

يستخدم الكثيرون (Ctrl + C) ثم (Ctrl + V) لنسخ العناصر، لكن هناك طريقة أسرع. فقط قم بتحديد العنصر الذي تريد نسخه ثم اضغط على الاختصار (Ctrl + D). سيتم إنشاء نسخة جديدة بنفس المكان والتنسيق والحجم، مما يجعل نسخ العناصر أسرع بكثير أثناء التصميم. 💡 هل تريدها بشكل أسرع؟ فقط قم بالضغط على زر (Ctrl) ثم اسحب العنصر الذي تريد نسخه بأي اتجاه وستحصل على نسخة جديده منه، ولكن احرص على ترك زر الفأرة قبل ترك زر (Ctrl) حتى تتم عملية النسخ.

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

عاشت ايدك استاذ عبدالله مشكوره جهودك الله يحفظك ويبارك بيك تحياتي لحضرتك

كيف أرتب محتوى الشرائح؟ اجعل الترتيب منطقيًا: العنوان ⬅️ الفكرة ⬅️ المثال ⬅️ الخلاصة.

السلام عليكم

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

ما الفائدة من نشر البرنامج هنا إذا !!! وكما ان رقم الجوال مخالف لسياسة المنتدى.

بالنسبة للشرح اي شخص يريد شرح يتواصل معي على واتس رقم

وعليكم السلام جرب الكود المعدل بالملف تغيير لون الخلايا المحدده بالماوس من خلال اليوزر فورم_085825.xlsm

الموضوع قديم يغلق ،،،

الموضوع قديم يغلق ،،،

كررت التجربة والملف يعمل ولا يسمح باظافة اي كمية تتجاوز الموحود بالمخزن ولكن هناك سبب يجغل الرصيد في المخزن بالسالب عندما تكتب الكمية اولا ثم تختار توع الحركة بعدها هنا يتم قبول الكمية ولو كان الصنف انتهى من المخزن وهذه حلها الغاء خاصية تجاهل الفراغ حينها لا يقبل اي كمية سواء اخترت نوع الحركة اولا او اخر جرب الغاء الخاصية في ملف الاستاذ Foksh واليك ملف اخر بنفس فكرة Data Validation باستخذام عمود مساعد في العمود o بالرغم انني لا احبذ استخذم الاعمدة المساعدة وله نفس نتائج ملف معلمنا Foksh مخزن 1.xlsb

السلام عليكم محتاج كود على اليوزر فورم يغير لون الخلايا المحدد من اللون الاخضر الى اللون الاحمر وبالعكس مع جزيل الشكر تغيير لون الخلايا المحدده بالماوس من خلال اليوزر فورم_085825.xlsm

عاشت ايدك استاذ عبدالله المبدع شكرا جزيلا بارك الله بجهودك والله يجعلها بمزان حسناتك

شكرا لك استاذ عبدلله .. ولكن بالفعل تم عمل ذلك ولا يتغير شيء

وعليكم السلام ورحمة الله وبركاته الكود المرفق يقوم :- بالغاء حماية الشيتات المستهدفة 123 ثم يتم اظهار الصفوف 1-2 ثم يمسح الصور السابقة بعد ادراج الصور يتم اخفاء الصفوف1-2 ثم حماية الصفحات من جديد 123 استبدل الكود السابق بهذا تم تجربة الكود على 28 صفحة في حدود 3 الى 4 ثانية Private Sub CommandButton13_Click() Dim ws As Worksheet Dim Pic As Shape Dim shp As Shape Dim rng As Range Dim fd As FileDialog Dim imgPath As String Dim i As Long Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "اختر الصورة المراد إدراجها" .Filters.Clear .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" .AllowMultiSelect = False If .Show = -1 Then imgPath = .SelectedItems(1) Else Exit Sub End If End With Application.ScreenUpdating = False On Error Resume Next Application.CommandBars.FindControl(ID:=549).Execute On Error GoTo 0 For Each ws In Worksheets If ws.Name <> "قائمة" And ws.Name <> "مخزن" Then On Error Resume Next ws.Unprotect Password:="123" On Error GoTo 0 ws.Rows("1:2").Hidden = False Set rng = ws.Range("A2:V2") For i = ws.Shapes.Count To 1 Step -1 Set shp = ws.Shapes(i) If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then On Error Resume Next If Not Intersect(shp.TopLeftCell, rng) Is Nothing Then shp.Delete End If On Error GoTo 0 End If Next i Set Pic = ws.Shapes.AddPicture( _ Filename:=imgPath, _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoTrue, _ Left:=rng.Left, _ Top:=rng.Top, _ Width:=rng.Width, _ Height:=rng.Height) With Pic .LockAspectRatio = msoFalse .Placement = xlMoveAndSize End With ws.Rows("1:2").Hidden = True ws.Protect Password:="123" End If Next ws Application.ScreenUpdating = True MsgBox "تم إدراج الصورة بنجاح!", vbInformation, "تم بنجاح" End Sub كما يمكنك الغاء اكوادالحماية وغيرها من ملفك لانها اصبحث من صمن الكود السابق

السلام عليكم لدي ثلاثة أوراق هي ورقةFeuil1 - ورقةFeuil12 - ورقةFeuil13 و ورقة طباعة اريد تنسيق الخلايا وادارج ايقونة الطباعة وهذا عند ادخال الرقم يتم طباعة الورقة وادراج ايقونة تحميل الى البدياف في ورقة طباعة ملف الطباعة.xlsx

السلام عليكم ورحمة الله وبركاته من خلال التجربة لملف Data Validation الاول - طلب السائل الكريم يتحقق مع تعديل النمط الى ايقاف كما تصحته في مشاركة لاحقة ولا اعتقد انه يمكن اظافة اي جديد اكثر مما تم عمله هذا حسب اعتقادي والله اعلم تحياتي لكما

باسورد محرر الاكواد 1230