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

برنامج طباعة الاختبارات بطريقة الاتمته (الاصدار الثاني) برمجة وتصميم الاستاذ صالح احمد محمد ربيع هذا البرنامج اهداء لجميع المدارس برنامج طباعة الاختبارات الاصدار ٢.xls

استخدم التنسيق الشرطي Database1(20).accdb

تفضل فقط قم بتغيير , الى ; db1.mdb

تفضل جرب المعادلات التالية ربما هدا ما تقصده test.xlsx

ولا يهمك ، المهم إنك وصلت لطلبك

كل الشكر والتقدير لحضرتك استاذ وبارك الله بجهودك المبذولة , كان حلك موفقا وناجحا لتلك المشكلة

جرب هذا المرفق حالة الملاك.mdb

في حال تم حل المشكلة ، رجاءً قم باختيار أفضل إجابة لغلق الموضوع 😊

لازم ترسلي الموديول (Concatenate_barcode_items) مع مرفقك لأن طلبك في تكوينه .

اخي الفاضل ، بعد البحث والتقصي لم أجد ما يخفي شريط التمرير في مستعرض الـ PDF ، وذلك من وجهة نظري يعود إلى أنه لو افترضنا أن المرفق أكثر من صفحة !! فكيف سيتم التنقل بين الصفحات في الـ Pdf المعروض ؟؟؟؟؟ كذلك الأمر قمت بتجربة الكود التالي ولم يقم بالإخفاء ، هذا من وجهة نظري و إن كان للأساتذة معلومة أخرى فمنهم نستفيد . Me.WebBrowserControlName.ScrollBars = 0

في حل الاستاذ @دروب مبرمج هل لاحظت أن الجدول الثاني ليس به مفاتيح

السلام عليكم بالاضافة لمثال للاستاذ @Foksh ضع الكود التالي بعد التحديث Private Sub Text0_AfterUpdate() Me.Text2 = Year([Text0]) End Sub test.accdb

أإذا كان فهمي للمطلوب صحيحا يمكنك وضع هذه المعادلة في الخلية C19 مع سحبها يسارا =LEN($B$19)-LEN(SUBSTITUTE($B$19,C18,"")) بالتوفيق

لاحظ الصوره اثناء نوع العينه serum جميع التحاليل تحت نفس نوع العينه تظهر مجمعه فى مربع النص x

هذا مثال بسيط Year_2023.accdb

لا لا لا مش كده خالص من هنا بنختار الخط

Format([t4],"yyyy")

انشاء الله بس أوصل البيت بعد العمل

بعد إذن الإخوة المشاركين حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة لعرض عوامل العدد في أول 100 رقم =IFERROR(SMALL(IF(IF(ROW($A$1:$A$100)*$E$1/$G$1=INT(ROW($A$1:$A$100)*$E$1/$G$1),ROW($A$1:$A$100),"")<>"",ROW($A$1:$A$100),""),ROW(A1)),"") مع سحبها لأسفل وهذا التطبيق على ملفك بالتوفيق للجميع

ما المشكلة في استخدام الدالة Trunc .. إن الدالة تعطيك الرقم الصحيح ولا يوجد أية كسور الرجاء توضيح المشكلة بمزيد من الأمثلة والمنطق المتبع في الحل.

عليمن السلام ورحمة الله وبركاته ربما تفيد هذه الموضوعات Showing results for 'جدارات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق

الأخ المحترم محمد بك صالح الف شكر على مرورك و إهتمامك للاسف المعادلة التى ارسلتها سيادتكم لم تعمل معى و لم اعرف السبب الف شكر لمعاليك الأخ المحترم محمد هشام الف شكر لحضرتك المعادلة الأولى اشتغلت معايا تمام التمام لحد سنة 2196 ولكنها لم تعمل على سنة 2200 رغم انها اشتغلت على 2204 و ما بعدها لكن مش قضية الحمدلله على كل حال شاكر افضال معاليكم

