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

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري) القوائم الرئيسية هي النطاقات المسمى باسم الليبلات النطاق الاول: Lbl_ST_1 النطاق الثاني: Lbl_ST_2 النطاق الثالث: Lbl_ST_3 النطاق الرابع: Lbl_ST_4 اذا اردت زيادة قائمة اخرى اضف جدول آخر وسميه Lbl_ST_5 واضف ليبل آخر بنفس التسمية واعمل له كودين مشابهين لاكواد الليبلات الاخرى مع تغيير الرقم الى 5 مثال : الكود الاول Private Sub Lbl_ST_5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddBar sNeme & 5 End Sub الكود الثاني Private Sub Lbl_ST_5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_Set1 sNeme & 5 End Sub وهكذا اذا اردت اضافة ليبل آخر القوائم الفرعية تحتاج فقط لاضافتها اضافة نطاق وسميه باي اسم وضع هذا الاسم في القائمة الذي تريد اظهار القائمة الفرعية فيها مع وضع العلامة <<< لكي يفهم الكود انها قائمة . ويمكنك اضافة قائمة فرعية بداخل قائمة فرعية اخرى. يمكنك ايضا التحكم في النطاقات بادخال ما تريده من اكواد او الحذف او الاضافة . ================================================ لاختيار ارقام صور الكومندبار حمل الملف التالي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=58279 ================================================ المرفق 2003-2010 قوائم مخصصة على الفورم باستخدام كومندبار+2.rar

لقد طرح أخي ومعلمي الجليل الأستاذ // عبدالله باقشير "حفظه الله " وجزاه عنا خير الجزاء , في ابداع سابق له (( قــوائم مخصصة علي الفورم باستخدام - CommanBars)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=44506 وعمله الذي فتح بوابة كبيرة امام استخدمات الاكسيل وتمكنه من التحكم بالاكواد وتطويعها جزاه الله خيرا وجعل كل اعماله في ميزان حسناته وارجوا منه السماحة انني استخدمت عمله وطبقته علي موضوع شئون الموظفين الاصدار الثاني - النسخة التجريبية لوجود اخطاء بالنسخة الاولي فاهدي عملي المتواضع كلمة المرور 2300 جعل الله جميــــــع اعمالنا خالصة لوجه الكريم والله ولي التوفيق شئـون الموظفيين الاصدار الثاني نسخة تجريبية.rar

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

السلام عليكم اخي الحبيب ابو عبد الرحمان عندما لاحظت صورة البروفيل الخاصة بك ( العين البني ) ، و الصورة الخاصة بي ( خديجة ) و كأنني اقول بلسان الحال : قاعد يبص فيا و انا حاطط إيدي على خدي فجات ببالي الاغنية ألي بتقول : بتنهد وايدي على خدي من قلب ربّاني وطلع قديلا انا فهمان شو بده ولا حضرته فهمان شو بدي لكنني فهت انك تريد التعديل على الكود اسعد الله ايامك و تقبل الله منا و منكم صالح الاعمال ، و الله ليك وحشة Sub officena() Dim Last As Long, R As Long, LR As Long Last = Sheet4.Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheet4 For R = 5 To Last If WorksheetFunction.CountIf(.Range("A8:A" & Last), CStr(.Cells(R, "a"))) > 1 Then LR = Sheet7.Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(R, "A").Resize(1, 7).Copy Sheet7.Cells(LR, "A") End If Next End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

اخى الكريم ابو عبدالرحمن بيرم ارجو ان يفى الملف التالى بالمطلوب abo_abary_إستخراج الاسماء المكررة اعتمادا على رقم الهوية وترحيل المكرر بشيت منفصل.rar

