كل الانشطه

استاذنا الغالي ، اتعبكم معايا ، هو ينفع نعمله داخل موديول ونستدعيه من النموذج الرئيسي. وممكن اقدر استدعيه من اي نموذج اخر وشكرا ليكم كلكم

ليه الصدمة يا باش مهندسة مش فاهم حضرتك تقصدى ايه وبعد اذنك عجبتنى الفكرة واستأذن فى عمل بعض التعديلات ولان صاجب الموضوع طلب التعامل مع المسارات استكفيت بالرد طبقا للمسارات بابسط واسهل واسرع طريقة بدون اكواد لان بهارتى كانت خلصت ولكن يا استاذى القدير و معلمى الجليل استاذ @AlwaZeeR بما انك اقترحت ارد بضاعتكم اليكم على طريقتى مع بهاراتي الخاصة كله عمال يحط بهارت جت على انا يعنى لن اشرح شئ ولكن انتظر منكم الرد بعد التجربة الكود ذكى وشاطر لما بيقتح بدون مسارات بيطلب منك تحدد مجلد الصور ومن تلقاء نفسه وبذكائه يروح جايب مسارت الصور ونركز فى كلمة الصور دى يعنى ممكن نشاور له على مجلد فيه ملفاااااااااات كتير قوى سوف لن يجلب الا مسارات الصور فقط Images V2.accdb

جرب هذا الارقام والنصوص1.xlsm

تحديث سريع للاضافات فقط 1-اضافة (3D) _مع خيار تفعيل والغاء بزر 2-اضافة مكتبة كافة الصور المضافة ميزه حلوه من غير حمل بكود اسهل Me ( "r" & rng_Book) * me.scrollbar =================================== سوف اقوم ببعض التعديلات❤️ مع استاذي @ابو جودي 🌹🌹 Book_img_Aouto.part1.rar Book_img_Aouto.part2.rar Book_img_Aouto.part3.rar Book_img_Aouto.part4.rar

شكرا اخي محمد هشام الله يسعدك الغريب اني عملت اكواد كثير وكلها غلط في الاخير اكتشفت ان المشكله في الفاصلة ʼ استبدلتها ب ; ومشى الحال ما ادري وين المشكلة في اصدار الاوفيس او الجهاز ما قصرت بشوف الحل وتقبل تحياتي

جرب احدى المعادلات التالية 1) =IFERROR(INDEX($C$5:$C$10000;MATCH(2;1/($C$5:$C$10000<>"")));"") 2) =IFERROR(LOOKUP(2;1/($C$5:$C$1000<>"");$C$5:$C$1000);"") 3)قيمة رقمية =IFERROR(LOOKUP(9E+307;C:C);"") mdrrsah.xlsx

