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

كما يمكنك استخدام المعادلة التالية لجلب الغياب امام التاريخ =IFERROR(HLOOKUP(B5;غياب!$B$3:$AG$200;MATCH($D$3;غياب!$B$3:$B$200;0);0);"") TEST.rar

وعليكم السلام ورحمة الله تعالى وبركاته تفضل جرب اخي =IFERROR(INDEX(غياب!$C$3:$AG$3;MATCH($D$3;غياب!$B$5;0);MATCH(A5;غياب!$C$4:$AG$4;0));"") نقل التاريخ.xlsx

السلام عليكم تنقل بين الصفحات بكود من سطر واحد⚽ كود.xlsm

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

جرب هذا الكود من خلال الذكاء الاصطناعي ولم اجربه ........ يتم وضع هذا الكود في قسم VBA للنموذج الذي ترغب في تغيير رسالة التكامل المرجعي له. Private Sub Form_Error(DataErr As Integer, Response As Integer) Const conReferenceNotSet = 3420 If DataErr = conReferenceNotSet Then MsgBox "تم تعيين الرسالة الجديدة هنا", vbInformation, "رسالة جديدة" Response = acDataErrContinue End If End Sub

جرب تغيير الاعدادت المحلية للنظام ابحث عن System Local و غيرها للعربية او اتبع الخطوات هنا 1- Control Pannel 2- Date , time or number format 3- Administrative language setting 4- change system local و اختر العربية

وهدا اخر ملف قمت برفعه دون ان اغير اي شيء في الاكواد فقط حاول جعل الاسماء الغير معدلة درجاتهم في اخر قائمة الاسماء لكي يتطبق شرط وجود الاسماء المعدلة بشكل متتابع وسوف يشتغل معك الكود بشكل صحيح ‏‏مطابقة درجات V2.xlsm

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

وهذه طريقة اخرى من الذكاء ..... يجب وضع هذا الكود في النموذج الذي ترغب في تغيير رسالة التكامل المرجعي الخاصة به. عندما يحدث خطأ 3200 الذي يشير إلى رسالة التكامل المرجعي، ستظهر الرسالة الجديدة المحددة في الكود بدلاً من الرسالة الافتراضية. Private Sub Form_Error(DataErr As Integer, Response As Integer) ' رسالة التكامل المرجعي - Reference Integrity Message If DataErr = 3200 Then ' قم بتعديل الرسالة الجديدة هنا MsgBox "رسالة جديدة" Response = acDataErrContinue End If End Sub

اخي الكريم يجب ان تتعلم و لا تستخدم اكواد لا تفهمها من مضمون طلبك فأنت بحاجة الى التجميع بشرط و قد وفرت ما يكروسوفت دالة لهذه المهمة اسمها DCount وهذا مثال لكيفية استخدامها DCount("*", "Tabel_Name", "[Coulmin_Name] Like '" & [TextBox1] & "'") ============================================================================ الـــــــــشـــــــــــــــرح ============================================================================ Tabel_Name / اسم الجدول الذي يتحوي على البيانات Coulmin_Name اسم العمود الذي تريد ان تقوم الدالة بحساب القيمة الذي يحتويه مثلا تريد معرفة عدد الذكور او عدد الإناث يعني انت تريد عمود نوع الجنس [TextBox1] هنا يمكن ربط المعيار بعنصر تحكم او بنص صريح مثلا ذكر/انثى و لإضافة شرط اضافي مثلا كما في مثالك كشرط المنطقة DCount("*", "Tabel_Name", "[Coulmin_Name1] Like '" & [TextBox1] & "' AND [Coulmin_Name2] Like '" & [TextBox1] & "'") بهذه الطريقة تعلمت كيف تقوم بجميع القيم

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

يمكن تعديل حجم الصفحة آليا بدون أكواد عن طريق Page layout Height Automatic

omar elhosseini Count_Color_FormatConditions.xlsm

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

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

VBA codes are better than using formulas Formulas will make the file slower and bigger in size

كلام الزميل موسى صحيح، لا بد من التجارب. مع العلم أنه لا يوجد دالة between في الـ vba وعليه يمكن التعويض عنها كما مشاركة الزميل محمد لطفي. ويمكن كذلك تصميم الدالة كما التالي: Function Between(Value As Variant, MinVal As Variant, MaxVal As Variant) As Variant If VarType(Value) = VarType(MinVal) And _ VarType(Value) = VarType(MaxVal) Then Between = CBool(Value >= MinVal And Value <= MaxVal) Else Between = "Var type error" End If End Function ومناداتها كالتالي: If Between(4, 1, 10) then MsgBox "إجابة سليمة" End if

Try this code Sub Test() Dim wk As Worksheet, sh As Worksheet, ws As Worksheet, lr As Long Set wk = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) Set ws = CopyWorksheet(wk.Name, wk.Range("B5").Value) Application.ScreenUpdating = False With sh lr = .Cells(Rows.Count, "J").End(xlUp).Row + 1 .Range("B" & lr).Resize(, 5).Value = wk.Range("B5").Resize(, 5).Value .Range("I" & lr).Resize(, 3).Value = Array(wk.Range("D13").Value, wk.Range("D23").Value, wk.Range("D30").Value) .Range("L" & lr).Formula = "=SUM(I" & lr & ":K" & lr & ")" .Range("N" & lr).Value = wk.Range("F41").Value Application.Goto .Range("A1") End With Application.ScreenUpdating = True End Sub Function CopyWorksheet(ByVal sheetName As String, ByVal newName As String) As Worksheet Application.ScreenUpdating = False On Error Resume Next Application.DisplayAlerts = False ThisWorkbook.Worksheets(newName).Delete Application.DisplayAlerts = True On Error GoTo 0 ThisWorkbook.Worksheets(sheetName).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ActiveSheet.Name = newName Set CopyWorksheet = ActiveSheet Application.ScreenUpdating = True End Function

