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

جرب عمل الاتى فى خصائص التقارير pop up=yes , modal=yes

الفكرة التي عملتها واشرت اليها في مشاركتي الاولى وان كان النقاش قد تجاوزها بمشاركة الاساتذة الافاضل اقول الفكرة تعتمد بشكل كلي كما اشرت سابقا ⬇️ العمود الفقري هو جدول الاصناف فلا بيع بدون توفر الصنف ولا شراء بدون وجود ترميز الصنف فاتورة المشتريات هي من يغذي كميات جدول الاصناف اضافة للرصيد الافتتاحي في حالة وجودة المرتجع من فواتير البيع هو بمثابة شراء الاصناف المعادة للمورد بمثابة عملية بيع اذا كانت الفاتورة مدفوعة مسبقا البرنامج بمجملة برنامج بسيط وغير ربحي وكان يوزع بشكل مجاني وفق شروط خاصة تتولاها الجهة المسئولة حينها عن المبادرة اي ان عملية الكتابة تكون فقط في اسم الصنف وسعر الشراء والبيع لمرة واحدة فقط عند ادخال صنف جديد لم يسبق ادخاله وهذا يتوافق مع ما اشار اليه الاستاذ الفاضل @ابوخليل ⬇️ الحقيقة اني بحثت عن نسخة من البرنامج ولكن للاسف ذهبت مع الريح ولم اجد سوى ملف فيديو للنسخة التجربية الاولى وهي نسخة اولية مختلفة بشكل كلي عن النسخة النهائية من حيث التصميم وامور اخرى تتعلق باصلاح بعض الاخطاء والتي لا يتسع المجال لذكرها ولكن مع ذلك ربما تلقي بعض الضوء على الفكرة الاساسية من حيث طريقة الترميز والشراء والبيع بالباركود التي تحدثت عنها واعتذر مقدما اذا لم يكن فيها ما يخدم الموضوع تحياتي

وضحت: جديد_02.xlsx

تسديدات كل سنة M_H.xlsx

الإكسل ليس تخصصي ولكن عاشق له ، جرب حلي: New Microsoft Excel Worksheet_01.xlsx

فورم الجداول الجاهزة للأكسل تحميل صورة بفولدر وترحيل بيانات الفيديو

غالبا ما تظهر هذه الرسالة اخي الكريم بسبب بعض الأخطاء غير المرغوب فيها يتجمد ملف Excel وبالتالي اخي الكريم أثناء حفظ الملف تظهر رسالة خطأ مثل "Fixed Objects Will Move". اما في حالتك هذه كما ذكرت ان الرسالة تظهر اثناء عمل الفلترة فغالبا اخي الفاضل انه لديك بالملف كائنات ثابتة يمكن أن تشير "الكائنات الثابتة" إلى العديد من العناصر ، مثل التعليقات والرسومات وعناصر التحكم وما إلى ذلك. تعتبر "ثابتة" لأنها توضع في مكان على ورقة العمل ثم يحاول Excel الاحتفاظ بها في هذا المكان. إذا كنت بحاجة إلى الاحتفاظ بالعناصر ، فيمكنك محاولة التخلص من الإشعار عن طريق إخبار Excel بأنه لا بأس من تحريك الكائنات. يتضمن هذا تغيير الخصائص لكل كائن - انقر بزر الماوس الأيمن فوق الكائن واختر خصائص ، ثم حدد أو امسح خانة الاختيار التي تتحكم في إمكانية تحرك الكائن. في حالة كنت واضع حماية للشيت حاول تفعيل هذا الامر او استخدام الكود التالي Sub M_H() Application.ScreenUpdating = False On Error Resume Next With Worksheets("Sheet1") .EnableOutlining = True .EnableAutoFilter = True .Protect Password:="الرقم السري للشيت", _ Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _ AllowFormattingCells:=True End With Application.ScreenUpdating = True End Sub

