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

تفضل Public Function GetMissingArabicLetters(ByVal InputText As String) As String Dim strAlphabet As String Dim strOutput As String Dim i As Integer Dim char As String Dim inputLetters As Collection Dim missingCount As Integer ' الحروف العربية الأبجدية (الألف إلى الياء) strAlphabet = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" ' إنشاء مجموعة لتخزين الحروف الموجودة Set inputLetters = New Collection ' إضافة كل حرف عربي موجود في النص إلى المجموعة (منع التكرار) For i = 1 To Len(InputText) char = Mid(InputText, i, 1) If InStr(1, strAlphabet, char, vbBinaryCompare) > 0 Then On Error Resume Next inputLetters.Add char, char On Error GoTo 0 End If Next i ' بناء النتيجة بالشكل المطلوب (حرف، حرف، حرف) strOutput = "" missingCount = 0 For i = 1 To Len(strAlphabet) char = Mid(strAlphabet, i, 1) On Error Resume Next inputLetters.Item (char) ' محاولة الوصول إلى الحرف If Err.Number <> 0 Then ' إذا حدث خطأ فهذا يعني أن الحرف غير موجود If missingCount > 0 Then strOutput = strOutput & "، " ' فاصلة عربية + مسافة End If strOutput = strOutput & char missingCount = missingCount + 1 End If On Error GoTo 0 Next i ' النتيجة النهائية If missingCount = 0 Then GetMissingArabicLetters = "لا توجد حروف مفقودة" Else GetMissingArabicLetters = strOutput End If ' تنظيف الذاكرة Set inputLetters = Nothing End Function استدعيه بهذا الشكل Private Sub cmdExtract_Click() Me.txtOutput.Value = GetMissingArabicLetters(Me.txtInput.Value) End Sub

تم تعديله الكود بالاستعانة ب AI تفقيط معدل.xlsm

طيب .. رغم أن الطلب تم تحقيقه من خلال Data Validation ، ولكن هذا لا يمنع من تجربة الفكرة التالية من خلال الأكواد . حيث تم دمج الحدث عند التغيير للورقة من :- If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B3:B3000")) Is Nothing Then With Target(1, 5) .Value = Date & " " & Time .EntireColumn.AutoFit End With End If ليصبح :- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or Target.Row < 3 Then Exit Sub If Target.Column = 2 And Target.Value <> "" Then Target.Offset(0, 4).Value = Now If (Target.Column = 4 Or Target.Column = 5) And Trim(Me.Cells(Target.Row, "D").Value) = "بيع" Then Dim r As Long: r = Target.Row Dim itemCode As Variant: itemCode = Me.Cells(r, "B").Value Dim qty As Double: qty = Val(Me.Cells(r, "E").Value) If Not IsEmpty(itemCode) And qty > 0 Then Dim stockSheet As Worksheet: Set stockSheet = Worksheets("المخزن") Dim findCell As Range Set findCell = stockSheet.Range("B3:B800").Find(What:=itemCode, LookIn:=xlValues, LookAt:=xlWhole) If Not findCell Is Nothing Then Dim realAvailableStock As Double realAvailableStock = Val(stockSheet.Range("I" & findCell.Row).Value) + qty If qty > realAvailableStock Then MsgBox "• لا يمكنك إتمام عملية البيع هذه" & vbCrLf & vbCrLf & _ "• الصنــف: " & Me.Cells(r, "C").Value & vbCrLf & _ "• الرصيد المتاح حالياً: " & realAvailableStock & " قطعة" & vbCrLf & _ "• الكمية المطلوبة: " & qty & " قطعة", _ vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تجاوز الرصيد" Application.EnableEvents = False Me.Cells(r, "E").ClearContents Me.Cells(r, "E").Select Application.EnableEvents = True End If End If End If End If End Sub ملفك بعد التطبيق :- مخزن 1.xlsb

