كل الانشطه

السلام عليكم معادلة استاذنا 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

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

سيدى الفاضل قاعدة البيانات تظهر فارغة وممكن العيب يكون من عندى ياريت الرد من فضلك

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

السلام عليكم ارجو ضافة لكود ادراج صوره للاستاذ عبدالله بشير مشكوره جهوده ليعمل الكود على الملف في حال كانت الصفحات المراد اضافة الصوره فيها مقفله بباسورد 123 وكان الصف الثاني مخفي مع بقاء الملف كما هو عليه الان (الصفحات مقفله والصف الثاني المراد اضافه الصوره به مخفي) وان يكون تنفيذ الكود سريع علما ان عدد الصفحات تقريبا 20 واكثر صفحة مع جزيل الشكر والتقدير كود لاضافه صور للصفحات_124938.xlsm

جرب استعمال الاستعلام التالي كمصدر للتقرير :- SELECT Tb_personal_data.rkm_mlf, Tb_personal_data.cod_mothaf, Tb_personal_data.student_name, Tb_personal_data.kwmy, Tb_personal_data.tr_milad, Tb_personal_data.mkan_milad, Tb_personal_data.mkan_scan, Tb_personal_data.gns, Tb_Dyana.Dyana AS dyana, Tb_Gnsya.Gnsya AS gnsya, Tb_Hala_Egtmaia.Hala_Egtmaia AS Hala_Egtmaia, Tb_personal_data.rkm_hatef, Tb_personal_data.rkm_tamin, Tb_Mrhla.Empo_Mrhla AS Mrhla, Tb_Gob.The_Gob AS Gha_Aml, Tb_Functional_data.noa_taeen, Tb_Functional_data.tr_taeen, Tb_Functional_data.tr_estlam_aml, Tb_Functional_data.mokf_aml, Tb_Functional_data.mgmoa_taleem, Tb_Functional_data.wathifa, Tb_Functional_data.rkm_krar, Tb_Functional_data.tr_krar, Tb_Functional_data.kader, Tb_Functional_data.mada_tdrees, Tb_Qualification_data.noa_moahel, Tb_Qualification_data.drga_elmia, Tb_Qualification_data.moahel, Tb_Qualification_data.gha_hslo, Tb_Qualification_data.tr_hsol, Tb_Qualification_data.tkdeer, Tb_Additional_data.mkr_aml, Tb_Additional_data.rkm_nekba, Tb_Additional_data.rkm_seha, Tb_Additional_data.tr_maash, Tb_Additional_data.mokf_tgneed, Tb_Additional_data.emil, IIf(Mid([kwmy],1,1)=2,19,20) & "" & Mid([kwmy],2,2) & "/" & Mid([kwmy],4,2) & "/" & Mid([kwmy],6,2) AS Tarik_Milad FROM (((((((Tb_personal_data LEFT JOIN Tb_Dyana ON Tb_personal_data.dyana = Tb_Dyana.Dyana_ID) LEFT JOIN Tb_Gnsya ON Tb_personal_data.gnsya = Tb_Gnsya.Gnsya_ID) LEFT JOIN Tb_Hala_Egtmaia ON Tb_personal_data.Hala_Egtmaia = Tb_Hala_Egtmaia.Egtmaia_ID) LEFT JOIN Tb_Functional_data ON Tb_personal_data.rkm_mlf = Tb_Functional_data.rkm_mlf_Func) LEFT JOIN Tb_Mrhla ON Tb_Functional_data.Mrhla = Tb_Mrhla.Mrhla_ID) LEFT JOIN Tb_Gob ON CStr(Tb_Functional_data.Gha_Aml) = CStr(Tb_Gob.Gob_ID)) LEFT JOIN Tb_Additional_data ON Tb_personal_data.rkm_mlf = Tb_Additional_data.rkm_mlf_Addi) LEFT JOIN Tb_Qualification_data ON Tb_personal_data.rkm_mlf = Tb_Qualification_data.rkm_mlf_Qual;