كل الانشطه

شكرا جزيلا وبارك الله فيك وغفر الله لنا ولكم بحق هذا الشهر الكريم

كل عام و وووانتم بخير

تفضل المرفق بعد التعديل بكل طلباتك . Saad-1.rar

مساء الخير شكرا لحضرتك. بس مش هو ده اللى انا عاوزاه. هاشرح لك رقم الاذن. ٥ التاريخ..٣٠_٦_٢٠١٠ السنه الماليه..... رقم الشريط. ١_٢٣_٥٥_٧_٩٩_٤٤٤٤ نوع الخصم....تكرار اضافه ملاحظات........ شوفت. انا عاوزه. اخلى. رقم الاذن. يتكتب مره. واحده. و. البيانات المكرره. مره. واحده. رقم الشريط بقي. ندمج. كل الارقام. فى. خانه واحده. و نفصل بينهم. ب _ هل كده فهمت. قصدى .: يعنى لو فلترت برقم الاذن. و التاريخ. و نوع الشريط. هايكون رقم اذن واحد. انا. عاوزه. الغى التكرار. و عامود الرقم للشريط. يندمجوا. سواااا بيان الخصومات 2026.xlsx

بارك الله فيك تمام جزاك الله كل خير..... ورمضان كريم

🤔 يعني تريد ألغاء الدمج للخلايا التي تم دمجها ، مع إعادة القيم لكل خلية !!! تمام ، جرب هذا الماكرو أ واستعمله في حدث عند النقر لأي زر مثلاً :- Sub UnMergeFoksh() Dim ws As Worksheet Dim r As Long, c As Long Dim mArea As Range Dim cellText As String Set ws = ActiveSheet Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual For r = 4 To 20 For c = 2 To 36 If ws.Cells(r, c).MergeCells Then Set mArea = ws.Cells(r, c).MergeArea cellText = ws.Cells(r, c).Text mArea.UnMerge mArea.NumberFormat = "@" mArea.Value = "'" & cellText mArea.HorizontalAlignment = xlCenter mArea.VerticalAlignment = xlCenter End If Next c Next r Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub طبعاً اعتقد انك هنا ستستغني عن حدث عند التغيير للورقة السابق .. ويصبح ملفك كالتالي للحدثين بع إضافة زرين . merge cell.xlsm

أخي و أستاذي خليفة محتاج في الملف السابق كيف أحذف سجل في نموذج تسجيل المستخدمين frmusers

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

بمعني ارجاع الملف الى اصله قبل الدمج

تمام بارك الله فيك ............ طلب لو اردت عدم الدمج بعد عملية الدمج ؟؟؟؟؟؟؟؟؟؟؟؟؟

وعليكم السلام ورحمة الله وبركاته .. بداية أعتقد أن التنسيق الشرطي سيكون عقبة ومشكلة كونه - على حد علمي - لا يوم بالدمج للخلايا كما تريد . لذا ؛ لجأت لإستخدام دالة بسيطة كالتالي :- Sub MergeFokshCells() Dim ws As Worksheet Dim lastRow As Long Dim dayRanges As Variant Dim i As Long, j As Long, startCol As Long Dim d As Long Application.DisplayAlerts = False Set ws = ActiveSheet lastRow = 20 dayRanges = Array(Array(2, 8), Array(9, 15), Array(16, 22), Array(23, 29), Array(30, 36)) For i = 4 To lastRow For d = LBound(dayRanges) To UBound(dayRanges) j = dayRanges(d)(0) Do While j <= dayRanges(d)(1) If ws.Cells(i, j).Value <> "" Then startCol = j Do While j < dayRanges(d)(1) And ws.Cells(i, j).Value = ws.Cells(i, j + 1).Value j = j + 1 Loop If j > startCol Then ws.Range(ws.Cells(i, startCol), ws.Cells(i, j)).Merge ws.Cells(i, startCol).HorizontalAlignment = xlCenter ws.Cells(i, startCol).VerticalAlignment = xlCenter End If End If j = j + 1 Loop Next d Next i Application.DisplayAlerts = True End Sub وتستطيع استدعائها بحدث عند التغيير مثلاً داخل الورقة ، بالشكل التالي :- Private Sub Worksheet_Change(ByVal Target As Range) Call MergeFokshCells End Sub أو حتى في حدث عند الفتح إن أردت بنفس الأسلوب :- Private Sub Workbook_Open() Call MergeFokshCells End Sub جرب وأخبرني بالنتيجة ، طبعاً بعد حفظ الملف بصيغة . جرب دون أرفاقي الملف لتتعرف على النتيجة .

بارك الله فيك وشكرا جزيلا

بعد إذن الاخ @kkhalifa1960 من خاصية (التنسيق أو Format) لمربع النص قم بإزالة علامتي النجمة إفتح الجدول في عرض التصميم ومن خاصية (قناع الإدخال أو Input Mask) للحقل قم بكتابة Password ثم طبق نفس التعديل في مربع النص في النموذج أما إذا أردت أن يظل ظاهراً في الجدول وتريد إخفاؤه في النموذج فقط فطبق التعديل في مربع النص فقط تحياتي

الله يبارك فيك أخي الفاضل علي كرمك وعلمك وربنا يجعله في ميزان حسناتك لي سؤالين عندما اغير الباسورد تاتي هذه الرسالة السؤال الثاني عايز كلمة السر تظهر علي هيئة نجوم

تفضل الشرح . ولاحظ انا لا اعتمد على المسار المسجل بل اعتمد على اسم الصورة وامتدادها ليعمل البرنامج من اي مكان طالما مجلد الصور بجوار القاعدة . Saad.rar

لو سمحت استاذي الفضل خليفة أنا مش عارف اتعامل مع اضافة الصور ممكن شرح بسيط

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