اعرض الملف 😉👌 نتائج تحدي المبدعين 14 🏆🌹✨⭐ :: الاختيار المتعدد لفلترة بيانات التقارير :: 🌟 :: السلام عليكم ورحمة الله وبركاته :: تحدي جديد وإبداعات جديدة للأحبة في مجموعة الواتسأب مجتمع أكسس جروب 🙂 وموضوع التحدي هذه المرة : الاختيار المتعدد لفلترة بيانات التقارير :: فكرة التحدي :: لدينا قاعدة بيانات موظفين موزعين على عدة دوائر ونريد الخروج بتقرير عبارة عن قائمة للموظفين للدوائر التي يختارها المستخدم فقط . :: المطلوب :: تنفيذ آلية لعرض تقرير بقائمة موظفي (الدائرة / الدوائر ) المختارة فقط من صفحة التقارير، بحيث : - يمكن اختيار موظفي دائرة واحدة. - ويمكن اختيار أكثر من دائرة في نفس الوقت. - لا يشترط أن تكون الدوائر متتالية . - لك الحرية في تعديل نموذج التقارير واستخدام أي عنصر من عناصر الأكسس تراه مناسبا. :: النتائج :: كانت لدينا 6 مشاركات جميلة وبأفكار مختلفة من 4 مشاركين رائعين : - المهندس / أبو مازن الرازحي (مشاركة). - المهندس/ فادي - Foksh (مشاركتين). - الأستاذ/ أبو ناصر - AbuNassir (مشاركة). - المهندس/ موسى الكلباني (مشاركتين). :: صور المشاركات :: أبو مازن الرازحي : فادي - Foksh : 1 2 أبو ناصر - AbuNassir : موسى الكلباني : 1 2 :: مع تمنيتنا للمشاركين بالتوفيق والنجاح في دنياهم وأخراهم على هذه الإبداعات :: :: ودعواتنا للجميع بالفائدة والاستفادة من هذه الأفكار النيرة :: :: ولا تنسونا من صالح دعواتكم 🙂 :: ⭐ رابط الانضمام لمجموعة الواتسأب : https://drive.google.com/drive/folders/1Ku3j_1TBQ03M199RBAO86DqDcFKcgAk3?usp=drive_link ⭐ رابط جميع ملفات التحديات السابقة 🌟 : https://drive.google.com/drive/folders/1xOqWpWiLqKacPTG2MQDrohJp5DKDRTY2?usp=drive_link 🌸😊 كل التوفيق للجميع 😊🌸 صاحب الملف Moosak تمت الاضافه 08/15/26 الاقسام قسم الأكسيس  

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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. بعد البحث في المنتدى عن مواضيع تتحدث عن أداة تقوم بإنشاء شريط ريبون خاص بالمستخدم ، لم أجد سوى موضوع واحد ، ولكن بطريقة إلى حد ما تحتاج المهارة والتدخل اليدوي في إنشاء الشريط . لذا وبفضل الله تعالى وكرمه توصلت الى فكرة تفاعلية ومرنة إلى أبعد حد يخطر ببال المستخدم . 1️⃣ التعامل باللغتين العربية والإنجليزية كلغة واجهة الأداة . 2️⃣ إنشاء شريط تفاعلي يدعم المعاينة الفورية لشكل الشريط . 3️⃣ إمكانية استيراد ( فتح ) مشروع شريط ريبون محفوظ مسبقاً . 4️⃣ إمكانية تعيين وظائف عامة من آكسيس أو خاصة باستدعاء دوال خاصة بمشروعك . 5️⃣ التحكم التام والكامل والمرن بأيقونات الأزرار ومسمياتها . 6️⃣ التحكم بعرض / إخفاء تبويبات آكسيس الأفتراضية . 7️⃣ التحكم بالقوائم المختصرة الإفتراضية لآكسيس . 8️⃣ عرض كود XML للشريط الذي يتم انشاؤه . 9️⃣ إمكانية دمج الأداة كوظيفة أساسية في آكسيس Add-ins . 🔟 إمكانية تصدير الشريط عند تصميمه إلى قاعدة بيانات أخرى ، أو القاعدة الحالية لمشروعك . 1️⃣1️⃣ دعم عرض الشريط بالإتجاهين من اليمين لليسار - من اليسار لليمين . دعم نسخ آكسيس العربية الواجهة . 1️⃣2️⃣ إضافة المكونات الخاصة بالشريط من خلال قائمة منسدلة . حيث المكونات هي ( تبويب ، مجموعة ، فاصل داخل المجموعة نفسها ، زر ، مربع تسمية ) وسيتم شرحها لاحقاً . 1️⃣3️⃣ إمكانية نقل وتحريك المكونات داخل الشريط من خلال السحب والافلات . 1️⃣4️⃣ إمكانية تحديد مفتاح اختصار للتنقل بين المكونات ، من خلال النقر على مفتاح Alt + الحرف الذي تم تحديده للعنصر . 1️⃣5️⃣ إمكانية إعادة تسمية أي عنصر أثناء تصميم الشريط بسهولة من خلال قائمة مختصرة سريعة ، أو من خلال مربعات نص الخصائص . 1️⃣6️⃣ إمكانية حذف أي عنصر أثناء التصميم بسهولة أيضاً من خلال قائمة مختصرة سريعة ، أو من خلال مربعات نص الخصائص . 1️⃣7️⃣ دمج سليم وبرمجي للأيقونات التي تم تخصيصها للأزرار داخل قاعدة البيانات بحيث تعمل معك في أي جهاز دون أي مشاكل . 1️⃣8️⃣ إمكانية إضافة تلميح لوظيفة أي عنصر داخل الشريط . 1️⃣9️⃣ إمكانية حذف شريط الريبون من قاعدة بياناتك بسهولة وسلاسة . 2️⃣0️⃣ إمكانية حذف مشروع شريط ريبون كامل من سجلات الأداة ، لتلافي التراكم والفلترة . والمزيد من الخصائص والوظائف المدمجة في الأداة ، التي ستتمتع باكتشافها بنفسك عزيزي القارئ . 📸 صور من واجهة الأداة باللغتين العربية والإنجليزية :- ♻ كيف تعمل الأداة ؟ أنشئ مشروع جديد ، وحدد اسمه كما ترغب . قم بالنقر مرتين على اسم المشروع الذي تم ادراجه في قائمة المشاريع المحفوظة . من القائمة المنسدلة "إضافة عنصر جديد الى الشريط" ، اختر تبويب لإضافة تبويب جديد . ثم غير اسم التبويب كما تريد . كمثال "Home" - "الرئيسية" ... إلخ . انقر على التبويب بعد تغيير اسمه لتحدده ، ثم قم بإضافة "مجموعة" . وأيضاً حرر اسم المجموعة كما تريد . مثال "التقارير" . وحدد الخصائص التي تريدها لها . انقر على اسم المجموعة الجديدة التي أضفتها ، ثم قم بإضافة زر جديد داخل المجموعة . وأيضاً حدد خصائصه كما تريد . مثل اسمه وأيقونته ، أو حتى مفتاح اختصاره السريع ، أو حتى الحدث المخصص له ... وهكذا لبقية العناصر . وفيما يلي شرح مصور بسيط لآلية العمل بشكل كامل من الألف إلى الياء . فيديو توضيحي لطريقة الاستخدام بشكل سريع .. ملف الأداة للتحميل للإصدار 64 :- Ribbon Builder.zip ملف الأداة للتحميل للإصدار 32 :- Ribbon Builder - 32.zip الملف المستخدم للتجربة هو من أحد المشاريع في المنتدى ، من باب التجربة ليس إلا ..

