amr atef eid

تنسيط اوراق عمل محددة بناء على الضغط عمل محددة.xlsx

الاستاذ الفاضل سليم شكرا لحضرتكم على الرد وجزاكم الله خيرا احسنتم

الاخوة الاعزاء

عند اجراء عمليات نسخ ولصق لعمود الرقم القومي تلاحظ ان العمود به مسافات اثناء عملية اللصق فقمت بازالتها يدويا حيث تم استخدام دالة Trim ولم تفى بالغرض

برجاء التفضل بالافادة عن دالة او معادلة او ماكرو لالغاء كافة المسافات الزائدة بأي عمود

شاكرين حسن تعاونكم

التخلص من المسافات الزائدة للخلايا باللون الاصفر حتى يمكن اجراء عمليات حسابية عليها.rar

في ٧‏/٢‏/٢٠١٤ at 18:47, محمد أبو البراء said:

[ سلسلة حلول مشاكل أعمال الكنترول ] [ 1 -  الشهادات ]

بسم الله الرحمن الرحيم

نظراً لكثرة الطلبات الخاصة ( بأعمال الكنترول )

وكنت حاولت قبل ذلك أن أقوم بكتابة  موضوع ليشمل حلول أعمال الكنترول كلها  

_ ولكن وللأسف _  اتجه الموضوع لغير المراد

ولذلك

قررت أن اعمل سلسلة لحلول مشاكل أعمال الكنترول..

وستكون الطريقة _  بإذن الله _ شرح كل موضوع مستقل يكثر فيه الطلبات

وسيكون الشرح للموضوع لشخص يجهل الإكسيل نهائيا حتى  يصل إلى درجة الاحتراف في هذا الموضوع _ بإذن الله تعالى _

وبإذن الله سأستخدم كل الطرق للوصول إلى المعلومة

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

والله المستعان

وها أول موضوع كثر الحديث عنه وهو [الشهادات من البداية إلى النهاية]

وسيكون السير في هذا الموضوع في هذه النقاط

1 ) تصميم شهادة واحدة

2 ) جلب البيانات إليها

3 ) تصميم اكثر من شهادة وكيفية جلب البيانات إليها جميعا

4 ) الكود الخاص بطباعة شهادة واحدة فقط أو أكثر من شهادة

5 ) كيفية ربط هذا الكود مع صفحة الشهادات

6 ) كيفية تفادي أخطاء الطباعة وعمل الفنش النهائي لها

 

فتابعونا مع شرح هذه النقاط الستة بالتفصيل في المشاركة القادمة

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

احسنت مشكووووووووووووووووووووووووووووور

جزاكم الله خير وبرجاء الافادة عن البرنامج الذي تم عمل به المجلة وشاكرين لكم

 

السلام عليكم

بالكود يكون الحل كالتالي :

Sub Duplicata()

