كل الانشطه

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

يحتار الكثيرون بين استخدام الصور أو الأيقونات داخل الشرائح، مع أن لكل منهما استخدامًا مختلفًا. 🖼️ استخدم الصور عندما: تريد نقل شعور أو لفت الانتباه. تعرض منتجًا أو مكانًا أو شخصًا حقيقيًا. تحتاج إلى إضفاء طابع واقعي على الشريحة. 🎨 استخدم الأيقونات عندما: تشرح فكرة أو مفهومًا. تعرض قائمة من النقاط أو الخدمات. تريد تصميمًا بسيطًا ونظيفًا ومتناسقًا. 💡 نصيحة: لا تخلط بين الصور الواقعية والأيقونات بكثرة داخل الشريحة نفسها، إلا إذا كان هناك سبب واضح لذلك. الحفاظ على أسلوب بصري موحد يجعل العرض أكثر أناقة وأسهل في الفهم. ❓سؤال للنقاش: في تصميماتك، هل تميل إلى استخدام الصور أكثر، أم تفضل الأيقونات البسيطة؟

عمل جميل تُشكر على طرحه .. وحبذا لو كان مصحوباً بشرح كافي عن طريقة استخدامه اخي الكريم

هل يمكن استخدام تأثيرات كثيرة في الشريحة؟ استخدم الحركات للعناصر باعتدال؛ حتى لا تشتت الانتباه.

السلام عليكم ورحمة الله وبركاته اذا امكن ممكن جلب البيانات اذا وضعت في الخلية j1 j2 j3 يجلب البيانات من شيت بيانات ملف جدا صغير ولكم الشكر فواز_معدل_للبحث.xlsx

حبايب قلبي عشاق برنامج الاكسس تم تحديث نظام lab الطبي نظام متكامل ونظراً لحجمه عملته لكم في رابط ما عليك الا تنزله وفك الضغط في قرص d كلمة المرور ١ حال عدم السماح بالدخول يرجع السبب الى اعدادات الماكرو لديك قم بالدخول الى خيارات من اي ملف اكسس مفتوح ثم إعداد الماكرو واعمل سماح بالتوفيق https://drive.google.com/file/d/1YDRRLchNAfArPzdS129nnpQlqJLHfL8M/view?usp=drivesdk

هل انتهيت من تنسيق شكل أو مربع نص، ثم احتجت إلى تطبيق نفس التنسيق على عناصر أخرى؟ بدلًا من إعادة اختيار الألوان والخطوط والحدود في كل مرة، استخدم أداة نسخ تنسيق (Format Painter). الطريقة: حدد العنصر الذي يحتوي على التنسيق المطلوب. من تبويب الشريط الرئيسي (Home) اضغط نسخ التنسيق (Format Painter). انقر على العنصر الآخر لتطبيق التنسيق مباشرة. 💡 معلومة إضافية: إذا أردت تطبيق التنسيق على عدة عناصر، فانقر نقرًا مزدوجًا على الأداة، ثم اضغط (Esc) عند الانتهاء.

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

هذا لأنك تستعمل الكومبوبوكس داخل الجداول ، والأصل ان يكون حقل الجنسية = رقمي ، وبالتالي العلاقات بين الجداول ستكون كفيلة بحل هذه المشكلة وجلب قيمة 1 من جدول الديانة نفسه ( كما ذكرت سابقاً حتى لو تغيرت معك التسميات ، فسيتم تغييرها في جميع السجلات في جميع الجداول التي يوجد بها هذا الحقل ) .