* من خلال هذا البرنامج البسيط الصغير الحجم سنتعرف سوياً على خبايا الشخصيات وفقاً لبرج كل شخص * ولتعرف من أي الأبراج أنت يجب لأن تعرف تاريج ميلادك ( ميلادياً ) وإن كنت لا تعرفه إلا هجرياً فستجد بالمرفقات برنامج لتحويل التاريخ من هجري لميلادي والعكس * يمكنك عن طريق البرنامج معرفة لأي برج تنتمي وفقاً لتاريخ ميلادي الميلادي وبعدها أختر البرج وأطلع على ( صفاتك - مميزاتك - عيويك - الرجل - المرأه - مشاهير البرج ) ملحوظه هامه : الأبراج ليس لها أي علاقه بقراءة الطالع أو توقع المستقبل أو التنجيم وخلافه والفكره تنحصر بين دراسات مستفيضه للشخصيه وفقاً لكل فتره زمنيه وتوقعات ليس إلا .. ولهذا وجب التنويه لذلك كي لا نرى من يقول أن مثل هذه الموضوعات محرمه . فنحن لا نقول ماهو حظك اليوم أو غداً ولكن نتحدث فقط عن شخصيتك .. وفي النهايه تقبلوا وافر التحيه _______.zip

... ......................مشكور .......................................مشكو ر............ .................مشكور... ......مشكور.............. .........مشكور.........مش كور..... ...............مشكور..... ..........مشكور.......... .....مشكور............... مشكور..... ...............مشكور..... ....................مشكور ......................... .....مشكور..... .................مشكور... ......................... ......................... .....مشكور....... ...................مشكور. ......................... ......................... ...مشكور..... ......................مشك ور....................... ......................... مشكور....... ......................... مشكور.................... ....................مشكور ...... ......................... ...مشكور................. ................مشكور.... .... ......................... ......مشكور.............. ............مشكور........ ......................... .........مشكور........... .......مشكور........... ......................... ............مشكور.......م شكور................ ......................... ....................مشكور ....................... ....................مشكور ......................... .....................مشكو ر............ .................مشكور... ......مشكور.............. .........مشكور.........مش كور..... ...............مشكور..... ..........مشكور.......... .....مشكور............... مشكور..... ...............مشكور..... ....................مشكور ......................... .....مشكور..... .................مشكور... ......................... ......................... .....مشكور....... ...................مشكور. ......................... ......................... ...مشكور..... ......................مشك ور....................... ......................... مشكور....... ......................... مشكور.................... ....................مشكور ...... ......................... ...مشكور................. ................مشكور.... .... ......................... ......مشكور.............. ............مشكور........ ......................... .........مشكور........... .......مشكور........... ......................... ............مشكور.......م شكور................ ......................... ....................مشكور ....................... ....................مشكور ......................... .....................مشكو ر............ .................مشكور... ......مشكور.............. .........مشكور.........مش كور..... ...............مشكور..... ..........مشكور.......... .....مشكور............... مشكور..... ...............مشكور..... ....................مشكور ......................... .....مشكور..... .................مشكور... ......................... ......................... .....مشكور....... ...................مشكور. ......................... ......................... ...مشكور..... ......................مشك ور....................... ......................... مشكور....... ......................... مشكور.................... ....................مشكور ...... ......................... ...مشكور................. ................مشكور.... .... ......................... ......مشكور.............. ............مشكور........ ......................... .........مشكور........... .......مشكور........... ......................... ............مشكور.......م شكور................ ......................... ....................مشكور ....................... ....................مشكور ......................... .....................مشكو ر............ .................مشكور... ......مشكور.............. .........مشكور.........مش كور..... ...............مشكور..... ..........مشكور.......... .....مشكور............... مشكور..... ...............مشكور..... ....................مشكور ......................... .....مشكور..... .................مشكور... ......................... ......................... .....مشكور....... ...................مشكور. ......................... ......................... ...مشكور..... ......................مشك ور....................... ......................... مشكور....... ......................... مشكور.................... ....................مشكور ...... ......................... ...مشكور................. ................مشكور.... .... ......................... ......مشكور.............. ............مشكور........ ......................... .........مشكور........... .......مشكور........... ......................... ............مشكور.......م شكور................ ......................... ....................مشكور ......................

tag4m وين رايح أشكركما على هذا التقدير الطيب والي المزيد بإذن الله

بارك الله فيك يا استاذي حسام

أخ محمد حجازي.. تخيل واحد عمره فوق الثمانين يتابع الأنترنت ويرد رد سريع ويحمل برامج .. يا ترى عاوز فيهم أيه؟؟؟ مش عارف إزاي جات الثمانين سنة دول.. عموما ثمانين سنة قريبة جدا لمن طال عمره. نسأل الله أن يطيل في أعمارنا وأن يحسن أعمالنا ويختم لنا بالخاتمة الحسنة. أخ حسام.. وما أقراش البرج ليه؟؟ يعني أبو الثمانين سنة ما عندوش عواطف ولا بيحب ولا بيعاكس كمان؟؟؟ يعطيك العافية على البرامج الحلو ( ذوّت ).

طيب يا عمي إذا ما كنت عارف تاريخ ميلادي لا بالهجري ولا بالميلادي!!! أيش الحل؟ أصل أنا ( أتولدت ) في وقت ما كان فيه لا شهادة ميلاد ولا حتى مستشفى!!!. بمعنى أوضح الكلام ده يعني أن عمري فوق الثمانين يا عم حسام.. بس لو صحيح مين اللي عم الثاني أنا والا حسام؟؟؟!!!!.

ال الف شكر اخي الغالي