كل الانشطه

افتح محرر VBA (اضغط Alt + F11 ) انتقل إلى قائمة Tools > References ابحث عن "Microsoft Office XX.0 Object Library" (حيث XX يعتمد على إصدار Office الخاص بك، مثل 16.0 لـ Office 2016 أو 365)

السلام عليكم عند الضغط على زر الصورة يظهر خطا في الوحدة النمطية اليكم الصورة Nouvelle image bitmap.bmp

وعليكم السلام ورحمة الله وبركاته 🤗.. لو استخدمت خاصية البحث في المنتدى ، لكنت وجدت الكثير من المشاركات التي تناولت نفس الموضوع ، منها :-

ههههههههه خليها سر ، مش حقولك إزاي 😎

وعليكم السلام ورحمة الله وبركاته .. حاول استخدام المعادلات لسهولتها عليك ، على سبيل المثال ، في الجزء الأول للطرح والنتيجة بين التاريخين :- في النتيجة للأيام :- =DATEDIF(R16, O16, "md") في النتيجة للأشهر :- =DATEDIF(R16, O16, "ym") في النتيجة للسنوات :- =DATEDIF(R16, O16, "y") أما في الجزء الثاني من جمع قيم الى تاريخ للحصول على تاريخ جديد ، استخدم المعادلة التالية :- =DATE(YEAR(O28) + T28, MONTH(O28) + S28, DAY(O28) + R28) أو هذه المعادلة :- =DATE(YEAR(O28) + T28 + INT((MONTH(O28) + S28 - 1) / 12), IF(MOD(MONTH(O28) + S28, 12) = 0, 12, MOD(MONTH(O28) + S28, 12)), DAY(O28) + R28) جرب النتيجة وأخبرنا بها ، في ملفك المرفق التالي :- جمع_.zip

تفضل الملف جاهز طرح الأيام =DATEDIF(R16;O16;"MD") طرح الشهور =DATEDIF(R16;O16;"YM") طرح السنوات =DATEDIF(R16;O16;"Y") لجمع السنوات =DATE(YEAR(O28) + T28; MONTH(O28) + S28; DAY(O28) + R28) جمع (2).xlsx

معاك انت و مخافش طب ازاى

نزلته فعلاً ، بس والله ما جربته .. متخافش على رزقك 😂

ما سمعت لك صوت يعنى يا استاذ @Foksh ولا شوفت لك تعليق ع المرفق الاخير

لا انا مش زعلان بس انا علشان مش عندي طابعة فكرت المشكله فى الكود بتاعى

السلام عليكم اريد ان يعمل البرنامج على جميع مقاسات الشاشات مع ملاحظة انى استخدم ويندوز 10 اوفيس 2019 64 بت عن طريق وحدة نمطية ثم استدعيها داخل النموذج المراد التطبيق عليه جزاكم الله خيرا

حقك علي فعلاً ،، انا افتكرت نفسي عملت اقتباس 😂 قصدي مع مشاركة معلمي الفاضل منتصر

ممكن تصميم واجهة يتم فيها طرح تاريخين و الناتج من الاسفل يوم شهر سنة جمع .xlsx