ولك بالمثل اخي لقد لاحظت ان الاعمدة الاخيرة تتضمن روابط المقاطع على اليوتيوب والفايس اليك تحديث الكود لتتمكن من نسخ Hyperlinks المواقع والانتقال اليها عبر الوورد Sub Copy_Transfer_WORD() Dim WS As Worksheet, n As Worksheet Dim Rng As Range, j As Range, irow As Range Dim x As Long, r As Long, lastrow As Long Dim i As Integer, Ary As Variant Dim cnt() As String Dim arr() As String Set WS = Sheets("الانشطة"): Set n = Sheets("WordCopy") lastrow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row Application.DisplayAlerts = False Application.ScreenUpdating = False Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name) If Msg <> vbYes Then Exit Sub n.Visible = xlSheetVisible: n.Cells.UnMerge Set tmp = n.Range("A1:l" & n.Rows.Count) cnt() = Split("A-A,D-C,E-D,F-E,G-F,H-G,I-H,J-I", ","): tmp.Clear For i = 0 To UBound(cnt) arr = Split(cnt(i), "-") Set Rng = n.Range(arr(1) & n.Rows.Count).End(xlUp) WS.Range(arr(0) & "4:" & arr(0) & lastrow).Copy Destination:=Rng Next i rngA = Split("C", ","): rngB = Split("B", ",") For i = LBound(rngA) To UBound(rngA) WS.Range(rngA(i) & "4:" & rngA(i) & lastrow).Copy With n.Range(rngB(i) & "1") .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With Next i n.Columns("A").SpecialCells(xlBlanks).EntireRow.Delete lr = n.Cells(n.Rows.Count, "A").End(xlUp).Row Set a = n.Rows(1): Set b = n.Rows(2): Set d = n.[A1:I1]: Set E = n.Range("A3:I" & lr) a.RowHeight = 75: b.RowHeight = 40: b.Font.Bold = True: b.Font.Size = 14 d.Merge: d.Interior.Color = RGB(192, 192, 192) n.[A2:I2].Interior.Color = RGB(215, 238, 247): n.[H2:I2].Merge E.Interior.ColorIndex = xlNone: E.Font.Name = "AdvertisingBold": E.Font.Size = 13 F = n.Cells(2, n.Columns.Count).End(xlToLeft).Column + 1 n.Range(n.Cells(2, 1), n.Cells(lr, F)).Borders.Weight = xlThin Ary = Array(5, 15, 38, 38, 38, 15, 15, 15, 15) For x = 0 To UBound(Ary) n.Columns(x + 1).ColumnWidth = Ary(x) Next x Set irow = n.Range("A3", n.Cells(n.Rows.Count, "A").End(xlUp)) For Each j In irow.Rows If j.RowHeight < 20 Then: j.RowHeight = 30: Else j.EntireRow.AutoFit Next n.Range("b3:b" & n.Rows.Count).NumberFormat = "yyyy/mm/dd" n.Range("A:I").EntireColumn.HorizontalAlignment = xlCenter n.Range("A:I").EntireColumn.VerticalAlignment = xlCenter With n.Range("A3:A" & n.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-2") End With WS.Activate: ExcelToWordSheet1 n.Visible = xlSheetVeryHidden Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 2024 final V3.xlsm

سوف اقوم ببعض التعديلات

إذن حان الوقت لاضافة هذه الامثلة للمكتبة ..... شكرا لكم @ابو جودي @Moosak @AlwaZeeR وتقبلوا تحياتي لكم ....

السلام عليكم ورحمة الله وبركاته بارك الله لكم في العشر وكل عام وانتم بخير اتمنى اظهار اسم اخر طالب في خلية معينة حاولت بالاندكس ولكن ظهر خطاء لا اريد استخدام الكود البرمجي تحياتي لكم -------------------- mdrrsah.xlsx -------------------

مرفق لكم صورة بما اريد

لا بأس عليك، أجر وعافية.

دالة round تعمل مع الأرقام الموجبة والسالبة بنفس الطريقة، لا تحتاج إلى استخدام دالة if

وتم اضافة دالة من استاذي @ابو جودي ❤️🌹🌹 100% لأعادة الترقيم احذف الصور واضافة صور جديده يكون مسار الصور المضافه جنب قاعدة وانتظروا التحديث 😇

مشاركتي معكم ومع استاذي @ابو جودي @Moosak وهذي مشاركتي بس مع بهاراتي الخاصة 😎 حبيت 😂 1-يمكن نقل البرنامج لاي جهاز ثاني عند السحب يأخذ اسم الملف مع تجزئة المسار ويتعرف من البداية اذا كان جهاز آخر وتحديث Aouto 2-اضافة كتابة عناوين للصور بقائمة البوم 3-عدلة وصلحة تحريك وعرض الصور 5-امكانية جعل الصور ممتده او محجمة بضغطة زر 6-عرض تقديمي موضيئ 😂 وبرق يطلع من الشاشة ========================= Aouto_Give_And_Swho_And_Allbom_img.part1.rar Aouto_Give_And_Swho_And_Allbom_img.part2.rar Aouto_Give_And_Swho_And_Allbom_img.part3.rar Aouto_Give_And_Swho_And_Allbom_img.part4.rar 😂 اذا كان جودة الصورة معقولة تجد البرنامج سلس اما اذا كان ذا جودة واطار عالي تشوف اضواء يحتاج الى بعض التعديل 😇 وشكرا لكم ولاستاذي @ابو جودي ❤️🌹🌹

مشروع.accdb

دا مش موضوع جديد دا نفس الموضوع عموما شكرا

طبقا لما هو موضح بقوانين المنتدى حضرتك افتحي موضوع جديد وارفقي مثال ونشوف فين المشكله

طيب بص حضرتك هو الكود تمام بس الجزا الخاص ب الهيدر ااعتقد اصغر شويه من اصب ريبورت عشان كده مش بيظهر كله لازم احرك الماوس لتحت عشان باقى التقرير يظهر بس بصراحه التقرير اللى فى الملف بتاع حضرتك بيفتح تمام بدون مشاكل مش عارفه انا الخطأ عندى فين رغم انى ناقله الكود بالظيط

بتعمل متغير لحساب عدد السجلاتج بعدها نخلى العنصر A بتاعك يظهر بعدها نقوم بحساب عدد السجلات في جدول settings_Report_tbl ثم نعين ارتفاع Header الصفحة إلى 0 ودي مهمه عشان الخطوه الأخيره اخيرا نضبط ارتفاع العنصر A ليكون متناسبًا مع عدد السجلات في الجدول إذا كنت بحاجة إلى مزيد من التفاصيل حول جزء معين من الكود أو لديك أسئلة إضافية، فلا تتردد في طرحها.

وهل هذا الزر ينفع لكل اشكال الطبااعة حتي طباعة طباعة كروت شخصية فوري

ويمكن من خارج اكسس .. توظيف وندوز ولوحة المفاتيح في الحدث المناسب للحقل الأول تعمل نسخ وفي الحدث المناسب للحقل2 تعمل لصق للنسخ SendKeys "^{c}" للصق SendKeys "^{v}"

وعليكم السلام-تفضل هذا الفيديو مشروح به طلبك

اعتذر استاذ @حسونة حسين لم تعمل بالشكل المطلوب انا الجدول الذي لدي يتم تقريب الأرقام إلى أربعة قيم و هي 250 أو 500 أو 750 أو 1000 و هي القيم المستخدمة في الدينار العراقي الموجودة كعملة حقيقية و معادلتي تفي بالغرض و قد ساعدوني الأساتذة هنا من قبل لكن المعادلة لا تتفاعل من الرقم السالب المطلوب هو تعديل المعادلة كي تتفاعل مع الرقم السالب اي ان كان الرقم سالبا ان يتم التقريب في السالب ايضا و ليس تعديل الر قم من سالب إلى رقم صحيح ارجو تفقد المعادلة الموجودة في الجدول و يمكنك تغيير الرقم او الراتب كيفما تريد سيتم تقريب الرقم إلى الأربعة قيم المذكورة لكن لا تتفاعل مع السالب و لكم جزيل الشكر

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