[ سلسلة حلول مشاكل أعمال الكنترول ] [ 1 - الشهادات ] بسم الله الرحمن الرحيم نظراً لكثرة الطلبات الخاصة ( بأعمال الكنترول ) وكنت حاولت قبل ذلك أن أقوم بكتابة موضوع ليشمل حلول أعمال الكنترول كلها _ ولكن وللأسف _ اتجه الموضوع لغير المراد ولذلك قررت أن اعمل سلسلة لحلول مشاكل أعمال الكنترول.. وستكون الطريقة _ بإذن الله _ شرح كل موضوع مستقل يكثر فيه الطلبات وسيكون الشرح للموضوع لشخص يجهل الإكسيل نهائيا حتى يصل إلى درجة الاحتراف في هذا الموضوع _ بإذن الله تعالى _ وبإذن الله سأستخدم كل الطرق للوصول إلى المعلومة فربما استخدم فيديوهات للأساتذة أو أقوم بعمل الفيديو بنفسي أو أقوم بشرحها وكأنه الشرح لشخص لأول مرة يعمل في الإكسيل والكنترول والله المستعان وها أول موضوع كثر الحديث عنه وهو [الشهادات من البداية إلى النهاية] وسيكون السير في هذا الموضوع في هذه النقاط 1 ) تصميم شهادة واحدة 2 ) جلب البيانات إليها 3 ) تصميم اكثر من شهادة وكيفية جلب البيانات إليها جميعا 4 ) الكود الخاص بطباعة شهادة واحدة فقط أو أكثر من شهادة 5 ) كيفية ربط هذا الكود مع صفحة الشهادات 6 ) كيفية تفادي أخطاء الطباعة وعمل الفنش النهائي لها فتابعونا مع شرح هذه النقاط الستة بالتفصيل في المشاركة القادمة والسلام عليكم ورحمة الله وبركاته

تفضل كود يعرض خصائص الطابعة الافتراضية Shell "rundll32 printui.dll,PrintUIEntry /p /n""" & Printer.DeviceName

السلام عليكم ورحمة الله تم التعديل على الجزئية التالية بالكود: With Sheet2 X = .Range("A" & .Rows.Count).End(xlUp).Row For R = 10 To X If .Range("G" & R).Value = "مستجد" Then M = M + 1 Cells(M + N, 2) = M For C = 1 To 14 CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22) Cells(M + N, C + 2) = .Cells(R, CC) Next C If M Mod 30 = 0 Then N = N + 8 End If Next R End With حسب ما يلي : With Sheet2 X = .Range("B" & .Rows.Count).End(xlUp).Row For R = 8 To X If .Range("G" & R).Value = "مستجد" Then M = M + 1 Cells(M + N, 2) = M For C = 1 To 11 CC = Choose(C, 2, 3, 8, 9, 10, 11, 12, 13, 14, 16, 22) Cells(M + N, C + 2) = .Cells(R, CC) Next C If M Mod 30 = 0 Then N = N + 8 End If Next R End With (التعديل كان في الأسطر 2 - 3 - 7 من هذه الجزئية) بن علية 41 مستحدين.rar

فهم السؤال ثلثي الإجابة الاجابة الاولى كانت على حسب ما طلبت تفضل أخي الكريم ،،، هذا ما طلبت جرب ووافني بالنتيجة :: تحياتي Alwazeer-mand.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة حمايه نطاق معين مع اخفاء المعادلة في شريط المعادلات تم ارفاق كود الحل من الفاضل/ احمد فضيله و مشاركات الاعضاء و لا تنسونا من صالح الدعاء تحياتى كود لحماية أكثر من نطاق بدون حماية الورقة مع اخفاء المعادلات HaNcOcK (1).rar

يوجد اداة اسمها: (VTools2007) يتم تنصيبها ضمن الاكسس وتعمل من داخله هذه الاداة تقوم بعمل امور كثيرة ومن ضمنها تغيير اسم الجدول وكل ما يتعلق به داخل قاعدة البيانات طريقة تنصيبها: * افتح الاكسس كمسؤول. *اختر من ملف فتح Vtools2007 وقم بتنصيبها ... طبعا الاداة باللغة الانجليزية. * بعد التنصيب افتح قاعدة البيانات التي تريد تغيير مسمياتها واكوادها ... اختر من شريط: أدوات قاعدة البيانات - وظائف إضافية - ثم اختر: v- total deep search سوف يفتح لك الصورة السابقة في search for ضع اسم الجدول او اي كلمة تريد تغييرها ثم ضع في المربع Replace with الكلمة التي تريد استبدالها بالقديمة ثم ضع اشارة الصح بجانب Replace with ثم اضغط search سوف تقوم الاداة بتحذيرك بانه سوف يتم استبدال ووو اضغط Ok سوف تلاحظ انه تم استبدال اسم الجدول وكل ما يتعلق به من اكواد ووو :: تحياتي VTools2007.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ترحيل واستدعاء بيانات فاتورة تم ارفاق كود الحل من الفاضل/ طارق محمود و لا تنسونا من صالح الدعاء تحياتى فاتورة جديدة7 (1).rar

مرحبا جرب هذا الكود Sub aaaa() Dim c As Range For Each c In Range("A2:A100") If c.Value < 0 Then c = 0 Next End Sub

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

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