#مركز_الفرسان_الدولي_للتدريب #Alforssan International Training Center بسم الله الرحمن الرحيم مركزالفرسان الدولي للتدريب AL-Forssan يقدم دورات فى الهندسة المدنية وأعمال البناء يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من مركز الفرسان الدولي للتدريب للتواصل والإستفسار وطلب المحتوي العلمى يرجى التواصل بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com دورة طرق تصميم الخلطة الأسفلتية و الخرسانية دورة العمارة البيئية دورة انجاز وصيانة البنية التحتية لوسائل النقل ورشة عمل في إدارة الورش الفنية و تكنولوجيا الصيانة دورة المواد والتكنولوجيا المتقدمة في صناعة الخرسانة، المواد الجديدة لإصلاح وحماية الخرسانة دورة مهارات الإشراف على البناء الطريقة المهنية لإدارة المشاريع دورة مسؤول مراقبة جودة الخرسانة في المناخ الحار دورة إدارة عقود الفيديك : تطبيق عملي لعقود الفيديك دورة: النظم والتقنيات المتقدمة فى صيانة المنشآت والمرافق وسلامة الأصول دورة الأجهزة الدقيقة وآليات التعامل معها دورة الإدارة المالية للصيانة و خفض التكاليف دورة صيانة وإدارة رصف الطرق دورة تقنية محركات السيرفو دورة فن إستخدام منهج الهندسة القيمية فى إدارة المشاريع دورة المطرقة المائية و تأثيراتها على الأنابيب و المضخات دورة معالجة المياه و تأثيرها على حياة المرجل : طرق معالجة المياه و استهلاك المرجل دورة الإدارة المتكاملة للمشاريع الهندسية دورة الصيانة الوقائية للمباني: المعايير القياسية والإجراءات دورة تخطيط جداول الصيانة و التحكم بالعمل دورة إدارة تنفيذ المشروعات الإنشائية PMP ورشة عمل للتقنيات المتقدمة في صيانة وإدارة المرافق دورة صيانة وإصلاح محركات التيار المستمر و المتناوب دورة تقنية العزل الغازي في محطات التحويل المغلقة دورة مواصفات ومتطلبات كود معهد الخرسانة العالمي للتشييد والإصلاح والتصميم دورة أنواع المضخات وطرق صيانتها دورة الوقاية من انقطاع الطاقة (UPSاختيارها، تمديدها و صيانتها دورة إنشاء المبانى الخرسانية بإستخدام SAP 2000 دورة الأعمال المساحية بإستخدام Total Staion & GPS دورة مراقبة و تحليل الإهتزاز: التصحيح و الموازنة دورة ترميم المنشأت الخرسانية دورة تصريف مياه العواصف المطرية: دراسة و تصميم دورة الإدارة و الإشراف على عقود التشغيل و الصيانة دورة الصيانة الوقائية و التنبؤية دورة مراقبة الجودة والتفتيش الموقعي للمشاريع ووضع نظم التحكم بالجودة دورة الإشراف على الاستشاريين والمقاولين والتخطيط الإستراتيجي ومهارات القيادة ومتابعة أعمال التشغيل والصيانة دورة تصميم شبكات الأمن والمسح الأمني دورة المبادلات الحرارية : الأنواع و تطبيقاتها- التصميم- التشغيل و الصيانة دورة المضخات، الضواغط و العنفات: الإختيار، التشغيل و الصيانة دورة طرق تقنية ترشيد استهلاك الطاقة دورة المحولات الكهربائية : التصميم، الإختيار و الصيانة دورة إدارة مشاريع الترميم وإعادة التأهيل للمباني دورة متقدمة في الأوتوكاد دورة الصمامات و المضخات : إختيارها و صيانتها دورة شاملة في الأوتوكاد دورة التصميم الإنشائي للمباني دورة أنظمة التأريض والحماية من الصواعق في الأبنية الحديثة دورة الطرق الحديثة فى معالجة وإدارة المخلفات الصلبة دورة صيانة المبانى والمنشأت دورة مهارات إعداد و كتابة التقارير الفنية للمهندسين و الفنيين دورة الجودة فى قطاع التشييد والبناء دورة تقنية قواطع العزل للجهد المتوسط : التشغيل و الصيانة دورة الإبداع والتميز فى إدارة المشاريع الإحترافية دورة مراجعة التصاميم المعمارية وتوصيف المواد دورة الحوامل للمحاور الدوارة: أنواعها و طرق تزييتها دورة الدائرة المفتوحة والمغلقة لأبراج التبريد : التصميم، التشغيل والصيانة دورة أنظمة التحكم الحديثة و أجهزة القياس الدقيقة الصناعية دورة دراسة وتصميم مشاريع تصريف مياه الأمطار ودرء أخطار السيول دورة البرنامج المتقدم المتكامل في التشغيل و الصيانة دورة المهارات الإدارية للمهندسين والفنيين دورة مخاطر السيول والتصميم الهيدروليكي لمنشات تصريف مياه الامطار دورة إدارة الفيضانات الحضرية والتخفيف من مخاطر الكوارث دورة مقدمة في إدارة مخاطر السهول الفيضية (FRM) دورة إدارة مخاطر الفيضانات والسواحل دورة تقييم مخاطر الفيضانات باستخدام Hec-Ras و Hec-HMS و QGIS دورة إدارة مخاطر الفيضانات دورة مخاطر الفيضانات والقدرة على الصمود …………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام كما يعقد مركز الفرسان الدولي للتدريب الدورات التالية بالتخصصات المذكورة ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر مركز الفرسان الدولي للتدريب مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من مركز الفرسان الدولي للتدريب لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام

مش توضح الرد ده مع انهو طريقه بالظبط

ولو بعد الرسالة اغلقنا التقرير 😅 برضوا هيطبع صفحة فاضية ! 🙄

وعليكم السلام ورحمة الله وبركاته .. حاولت التبسيط لك من خلال المعادلات و وجدت انك ستقوم بتكرار الكثير من المعادلات لكل عمود . لذا خطرت لي فكرة أبسط لك من خلال الكود التالي في زر :- Private Sub CommandButton1_Click() Dim wsSrc As Worksheet, wsDest As Worksheet Dim srcData As Variant, outData() As Variant Dim i As Long, j As Long, outRow As Long Dim lastRow As Long Set wsSrc = ThisWorkbook.Sheets("الوارد") 'تحديد الورقة المصدر Set wsDest = ThisWorkbook.Sheets("مشتريات") 'تحديد الورقة الهدف lastRow = wsSrc.Cells(wsSrc.Rows.Count, "F").End(xlUp).Row srcData = wsSrc.Range("B3:N" & lastRow).Value ' تم التوسيع حتى العمود N (عمود 14) ReDim outData(1 To UBound(srcData), 1 To 13) 'تحديد عدد الأعمدة outRow = 0 For i = 1 To UBound(srcData) If Trim(srcData(i, 5)) = "مشتريات" Then 'تحديد الشرط outRow = outRow + 1 For j = 1 To 13 'تحديد عدد الأعمدة outData(outRow, j) = srcData(i, j) Next j End If Next i If outRow > 0 Then wsDest.Range("B3").Resize(outRow, 13).Value = outData 'تحديد عدد الأعمدة End If End Sub وأضفت لك التعليقات لتفهم الفكرة في حال أردت التنفيذ على أوراق أو أفكار اخرى بتغيير الشروط والهدف والمصدر والأعمدة .... إلخ الملف المرفق ، في الورقة "مشتريات" انقر الزر فقط 😁 . خزينة المشتريات والتراخيص المركزية عام 2025-2026.xlsm

