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

ربما يكون المطلوب هو هذا الكود في حدث الشيت1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target > 0 Then Target.Offset(, 1).Select End If End Sub منع ادخال في اي خلية فيها بيانات.xlsm

للمرة الالف اكرر(مع ان المعادلات لحساب التكرارات) يمنع وضع خلايا مدمجة حيث توجد معادلات تم ازالة دمج الخلايا من خلايلا المعادلات هذه المعادلة في الخلية D21 واسحب نزولاً =SUMPRODUCT(--($B$5:$B$18=$B22),--($D$5:$D$18=CHOOSE(COLUMNS($A$1:A1),"داخلي","خارجي"))) الملف مرفق tekrar.xlsx

وعليكم السلام ورحمة الله وبركاته من الاستعلام استخدم B : Text1 & "" & Text2 & "" & Text3 & "" & Text4 & "" & Text5 & "" & Text6 عن طريق الكود ضع هذا الكود في وحدة نمطية Public Function All_Text(ID As Long) As String On Error GoTo err_All_Text Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl1 Where ID=" & ID) All_Text = rst!Text1 & "" & rst!Text2 & "" & rst!Text3 & "" & rst!Text4 & "" & rst!Text5 & "" & rst!Text6 Exit_All_Text: rst.Close: Set rst = Nothing Exit Function err_All_Text: If Err.Number = 3265 Then All_Text = "" Resume Exit_All_Text Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function ثم استدعي الكود في الاستعلام بالشكل التالي A: All_Text([id]) مرفق مثال ارجو ان يفيدك D55.zip تحياتي

السلام عليكم ورحمة الله استخدم الكود التالى Sub DistGroups() Dim ws As Worksheet, LR As Long Dim i As Integer, j As Integer Dim n As Integer, x As Integer, y As Integer Dim p As Integer, s As Integer Set ws = Sheets("ورقة1") Application.ScreenUpdating = False Range("F2:I" & Range("F" & Rows.Count).End(xlUp).Row + 1).ClearContents LR = ws.Range("B" & Rows.Count).End(xlUp).Row x = WorksheetFunction.CountA(ws.Range("B2:B" & LR)) n = ws.Range("D2").Value y = Int(x / n) z = x Mod n If z > 0 Then n = n + 1 Else n = n End If p = 2 Do While p <= LR For i = 1 To n For j = 1 To y s = j + ((i - 1) * y) + 1 If p = s Then ws.Cells(j + 1, i + 5) = ws.Cells(p, 2) End If Next Next p = p + 1 Loop Application.ScreenUpdating = True End Sub

لنفرض ان البيانات تبدأ من الخلية A1 بدون فراغات (حتى ولو كان عندك فراغات يتوقف عند أول فراغ) جرب هذا الماكرو ( سطر وحيد) Sub test() Range("A2", Range("A1")).End(4).Offset(1).Select End Sub

هذا الكود يحل المشكلة Option Explicit Sub My_sum() Dim r%, S# r = 1 With Sheets("ورقة1") Do Until r > .Cells(Rows.Count, 1).End(3).Row If .Range("A" & r).Interior.ColorIndex <> xlNone And _ .Range("A" & r) = "جامعة" Then S = S + 1 End If r = r + 1 Loop: .Cells(2, 6) = S End With End Sub

فورم اكسل تسجيل بيانات وترحيل بيانات لصفحة اخرى الفيديو الصور بيان الموظفين.rar

جزاك الله خيرآ أستاذي الكريم .. تم

تفضل اخي الكريم اتمنى يكون المطلوب الملف الثاني هو الافضل بالاستعلام تحياتي Microsoft Access قاعدة بيانات جديد.rar Microsoft Access 2.rar

بارك الله بك استاذ خالد بصراحة القصد هو التعرف على اليوم تلقائيآ عن طريق الكود بمجرد كتابة التاريخ يتم التعرف على اليوم تلقائيآ و اذا كان اليوم هو سبت او احد يتم احتساب 10 مثلآ جزاك الله كل خير

تم ايجاد الحل وشكرا

بشكل اكثر اختصاراً Sub My_code() Dim i% i = 2 Do Until Range("B" & i) = vbNullString With Range("B" & i) .Interior.ColorIndex = _ IIf(.Value > .Offset(, 1), 3, xlNone) End With i = i + 1 Loop End Sub

بارك الله فيك استاد سليم مزيدا من العطاء

جرب هذا الكود البسيط Sub My_code() Dim i% Range("B2", Range("C1").End(4)) _ .Interior.ColorIndex = xlNone i = 2 Do Until Range("B" & i) = vbNullString If Range("B" & i) > Range("C" & i) Then _ Range("B" & i).Interior.ColorIndex = 3 i = i + 1 Loop End Sub