وعليكم السلام ورحمة الله وبركاته.. جرب المعادلة التالية في الخلية B3 كمثال ، وعلى افتراض ان الخلية A3 تحتوي الرقم القومي المكون من 14 رقم :- =IF(A3="","",IF(MOD(VALUE(MID(A3,13,1)),2)=1,"ذكر","أنثى"))

ما الجديد في هذا التحديث .. ضبط الحاوية بحيث تتأقلم مع طول التسمية التوضيحية لأطول زر . ضبط حجم الأزرار داخل الحاوية بحيث تكون بالحجم العادي عندما يكون اتجاه الحاوية عامودي ، والحجم الكبير للزر اذا كان اتجاه الحاوية أفقي . ضبط زر الإغلاق ليقوم بوظيفتين . * الإغلاق التام للأداة اذا كانت تعمل بشكل مستقل وليس كوظيفة Add-in داخل مشروعك لتلافي اغلاق قاعدة بياناتك كاملة . * الإغلاق المقتصر على النموذج الرئيسي للأداة اذا كانت تعمل كوظيفة Add-in . ملف الأداة للتحميل للإصدار 64 :- Ribbon Builder - 64.zip ملف الأداة للتحميل للإصدار 32 :- Ribbon Builder - 32.zip

حبايب قلبي عشاق برنامج الاكسس تم تحديث نظام lab الطبي نظام متكامل ونظراً لحجمه عملته لكم في رابط ما عليك الا تنزله وفك الضغط في قرص d كلمة المرور ١ حال عدم السماح بالدخول يرجع السبب الى اعدادات الماكرو لديك قم بالدخول الى خيارات من اي ملف اكسس مفتوح ثم إعداد الماكرو واعمل سماح بالتوفيق https://drive.google.com/file/d/1YDRRLchNAfArPzdS129nnpQlqJLHfL8M/view?usp=drivesdk

كررت التجربة والملف يعمل ولا يسمح باظافة اي كمية تتجاوز الموحود بالمخزن ولكن هناك سبب يجغل الرصيد في المخزن بالسالب عندما تكتب الكمية اولا ثم تختار توع الحركة بعدها هنا يتم قبول الكمية ولو كان الصنف انتهى من المخزن وهذه حلها الغاء خاصية تجاهل الفراغ حينها لا يقبل اي كمية سواء اخترت نوع الحركة اولا او اخر جرب الغاء الخاصية في ملف الاستاذ Foksh واليك ملف اخر بنفس فكرة Data Validation باستخذام عمود مساعد في العمود o بالرغم انني لا احبذ استخذم الاعمدة المساعدة وله نفس نتائج ملف معلمنا Foksh مخزن 1.xlsb

تم التعديل الكود حاليا يقوم بحذف اي صور من النطاق a2:v2 قبل ادراج الصورة الجديدة حتى لا تتراكم الصور فوق بعضها كذلك تم تعديل اسم الصورة ومكانها على الجهاز بحيث يمكنك احتيار اي صورة وباي اسم وباي امتداد من الجهاز ويمكنك اضافة اي امتداد اخر غير مدرج بالكود .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" تم استتناء ورقة3-ورقة6 من ادراج الصور ويمكنك استتناء المزيد وذلك باظافة اسم الورقة بالكود من الجزء For Each ws In Worksheets If ws.Name <> "ورقة3" And ws.Name <> "ورقة6" Then ادراج صورة (2).xlsm

سيكون الحل بطريقتين حسب استخدامك للملف إذا كنت تقوم بفلترة العمود الأول (عمود1) يدوياً ليظهر فقط التواريخ من 8 إلى 11: استخدم المعادلة =SUMPRODUCT(SUBTOTAL(109; OFFSET(I8:I100; ROW(I8:I100)-ROW(I8); 0; 1)); --(H8:H100=E4)) وإذا أردت حصر الجمع تلقائياً بين تاريخين دون الاعتماد على الفلترة اليدوية استخدم المعادلة =SUMIFS(I8:I100; H8:H100; E4; G8:G100; ">=08-يوليه"; G8:G100; "<=11-يوليه") واليك المعادلتان في ملف واحد واختر ما يناسب طلبك جمع القيم لشخص مع الفلترة.xlsx

بعد تجربة كل الواجهات مع سيكوال من سى شارب الى فيجول بيسك نت الى واجهات البايثون كلهم متجمعين لايساووا مرونة اكسس فى الاتصال والاستعلامات التمريرية وكنت لو اتمنى ان تسعى مايكروسوفت لتطوير اكسس كلغة ليناسب الويب بدلا من دعمها الدائم ل power apps