اعرض الملف أداة إنشاء لوحة رئيسية مخصصة {سلسلة الأدوات المساعدة المخصصة} قد يكون من أهم إستخدامات كائن الشجرة Treeview هو إستخدامها في شجرة الحسابات أو الهياكل التنظيمية ولكن يوحد لهذا الكائن وظيفة هامة أخرى وهي إستخدامه في شاشة لوحة التبديل أو شاشة التنقل الرئيسية Switchboard لذا وبإستخدام الأداة المرفوعة سابقاً في هذا الموضوع يمكننا الحصول على أكثر من شكل لشاشة لوحة التبديل الرئيسية . يتم من خلال الأمثلة المرفقة وعند النقر على عناصر الشجرة القيام بأحدى الوظائف التالية - فتح نموذج بشكل طبيعي (أو كنموذج فرعي عند إستخدام لوحة التبديل الجانبية) مع إمكانية إضافة معلمات لحاصية OpenArgs - فتح نموذج بشكل منبثق أو مشروط مع إمكانية إضافة معلمات لحاصية OpenArgs - فتح تقرير في وضع المعاينة مع إمكانية إضافة معلمات لحاصية OpenArgs - طباعة تقرير مباشرة مع إمكانية إضافة معلمات لحاصية OpenArgs - تشغيل إجراء عام (يجب أن يكون إجراء في وحدة نمطية ويجب أن يكون بدون معلمات) - إستدعاء دالة عامة (يجب أن تكون إجراء في وحدة نمطية مع أو بدون معلمات) ستجدون في المرفقات الملفات التالية : 1 - النموذج الأول لشاشة التبديل + القالب الخاص به في هذا المثال سنحصل على لوحة تبديل مستقلة يمكن إستخدامها كشاشة رئيسية للتطبيقات الخاصة 2 - النموذج الثاني لشاشة التبديل + القالب الخاص به في هذا المثال سنحصل على لوحة تبديل جانبية تقوم بفتح النماذج كنماذج فرعية ضمن الشاشة الرئيسية 3 - النموذج الثالث لشاشة التبديل + القالب الخاص به وهو نسخة مطابقة للنموذج الثاني ولكنها مخصصة لمن يستخدمون اللغة الإنجليزية في الواجهات الخاصة بهم لاتوجد أي تعليمات إضافية فآلية العمل هي نفسها الموضحة في الموضوع الخاص بإداة Treeview المخصصة ولكن سنجد هنا بعض الإضافات على النحو التالي - إظهار أيقونة تميز عناصر المستوى الأول عن بقية المستويات - تبديل أيقونتي الجمع والطرح بأشكال أخرى (لمن يحبون التغيير) - طريقة تحويل إتجاه الشجرة من اليسار إلى اليمين لمن يستخدمون اللغة الإنجليزية في تطبيقاتهم وهذا يعني أنه يمكننا القيام بنفس التعديلات على الأداة في الموضوع السابق للحصول على نفس النتائج هنا من المزايا الإضافية المقدمة مع الإداة أنه عند إستخدام النموذج الثاني أو الثالث سنجد كيف نقوم بإظهار شاشة عامة تحتوي على أيقونة وعنوان التطبيق وأي معلومات إضافية نرغب في إظهارها وتظهر هذه الشاشة عندما لايتم تحديد أي عنصر من القائمة أو أن تحديد العنصر لاينتج عنه فتح أي نموذج فرعي تحياتي صاحب الملف منتصر الانسي تمت الاضافه 03/04/26 الاقسام قسم الأكسيس  

شكرا لكما وبارك الله فيكما وأكثر الله من أمثالكما وزادكما الله من علمه

المطلوب عند وجود حصتان متتاليان يتم دمجهما معا كما بالملف merge cell.xlsx

تنفيذاً لما ذكرته لك :- قمت بتغيير عنصر الصورة القديم الى عنصر صورة غير منضم فقط . والحدث في بعد التحديث للكومبوبوكس :- Private Sub cmbUser_AfterUpdate() On Error GoTo Err_Handler Me.txtFullName = DLookup("fullname", "tblUsers", "username = '" & Me.cmbUser.Column(1) & "'") Me.imgPhoto.Picture = DLookup("Photo", "tblUsers", "username = '" & Me.cmbUser.Column(1) & "'") Exit Sub Err_Handler: MsgBox "حدث خطأ : الصورة غير موجودة في المجلد", vbCritical + vbMsgBoxRight, "خطأ" Me.imgPhoto.Picture = "" End Sub أما فكرة الأستاذ خليفة فهي جميلة لأنها تقوم ببناء المسار الكامل للصورة أولاً . ثانياً أسهل لإضافة حقول أخرى في المستقبل ، لو حبيت تطور الفكرة . ثالثاً تتعامل مع جميع الإحتمالات . وانا افترضت أن مسار الصور في الحقول ثابت وغير قابل للعبث لكني اقترحت الفكرة من باب التوسع في الخيارات saad1.zip

تفضل استاذ @2saad طلبك حسب مافهمت . ووافني بالرد . Saad.rar

وعليكم السلام ورحمة الله وبركاته.. ابسط طريقة هي استخدام الدالة Dlookup بشرط رقم الموظف الفريد . لم اطلع على الملف ، هي مجرد فكرة.

إخواني الأعزاء أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته كل عام وأنتم بخير يغفر الله لنا ولكم في هذا الشهر المعظم عندي ملف به جدول وفورم دخول للبرنامج ( login ) أنا عايز لما اختار اسم الميتخدم من الكمبوبكس يجلب الاسم كاملا وصورة المستخدم انا اشتغلت عليه ولكن لم أفلح saad.accdb