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

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

وعليكم السلام ورحمة الله وبركاته الوظيفة التالية تعيد قيمة (UUID) للمنتج Function UUID() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems UUID = objItem.UUID Next End Function إذا كنت بحاجة إلى معرف كامل البيانات التي يعيها المجال (Win32_ComputerSystemProduct) استخدم الإجراء التالي Sub ComputerSystemProduct() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems Debug.Print "Caption: " & objItem.Caption Debug.Print "Description: " & objItem.Description Debug.Print "IdentifyingNumber: " & objItem.IdentifyingNumber Debug.Print "Name: " & objItem.Name Debug.Print "SKUNumber: " & objItem.SKUNumber Debug.Print "UUID: " & objItem.UUID Debug.Print "Vendor: " & objItem.Vendor Debug.Print "Version: " & objItem.Version Next End Sub SCRIPTING.zip

أخواني الأعزاء في هذا المنتدى : أضع بين أيديكم العديد من البرامج الجاهزة مع الشرح الكامل ، جمعتها من موقع أجنبي و فيها العديد من المستويات المبتدئ المتوسط المتقدم حيث قمت بتجميعها من العديد من المواقع و المنتديات الأجنبية ليتم حصرها في منتدانا الحبيب هذا أرجو منكم الرد لوضع المزيد من البرامج ، حيث ومن خلال ردودكم سأقوم بوضع إحتياجاتكم من البرامج في حال توفرها لدي ، حيث يوجد لدي مكتبة كبيرة من البرامج تحتوي ما يقارب 3000 برنامج و هناك المزيد . مع الشكر للجميع و أريد منكم فقط دعوة من قلب صادق لي و لوالدي ،،، accarch181.zip accarch180.zip

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

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

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

السلام عليكم بدابة مرحبا بك بمنتداك بين أخوتك هذه المشكلة عادة ما تحدث عند اختلاف اعدادات اللغة بين الجهاز الذى تم تصميم قاعدة البيانات عليه بداية والجهاز الذى تم نقل البرنامج ليعمل عليه لاحقا - والمنتدى مليئ بالموضوعات التى تتكلم عن اعدادات اللغة وطرق التغلب عليها يمكنك استخدام خانة البحث المخصص بالمنتدى لتبحث عن (اختلاف اعدادات اللغة) لتجد ما تسر به نفسك وقد تحدث هذه المشكلة أيضا مع النسخة التنفيذية (ان صح التعبير) التى تحمل امتداد accde عند اخذها من على جهاز به اصدار ويندوز واكسس مختلفين عن الجهاز التى ستعمل عليه - وهذه حلها بصنع نسخة accde من الجهاز العميل مباشرة آمل أنى أكون قد أفتدك ولو بمفتاح الحل ولا تقلق بشأن طرح ما يدور بخلدك من استفسارات فهنا بهذا الصرح اخوة يشد بعضهم بأزر بعض يتعاونون على الخير نحسبهم كذلك ولا نزكيهم على الله ومرحبا بك مرة أخرى

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

عسى ان يكون هذا المطلوب net salim.rar

السلام عليكم الاخ الكريم / خالد الشاعر بارك الله فيك تقبل خالص تحياتي

استاذ حماده جزاك الله كل خيراً

السلام عليكم جربي اختي هذا التعديل Mypath = Application.GetOpenFilename( _ FileFilter:="Excel Files (*.xls;*.xlsx;*.xlsm;*.xlsb),*.xls;*.xlsx;*.xlsm;*.xlsb", Title:="إختر ملف")

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

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

اخي تفضل هذا الملف الرواتب والسلف.rar

اخي الكريم هذه المشكلة من اعدادات الشبكة عندك اجعل خصائص المجلد المشارك تحكم كامل

شكرا جزيلا لك اخي الغالي وجزاك الله خير

الإخوة الكرام بوركتم وجزيتم عنى خيرا فيما يختص بالصور التى لا تظهر لأنها كانت مرفوعة على موقع آخر وهذا الموقع تم إغلاقه والصور موجوده بكل ملف مرفق وتقبلوا منى وافر الاحترام والتقدير