Sub sel() Dim lr lr = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lr + 1).Select End Sub ضع الماكرو في مديول وابطه بزر على الشيت المراد

السلام عليكم اخي العزيز حسب مافهمت من سؤالك ممكن عمل ذلك بدالةIIF عن طريق حقل محسوب بالجدول او بالاستعلام انظر للمرفق اعلمنا النتائج تحياتي Microsoft Access قاعدة بيانات جديد.rar

السلام عليكم لقد سرتني مساعدتك ودعواتك أثمن من أي شيء، قلتها وأقولها. غداً أو مساءً سأوافيك بالمطلوب إن شاء الله تعالى، وقد توقعت حاجتك لذلك؛ كان علي أن أقوم بالتعديل المطلوب من المرة السابقة. بالتوفيق بالتوفيق أخي.

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

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

السلام عليكم أخي الحبيب لاتستح منا و لا تعتذر فلا حاجة للاعتذار إنما هو طلبك قد تأخرنا في تنفيذه فالمعذرة، ولكن خذها نصيحة -حتى عندما تطلب برنامجاً من شركة- أوضح ما تريد وبصورة كاملة قبل الشروع بتنفيذ العمل. على كل حال بالنسبة للأسبوع الرابع فقد صححت الوضع بتغيير الرقم بالمعايير من 26 إلى 27. وبانتظار أي استفسار ... HamdiE22مثال.accdb

السلام عليكم معذرة يا استاذ / خلف جزاك الله خيراً ورزقكم الفردوس الاعلى 🏆

Video_2020-02-20_164500000.rar

السلام عليكم اخي العزيز ممكن عمل ذلك عن طريق خصائص الزر اضغط على الزر - ثم اذهب للخصائص - ثم تنسيق - ثم اختر لون المرور- ثم اختر اللون الذي يناسبك من قائمة الالوان تحياتي

كالعادة استاد سليم دائما تبدعنا بحلولك

جرب هذا الملف تم ازالة الالوان الفاقعة لسهولة تتبع المعادلات (يمكنك اعادة النتسيق كما كان اذا اردت ذلك) لا تحصل عل نتيجة اذا لم يكن مذكورا وقت الدخول ووقت الخروج لاي موظف النطاق الازرق(حيث المعادلات) يمكنك سحبه الى الى مجال تريد، وتحديد بداية الدوام ونهايته من الخليتين K1 & K2 Attendance_Feb.xlsx

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

جرب هذا (النموذج) عن الملف من الارشيف Working time.xlsx

السلام عليكم بعد إذن صاحب السؤال، رجاء إلى المشرف: تغيير عنوان المنشور إلى : طريقة في أكسس للحصول عن أول وآخر يوم معين من أيام الأسبوع خلال مدة / فترة زمنية عن طريق الاستعلام. ولكم جزيل الشكر HamdiEمثال.accdb

ربما يكون المطلوب تم تغيير معادلة الترقيم معادلة واحدة لكل الصفوف(وليس ابتداء من الصف الثاني ) MY_example1.xlsx

ان شاء الله سارفعها مفتوحة المصدر ' لكن ليس الان عموما ارفق النسخة المقفلة بصورتها النهائية بعد معالجة الاخطاء الواردة fifomod17.zip fifomod17.zip

جرب هذا الماكرو Sub Transfer_with_total() Dim Cell As Range, t As String, LR As Long, LRT As Long Dim WS As Worksheet, Answer As Long, Bol As Boolean Dim Ro As Long Set WS = Sheets("Main") LR = WS.Cells(1000, 3).End(xlUp).Row t = WS.Range("c1").Value Application.ScreenUpdating = False If Not IsEmpty(WS.Range("c1")) Then Bol = Evaluate("=ISREF(" & "'" & WS.Range("c1") & "'!A1)") If Not Bol Then Sheets.Add(, after:=Sheets(Sheets.Count)).Name = WS.Range("c1") WS.Range("A2:g" & LR).Copy With ActiveSheet .Range("a1").PasteSpecial (xlPasteValuesAndNumberFormats) .Range("a1").PasteSpecial (xlPasteColumnWidths) .Range("a1").PasteSpecial (xlPasteFormats) .DisplayRightToLeft = False End With WS.Select GoTo End_me End If WS.Range("A3:g" & LR).Copy With Sheets(t) LRT = .Cells(Rows.Count, 2).End(xlUp).Row + 1 With .Cells(LRT, 1) .PasteSpecial (xlPasteValuesAndNumberFormats) .PasteSpecial (xlPasteColumnWidths) .PasteSpecial (xlPasteFormats) End With Ro = Application.CountA(.Range("c" & LRT).Resize(LR - 2)) .Cells(Ro + LRT, 2) = "Total" .Cells(Ro + LRT, 2).Resize(, 3).HorizontalAlignment = 7 .Cells(Ro + LRT, 5) = WS.Range("h3") End With Answer = MsgBox("Do you want to Clear the data on Sheet1 or not?", vbYesNo + vbQuestion) If Answer = vbYes Then Sheets("Main").Activate Sheets("Main").Range("b3:d1000,f3:f1000").Select Selection.ClearContents Else: End If Else End If End_me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub الملف مرفق Supplier_new.xlsm