عليكم السلام عكس دالة power هي دالة log =log(30,2) ربما تعطي كسورا ولأنك تريد أن تتغير 30 إلى رقم أكبر يمكنك جبر كسر الرقم لأعلى ceiling مثلا بالتوفيق

تفضل اخي =SUM(COUNTIF(INDIRECT({"E5";"P5";"L7";"B13";"N14";"G16"});">0")) جمع خلاياء.xlsx

السلام عليكم و رحمة الله توجد مشاركة بتاريخ سابق تم استخدام مشابه لملفك تقريبا و بنسبة كبيرة و لكن الملف القديم كان اكثر تنظيما من الملف الحالى و لكنى سأرسل اليك الملف المشابه ربما يتوفق تماما مع طلبك هذا و الله ولى التوفيق اليك الملف الطلاب اقل من 65.xlsm

تفضل استاذ @العبيدي رعد واذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة . جدول عام-3.rar

يمكنك استعمال هذه المعادلة في K2 ونسخها كما تشاء =SUMPRODUCT(SUBTOTAL(3,OFFSET($A$7:$A$29,ROW($A$7:$A$29)-MIN(ROW($A$7:$A$29)),,1))*($B$7:$M$29=J2)) وفقنا الله جميعا لكل خير

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

يمكنك استعمال هذه المعادلة في الخلية D4 =IFERROR(IF(INDEX(البصمات!$F:$F,MATCH($C$1&$B4,البصمات!$A:$A,0))="","",INDEX(البصمات!$F:$F,MATCH($C$1&$B4,البصمات!$A:$A,0))),"") وهي تعني إذا كانت نتيجة البحث فراغ تكون الخلية فارغة وليست صفرا ويمكنك تعديل معادلة الخلية E4 بنفس الطريقة بالتوفيق

عليكم السلام عسى رصيد لكل مادة حسب المخزن.xlsx

قم بتطويع هذا الكود مع ما يتناسب مع احتياجاتك Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False ' في هذا السطر ضع اسماء الشيتات المحددة Sheets(Array("sheet1", "sheet2")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws wb_name = "taqreer" ActiveWorkbook.SaveAs Filename:= _ 'مكان تخزين الملف "C:\Users\alhajaj\Desktop\" & wb_name & " report " & Format(Date, "dd-mm-yy") & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

استبدل الكود الى هذا Option Explicit Sub Show_hide_col() Application.ScreenUpdating = False Dim my_rg As Range Dim i% Dim t As Byte t = IIf([b1] = "اداري", 1, 2) Set my_rg = Range("E1:AT1") my_rg.Columns.Hidden = True For i = 1 To my_rg.Columns.Count With my_rg.Cells(i) If .Value = t Or _ .Value = vbNullString Then _ .EntireColumn.Hidden = False End With Next Application.ScreenUpdating = True End Sub Rem================================= Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$B$1" Then Show_hide_col End If Application.EnableEvents = True End Sub الملف معدل _salimمرتبات.xlsm

السلام عليكم ارجوا ان يكون طلبك تحياتي 5555.rar

