نجوم المشاركات

مشكور أخى الكريم ولكم جميعا الشكر والتقدير

أخي الكريم كود الأستاذ @AlwaZeeR سليم قم بتغير فواصل المعيار من (,) الى (;) بحيث يصبح الكود كالتالي =Day(DateSerial(Year([datex]);Month([datex])+1;0)) مرفق الملف بعد التعديل EX.rar

هذه الطريقة بالتأكيد أفضل بكثير من المعادلات أدام الله استاذنا الكبير سليم زخرا وعونا لنا دائما جزاه الله كل خير

أحسنت استاذ سليم كود ممتاز ورائع وقائمة منسدلة عبقرية زادك الله من فضله وبارك الله فيك وجعله فى ميزان حسناتك

لنظام وندوز 32 المكتبة هي : MSCOMCTL.OCX ولاحظ انها تحتاج تسجيل MSCOMCTL.rar

السلام عليكم ورحمة الله وبركاته اولا بعد اذن الاستاذ الكريم @qathi قمت ببعد التعديلات الطفيفة جدا PIC.mdb

جرب هذا الملف _سليم اليوميه.xlsm

استخدم الكود التالى فى مديول Sub Emad() Dim i, lastrow As Long lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row 'غير الشيت إلى الشيت الذى تريده For i = 1 To lastrow ' غير ال 1 الى رقم الصف الذى تريده If Cells(i, 1) = Date - 10 Then 'غير ال 1 الى رقم العمود الذى تريده وغير ال 10 الى الرقم الذى تريده يظهر تنبيه قبله هنا هيظهر التنبيه قبل التاريخ ب 10 ايام MsgBox "لقد قاربت الاجازة على الانتهاء" ' أكتب الرسالة التى تودها فوق Cells(i, 1).Interior.ColorIndex = 3 'هذا الكود لتلوين الخلية Else Cells(i, 1).Interior.ColorIndex = xlNone ' هذا لإلغاء التلوين فى حالة تغير التاريخ End If Next End Sub وضع هذ الكود فى workbook Private Sub Workbook_Open() Call Emad End Sub وهذا معناه عند فتح ملف الاكسل يظهرلك رسالة التنبيه

بارك الله فيك اخي الملف معطوب ياليت تعيد رفعه

نعم كما في طباعة الصور ولا يهم ان كان بالعرض او الطول لان الهوامش بالاصل تكون صفر

جزاك الله خيرا استاذي ونفع الله بكم

أهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت tarheel1.xlsm

السلام عليكم ورحمة الله وبركاته اولا اخى الكريم اضافة الصور الى القاعدة سوف يزيد حجم القاعدة جدا جدا جدا وسوف يؤثر هذا على قاعدة البيانات بالسلب لذلك هى نصيحة ليس الا عدم اضافة الصور الى القاعدة نفسها ان كان هناك اجهزة كثيرة يتم فصل الجداول لتكون على جهاز سيرفر وباقى الكائنات على قاعدة ويتم التعامل باضافة الصور الى السيرفر ويتم استعراض البيانات بالصور باستدعائها من السيرفر لو عجبتك الفكرة فقط اخبرنى وان شاء الله اقوم بالتعديل اللازم ان اردت ذلك

الطابعات انواع : فطابعات البطاقات تختلف عن طابعات الورق ، حيث يمكن ان يكون الهامش صفر اما الطابعات التي تسحب الورق فإن الذي يسحب الورقة ويدفعها للخارج هي عجلات تدور فوق طرفي الورقة فتسحبها لاحظ انه يمكننا تلافي الهوامش البيضاء في الورقة باستخدام ورق يشتمل على خلفيات مسبقة

لا عجلات الطابعة تأخذ حيزا من الورقة

وعليكم السلام ورحمة الله وبركاته تفضل: =Day(DateSerial(Year([datex]),Month([datex])+1,0))

تفضل سيفيد هذا الملف في عملك... عمل الملف بالتالي: أولاً: يتم ادخال الاسم ثانياً: الضغط على زر أضافة يتم أنشاء مجلد لأول مرة باسم image في نفس مسار ملف الاكسس وبعد أختيار الصورة يتم نسخ الصورة بالمجلد image بنفس الاسم التي تم أضافته ويتم تخزين المسار الجديد للصورة بالجدول وهذ الكود المضاف في زر اضافة On Error Resume Next Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "Image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder & "'لم يتم انشاء المجلد" End If End If ' Requires reference to Microsoft Office 14.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant ' Clear listbox contents. Me.picfile = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = False ' Set the title of the dialog box. .Title = "رجاءً قم بتحديد مكان الصورة" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.add "png image", "*.png" .Filters.add "jpg image", "*.jpg" .Filters.add "jpeg image", "*.jpeg" .Filters.add "All Files", "*.*" If .Show = True Then For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Image" & "\" & Me.NameS & "f." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.picfile = destpath Me.Refresh Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number ============= أن أفادك .. فدعوة لي ولوالدي مرفق الملف: PName.rar

السلام عليكم اخي abuhamad500 بارك الله فيك برنامج صغير وجميل ولاكن عندي ملاحظة صغيرة لماذا استخدمت نفس المعطيات لثلاث نماذج . حاول الفصل بين معلوات السائق الشخصية ودمجها مع الهوية والمعلومات المتوفرة عن السيارة وفصل بين cv معلومات الشركة بالتوفيق

تفضل اخي العزيز لا تنساني من الدعاء السيارات.rar

فى جوجل اكتب تعلم vba أوفيسنا هتلاقى كتب وفيديوهات وموضوعات بتشرح باستفاضة ودا احدى الكتب لتعلم Vba https://www.officena.net/ib/topic/51244-لاول-مره-على-الانترنت-كتاب-تعلم-لغه-ال-vba-باللغه-العربيه-إكسيل/

3.xlsm

احذف خاصية مفتاح اساسي لرقم مكان الدورة لكي يقبل تكرار الرقم حيث استطيع اسجل بالمكان الواحد اكثر من متدرب وباكثر من دورة والافضل ان تفصل المكان كجدول مستقل(مع حذف عمودي رقم الدورة ورقم المتدرب) زيه زي الجدولين الرئيسين ليصبح 3 جداول رئيسية تنشئ جدول رابع به الاعمدة ( رقم المتدرب ورقم الدورة ورقم المكان - كلها ليست مفاتيح اساسية وانما تكةن نفس نوع البيانات للاعمدة بالجداول الرئيسية ليتم الربط بها - وتضيف اعمده اخرى زي تاريخ الانعقاد ونتيجة الدورة ناجح او راسب مثلا بالتوفيق

اخي الغالي محمد طاهر بالنسبة للاستفسار السابق وجدت الحل : عند ادخال الرقم السري والذي يمثل النقاط لكي لا يظهر للناس فلكي تعرف ان الادخال الذي تدخله هو باللغة العربية او الانجليزية فبمجرد ما تدخل حرف B اذا ظهرت نقطتان فالادخال سيكون بالعربي واذا ظهرت نقطة واحدة فحيكون لغة الادخال انجليزي وشكرا لك