كل الانشطه

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

السلام عليكم حسب قهمي للكود الكود يتعامل مع العمود A والذي به ترقيم والمفترض التعامل مع الاسماء في العمود B اذا كان فهمي للامر صحيح اليك الكود المعدل والا قم بتوضيح الامر اكثر تصوري Sub Compare2() Dim lr As Long, i As Long, j As Long Dim strCol As String Dim WS As Worksheet: Set WS = Worksheets("Data") Dim hasMissing As Boolean: hasMissing = False Application.ScreenUpdating = False On Error Resume Next lr = WS.Columns("B").Find(What:="*", SearchDirection:=xlPrevious).Row On Error GoTo 0 If lr < 6 Then Application.ScreenUpdating = True Exit Sub End If For i = 6 To 18 strCol = Split((WS.Columns(i).Address(, 0)), ":")(0) Dim lastInCol As Long lastInCol = WS.Cells(WS.Rows.Count, strCol).End(xlUp).Row If lastInCol < 6 Then lastInCol = 6 For j = 6 To lr If WorksheetFunction.CountIf(WS.Range(strCol & "6:" & strCol & lastInCol + 500), WS.Range("B" & j)) = 0 Then With WS.Cells(WS.Rows.Count, strCol).End(xlUp).Offset(1) .Value = WS.Range("B" & j).Value End With hasMissing = True lastInCol = lastInCol + 1 End If Next j Next i Application.ScreenUpdating = True End Sub

السلام عليكم أستاذ بارك الله فيك وجازاك الله كل خير استاذ هل نسطيع اخفاء حقول الفرنسية وحماية الشريط العناوين من التعديل لأن الملف يسلم للموظف

تفضل استاذ @بلال اليامين المرفق مع اخفاء الاسماء الفرنسية هي موجودة للبرمجة لكنها مخفية . Bilal_Yamen.rar

تفضل استاذ @بلال اليامين طلبك راجعه زين . الورقتان بملف اكسل واحد لكل موظف . صدر ، عدل وزود باي منهما بيرجع التعديلات والاضافات للجدولان الرئيسيان . ووافني بلرد . Bilal_Yamen.rar

الكود Compare2 ......... المطلوب تعديلة فهو مقتبس من احد الملفات للامانة الاحتياطي.rar

حياك الله

ولن يعمل لان ملفك ليس به اي كود ولن يقبل حفظ اي كود لانه بامتداد xlsx ولو قرأت ما شرحته لك في الرد السابق لقهمت سبب عدم عمل الملف تحياتي

أفهم ان التواريخ كرقم والتنسيق فقط قناع ليسهل علينا قراءته ... أجبت وأفدت، بارك الله فيك وزادك من فضله 🌹🌹🌹

بارك الله فيك وجزاك الله خير استاذي الغالي جعفر تم تعديل الكود كماذكرت الف شكر لك استاذي ولجميع الاخوه🌹🌹

استاذ لا يعمل قمت بختيار ولا يعمل اليك ملف Employees.xlsx

وعليكم السلام ورحمة الله وبركاته حسب طلبك في الرسائل الحاصة استاذ هذا هو طلبي لقد اعادة ملف الاكسيل لقد حاولت وضع الكود ولم اسطيع الاجابة على طلبك ارجع الى اول ملف في مشاركتك الاولى اسم الملف (امتداده) يتنهي xlsx ارجع الى الملف الذي ارفقت لك به الاجابه وبه الكود اسم الملف (امتداده) يتنهي xlsb لماذا قمت انا بتغيير امتداد الملف من xlsx الى xlsb ؟ لسبب بسيط وهو ان اي ملف اكسل يتنهي اسمه (امتداده) xlsx لا يمكن ان يحفظ كود في هذه النوعية من الملفات ماذا يحدث لو وضعت كوداً في ملف xlsx؟ إذا قمت بوضع كود داخل ملف xlsx ثم قمت بالحفظ: ستظهر لك رسالة تنبيه واضحة. إذا ضغطت "نعم" (Yes) للحفظ بصيغة xlsx فسيقوم إكسل بمسح الكود تماماً. عند فتح الملف مرة أخرى، لن تجد أي أثر للكود الذي كتبته. وملفك الاخير بنفس الامتداد xlsx فلن يتم حفظ الكود لذلك عند حفظ الملف وظهور رسالة التنبيه احتيار لا بدل نعم كما في الصور المرفقة اليك الملف وبه الكود بغد تحويله من xlsx الى xlsb وهو نفس الملف في احر مشاركة لي Employees.xlsb

السلام عليكم استاذ اريدتصدير ملفان لاكسل واحد لتعديل واضافة بيانات جديدة لجدول الموظفين والثاني لاضافة وحجز ساعات العمل التوقيت يكون الاختيار من القائمة 08:00-09:00 الايام يكون الاختيار من القائمة هل معني تكملة النصاب من نوع نعم/لا . الفوج التربوي يكون الاختيار من القائمة مؤسسة تكملة النصاب يكون الاختيار من القائمة عدد الذكور رقم و عددالاناث رقم استاذ كل موظف لديه من 5حصص الى 27حصة يتم حجزها في الاكسيل استاذ ملف الاكسيل عند تحميل الى الاكسيل اخفاء اللغة الفرنسية ملف الاكسيل عند تحميل الى الاكسيل يسلم للموظف لحجز التوفيت استاذ عند استراد ملف الاكسيل عند اختيار اسم وملف الاكسل استاذ عند تصدير ملف الاكسيل عند اختيار اسم والمؤسسة