1. عند استخدام اي من الاكواد التي تفضل بها الشباب ، والكود الذي وضعته انا ، يجب ان يكون مسار المجلد كاملا ، فمجلدك رقم 3733 لا يعطي المسار كاملا ، لذا ممكن حل الخطأ بوضع مسار المجلد في الكود ، ثم تضيف عليه رقم مجلد الموظف ، هكذا (ولقد تم تجربة الطرق الثلاث ادناه ، طبعا تجربة كل سطر بطريقة مستقلة) : Dim myPath As String myPath = "D:\" ShellExecute Me.hwnd, "open", myPath & Me.Folder_Name, "", "", 1 Application.FollowHyperlink myPath & Me.Folder_Name Shell "explorer.exe" & " " & myPath & Me.Folder_Name, vbNormalFocus . 2. نعم ، الكود الذي اعطيتك يُظهر "رسالة إشعار امان" الاكسس ، ولكنه وبعد قبول الرسالة ، يفتح المجلد او الملف ، وللتغلب على هذه الرسالة ، يمكننا كتابة الكود هكذا: DoCmd.SetWarnings False Application.FollowHyperlink myPath & Me.Folder_Name DoCmd.SetWarnings True جعفر Folder_Name.zip

أخي الكريم هذين الملفين معاً فك الضغط عنهما وجرب وأعلمني بالنتيجة إن سمح أمرك والسلام عليكم File Name.rar

جهد مشكور أستاذ محمد هشام ولكني أقترح على الأخ صاحب السؤال أن يعيد هيكلة ملفه ليتوافق مع قواعد البيانات حتى يسهل استخراج المعلومات منه لذا أقترح مثلا أن يكون بهذه الصورة بالتوفيق

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة اليك مثال لدالك باسم منتدى اوفيسنا في الملف المرفق يمكنك فقط تعديل الكود حسب ما يناسبك. واتمنى يكون هدا هو المطلوب🤔 مثال _حساب عدد مرات الطباعة.xlsm

[الجديد في التحديث 8.10]: 1- في خدمة (التعامل مع العبارات المميزة بلون ما)، أُضيفت خاصية (تصدير إلى ملف نصي)، والتي تُمكِّنك من تصدير العبارات المميزة بلون ما أو بأي لون إلى ملف نصي. 2- في قائمة إزالة، وضمن إزالة الفواصل، تم إضافة خاصية (إزالة فواصل الأسطر اليدوية ووضع فقرات بدلاً منها). 3- حل الملاحظات وتنفيذ الاقتراحات التي زوَّدني بها المستخدمون، كعدم عمل خاصية (إزالة علامات التشكيل على إصدار Word 365)، وأيضاً تصفير خيارات البحث بعد إجراء أي عملية عن طريق إضافة البيان.

جربي الآن أختي : اسعار.zip

أحسنت أخي الكريم @Mohamed Hicham أسلوب رائع وتنوع ممتاز بارك الله بجهودكم ... إلى المزيد من التقدم والعطاء تقبل تحياتي

بعد إذن الأستاذ المشرفي مثال لو لدينا هذه الجملة :officena#2022Abc في الخانة A3 الحصول فقط على كلمة officena يمكنك وضع المعادلة في الخانة.( b3) =SUBSTITUE(SUBSTITUE(SUBSTITUE(A3; "#";""); "2022"; ""); "Abc"; "") و للحصول فقط على الرقم 2022 يمكننا هكذا =SUBSTITUE(SUBSTITUE(SUBSTITUE(A3; "#";""); "Abc"; ""); "officena"; "") حذف كلمة او رقم او رمز بالمعادلات.xlsx إليك بعض الأمثلة الأخرى في الملف المرفق

الحمدلله على سلامتك معلمنا الكبير @jjafferr ... عودا حميدا 🙂 🌹 << مطول الغيبات جايب الغنايم 😊 >>

وعليكم السلام ورحمة الله وبركاته 🙂 اخوي ابو جودي ، ابوالحسن ، ابوخليل ، وكل من مر على هذا الموضوع ، شكرا على سؤالكم ، والحمدلله عدت من السفرة/المهمة 🙂 جعفر

اعتذر انطر المرفق FTable.xlsm

وجزيت خيرا و الحمد لله ان تم الامر على خير

السلام عليكم الاستاذ @حسين مامون جزاك الله كل خير الكود يعمل بشكل جيد

جرب ورد علي FTable.xlsm