تفضل sum_time6.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة سؤال هام فى الحماية تم ارفاق كود الحل من الفاضل/ الحسامي _ رحمه الله و لا تنسونا من صالح الدعاء تحياتى حماية خلايا باسلوب جديد _الحسامى).rar

السلام عليكم وجدت هذا الكود : Shell "RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus ولكنه يفتح مجلد الطابعات ،، شيء جيد ولكني أريد الكود يدخلني على الطابعة نفسها ، وهي اسمها : BIXOLON SRP-350III يعني بدل ما يفتح لي مجلد الطابعات وانا انقر مزدوج فوق الطابعة BIXOLON SRP-350III لفتح خياراتها ، أريده تلقائيا يدخلني على الطابعة لو سمحتوا ومن جهتي سوف أبحث إن شاء الله وإذا وجدت نتيجة سوف انشرها للفائدة

DoCmd.GoToRecord , , acFirst هذا الكود للذهاب إلى السجل الأول من أجل بداية الترقيم من السجل رقم 1 Dim i As Integer للتعريف بالمتغير i كعدد صحيح d = DCount("*", "جدول1") لحساب عدد سجلات الجدول For i = 1 To d تفيدنا في تكرار العملية If IsNull(x) Then y = i Else y = y + 1 End If هذا الجزء من أجل إعطاء قيمة y=1 في البداية ثم في كل مرة نضيف 1 Me![num] = Format(y, "0000") كتابة قيمة y على شكل 4 أرقام في مربع النص [num] DoCmd.GoToRecord , , acNext الذهاب إلى السجل التالي إن شاء الله تكون إستفدت من هذا الشرح البسيط بالتوفيق

اخي الكريم: لا تنقل احساس أن الذين يقدمون المساعدة للآخرين في هذا الصرح على أنهم يعملون لديك!!! فالكلمة الطيبة والأسلوب الحسن كفيل أن يسهل الصعب ويسخر الجميع في خدمتك - زر الاعجاب بهذا - ما هو إلا اختصار لكلمة شكراً أو جزاك الله خيراً لما يقدمه الإنسان المسلم لأخيه المسلم :: تحياتي

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

هل بهذه الطريقة test2.rar

أقدم لكم و انا فى أول خطواتى فى هذا الموقع العملاق برنامج لشؤن الموظفين أسأل الله العلى القدير أن تستفيدوا منه و أن يجزى مصممة كل الخير لأنى لا أتذكر من اين حصلت عليه و لكنى وجدته مفيد و يمكنكم الإستفادة منه. ____________________11.zip

بسم الله الرحمن الرحيم الأخوة في المنتدى اليكم برنامج أكسس سوفت للمدارس والبرنامج باختصار عبارة عن تسجيل بطريقة القيود لدرجات الطلاب ثم استخراج شهادة الطالب حسب القيود المدخلة أيضا متابعة سلوك الطلاب والرسوم المدرسية البرنامج صغير لكن قد يفيد المدرس في عمله طبعا أنا صممت البرنامج حسب المدارس التعليمية في اليمن جرب أخي الكريم والبرنامج مفتوح المصدر وفية بيانات مدخلة للتجربة تحياتي للجميع الرقم السري للبرنامج هو 1975 school.rar

السلام عليكم قوائم مخصصة على الفورم باستخدام CommandBars المرفق 2003-2007 قوائم مخصصة على الفورم باستخدام كومندبار.rar هذا الموضوع الاحدث http://www.officena.net/ib/index.php?showtopic=47195

السلام عليكم ورحمة الله وبركاته هي لعبة معروفه لديكم ولكن هذا العمل لم ينجز من اجل عيون اللعبة وانما لنتعلم وهو نفس عمل آلية الحروف المعمولة في ملف شرح دوال الاكسل ستجدون الكثير من الاسئلة التي تحتاج الى اجابة في هذا العمل ضعوها هنا لنرد عليها ساعطيكم انا اول سؤال فان لم اجد اجاية ساجيب لاحقا لدينا 24 ليبل لاظهار ما تروه امامكم من صور ولا يوجد اي امر يستخدم من احداث هذه الليبلات لا عبر الفورم ولا عبر موديل كلاسس ولكن عند الضغط على الليبل يتحقق حدث معين كيف ذلك ؟ ودمتم في حفظ الله ================================== تعديل بسيط افي المرفق ملف اكسل 2003و2007 لعبة التركيز1.rar لعبة التركيز.xls

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