أهلاً بكم في التحدي الرابع ؛ استكمالاً لسلسلة "الفعاليات والتحديات الشهرية" ( نظراً لأن التحدي الثالث لم يتم حسم أمره بعد ) .. 📖 قصة التحدي :- لدينا شاشة إدخال فواتير مشتريات تحتوي على نموذج فرعي مستمر SubFrm_InvoiceDetails . وتضم مربعات نص مرتبطة بالحقول التالية :- CategoryID ( القسم الرئيسي : إلكترونيات ، أطعمة ، أدوات منزلية ... إلخ) SubCategoryID ( القسم الفرعي : هواتف ، شاشات ، ألبان ... إلخ) ItemID ( المنتج النهائي كمثال : آيفون 15 ، سامسونج S24 ، حليب مراعي ... إلخ) Quantity ( الكمية ) Price ( السعر ) 🎯 المطلوب :- عند اختيار "القسم الرئيسي" في أي سطر ، يجب أن تقتصر قائمة "القسم الفرعي" و "الصنف" على التابع للقسم المختار في ذلك السطر فقط 🚫 الشرط أنه يجب ألا تختفي أسماء الأقسام الفرعية أو المنتجات في الأسطر السابقة أو اللاحقة نهائياً عند التحديث أو التنقل بين السجلات 🚫 عند التنقل بالأسهم أو الماوس بين السجلات أو الفرز والترتيب ، يجب أن تبقى جميع البيانات في جميع الأسطر ظاهرة بوضوح وسلاسة تامة 🚫 قوانين المشاركة :- السقف مفتوح للمشاركين بالطريقة والوسيلة والأسلوب الذي يراه مناسباً لتنفيذه فكرة التحدي فترة المشاركة بتقديم الأعمال والأفكار سيكون 30 يوماً من تاريخ الموضوع اليوم 21-08-2026 ، وتنتهي بإذن الله بتاريخ 21-09-2026 ♻ كيف تشارك ؟ قم بتنفيذ العمل على الملف المرفق أدناه ، ثم قم برفعه في مشاركتك . 📁 ملف العمل :- التحدي الرابع.accdb إختصاراً للوقت والجهد ، قمت بتعبئة أصناف بأسعار عشوائية متنوعة التصنيفات داخل الجداول .

لم أقل مختلفة بل قلت بأنها في الفيديو كانت داخل وحدة نمطية قام صاحب الفيديو بإستيرادها إلى تطبيقه بينما في المثال الذي أشرت إليه لا يوجد وحدة نمطية بل كانت جميع الأكواد خلف النموذج فشعرت أن سبب طرح الأخ @حسين العربى لهذا الموضوع كان سببه هذا الإلتباس فعند تطبيقه لما جاء في الفيديو لن يجد الوحدة النمطية لإستيرادها خصوصاً أنه قال بأنه قد إستعرض المثالين لذلك قمت بفصل الوظائف الأساسية في وحدة نمطية وأصبح المثال الآن قابل لتطبيق ماجاء في الفيديو عليه تحياتي

شكر لك أخي @Foksh لإثارة الحماس مجددا 😊🌼 الحمدلله هذي المرة أتيت مبكرا وهذي المرة لدي مشاركتان .. بفكرتين ✌️ مع إعادة تنسيق للنموذج بشكل عام لعرض الفكرتين بشكل أفضل .. 😎 الفكرة الأولى : القوائم المنسدلة المخفية .. الفكرة متعلقة بمصدر بيانات النموذج الفرعي + قوائم منسدلة مخفية تنبثق تلقائيا بمجرد الضغط على الحقل المطلوب .. الفكرة الثانية : القوائم المنسدلة الموحدة .. هذه الفكرة مختلفة قليلا عن المعتاد ولكنها تحل المشكلة التي تعرض لها التحدي بشكل غير مباشر 🖐 .. الفكرة تكمن في وجود قوائم منسدلة موحدة في رأس النموذج الفرعي وعند اختيار السجل المطلوب تنتقل المعلومات الخاصة به للأعلى ويتم تحرير البيانات في الأعلى فقط مع تلوين السجل المحدد للتركيز على الهدف .. التحدي الرابع- موسى الكلباني 1.accdb ‏‏التحدي الرابع- موسى الكلباني 2.accdb

سأكون أول المشاركين فكرتي المتواضعة تعتمد على أن يتم إنشاء مربعات نص تحتوي على دالة Dlookup لإرجاع قيمة كل مربع تحرير وسرد ويكون مربع النص هذا فوق (أو أمام) مربع التحرير والسرد ويكون بنفس عرض مربع التحرير والسرد (بدون السهم) والتريكة هنا أنه حين إنتقال المؤشر إلى مربع النص ينتقل مباشرة إلى مربع التحرير والسرد الخاص به وعند الخروج من مربع التحرير يعود مربع النص إلى الواجهة لأنه سبق وتم تحديد موقعه في الأمام وبهذا لن يشعر المستخدم بوجوده الفكرة والتنفيذ تمت على عجل ولا شك أنها قابلة للتحسين تحياتي التحدي الرابع.accdb

وعليكم السلام ورحمة الله وبركاته بالنسبة لملف الذي أرسلته يحتاج لتعديل حتى يكون احترافيا التعديل يشمل أضافة صفحات أخرى ولا يمكن العمل على صفحة واحدة سوال : بالنسبة لـ "الآجل"، هل هو دين على العميل (تأخر في الدفع) أم دين على المندوب/السائق (عُهدة لم يقم بتوريدها بعد) ؟

مداخلة سريعة بعد إذن أستاذنا @hegazee .. برأيي الغير ملزم طبعاً .. أن أفضل حل عملي ونظيف :- بدلاً من الدخول في دوامة تنبيهات إكسل الذكية . اذهب إلى تبويب File (ملف) ثم Options (خيارات) ثم Formulas (الصيغ) ، ثم ألغِ تفعيل الخيار :- Formulas which omit cells in a region . كما في الصورة أدناه :- بهذه الخطوة البسيطة ستظل بياناتك وأرقامك وتنسيقاتك كما تحب ؛ وستختفي جميع المثلثات الخضراء المزعجة من الملف نهائياً . للتوضيح :- طبعاً سبب هذا المنطق الغريب والعجيب من إكسل هو أن اكسل يقوم بتنبيه المستخدم إلى أنه قد يكون قد سهى عن إضافة الخلية المجاورة B10 الى معادلة الجمع . وبالتالي تظهر علامة المثلث الأخضر هذه . وللتأكد ، جرب من علامة التعجب اختيار Update Formula to Include Cells ، ستجد أن المعادلة تحولت إلى :- =SUM(B10:G10) فما علاقة الخلية أو العمود B بالأمر ، ليس لدي معلومة دقيقة ، إلا أنه يمكن أن يكون هذا مقترحاً من مايكروسوفت لمساعدة المحاسبين حين تحدث أمور قد سهوا عنها . يعني على رأي أخواني في مصر الشقيق ( حركة جدعنه منهم 😅 )