Dim i As Long, Last As Long
With Sheets("بيانات غير متكررة")
.Range("A2:Q" & .Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
End With
Set MySheet = Sheets("الاساسى")
With MySheet
Last = .Cells(Rows.Count, "B").End(xlUp).Row + 1
x = 2
Application.ScreenUpdating = False

        For i = .Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If WorksheetFunction.CountIf(.Range("B2:B" & i), .Range("B" & i).Value) = 1 Then
.Range("A" & i).Resize(1, 17).Copy
Sheets("بيانات غير متكررة").Range("A" & x).PasteSpecial Paste:=xlPasteValues
x = x + 1
            End If
        Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True

End With
End S

جزاكم الله خير

السادة الافاضل مرفق طيه ملف به ورقتي عمل الاولى بها نطاق باسم moha ابحث عن دالة او ماكرو ويفضل دالة لنقل صفوف الاسماء الغير متكررة في ورقة عمل اخرى

شاكر لحضراتكم الاهتمام 

االتجميع والاساسى المحدث عاطف 1.rar

مشكور على هذا الجهد لكن راجع نفس الموضوع تم نشره لي من قبل

الاخوة الاعزاء

لدي مشروع لتنمية مهارات طلبة التعليم الفني ومن ضمن هذا المشروع ما يلي

كيفية عمل اسئلة موضوعية على الوورد من خلال vb من داخل الوورد

والاسئلة الموضوعية قد تكون صح أو خطا أو أكمل أو تخير الاجابة الصحيحة وهكذا

كيف يمكن عمل هذه الاسئلة مع اعطاء درجة في نهاية ا لاختبار للمتدرب

مثلا

عاصمة جمهورية مصر العربية

القاهرة

الاسكندرية

طنطا

المحلة

بحيث تكون هناك خانة اختيار والاجابة الصحيحة عليها درجة وهي القاهرة

ضع علامة صح امام العبارة الصحيحة وعلامة خطا امام العبارات الخاطئة

عاصمة جمهورية مصر العربية الاسكندرية 

أكمل

........... عاصمة جمهورية مصر العربية

وان شاء الله سوف يتم ارفاق ملف حقيقي لكن هذه هي الفكرة لتعم الفائدة

برجاء الرد والهدف هو كيفية تعلم Vb  الخاص بالوورد شاكرين حسن تعاونكم معنا

تم رفع ملف في شكل فورم كلمة السر 123

سكرتارية تطبيقية عربية الفصل الدراسي الأول 2013.rar

احسنت بارك الله لكم

ارجو من الله ان يعلمنا ما جهلنا

اللهم امين

دليل محاسبى.rar

إن شاء الله سوف يتم تباعا تحديث الملف وسوف يحمل نفس الموضوع

اليكم بعد تحديثه

ادعو لابنى بالشفاء اللهم امين

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

ولا تنسوا الدعاء لنجلي بالشفاء العاجل

افضل ملف.rar

انتظروا ان شاء الله ملف لا توجد به كلمة سر او غيرة وان شاء الله سوف يتم رفعه في القريب العاجل

وادعوا لابني ربنا يشفيه امين

ومن يتقي الله يجعل له مخرجا

من لم يهتم بأمر المسلمين ليس منهم

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

لسلام عليكم

الاخ الكريم / amr atef eid

 

بارك الله فيك

ونحن في انتظار ملفك الذي سيكون بلا شك ( باذن الله ) رائع

جزاك الله خيرا

تحية اعزاز واحترام وبعد

لكافة اعضاء المنتدى المحترمين :

الفكرة هي عندما يتم اختيار ادارة بنها التعليمية يتم اتاحة المدارس

التابعة لها فقط وهذه ميزه كبرى حيث قائمة منسدلة تسمح بفتح قائمة منسدلة

اخرى مرتبطة بها

الشئ الذي تم اضافته ارجو الرد عليه هو عمل دليل لنظام محاسبي موحد لقوائم منسدلة متفرعة على سبيل المثال

حساب رئيسي               حساب مساعد           حساب فرعى               حساب ثانوى

1                                                                                                   اصول

                                   11                                                              اصول ثابتة

                                                              161                                 مخزون سلعى

                                                                                           1611  محزن الخامات

وجزاكم الله كل الخير

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

ويفضل التفعيل من خلال الدوال او القوائم بعيدا عن الاكواد مع الشكر

قوائم منسدلة بطريقة جديدة.rar

السلام عليكم

الاخ الكريم / amr atef eid

 

بارك الله فيك

هل رأيت المرفق في المشاركة رقم 4#  به الحل بنفس احدي الطرق الموجودة في الرابط المذكور ... شاهده

جزاك الله خيرا

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

السلام عليكم

الاخ الكريم / amr atef eid

 

بارك الله فيك

 

اعتقد ان حل موضوعك تماما وكما تريد ( باذن الله ) في هذا الرابط

للاستاذ / محمود لي ..... أ / عبد الله المجرب ...... أ / بن عليه  ----------- جزاهم الله خيرا

فجميع مشاركاتهم في هذا الموضوع اعتقد انها تفي بالغرض في ملفك

وذلك حسب فهمي للطلب  !!!

شاهد الرابط .... وفي انتظار اخبارنا بالنتيجة

http://www.officena.net/ib/index.php?showtopic=45813

جزاك الله خيرا

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

فجزاكم الله كل الخير

الاخوة الافاضل تحية اعزاز واحترام وبعد

تم عمل قائمة منسدلة

ثم تم عمل قائمة منسدلة اخرى من خلال قائمة بشروط IF

وبالتأكيد لا استطيع اكثر من الاحتمال 8

وحاولات من خلال دالة IFYES لكن العملية بائت بالفشل

الفكرة هناك 13 ادارة

وكل ادارة بها عدد من المدارس

المطلوب عند اختيار مثلا الادارة التي ترتيبها 9 يتم فتح النطاق الخاص بمدارسها وهكذا

مرفق ملف يراد تعديله جزاكم الله خيراتجريبي.rar

جزاكم الله خيرا المطلوب ترتيب الطلبة بعدة شروط

أن يكون ناجح

أن يكون صاحب اكبر درجة

أن يكون اصغر سنا

عدد الطلبة يتعدى 70000 أي يعمل الملف على اصدار اكسل 2010

بارك الله في كل اعضاء المنتدى

الى الاخ الفاضل ابو نصار

والى جميع الاخوة بالمنتدى

كلمة السر 232322

واليك جميع المرفقات

قاعدة بيانات شباب الخريجين.rar

هكذا بيكون اذا التلوين من إعدادات الخط

 Sub ALIDROOS_F() Dim A As Worksheet, B As Worksheet, C As Worksheet Dim V_ALI, I&, T& Set A = Sheets("total"): Set B = Sheets("النموذج الخامس معلم مساعد"): Set C = Sheets("النموذج الرابع اداريين وعمال") L = A.Cells(65535, 1).End(xlUp).Row For V_ALI = 22 To L If A.Cells(V_ALI, 1).Font.Color = RGB(255, 0, 0) Then I = I + 1 A.Cells(V_ALI, 1).Copy Destination:=B.Cells(I, 1) End If If A.Cells(V_ALI, 1).Font.Color = RGB(0, 0, 0) Then T = T + 1 A.Cells(V_ALI, 1).Copy Destination:=C.Cells(T, 1) End If Next End Sub 

اما اذا التلوين بالتنسيق الشرطي إستعن بالتصفية حسب اللون تحياتي

الاخ الفاضل ابو نصار

تحية اعزاز واحترام وبعد

اليك الملفات المرفقات وكلمة السر 232322

مع خالص تقديرى

بعد فك ضغط الملف

برجاء من السادة الافاضل بالمنتدى عمل تطوير على الملف كالتالى

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

المطلوب هو حقل م المسلسل الرقم باللون الاحمر يتم تصفيته ولصقة بورقة العمل النموذج الخامس اما اللون الاسود يتم تصفيته ولصقه بورقة العمل النموذج الرابع المطلوب حقل المسلسل فقط

وجزاكم الله خيرا حتى تعم الفائدة

قاعدة بيانات شباب الخريجين.rar

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