كل الانشطه

السلام عليكم

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

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

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

وعليكم السلام جرب الكود المعدل بالملف تغيير لون الخلايا المحدده بالماوس من خلال اليوزر فورم_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;

؟؟؟

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

و عليكم السلام ورحمة الله و بركاته تفضل الملف. ملحوظة تم تعديل الاسماء و أرقام الاقامة لان من غير المنطقي أن تكون كل البيانات متشابهة تماما ماعدا رقم اللوحة مما يفقد البحث بالاسم أو رقم الاقامة فائدته فواز_معدل_للبحث_محدث (2).xlsx

مشكور والله

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