استاذ @بلال اليامين سؤال مهم ... هل تريدتصدير ملفان لاكسل واحد لتعديل واضافة بيانات جديدة لجدول الموظفين والثاني لاضافة وتعديل لجدول الساعات ؟ . - جدول (الساعات) حقل (التوقيت) هل عدد ساعات 1..2..3 أم مثلاً 08:30 ص ---- حقل (الايام) بيكون مثلاً احد .. اثنين .... أم ماذا ---- حقل (هل معني تكملة النصاب) من نوع نعم/لا . لازم ترد على الاسئله السابقة بأسرع وقت كي نكمل .....

هذا اذا استعملت الكود كاملا !! رجاء انظر الى الرابط الذي وضعته في مشاركتي الاولى ، وهذا كود عمل Vcard الموجود هناك ، ولكني استعملت حقول الاسم الاول ومكان العمل ورقم الهاتف وتاريخ الميلاد فقط ، واوفقت الباقي (بهذه الطريقة انت اختار الحقل اللي تريدها) : Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf ' VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf ' VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf ' VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf ' VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf ' VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf ' VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf ' VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf ' VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function

السلام عليكم Employees.xlsx

@mahmoud nasr alhasany @ابو جودي @جلال محمد

نسيت كلمات السري للملفات اكسل ارجو منكم المساعدة وشكرا لكم قائمة المشتريات في مؤسسة عبدالحليم عبدالرزاق سلاغور لعام 2020م.xlsx كشف حساب مصروفات مؤسسة عبدالحليم سلاغور.xlsx كشف سحوبات 2021-04.xlsx

أخي @اسامة الغزالي تفضل تابع هذا الموضوع فيه مصادر كثيرة لجميع احتياجاتك من الصور والخلفيات والأيقونات 🙂 :

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي لرسائل الماجستير والدكتوراه وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على فهم كيفية عمل الإحصاء لرسالة الماجستير بدءًا من إعداد البيانات واختيار الاختبارات الإحصائية المناسبة، وصولًا إلى تفسير النتائج وكتابتها بأسلوب أكاديمي واضح، كما نوفر خدمة تحليل إحصائي لرسالة ماجستير بصورة احترافية تدعم فروض الدراسة وأسئلتها، وتُسهم في رفع جودة الرسالة وزيادة فرص قبولها وتميّزها الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي ومناقشة النتائج وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين على فهم كيف تقوم بعرض ومناقشة نتائج البحث بأسلوب أكاديمي واضح يربط بين النتائج والإطار النظري والدراسات السابقة، كما نُقدّم دعمًا احترافيًا في مناقشة النتائج في البحث العلمي؛ من خلال تفسيرها تفسيرًا علميًا، وبيان دلالاتها البحثية والتطبيقية، بما يُسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي للبيانات باستخدام Smart PLSلبناء النماذج الهيكلية وتحليل العلاقات بين المتغيرات بدقة علمية عالية، كما نوفر خدمات احترافية في برنامج NVivo لتحليل البيانات وبرنامج MAXQDA لتحليل البيانات النوعية، بما يشمل ترميز المقابلات، وتحليل المحتوى، واستخراج النتائج النوعية وربطها بإطار الدراسة نحرص في مكتبتك على تقديم تحليل علمي دقيق، مفسّر أكاديميًا، ومنسق باحتراف، بما يُسهم في رفع جودة البحث وزيادة فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في إعداد توصيات رسائل ماجستير وصياغتها بأسلوب علمي رصين يعكس نتائج الدراسة بدقة، نُساعد الباحثين على تقديم مثال على التوصيات المرتبطة مباشرة بمشكلة البحث وأهدافه، وبما يتوافق مع المعايير الجامعية المعتمدة، كما نعمل على الربط المنهجي بين نتائج البحث والتوصيات بصورة واضحة وقابلة للتطبيق، بما يُسهم في تعزيز القيمة العلمية للدراسة ورفع جودة الرسالة وزيادة فرص قبولها وتميّزها الأكاديمي.

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

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في عرض وتحليل نتائج البحث وفق منهجية علمية دقيقة تُراعي طبيعة البيانات وأسئلة الدراسة، نُساعد الباحثين على كيفية كتابة نتائج الدراسة بأسلوب أكاديمي واضح ومنظم، مع تفسير النتائج وربطها بالإطار النظري والدراسات السابقة، كما نوفر دعمًا احترافيًا يوضّح كيفية كتابة التوصيات في البحث بصورة علمية قابلة للتطبيق، تعكس نتائج الدراسة وتسهم في تطوير المجال البحثي، بما يرفع جودة البحث ويُعزّز فرص قبوله وتميّزه الأكاديمي.