تمام ، هكذا الأمور أوضح للجميع ,, تفضل هذا الكود كاملاً للنموذج بعد التعديل :- Option Compare Database Private m_ImagePath As String Sub ImageLoad() On Error Resume Next m_ImagePath = CurrentProject.Path & "\" & "SysFiles" & "\" & Me.ID List31.RowSource = "" List31.RowSource = Left(GetAllFile(m_ImagePath), Len(GetAllFile(m_ImagePath)) - 1) End Sub Private Sub Command42_Click() On Error Resume Next m_ImagePath = CurrentProject.Path & "\SysFiles\" & Me.ID Dim newFileName As String newFileName = AddNewFile(Me.ID) Image16.Picture = m_ImagePath & "\" & newFileName Call ImageLoad Me.Path = m_ImagePath & "\" & newFileName If Not IsNull(newFileName) Then List31.Value = newFileName End If End Sub Private Sub Command43_Click() On Error Resume Next If IsNull(List31) Then Exit Sub If MsgBox("هل تريد فعلا حذف الصورة المحددة" & vbNewLine & List31, vbMsgBoxRight + vbYesNo + vbQuestion, "تأكيد الحذف") = vbYes Then m_ImagePath = CurrentProject.Path & "\" & "SysFiles" & "\" & Me.ID Kill (m_ImagePath & "\" & List31) Call ImageLoad Image16.Picture = "" Image16.Requery End If End Sub Private Sub Form_Current() On Error Resume Next Call ImageLoad Me.Form.Caption = IIf(IsNull(Me.الاسم), "", Me.الاسم) Image16.Picture = "" Auto_Header0.Caption = "الأرشيف الالكتروني للموظف" & " : " & Me.الاسم End Sub Private Sub List31_Click() On Error Resume Next m_ImagePath = CurrentProject.Path & "\" & "SysFiles" & "\" & Me.ID Image16.Picture = m_ImagePath & "\" & List31 Me.Path = m_ImagePath & "\" & Me.List31 End Sub Private Sub List31_DblClick(Cancel As Integer) On Error Resume Next If IsNull(List31.Value) Or List31.Value = "" Then Exit Sub Dim oldName As String, oldNameWithoutExt As String, fileExt As String Dim filePath As String, newName As String, newNameWithExt As String oldName = List31.Value filePath = CurrentProject.Path & "\SysFiles\" & Me.ID & "\" Dim dotPosition As Integer dotPosition = InStrRev(oldName, ".") If dotPosition > 0 Then oldNameWithoutExt = Left(oldName, dotPosition - 1) fileExt = Mid(oldName, dotPosition) Else oldNameWithoutExt = oldName fileExt = "" End If newName = InputBox("أدخل الاسم الجديد للصورة", "تعديل اسم الصورة", oldNameWithoutExt) If newName = "" Or newName = oldNameWithoutExt Then Exit Sub newNameWithExt = newName & fileExt If Dir(filePath & oldName) <> "" Then If Dir(filePath & newNameWithExt) <> "" And LCase(filePath & newNameWithExt) <> LCase(filePath & oldName) Then MsgBox "! يوجد ملف بهذا الاسم بالفعل", vbExclamation + vbMsgBoxRight, "" Exit Sub End If Name filePath & oldName As filePath & newNameWithExt Call ImageLoad List31.Value = newNameWithExt If Image16.Picture = filePath & oldName Then Image16.Picture = filePath & newNameWithExt Me.Path = filePath & newNameWithExt End If MsgBox "تم تعديل اسم الصورة بنجاح", vbInformation + vbMsgBoxRight, "" Else MsgBox "الصورة التي تحاول تغيير اسمها ، غير موجودة في مجلد الموظف", vbExclamation + vbMsgBoxRight, "" End If End Sub الملف :- الصورة.zip

نعم اخي الفاضل

اخوي بلال ، من باب التوضيح أكثر لك . انت تريد عند النقر مرتين على اسم الصورة ان يتم اظهار رسالة تكتب فيها اسم الصورة الذي تريده ؟؟؟

يكون اسم الصورة عند اختيارها ونقوم بتعديل

ما في مشكلة أخي الكريم ، بس سؤالنا ؟ ماذا تريد ان يكون اسم الصورة عند اختيارها ؟؟؟؟؟؟؟؟

اليك التوضح

بصراحة ما فهمت

اريد عند تحميل نكتب اسم الصورة ادراج حقل لكتابة اسم الصورة