بالنسبة للترتيب من الاكبر الى الاصغر اعتذر لان الخلايا المدمجة في ملفك تمنع ذلك اما الشرح ليس عندي وقت كافي يمكنك مراجعة فيديوهات الترحيل وما اكثرها في المنتدى الف تحية FTable.xlsm

السلام عليكم جزاك الله كل خير اخ @حسين مامون ارسلت لك في قائمة الاكمال نا هو مطلوب معبا يدوي معلاحظة ان عدد الطلاب في قائمة الناجحين و الراسبين و قائمة الاكمال مساوي للعدد في جدول table و في قائمة الناجحين هل بالامكان اظهار المعدل في الملاحظات و تكون القائمة مرتبة من الاعلى معدل الى الادنى اذا ممكن شرح للكود و جزاك الله كل خير اكرر شكري لك FTable.xlsm

وعليكم السلام جرب المرفق بالنسبة قائمة مباحث الاكمال لم افهم ما تريد ضع بعض النتائج يدويا وارفع الملف مرة اخرى 1256892141_399701656_FinalTable(1).xlsm

السلام عليكم ,, لمعرفة ذلك يجب عليك استخراج كود اللغة او ما يسمى بLCID عن طريق الكود التالى : Application.LanguageSettings.LanguageID(msoLanguageIDUI) الخطوة التالية هو معرفة اللغة صاحبة الكود وذلك عن طريق احضارها من النت ولكن ماذا اذا كان الجهاز غير متصل بالنت ؟ فقمت باختصار الامر وعمل جدول باكواد اللغات ويتم احضارها من الجدول وعرضها فى رسالة , النتيجة : مرفق قاعدة البيانات . بالتوفيق Language.accdb

تم تحرير كود لهذا الغرض Option Explicit Sub MY_Data_New() Application.ScreenUpdating = False Dim SH_from As Worksheet Dim T As Worksheet Dim rg_to_Patse As Range Dim Rt%, MY_max%, ro%: ro = 4 Set T = Sheets("Total") Set rg_to_Patse = T.Range("A3").CurrentRegion Rt = rg_to_Patse.Rows.Count If Rt > 1 Then Set rg_to_Patse = rg_to_Patse.Offset(1).Resize(Rt - 1) Else Set rg_to_Patse = T.Range("B4").Resize(, 5) End If rg_to_Patse.Clear For Each SH_from In Sheets If SH_from.Name <> T.Name Then MY_max = Application.Max(SH_from.Range("A:A")) SH_from.Cells(3, 1).Resize(MY_max, 6).Copy With T.Cells(ro, 1) .PasteSpecial (xlPasteValues) .PasteSpecial (xlPasteFormats) End With ro = ro + MY_max End If Next SH_from With T.Range("A4").Resize(ro - 4, 6) .Sort key1:=Range("b3"), Header:=1 .Value = .Value End With Application.ScreenUpdating = True arraNge_all End Sub '+++++++++++++++++++++++++++++++++++ Sub arraNge_all() Application.ScreenUpdating = False Dim nro% Dim MM% nro = Cells(Rows.Count, 1).End(3).Row Dim color_rg As Range For MM = 4 To nro If Range("a" & MM).Interior.ColorIndex <> xlNo Then If color_rg Is Nothing Then Set color_rg = Range("a" & MM).Resize(, 6) Else Set color_rg = Union(color_rg, Range("a" & MM).Resize(, 6)) End If End If Next color_rg.Copy Range("a" & nro + 1) color_rg.EntireRow.Delete Range("A4", Range("A3").End(4)).Formula = _ "=IF(B4="""","""",MAX($A$3:A3)+1)" Range("A3").CurrentRegion.Value = _ Range("A3").CurrentRegion.Value Range("A4").Select Set color_rg = Nothing Application.ScreenUpdating = True End Sub الملف من جديد M_data_new_SA.xlsm

السلام عليكم هذه فائدة استفدتها من شروح متنوعة تتمثل فى عمل قائمة بقاعدة التحقق من الصحة لكن الجديد هنا أن القائمة تتغير حسب تغير مصدرها بالحذف أو الزيادة المثال يوضح أردت المساهمة لعل البعض يحتاجها لأنها مفيدة جدا قائمة ديناميكية مفيدة جدا.zip