احمد بدره

تم التعديل في الملف المرفق تفقيط المبالغ بالليرة السورية.xlsm

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

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

تفضل ملف جاهز به الترتيب والتوزيع والإحصاء فوائم مدرسة 2018.xlsm

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

Sub إخفاء_إظهار() On Error Resume Next Dim XX As Shape 'الإعلان عن متغير اسمه Shape (الشكل) Set XX = Sheet1.Shapes("الدائرة") ' ممكن تغيير الاسم الذي باللون الأحمر باسم الشكل الذي قمت بإدراجه ' استدعاء الشكل في شييت1 With XX.TextFrame.Characters If .Text = "إخفاء الصفوف" Then ' اسم الأول الذي تريد إظهاره في الشكل Ahmed_Head ' اسم الماكرو الأول .Text = "إظهار الصفوف" ' الاسم الثاني الذي تريد إظهاره في الشكل Else Ahmed_Show 'اسم الماكرو الثاني .Text = "إخفاء الصفوف" اسم الأول الذي تريد إظهاره في الشكل End If End With On Error GoTo 0 End Sub أتنمى من الله أن يكون هذا المطلوب ويكون واضحًا

تفضل المطلوب بالضغط دبل كليك أو كتابة أو مسح أي شيء في أي خلية في العمود Hابتداءًا من H7 وما يليها يقوم بالفرز تلقائيًا تجربه فرز0.xls

أحببك الذي أحببتني فيه أشكرك على كلامك الطيب ودعاءك وأتمنى من الله أن يوفقك لما يحبه ويرضاه

بفضل الله توصلت إلى كود إخفاء صفوف بناء على قيمة أنا اخترتها في العمود K إذا كانت القيمة 0 ابتداءًا من الخلية K10وحتى الخلية K125 وعملت كود لإظهار الصفوف المخفية مرة أخرى وطبعًا جعلت الكودين يعملان بزر أمر واحد وبهذا الكود يمكن جعل قيمة الخلية في العمود K رقم 1 مقابل الصف الذي تريد إظهاره جرب الملف زر واحد اخفاء واظهار.zip

ما فيش مشكلة ممكن تغير النطاق كما تريد وإليك الملف بعد ضبط إعدادات الصفحة وتعديل نطاق كود الإخفاء والإظهار زر واحد اخفاء واظهار.zip

تفضل المطلوبزر واحد اخفاء واظهار.zip

ضع هذا الكود في موديول Sub OFFICNA1() Sheets("AddData").Select LR = Sheets("AddData").Range("B" & Rows.Count).End(xlUp).Row 'x = Range("F2").Value Range("b3:c" & LR).Select Selection.Copy Range("a1").Select Sheets("Data").Select LR1 = Sheets("Data").Range("a" & Rows.Count).End(xlUp).Row Range("A" & LR1 + 1).Select ActiveSheet.Paste Application.CutCopyMode = False Range("C1").Select MsgBox ("تم الترحيل بنجاح") End Sub

يمكن عمل ذلك عن طريق التصفية

من ضع ملف به ما تطلب

المشكلة التي واجهتني كانت في كود مسح البيانات الخاصة بورقة العمل ( القيود ) وتم التعديل أما كود مسح البيانات الخاصة بورقة العمل ( الاستعلام ) فليس به أي مشكلة Egy-Co.rar

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

لابد من إرفاق ملف حتى يُفْهَم المطلوب

ولإثراء الموضوع يمكن استخدام دالة COUNTIFS بدون الضغط على مفتاح F4 جدول مباريات النادي 2018-2019.xlsx

أي نادي تريد عد مبارياته وما اسم العمود الذي نستخرج منه عدد المبارايات

أستاذ / رضا مهران تفضل تعديلات على البرنامج ضع أسماء الوظائف بالترتيب في العمود Z واكتب اسم وظيفة كل موظف في العمود O شئون عاملين 2019.rar

عمل مبدع ومبتكر ودائمًا نتعلم منك الكثير جزاك الله خير

تم عم المطلوب بإضافة علامة + بعد كل معادلة من المعادلات السابقة Formula Merge.rar

ضع الكود بعد علامة = في كل معادلة IF(B4="";""; ملحوظة يوجد مشاكل في مراجع المعادلات في الملف أي أن مثال IF(F4="" وأنت قم بوضح المعادلة في الخلية F4

تفضل تم عمل التعديل المطلوب خلاصة كشف غائب ومجاز شهريا.xlsm

تم التعديل قدر المستطاع لأن العمود A بصفحة البيانات حاولات بشتى الطرق إظهاره ولكني لم أفلح وجرب الملف شئون عاملين 2019.rar