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

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق بتعديل (طفيف جدا جدا) في كود جلب الصورة... أرجو أن يكون المطلوب. بن علية حاجي شهادات جديد مع اضافة صور للطلبة.rar

تم التعديل كما تريد و زيادة حبتين Last_addres In sheets.xlsm

اذا كنت تريد من اكسل المراتب بين 1 ومئة مثلا 1 الأوّل 22 الثّاني والعشرون وهكذا ..... حمل هذا الملف Salim's Order.xlsm

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت انظر المرفق (Sheet1) Last_row In sheets.xlsm

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

:: نعم اخي هذا المطلوب .. واعتذر عن التاخير في الرد ... لقد كانت حالتي الصحيه ليست على مايرام ...

بالتوفيق اخي محمدنجار الله يوفق الجميع

:: اخي الكريم @ابو ياسين المشولي :: شكرا لك على هذا الكود الرائع فهو يعمل بشكل ممتاز .. نعم هذا هو المطلوب بالضبط .. ادعوا الله لك ان تنال خير الدنيا والاخرى . ملاحظة : تم وضع الكود عند حدت Exit في الفرعي اعتقد يكون فعال اكثر .... تحياتي

تم التعديل يجب ان تضيف المكتبة المرفقة قبل التجربة جرب ووافنا بالنتيجة SQLDMO.rar

تفضل: فك الضغط عن الملف المرفق وضعه في المسار التالي: c:\program files (x86) \Common Files\Microsoft shared\DAO\ واذا كنت تستخدم نظام 64 بت ضعه في مجلد: SYSWOW64 وان شاء الله تحل مشكلتك dao360.dll.zip

بسم الله الرحمن الرحيم تكبير وتصغير اليوزر فورم رابط الملف: https://drive.google.com/open?id=1TJu41-7reftBqkl68DVQH2x3XKeQ6PqK

اخي الكريم إذا كنت تريد عمل برنامج بمقابل مادي فيمكنك نشر اعلاانك في المنتدى المخصص وإذا كان الامر غير ذلك ابدأ المشروع والاعضاء سيساعدونك إن شاء الله ::بالتوفيق::

نوع صندوق المسج بوكس 48 تعني تنبيه ::بالتوفيق::

أيوا ولا ربط كمان

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

يا جماعة استاذ سليم ده ملوش حل

من فضلك استاذى الكريم اسلام -حدد بالضبط ماذا تريد مع الشرح على ملفك مع كتابة النتائج والمخرجات المتوقعة حتى تتمكن الأساتذة من مساعدتك-فسؤالك بهذه الطريقة غامض وليس واضح بارك الله فيك

اول اشي تضع زر ثم من خلال المايكرو تكتب Sendobject تفتح لك الصفحة كما في الصورة المرفقة

على الرحب والسعه ::بالتوفق::

اتفضل اخي اتمنا يكون المطلوب عملت الكود عند الخروج من النموذج بامكانك نعمله حبث شات On Error GoTo enderr DoCmd.SetWarnings False 'النموذج Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone 'الجدول للتحري Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items") Rs.MoveFirst 'دوران Do While Not Rs.EOF RsEdit.MoveFirst 'دوران للجدول Do Until RsEdit.EOF 'اذا وجد السجل If RsEdit!itname = Rs!itname Then 'تحريره RsEdit.Edit RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم " Exit Sub enderr: MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل" DoCmd.SetWarnings True UPdate QTY.rar

أهلا بك اخ كريم فى المنتدى -من الأفضل ان تقوم من البداية برفع ملف وشرح فيه ما تريده بالتفصيل فى مشاركة منفصلة لك ولكنى قمت بعمل هذا الملف لك بارك الله فيك إستخراج الأسماء لحد الإسم الثالث من الأسماء الخماسية.xlsm

وعليكم السلام ورحمة الله وبركاتة تفضل Private Sub أمر12_GotFocus() If (IsNull(Me.txt14)) Then MsgBox "اختر من القائمة أولا", 48, "تنبيه" Me.List2.SetFocus End If End Sub ::بالتوفيق:: إيقاف زر الأمر k906عندما.rar

وعليكم السلام اخى الكريم-نورت بين اخوانك تفضل لك ما طلبت -والملف به طريقتين للحل ..الأول بالمعادلات والأخرى بالأكواد بيانات طالب-1.xlsm