بسم الله الرحمن الرحيم الحمد لله الذي عز جلاله فلا تدركه الإفهام، وسما كماله فلا يحيط به الأوهام، وشهدت أفعاله أنه الحكيم العلام، الموصوف بالعلم والقدرة والكلام، سبحانه هو الله الواحد السلام، المؤمنون حبب إليهم الإيمان وشرح صدورهم للإسلام، ويقبل التوبة ويكشف الحوبة ويغفر الإجرام، تبارك اسم ربك ذي الجلال والإكرام واشهد إن لا اله إلا الله, وحده لا شريك له, له الملك, وله الحمد, وهو علي كل شيء قدير شهادة من قال ربى الله ثم استقام الله ربـى لا أريــد ســواه هل في الوجود حقيقة إلا هو يـا من وجب الكمال بذاته فالكل غاية فوزهم لقياه عجز الأنام عـن امتداحك انـه تتصاغر الأفكار دون مـداه من كان يعرف انـك الحق الذي بهر العقول فحسـبه وكفـاه وأشهد أن سيدنا وحبيبنا وشفيعنا محمد عبد الله ورسوله وصفيه من خلقه وحبيبه لم يزل صلى عليه الله وسلم يقاتل في الله بعزم واهتمام، حتى انقشع عن سماء الحق تراكم الغمام، وظل في أفق الإيمان بدر التمام إذا أرد أن تفـوز وتـرتـقي درج العلى أو تنال منه رضاه ادم الصلاة على محمد الـذي لولاه مـا فـتح المكـبر فـاه وله الوسيلة واللـواء وكوثـر يروى الورى وكذا يكون الجاه وعلي اله وأصحابه ومن سار على نهجه وتمسك بسنته واقتدى بهديه واتبعهم بإحسان إلي يوم الدين ونحن معهم يا أرحم الراحمين ثم أما بعد /: اليوم ندخل الى ارض جديدة داخل عالم البرمجة وهي لغة الفيجوال بيسك دوت نت طبعا احبتي لن اكون انا الاساس في هذا الموضوع باذن الله كلنا سنشارك في هذا الموضوع باذن الله فمن لديه معلومة ملحوظة مشروع فكرة يتم وضعها في الردود او ارسالها لنا ويتم وضعها في السلسلة او شرحها باذن الله يرجى ترك الردود والاستفسارات على الرابط المخصص لها بالاسفل رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت رابط البرنامج نسخة Visual Studio 2012 Ultimate ISO رابط جديد &nbsp;لنسخة 2012 الحجم 1.5 جيجا دي اللي هنعتمدها اي حد نزل نسخة تانية مفيش مشكلة الا اذا وجد خلاف او بعض الامور الغير متشابهه لو طلبت سيريال SERIAL KEY: RBCXF-CVBGR-382MK-DFHJ4-C69G8 بسم الله نبدأ طريقة فتح البرنامج ومكوناته وطريقة التعامل معه اولا من قائمة البدأ نختار كما بالشكل Visual Studio 2012 ثم تفتح معنا هذه النافذة وهي نافذة بداية البرنامج نختار منها مشروع جديد اما من القائمة FILE & NEW PROJECT او من الاختصار داخل الصفحة نفسها تحت كلمة START NEW PROJECT لتظهر نافذة جديدة ومنها نختار Windows Forms Application ثم تفتح لنا نافذة البرنامج الرئيسية مكونات الصفحة 1- شريط الادوات 2- مستعرض الحلول وهي نافذة المشروع 3- الخصائص وهي خصائص الادوات والفورم المستخدمة 4- صندوق الادوات وهو صندوق الادوات المستخدمة على سطح الفورم مثل الLABEL & TEXTBOX وغيرها 5- شاشة التصميم او مساحة العمل على الفورم 6- شاشة محرر الاكواد بعد عرض شاشة البرنامج الاساسية ومثل أي شرح لاي لغة برمجة يتم عمل المثال التمهيدي والافتتاحي واول برنامج لنا جميعنا على لغة برمجة الفيجوال دوت نت وهو مثال بسيط جدا في غاية السهولة ولكن يترتب عليه بعض الاساسيات التي تتضح لنا لمجرد بناء هذا البرنامج البسيط وهو برنامج الترحيب بالعالم الجديد Hello World ولكن هيبقي ترحيبنا باللغة الجديدة هي برنامج بسم الله الرحمن الرحيم طبعا البرنامج سهل ولا يحتاج لشئ هو مجرد رسالة تظهر فيها ما نكتبه عند تشغيل البرنامج او الضغط على زر ولكن يترتب علي عمل البرنامج فهم طريقة انشاء برنامج وضع الادوات على الفورم كتابة الاكواد داخل المحرر تشغيل البرنامج لاختباره حفظ مشروع البرنامج تحويل البرنامج لملف تنفيذي تحزيم البرنامج معرفة خصائص المشروع برنامج الترحيب بفتح مشروع جديد نقوم كما وضحنا سابقا نقوم بوضع زر امر على الفورم ونختار الزر من صندوق الادوات بعد ان نضع الزر على الفورم نقوم بالضغط عليه دبل كليك ليظهر محرر الاكواد هكذا ثم نكتب بداخله الرسالة الافتتاحية لهذا العالم الجديد Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'يتم عرض رسالة عن طريق هذا الكود MessageBox.Show("بسم الله الرحمن الرحيم") 'ومن الممكن ان نسترجع ذاكرتنا ونكتبها كما تعلمناهكذا MsgBox("الحمد لله") End Sub ثم نقوم بالضغط على start من شريط الادوات او الضغط على F5 لاختبار البرنامج ولحفظ المشروع من قائمة File & Save all وبعد كدا نكتب اسم المشروع ونحدد مكانه زي كدا وبيظهر المشروع بالشكل دا بعد الحفظ الملف المحدد دا ملف المشروع الاساسي يتم تشغل المشروع منه بعد حفظه في اي وقت وبمجرد تشغيل البرنامج الخاص بنا عن طريق f5 or start يتم انشاء نسخه تنفيذية للبرنامج داخل المجلد bin\Debug او نستطيع تحوله لتنفيذي وتحزيمه عن طريق بناء وتحزيم البرنامج من الخيار الاول ثم الثاني المحددين كما تستطيع التعديل على خصائص المشروع كما تعلمنا سابقا في الفيجوال6 هكذا 1- اسم المشروع 2- نوع النت فريم وورك المستخدم للبرنامج والذي سيعتمد عليه بمعنى انه عند اختيارك اصدار النت فريم وورك يشترط وجود نفس الاصدار او احدث على الجهاز الذي سيعمل عليه البرنامج 3- نوع مشروع البرنامج 4- طبعا كلنا عارفينها الفورم اللي هيبدأ عند تشغيل البرنامج نستطيع وضع اي فورم ليبدأ اولا 5- ايقونة البرنامج ونستطيع هنا اختيار ايقونات بدقة عالية عكس فيجوال 6 محدد على عدد الوان وبكسلات معينة مرفق مشروع البرنامج التمهيدي طبعا انا متعود على ان الردود تسبق الدروس بكثير مستني الابداع منكم اتمنى من الله ان اكون قد وفقت في تقديم البداية لدخول عالم الدوت نت بشكل مقبول الى هنا انتهى الدرس يتبع باذن الله تقبلوا تحياتي ياسر العربي test prog.rar

