كل الانشطه

برنامج تصنيع (1).xlsm بوجد صفحة بطاقة صنف تفصيلى تريد اخذ من التوريدات والتصنيع بدلالة c3 فى صفحة بطاقة صنف تفصيلى

السلام عليكم ورحمة الله وبركاته إخواني الكرام والأعزاء - مرفق لكم ملف اكسل ساعدني فيه أساتذتي الكرام المحترمين @محمد هشام. و @حسونة حسين طمعًا في كرمكم الشديد وخبراتكم الواسعة وعلمكم المستفيض أرجو من سيادتكم رجاء إضافة زرار في "SHEET1" و"الأنشطة" و"تكافؤ الفرص" يحول نتيجة البحث بخرف كما في SHEET1 او بين تاريخين كما في شيت "الأنشطة" والجدول في شيت "تكافؤ الفرص" إلى ملف وورد - يعني بجانب الزرارين الموجودين اللي بيصدرو الى ملف اكسل وملف وورد - عايز رار تالت في الثلاث شيتات دول يحول نتيجة البحث الى ملف بصيغة الوورد وجزاكم الله الخير الكثير ونفع بكم وزادكم بسطة في العلم يا رب العالمين مرفق الملف المطلوب 2025.xlsm

بوجد صفحة بطاقة صنف تفصيلى تريد اخذ من التوريدات والتصنيع بدلالة c3 فى صفحة بطاقة صنف تفصيلى

مشكور اخى @محمد هشام. بارك الله فيك

للرفع رفع الله قدرك اخى @ابوخليل

مشاركة جانبية متأخرة مع الأساتذة ( أن تصل متأخراً خير من أن لا تصل ابدأ )، جرب هذه الفكرة اخي @عبد الله قدور ، ننشئ دالة عامة في مديول ونستخدم هذا الكود الذي يعيد تنسيق التاريخ بالشكل DD/MM/YYYY :- Public Function ParseDate(inputDate As String) As Date Dim dayPart As String Dim monthPart As String Dim yearPart As String dayPart = Mid(inputDate, 1, 2) monthPart = Mid(inputDate, 4, 2) yearPart = Mid(inputDate, 7, 4) ParseDate = DateSerial(CInt(yearPart), CInt(monthPart), CInt(dayPart)) End Function ونستدعيه على سبيل المثال كالآتي ( المتغير اختياري وعلى سبيل المثال ) :- Dim myDate As Date myDate = ParseDate("24/05/2024") ودمتم 🤗

تم تحديث الملف بتعديل بعض الأكواد للأفضل ( لا زيادة على الأكواد )