السلام عليكم ورحمة الله وبركاتة اللهم ارزقني حبك وحب من يحبك وحب عمل يقربني الى حبك أسال المولى عز وجل أن يكرمك بكل الرضى والسعادة والسلام عليكم ورحمة الله وبركاتةسجل القيدد الإعدادي.xls

اذا كنت تريد ان يظهر لك ما يحتوي التحديد الذي قمت به (بدون الخلايا الفارغة) استعمل هذا الملف الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Cells(1, 1).Column = 1 Then Exit Sub If Selection.Cells.Count > 50 Then MsgBox "Too Many Data" Exit Sub End If Dim lasteRow Dim x% lasteRow = Cells(Rows.Count, 1).End(3).Row If lasteRow = 1 Then lasteRow = 2 If Application.CountA(Target) = 0 Then With Range("A1") .Value = Selection.Address With .Offset(1) .Resize(lasteRow, 1).Clear .Value = "Selection is Empty " .Interior.ColorIndex = 8 End With With .Offset(2) .Value = "ActiveCell is : " & ActiveCell.Address .Interior.ColorIndex = 3 .Font.ColorIndex = 2 End With End With Exit Sub End If Dim arr() Dim k%: k = 1 Dim cel As Range For Each cel In Selection If cel <> vbNullString Then ReDim Preserve arr(1 To k) arr(k) = cel.Value k = k + 1 Else: x = x + 1 End If Next With Me.Range("a1") .Value = Selection.Address .Offset(1).Resize(lasteRow, 1).Clear .Offset(1).Resize(k - 1, 1).Value = Application.Transpose(arr) With .Offset(k) .Value = "Active Cell is : " & ActiveCell.Address .Interior.ColorIndex = 3 .Font.ColorIndex = 2 With .Offset(1) .Value = "Items: " & Selection.Cells.Count - x .Interior.ColorIndex = 7 .Font.ColorIndex = 2 End With End With End With Me.Range("A:A").Columns.AutoFit Range("B1") = "Selection Address" Erase arr End Sub GET adderss of selection.xlsm

اولا شكرا لك استاذنا @أبو آدم قم بفتح القاعدة بيانات وافتح احد نماذج في وضع تصميم واضغط على كونترول و حرف جي الانكليزية ctrl + G سيفتح لك هذه النافذة في الاسفل نافذة كتابة الاكواد كما مبينة في الصورة قم بكتابة هذه الجملة واضغط على انتر لكي يتم تفعيل خصائص الورقة CommandBars("Property Sheet").Enabled = True واذا تريد عدم التفعيل اكتب هذا CommandBars("Property Sheet").Enabled = false واضغط على انتر تقبلوا تحياتي

وعليكم السلام عمل استعلامات 4 ، كل استعلام بمعيار ، هو اسهل الطرق ، 2. هاي الاسهل ، عمل ملف اكسيل لكل استعلام: تعمل استعلامات لكل نوع من الشروط اللي ذكرتها اعلاه ، والكود التالي لعمل ملفين: DoCmd.OutputTo acOutputQuery, "Q1", acFormatXLS, "D:\Temp\File1.xls", False DoCmd.OutputTo acOutputQuery, "Q2", acFormatXLS, "D:\Temp\File2.xls", False او DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Q1", "D:\Temp\File1.xls", True DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Q2", "D:\Temp\File2.xls", True . 1. اذا اردت ان ترسل الاستعلامات الاربع ، وتحفظ كل واحد في صفحة مستقلة ، فالبرنامج هذا يفيدك: . وتقدر برمجيا تدخل في كود البرنامج اعلاه ، وترسل الاربع استعلامات جعفر

السلام عليكم فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به اذا اردنا لون معين نقوم بالبحث العشوائي عن هذا اللون اوما يقاربه ثم نقوم بالتغيير عليه من الارقام الخاصة RGB حتى نوصل الى ما نريده تماما الناتج: كود RGB كود HEX كود MSA ويمكنك الاحتفاظ بهذه المعلومات في الشيت من زر اضافة معمول بالاكسل وبالفيجول بيسك الاكسل 2003-2010 فورم تكوين الوان مع المعلومات.rar بالفيجوال بيسك: RGB TO HEX.rar في امان الله