Sub AutoNumbering() ActiveCell = ActiveCelltiveCell NS: A = Application.InputBox("أدخل أول رقم فى السلسلة التى تريد إنشاؤها", "أول رقم") B = Application.InputBox("أدخل آخر رقم فى السلسلة التى تريد إنشاؤها", "آخر رقم") If A = False Or B = False Then Exit Sub ElseIf A = "" Or B = "" Then MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ" Else If [IV65536] = 1 Then ActiveCell = A Else: Columns(ActiveCell.Column).Rows(65536).End(xlUp).Select If ActiveCell = "" Then ActiveCell = A Else: ActiveCell.Offset(1, 0).Select Selection = A End If End If ActiveCell.DataSeries xlColumns, , , 1, B End If If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then ActiveCell.ClearContents Beep If MsgBox("أول رقم فى السلسلة أكبر من آخر رقم ... هل تود إعادة المحاولة ؟", vbQuestion + vbYesNo, " إدخال خاطئ") = vbNo Then Exit Sub Else: GoTo NS End If End If Beep If MsgBox("هل تود إنشاء سلسلة رقمية أخرى ؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then Exit Sub Else: GoTo NS End If End Sub حدد النطاق المراد دق السرى فيه بالماس ثم شغل الكود لتضع أول وآخر رقم فى المجموعة تحياتى

السلام عليكم في نموذج (تحديث حالة الملاك) اريد ان اغير في حقل (حالة التكليف) للموظف دون ان يتغير حقل (الملاك) . مع الشكر والتقدير مقدما حالة الملاك.mdb