في البداية نقسم ال خلية A1 على 5^10 التي تساوي 100.000(اي الرقم 10 مرفوع بالاس 5) هنا يأتي دور دالة (MOD(A2/10^5,1 التي تأخذ ما بعد الفاصلة من ناتج القسمة نضرب هذا الناتج بــ 100.000 التي هي 5^10

السلام عليكم الاخ الكريم / ناصر المصري جزاك الله خيرا شاهد اخي الكريم الملف المرفق تتم الطباعة في الصفحات المخفاة حتي آخر صف به بيانات بطريقة ما هل هذا ما تريد لنكمل ام انني اسير في طريق آخر تقبل خالص تحياتي طباعة صفحات مخفاة حتي آخر صف به بيانات.rar

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

السلام عليكم و رحمة الله بعد اذن الاخ بن علية هذه المعادلة ايضاً =MOD(A2/10^5,1)*10^5 الملف مرفق اقتطاع ارقام Salim.rar

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

السلام عليكم ورحمة الله هذا حل من الحلول في الملف المرفق... بن علية اقتطاع ارقام.rar

السلام عليكم تفضل هذا التعديل أخي أبو الآء 037.rar

استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله‌ تحياتي لك انت اخونا الكبير وشكرا لك على المداخله‌ لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني

اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم.

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

اسف انا لا اعرف الكثير على الماكروات لكن اتفضل جرب ان تستخدم هذا الكود بدل تلك الاستعلامات ووافيني بالنتيجة Private Sub Form_Open(Cancel As Integer) Dim Sql As String Dim Sql1 As String Sql = "DELETE OrderTbl.Order, Now()-[OrderTbl]![date_workEnd] AS lastdate, OrderTbl.ekhteyr FROM OrderTbl WHERE (((Now()-[OrderTbl]![date_workEnd])>=30) AND ((OrderTbl.ekhteyr)=True));" Sql1 = "DELETE PtDataTBL.PtID FROM PtDataTBL WHERE (((PtDataTBL.PtID) Not In (SELECT OrderTbl.PtNo FROM OrderTbl;)));" DoCmd.RunSQL (Sql) DoCmd.RunSQL (Sql1) Me.Requery End Sub تحياتي

لا عليك أخي فهذا واجبنا نحن كلنا نتعاون من أجل التعلم فلربما غدا تجدني أنا أطلب المساعدة و أنت من يقوم بمساعدتي. بالنسبة لطلبك فهو موجود بالمرفق أدناه تفضل أخي محمد : استخراج اسماء الملفات الفرعية لمجلد.rar

جزيت خيرا استاذنا .. فقد كفيتنا المؤونة وأجدت

استأذن من استاذنا ابو خليل على المداخلة اتفضل ما طلبت للعلم انا غيرت اسماء الحقول من number الى number1 ومن code الى code1 لان تلك الاسماء محجوزة لكي يتجنب من الاخطاء واتفضل استخدمت هذا الكود Private Sub f_date_AfterUpdate() On Error Resume Next If Me.number1 <> 0 Then Me.Undo Exit Sub End If If DCount("number1", "tp1") < 1 Or IsNull(DMax("number1", "tp1", "[f_date]=#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#")) = True Then Me.number1 = 1 Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1 Else Me.number1 = DMax("number1", "tp1", "[f_date] =#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#") + 1 Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1 End If End Sub واليك ملفك بعد تعديل واذا ما فهمت من الكود راح نشرح لك باذن الله تقبل تحياتي db9790.rar

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

السلام عليكم افتح الجدول في طريقة عرض التصميم و اضغط على الحقل IRON PELLETS اذهب لخصائص الحقل في الأسفل و قم بتغيير قيمة حجم الحقل إلى مزدوج كما توضح الصورة التالية:

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

لأني كسلان اذا اردت استعمالها ، فيجب ان يتغير الكود الى: Option Compare Database Option explicit Function Seperate_Digits(T as string) as string dim i as integer dim C as string dim Which_Letter as string 'T = Text From Query If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) 'the ascii number of each number C = Asc(Mid(T, i, 1)) 'ascii numbers we want '46= . '47= / '48= 0 '49= 1 '50= 2 '51= 3 '52= 4 '53= 5 '54= 6 '55= 7 '56= 8 '57= 9 Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function جعفر جعفر

لا يمكن ازالته لانه ليس خطا بل الفاصل بين الحرف والحرف الذي يليه بل غيره الى نمط آخر والسلام عليكم

السلام عليكم اخي الحبيب ضاحي الغريب ...حفظكم الله اعمالكم رائعة جدا جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

اخي الكريم انا كنت بدأت العمل علي الفورم الذي طلبته بالمشاركة الاولي تفضل بالمرفقات المصنف1.rar

هنا بعض المواضيع المتعلقة باستخدامات ال VBA في ال EXCEL * كيفية استخدام الخلايا وبرمجتها بواسطة اكواد ال VBA حيث تم شرح كافة الجوانب المتعلقة بهذا الجانب مع وضع بعض الامثلة العملية وتم عمل هذا الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان كل ذلك تجدونه على الرابط التالي : شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال VBA

مثال عملي اخفاءواظهارالأدوات.rar

الاخ الفاضل خالد القدس جزاك الله خيرا وشكرا جدا على مرورك الاخت الفاضلة بحر حساس بالمرفق ستجدى شرح للبرنامج لنسخة سابقة EMP.rar

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