ادا كنت قد فهمت طلبك بشكل صحيح فهدا سيوفي بالغرض Sub CopyRanges() Dim i As Long, r As Long, a As Long, lr As Long Dim OneRng As Variant, arr As Variant Dim WS As Worksheet: Set WS = Sheets("شيت") Dim f As Worksheet: Set f = Sheets("نتيجةت1") a = WS.Range("A" & WS.Rows.Count).End(xlUp).Row lr = f.Columns("D:AD").Find(What:="*", _ SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row Application.ScreenUpdating = False For r = 14 To lr Union(f.Range("D" & r).Resize(, 14), f.Range("S" & r).Resize(, 12)).ClearContents Next r OneRng = Array("H8:I" & a, "L8:M" & a, "P8:Q" & a, "T8:U" & a, _ "X8:Y" & a, "AB8:AC" & a, "AF8:AG" & a, "AH8:AQ" & a, "AT8:AU" & a) arr = Array("D14", "F14", "H14", "J14", "L14", "N14", "P14", "S14", "AC14") For i = 0 To UBound(OneRng) WS.Range(OneRng(i)).Copy f.Range(arr(i)).PasteSpecial xlPasteValues Next Application.ScreenUpdating = True Application.CutCopyMode = False End Sub وفي ورقة (نتيجةت1) Private Sub Worksheet_Activate() CopyRanges End Sub New ورقة عمل Microsoft Excel .xlsb

تمام كده قم بتفعيل الماكرو يا اخي وقم بعمل trust بالضغط على الصورة

بارك الله فيك ا/ حسونة حسين جعل الله فى ميزان حسناتك

تفضل اخي Dim Stock_check As Boolean, Product_check As Boolean Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E2:E" & Uf), ComboBox1) > 1 Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1 If (fa.Cells(J, 4).Value) = 0 And Stock_check = True And Product_check = True Then fa.Cells(J, 4).EntireRow.Delete End If

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

شكراً لمروروك صديقي @TQTHAMI ، كلامك سليم ، ولكن اللعبة هنا تحتوي على 10 صور فقط وهي ( 6 صور لأوجه حجر النرد + 4 صور بين القرعة واللاعب الأول والثاني واللعبة الجديدة )

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

لسلام عليكم اريد حساب التسيير2023 على شكل A3حيث تكون الصفحة الواحدة على شكل A3 حيث تكون الصفحات على الشكل التالي الصفحة 1 تتكون من غلاف A3فقط الصحفة 2: تتكون ص1 فقط على شكل A3 الصفحة 3: تتكون من ص2 و شكل A3 الصفحة 4: تتكون من ص3وص12 على شكل A3 الصفحة 4: تتكون من ص4 وص 11 على شكل A3 الصفحة 5: تتكون من ص5وص10 على شكل A3 الصفحة 6: تتكون من ص6 وص9 على شكل A3 الصفحة 7: تتكون من ص7وص8 على شكل A3 Copie de حساب التسيير لسنة 2023 (1).xls

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) طبعاً المكتوب باين من عنوانه . هي اللعبة المعروفة والتي لعبها منا على الأغلب الجميع في طفولته .. من يبدأ اللعب هو من يحصل على أعلى رقم من القرعة . اللعبة يلعبها لاعبين اثنين فقط . يتم تسجيل النقاط لكل لاعب في خانة منفصلة . طريقة التحرك بنمط حجر النرد ( ولا أعلم إن كان البعض سيقول لي أن النرد حرام ) لكنه هنا ليس حجر نرد حقيقي وإنما فكرة اختيار عشوائي لصور أوجه حجر النرد ) الأرقام ) تدل على خطوات التقدم . الصعود لأعلى عند وصول اللاعب إلى أول السلم حتى الخانة التي تمثل رأس السلم . وكما الصعود !! سيكون لدينا النزول عند وصول اللاعب إلى رأس الثعبان سينزل باتجاه الذيل نزولاً .. تسجيل الحركات الإنتقالية لكل لاعب في مربع الحركات أسفل اللعبة . في حال الوصول إلى 95 سيحتاج اللاعب للوصول إلى الهدف 100 إلى 6 نقاط أو أقل ، فلو تقدم الى 99 كمثال هنا سيحتاج الى نقطة واحدة للتحرك وللفوز . فلو كان الاختيار العشوائي للصورة فرضاً 4 فلا يتم تحقيق الفوز إلا بالرقم 1 .... وهكذا . عند فوز أحد اللاعبين ، سيتحول الزر إلى لعبة جديدة . إمكانية تكبير النموذج لملئ الشاشة أو لا ، حسب رغبتك صور من اللعبة :- ملف اللعبة مفتوح المصدر Snake3.accdb

لا

اخي @Chenine Abdelhalim لقد تم ارسال لك رساله ببيانات الدخول

يمكنكم الاطلاع على هذا المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=129345

مثال اللغة العربية في الشيت ناخد منها بيانات المجموع والتقدير وهكذا لكل المواد تروح لصق للنتيجة New ورقة عمل Microsoft Excel.xlsb

تفضل اخى / حسونة حسين Private Sub CommandButton2_Click() sell-the-first-quantity-the-oldest-production-expiration-date2-vnob(1).xlsm

موضوع تحديد القياسات مشكلة عند تحديدها ,, اقرأ هذا الموضوع قد يفيدك لأخونا @طير البحر ..

مرحبا بالغوالي و لعى راسهم الاخ Foksh الحبيب والله اخي الحبيب انا لم اقم بتجربة فقط ,بل قمت بالكثير منها على سبيل المثال , قمت باستدعاء الدالة من الفورم عند التحميل بهذا الشكل resizefrom Me, 1366, 768 DoCmd.Maximize في كومبوتر شاشة 24 انج اعتقد الرزيليوشن 1950*1443 يعني دقة عالية كانت النتائج مذهلة وكانك بكل المقاييس توسيط و تحجيم و كل شيئ , ولكن فجأة عند غلق النموذج و فتحه تضاعف حجم المحتويات واصبح غير مرتب , قمت بعدها بحذف دالة الاستدعاء resizefrom Me, 1366, 768 ,,,, وابقيت فقط على DoCmd.Maximize اصبحت النتائج جيدة وكانني قمت بالتصيميم على ذلك الكومبيوتر 24 انج ابو الريزليوشن 1950*1443 , فهل من تفسير ؟؟؟ ولك مني اجمل سلام

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