جرب هذا الملف بحث وتسجيل الموظف.xlsx

وعليكم السلام ورحمة الله وبركاته .. جرب هذا الملف المرفق اخي @ابو مارفن .. خروج وبحث-لصق-نسخ.xlsb

اعرض الملف الأداة المتكاملة لإنشاء وإدارة المخططات البيانية بإستخدام عنصر تحكم المتصفح{سلسلة الأدوات المساعدة المخصصة} أداة إنشاء المخططات البيانية المخصصة (سيتم الإشارة إليها بالأداة الأولى في سياق الحديث) أداة إنشاء المخططات المخصصة بإستخدام عنصر تحكم المتصفح (سيتم الإشارة إليها بالأداة الثانية في سياق الحديث) هاتان كانتا آخر أداتين ضمن سلسلة الأدوات المساعدة قمت برفعهما إلى مكتبة الموقع وكما كنت قد ذكرت عند رفع الأداة الثانية بإنها هي الجيل التالي للأداة الأولى والحقيقة أني كنت أعتقد أننا لن نحتاج إلى أي أداة أخرى للمخططات البيانية إلا أنه وخلال النقاشات التي دارت في الموضوع الخاص بالأداة الثانية على المنتدى قام الأخ @jjafferr في هذه المشاركة بذكر أداة Better-Access_Charts الرائعة وحينها قمت بالرد بهذه المشاركة ووضحت فيها الأسباب التي لم تشجعني على إستخدامها (يمكن الإطلاع على تلك الأسباب من خلال الرد الذي أشرت إليه) والان وبعد أن قمت وبحمدلله بإيجاد حلول للمشاكل التي ذكرتها في ردي وجب علي أن أفي بالوعد الذي وعدته في آخر كلامي وها أنا أقدم لكم اليوم النسخة المعربة والمنقحة من أداة Better-Access_Charts والتي أعتبرها أفضل أداة قد تجدها (حتى يومنا هذا) لإنشاء وإدارة المخططات البيانية بإستخدام عنصر تحكم المتصفح وهذا ماجعلني أسميها بالأداة المتكاملة ومع أنها مشابهة للأداة الثانية من حيث إعتمادها على HTML و Javascript في عملها إلا أن الفرق بينهما شاسع كما سنرى. يتبقى لنا هنا سؤال مهم وهو ما الذي تتميز به كل أداة عن الأخرى؟ والإجابة هي تتميز الأداة الأولى بخفتها فهي لا تحتاج إلا إلى مربع تسمية وسطر أو سطرين من الكود والميزة الأهم هي قدرتها على العمل مع التقارير. بقية الأدوات رائعة إذا كنا نريد إستخدام المخططات في العروض التقديمية أو التفاعلية كـ Dashboard ولكن لكل واحدة منها ميزة تتفرد بها كما يلي. الأداة الثانية تتميز ببساطة العمل معها فجميع الخيارات المطلوبة نجدها في شاشة واحدة بالإضافة إلى الميزة التي تنفرد بها وهي إمكانية تخصيص ألوان عناصر المخطط بمعنى (لون الأعمدة في المخطط الشريطي – لون التعبئة في المخطط الخطي – ألوان قطع المخطط الدائري / الدونات) فقد يرغب البعض بأن يكون للألوان رمزية معينة مثلاً عندما يُظهر المخطط مقارنة بين عدة منتجات وكل منتج له لون مميز ويفضل المستخدم أن يظهر كل عمود بلون الصنف الذي يمثله أو أن يكون لها معنى خاص كشعار الشركة مثلاً وهكذا. الأداة الثالثة (أي هذه الأداة) وهنا سنجد أن لدينا نسختين منها الأولى للإصدارات الحديثة التي تتضمن عنصر تحكم المتصفح Edge والأخرى للإصدارات الأقدم التي لا تحتوي على عنصر التحكم هذا في النسخة الخاصة بالإصدارات القديمة سنجد ميزتين رائعتين الأولى إمكانية تخصيص نمط ألوان المخطط (هذا يختلف عن الأداة الثانية ففي الثانية كان يمكننا تمييز كل عمود بلون نختاره نحن أما هنا فنحن نختار النمط أو الـ Theme وتقوم الأداة بتعيين الألوان) أما الميزة الثانية فهي أمكانية العمل مع التقارير ولكن بإستخدام عنصر تحكم (صورة) وليس المتصفح العيب الوحيد لهذه النسخة هو ثقلها وبطئها وهو ما لاحظته شخصياً ولا أدري إذا ما كنتم ستلاحظون ذلك أم لا أما نسخة الإصدارات الحديثة فتحتوي على خيارات واسعة يمكننا من خلالها التحكم في إعداد وتنسيق أغلب إن لم يكن جميع عناصر المخطط بالإضافة إلى إمكانية حفظ نسخة عن المخطط كملف HTML وغيرها من الميزات التي سنتعرف عليها من خلال الإطلاع على التعليمات والنسخ التوضيحية ضمن المرفقات ستجدون ضمن الملف المضغوط المرفق مجلد يحتوي على مستند وورد يحتوي على التعليمات المطلوبة لمعرفة طريقة عمل الأداة مجلدين الأول للنسخة التي ستعمل مع إصدارات أوفيس الحديثة والآخر للنسخة التي ستعمل مع إصدارات أوفيس الأقدم وداخل كل مجلد ستجدون (ملف أكسس بإسم النسخة التوضيحية + ملف أكسس بإسم القالب + مجلد بإسم Lib ستتعرفون على محتوياته ووظيفته من خلال التعليمات التي أرجو أن يتم قرائتها بتمعن وهنا أعيد وأكرر أرجو قراءة التعليمات قبل فتح أي شيئ فهناك ملاحظات مهمة يجب معرفتها أولاً في الأخير أرجو أن تنال الأداة إعجابكم وأن تجدوا فيها الفائدة العلمية والعملية وأن تعذروني إذا ظهرت أي أخطاء أو تقصير غير مقصود من قبلي تحياتي ,,, صاحب الملف منتصر الانسي تمت الاضافه 08/16/26 الاقسام قسم الأكسيس  

الأمر غريب فعلاً ...🤔... فقد قمت بالتجربة على نسخة أوفيس 2010 - 32 ، وبعد إلغاء السطور الثلاثة بقيت عملية النسخ واللصق تعمل .. ولكن إليك الحل السليم بعد تجربته على أكثر من إصدار بإذن الله تعالى .. أولاً سنضيف تعريف الثابت التالي داخل المديول :- Public Const WS_EX_NOACTIVATE As Long = &H8000000 ثم نعدل حدث النموذج بحذف أسطر الشفافية القديمة ونستبدلها بالثابت الذي قمنا بتعريفه WS_EX_NOACTIVATE ، ليصبح :- Private Sub UserForm_Activate() #If VBA7 Then Dim Style As LongPtr Dim ExStyle As LongPtr #Else Dim Style As Long Dim ExStyle As Long #End If Dim ScreenWidth As Long Dim FormWidthPixels As Long Dim RightX As Long hWndForm = FindWindow(vbNullString, Me.Caption) If hWndForm <> 0 Then Style = GetWindowLongPtr(hWndForm, GWL_STYLE) Style = Style And Not WS_CAPTION Style = Style And Not WS_SYSMENU SetWindowLongPtr hWndForm, GWL_STYLE, Style DrawMenuBar hWndForm ExStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE) SetWindowLongPtr hWndForm, GWL_EXSTYLE, ExStyle Or WS_EX_NOACTIVATE ScreenWidth = GetSystemMetrics(SM_CXSCREEN) FormWidthPixels = Me.Width * 1.33 RightX = ScreenWidth - FormWidthPixels SetWindowPos hWndForm, HWND_TOPMOST, RightX, 100, 0, 0, SWP_NOSIZE End If End Sub والنقطة الثالثة وهي كيفية الإستدعاء للنموذج بحيث نستدعيه بدون قيود :- Private Sub Workbook_Open() us.Show vbModeless End Sub بهذه الطريقة سيعمل شريط الأدوات العائم بكفاءة تامة وبدون شفافية ، وسينفذ الأوامر مباشرة داخل إكسل وجميع برامج أوفيس والتطبيقات الخارجية بدون أي تعليق أو فقدان للتركيز . فالمشكلة كانت في فقدان التركيز للنموذج . حيث يتم منع النموذج من سحب التركيز نهائياً عند النقر عليه ، وبالتالي تظل الخلية أو النص المحدد في وورد أو إكسل محتفظاً بالتركيز ويتم النسخ واللصق فوراً . بحث-لصق-تسخ.xlsb

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

كنت اتمنى من استاذنا أبومروان متابعة الموضوع ولكن للغائب عذره اخي ابو مارفن ليست لدي فكرة عن طلبك ولو بنسبة 1% ولكن ارفقت الكود والطلب الى احدبرامج الذكاء الاصطناعي وبعد محاولات عديدة منه اعطاني كودا حسب تجربتى له يقوم بالنسخ واللصق والقص والحافظة وهو اقصى ما توصل اليه البرنامج QQ1.xlsb هذا ما استطعت افاذتك به متمنيا ان يحقق بعض طلباتك

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

جزاك الله خيراً أستاذ @عبدالله بشير عبدالله ، فعلاً كنت قد التفت الى حل المشكلة التي أشار لها صاحب الموضوع أخي أبو مارفن ، ولم أتيقن أنه قد يكون إصدار الآكسيس 2010 .. ففعلاً على الإصدار 2010 لم تعمل معي النسخة حتى مع تعديلي لاسم النموذج في الاستدعاء . ولكنه عمل معي حين ردي السابق على الاصدار 2019 في جهاز آخر .. فعلاً في العجلة الندامة 😅

السلام عليكم ورحمة الله وبركاته الملف به مشكلتان الاولى اجاب عنها معلمنا Foksh اما الثانية تكمن في الوجدة النمطية القياسية تحتاج الى تعديل مع تعديل بالكود للتوافق امر هام : ما قام به معلمنا Foksh او ما أَضَفْتُهُ للملف ليس له علاقة بطلبك الاساسي او حل لطلبك بل تصحيح للاخطاء الواردة بالملف المرفق فقط لكما تحياتي ولكل احبابنا بالمنتدى اليك الملف بعد التعديلات QQ1.xlsb

الذي فهمته من ردك الاخير انك تريد حماية A2&C2 فقط من التعديل وترك B2 قابل للتعديل والعمل سيكون على هذا الصف فقط المعادلة تنض غلى اذا كان تاريخ العمولة (B2) اقل من التاريخ الثابت (A2) تكون النسبة 50% وان كانت اكبر 100% اذا كان العكس غير علامة < الى > الخليتان محميتان بدون كلمة مرور تحياتي حساب النسبة المئوية.xlsx

أضف إلى ذلك أيضاً حرف "ئ ، ى ، ؤ ، ء" الألف المكسورة وغيرها أو حتى التاء المربوطة أو الهاء المربوطة .. فمثلاً ، كم حرف لم يأت ذكره في الآية الكريمة :- وعلى الله فليتوكل المؤمنون

سؤال ولو فيه نوع من التطفل اخي @zozzz بارك الله فيكم ماذا عن هذه الحروف "أ", "إ", "آ" اليس المفروض احتسابها على انها ا ام ماذا ؟ اشكرك على سعة صدرك ... لاني لا اعلم بطبيعة عمل برنامجك ولكن من باب الفائدة فقط

وعليكم السلام ورحمة الله وبركاته اهلا بك جرب هذا Private Sub cmdExtract_Click() Dim strInput As String Dim strAlphabet As String Dim strOutput As String Dim i As Integer Dim char As String Dim inputLetters As Collection Dim missingCount As Integer strAlphabet = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" strInput = Me.txtInput.Value Set inputLetters = New Collection For i = 1 To Len(strInput) char = Mid(strInput, i, 1) If InStr(1, strAlphabet, char, vbBinaryCompare) > 0 Then On Error Resume Next inputLetters.Add char, char On Error GoTo 0 End If Next i strOutput = "" missingCount = 0 For i = 1 To Len(strAlphabet) char = Mid(strAlphabet, i, 1) On Error Resume Next inputLetters.Item (char) If Err.Number <> 0 Then If missingCount > 0 Then strOutput = strOutput & "'، '" End If strOutput = strOutput & "'" & char & "'" missingCount = missingCount + 1 End If On Error GoTo 0 Next i If missingCount = 0 Then Me.txtOutput.Value = "لا توجد حروف مفقودة" Else Me.txtOutput.Value = strOutput End If Set inputLetters = Nothing End Sub

اقترب موعد إطلاق النسخة الأولى من أداة صانع شريط الريبون 😎 كونوا على الموعد .. قريباً ⏳

هذا هو الحل المنطقي ولكن ولأن الأخ أحمد في ظل الأمر الواقع فلماذا لا نصل لهذه النتيجة بطريقة أخرى؟ قمت بإرفاق المثال بعد إنشاء إستعلام توحيدي يضم الثلاثة الجداول مع إضافة حقل (داخل الإستعلام) بإسم ClassNo يتم فيه إضافة رقم الصف لكل جدول وجعلت هذا الإستعلام هو مصدر بيانات التقرير ثانيا من زر أمر فتح التقرير لكل نموذج قمت بإضافة معيار رقم الصف لتصفية بيانات التقرير مثلاً في النموذج الأول سيصبح معيار التصفية كالتالي ClassNo=1 And onlyyou=true ثالثاً بإستخدام دالة Choose قمت بكتابة رقم الصف في التقرير لا أعلم إذا كان هذا الحل سيناسب أخونا @أحمد العيسى أم أن هناك مشاكل أخرى ستظهر عنده؟ ملاحظة أخيرة : جدول الصف الثالث لم يحتوي على الحقول (Address + Work_father + Telephone) لذلك قمت بإضافتها في الإستعلام مع تعيين قيم فارغة لها تحياتي db.mdb

للتوضيح ، حيث ما تم تعديله أنه عند القيام بعملية بيع ، تقوم المعادلة حالياً بإعادة إضافة الكمية المكتوبة حالياً إلى الرصيد المحسوب في ورقة المخزن ، فيسترجع التحقق من الصحة الرصيد الفعلي المتوفر قبل إدخال الحركة الحالية وتكتمل العملية بنجاح عند إدخال 5 أو 4 أو أي رقم ضمن حدود الرصيد المتوفر . عذراً على التأخر في اكتشاف الخلل .. والشكر موصول للأستاذ @عبدالله بشير عبدالله على مشاركته وملاحظاته معنا .

وعليكم السلام جرب الكود المعدل بالملف تغيير لون الخلايا المحدده بالماوس من خلال اليوزر فورم_085825.xlsm

وعليكم السلام ورحمة الله وبركاته الكود المرفق يقوم :- بالغاء حماية الشيتات المستهدفة 123 ثم يتم اظهار الصفوف 1-2 ثم يمسح الصور السابقة بعد ادراج الصور يتم اخفاء الصفوف1-2 ثم حماية الصفحات من جديد 123 استبدل الكود السابق بهذا تم تجربة الكود على 28 صفحة في حدود 3 الى 4 ثانية Private Sub CommandButton13_Click() Dim ws As Worksheet Dim Pic As Shape Dim shp As Shape Dim rng As Range Dim fd As FileDialog Dim imgPath As String Dim i As Long Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "اختر الصورة المراد إدراجها" .Filters.Clear .Filters.Add "جميع الصور", "*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tiff" .AllowMultiSelect = False If .Show = -1 Then imgPath = .SelectedItems(1) Else Exit Sub End If End With Application.ScreenUpdating = False On Error Resume Next Application.CommandBars.FindControl(ID:=549).Execute On Error GoTo 0 For Each ws In Worksheets If ws.Name <> "قائمة" And ws.Name <> "مخزن" Then On Error Resume Next ws.Unprotect Password:="123" On Error GoTo 0 ws.Rows("1:2").Hidden = False Set rng = ws.Range("A2:V2") For i = ws.Shapes.Count To 1 Step -1 Set shp = ws.Shapes(i) If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then On Error Resume Next If Not Intersect(shp.TopLeftCell, rng) Is Nothing Then shp.Delete End If On Error GoTo 0 End If Next i Set Pic = ws.Shapes.AddPicture( _ Filename:=imgPath, _ LinkToFile:=msoFalse, _ SaveWithDocument:=msoTrue, _ Left:=rng.Left, _ Top:=rng.Top, _ Width:=rng.Width, _ Height:=rng.Height) With Pic .LockAspectRatio = msoFalse .Placement = xlMoveAndSize End With ws.Rows("1:2").Hidden = True ws.Protect Password:="123" End If Next ws Application.ScreenUpdating = True MsgBox "تم إدراج الصورة بنجاح!", vbInformation, "تم بنجاح" End Sub كما يمكنك الغاء اكوادالحماية وغيرها من ملفك لانها اصبحث من صمن الكود السابق

السلام عليكم ورحمة الله وبركاته من خلال التجربة لملف Data Validation الاول - طلب السائل الكريم يتحقق مع تعديل النمط الى ايقاف كما تصحته في مشاركة لاحقة ولا اعتقد انه يمكن اظافة اي جديد اكثر مما تم عمله هذا حسب اعتقادي والله اعلم تحياتي لكما

و عليكم السلام ورحمة الله و بركاته تفضل الملف. ملحوظة تم تعديل الاسماء و أرقام الاقامة لان من غير المنطقي أن تكون كل البيانات متشابهة تماما ماعدا رقم اللوحة مما يفقد البحث بالاسم أو رقم الاقامة فائدته فواز_معدل_للبحث_محدث (2).xlsx

يمكننا الإنتظار مشاركات جديدة .. فلا تستعجل بإغلاق الموضوع باختيار الإجابة 🙂

وعليكم السلام ورحمه الله وبركاته

السلام عليكم محاولتي مع الروابط في الفيديو

السلام عليكم ورحمة الله وبركاته تحياتي لك ولاستاذنا Foksh مشكلة الملف به امتددان ادراج صورة.xlsm.xlsx بحذف الامتداد xlsx يعمل الملف لاظافة الخاصية المطلوبة اولا يجب حذف كلمة Private ليصبح اسم الكود Sub Comm() ثانيا يجب أن تكون الصورة موجودة بالفعل داخل القرص D بهذا الاسم بالضبط (عنوان.jpg) ثالتا امتداد الملف هو jpg وليس png أو jpeg؛ لأن عدم تطابق الامتداد سيتسبب في ظهور خطأ عند تشغيل الكود. في حال تغير مكان الضورة او امتدداها قم بالتعديل بالكود اليك الكود بعد اظافة الخاصية xlMoveAndSize نقل الخلايا وتغيير حجمها Sub Comm() Dim ws As Worksheet Dim pic As Object For Each ws In Worksheets Set pic = ws.Pictures.Insert("D:\عنوان.jpg") pic.Placement = xlMoveAndSize Next ws End Sub ادراج صورة.xlsm

وعليكم السلام ورحمه الله وبركاته اتفضل لعله يكون المطلوب جدول ورديات.xlsm

بارك الله فيك

بعد إذن أخي @Foksh المشكلة مرتبطة بإستخدام صندوق الحوار TaskDialog الخاص بقائمة الخيارات RadioButton فعند إستخدام هذا النوع فإنه بحاجة إلى حدثين الأول يخص حدث إظهار مربع الحوار (قد يكون النقر على زر أو النقر المزدوج على عنصر تحكم أو أي حدث آخر) وتكون القيمة الراجعة منه رقم الزر الذي سيتم نقره في مربع الحوار أما الحدث الثاني فهو حدث TaskDialog_RadioButtonClick والذي يرجع قيمة الخيار الذي تم إختياره والمشكلة أن الأخ @jo_2010 نفذ الأول ولم ينفذ الثاني ولو كان قد ركز قليلا في كود هذا النوع ضمن أداة مربع حوار المهام لوجد أنها مكونة من الحدثين المذكورين أعلاه عموما قمت بتعديل المثال المرفق بعد إضافة الحدث TaskDialog_RadioButtonClick وتم تنفيذ العمل بدون أخطاء تحياتي TEST.rar

مداخلة سريعة .. أعتقد أن السبب هو في جملة الإغلاق DoCmd.Quit ، وبما أنك أخفيت واجهة آكسيس ، فجملة الإغلاق هذه تجعل آكسيس يتخطى ويتجاوز الضغط والإصلاح لمنع تجمد أو حدوث Crash لواجهة آكسيس . لذا اعتقد ان تفعيل الخاصية يدوياً من خلال السطر :- Application.SetOption "Auto Compact", True في حدث عند التحميل أو الفتح ( حسب الحدث الذي تستدعي فيه جملة Hide Access Window يتم وضعه قبلها طبعاً ) في النموذج الأول ، وأيضاً استعمالها بالإستدعاء نفسه قبل جملة الاغلاق DoCmd.Quit في أي زر يقوم بإغلاق الواجهة .. وستلاحظ أن الخيار يبقى مفعلاً في القاعدة .

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

ما شاء الله تبارك الرحمن 😀 من أجمل المواضيع التي أنزلتها أخي @منتصر الانسي .. جزاك الله كل خير .. 😊 مكتبة غنية شاملة واستعراض جميل جدا للأكواد والأمثلة .. تبارك الله ... وسلمت يمناك 🌹 هذه الخدمة تغني عن تصميم عشرات النماذج التنبيهية والإرشادية 🙂