شكرا لردك الكريم

تفضل اخي لعله يفي بالغرض countif 1xlsx.xls

السلام عليكم أرجو أن يكون هذا ما يلبي حاجتك. HamdiEمثال.accdb

بالخدمة استاذي العزيز

مافيش إزعاج ولا حاجة بس لازم تتعلمي أقل القليل عن الجداوب المحورية بالنسبة للملف ده ، بس تتعلمي كام حاجة بسيطة 1- أن الجدول المحوري Pivot Table الموجود ب "ورقة2" بيأخذ بياناته من ورقة البيانات "26-12-2019 to 25-01-2020" 2- أن الجدول المحوري عموما لا يتأثر مباشرة بتغيير البيانات ، لازم تعملي له تنشيط أو تجديد (ريفريش) وذلك بالوقوف بالماوس علي أي خلية في الجدول المحوري ثم كليك يمين وتختاري ريفريش Refresh مرفق صورة للتوضيح يعني ممكن تغيري في صفحة البيانات (فقط للتجربة) إسم واحد أو أكثر من الموظفين .... أو تغيري أوقات المداومة لبعضهم ثم تأتي للجدول المحوري و كليك يمين وتختاري Refresh ستجدي التغيرات اللي عملتيها قد تغيرت بالنتيجة 3 - أنك ممكن تغيري مجال الجدول المحوري اللي بيأخذ منه البيانات ، يعني لو عدد الموظفين زاد مثلا وحبيتي الجدول يقرأ لما بعد السطر 711 في صفحة البيانات أو لو أصبحت أكثر تمكنا من الجدول المحوري وحبيتي تزودي أعمدة أخري بعد العمود N اللي عنوانه OV-Time المهم ، يمكنك تغيير مجال الجدول المحوري عن طريق الوقوف علي أي خلية به ، أوتوماتيكيا سيظهر لك في القائمة الرئيسية للإكسل شريطين أوامر خاصين بالجداول المحورية Design ، Analyze ستختارين Analyze ومنه Change Data Source كما بالصورة الثانية أرجو أن تكون الخطوات واضحة بالتوفيق إن شاء الله

عدل اعدادا الجدول Main_DeviceT كما في الصورة .....

وعليكم السلام اتفضل اخى على هل هذا ما تريد ؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Daily Report V07 (2).accdb

عروب الاعبيدات أين الضغط على الإعجاب لهذه الإجابة ؟!!💙

أستاذ mohamedamrawy أين الضغط على الإعجاب لكل هذا المجهود من الأساتذة ؟!!!!💙

اذا كان التاريخ المطلوب تحديد الاحد السابق و التالي له موجود فى الخلية D3 كما فى المثال المرفق ( الخلايا باللون الاصفر) معادلة الاحد السابق تكون: =IF(D3="","",D3-MOD(D3-1,7)) و معادلة الأحد التالي تكون: =IF(D3="","",D3+7-MOD(D3-1,7)) و طبعا يمكن تغيير المعادلة لترجع اي يوم اخر مرفق المثال للسهولة Officena Sundays.xlsx

برنامج حضور وغياب ومحاسبة العمال بالساعة.rar

أستاذ أبو معتز الحيدري أين الضغط على الإعجاب ؟!!!💙

تفضل المشكلة بالمعادلة كانت بعلامة التنصيص قبل كلمة طباعة , فتم وضعها من قبلك 3 علامات ولابد ان تكون 2 فقط كهذه "طباعة" entag tam.xlsm

تفضل استاذي العزيز جرب هذا الملف عله يفي بالغرض بعد اجراء التعديل عليه وهذا التعديل هو كود بحدث الصفحة + معادلة للتنسيق الشرطي تقبل تحياتي example 33.xlsm

السادة الاعضاء والمشرفين والخبراء / السلام عليكم لم اعرف هل فكرة مربع التحرير والسرد هذه تهم احد منكم ام لا علي اي حال ارفقها لكم لعل وعسي تنفع لاحد منكم الفكرة ان المعروف عن مربع التحرير ان يكتب فيه كلمة واحدة تختارها بعد الضغط عليه ولكن هنا تقدر تختار اكثر من كلمة بحيث مربع التحرير يكون به اختيارين بجانب بعضهما list box.accdb

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