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

بسم الله الرحمن الرحيم نبدا اليوم باذن الله سلسلة كن محترف vba او تعليم vba للمبتدئين اولا احب ان اتوجة بالشكر لكل استاذتنا بالمنتدى واستاذن منهم فى طرح هذة السلسلة البسيطة ربما تنفع اى شخص وانا هنا ما زلت تلميذ فى مدرسة العلم منتدى اوفيسنا فارجو من حضراتكم ان تقبلوا طالب علم يعلم بعض من العلم الذى تعلمة على ايديكم والان نبدا فى شرح الجزء الاول من هذة السلسلة وسنشر باقى الاجزاء تباعا فور الانتهاء منها الجزء الاول https://youtu.be/qz-nKd39lXY

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

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

لمزيد من التوضيح هذا الملف y salim.rar

حياك الله اخي الكريم هنا شئ استخدمه وان شاء الله يفيدك شاهد المرفق به نموذج alarm يفتح من يسار الشاشة بإمكانك تصغيرة او تكبيره فيما بعد. يوجد حدثين في النموذج .. حدث عند الفتح به كود فتح النموذج من زاوية الشاشة .. الكود الآخر وهو مهم ... وهو في حال كان المستخدم يتصفح الانترنت او منشغل ببرنامج اخر هنا النموذج يفتح في مقدمة البرامج المفتوحة .. الكود في حدث عند التحميل ... وهو معتمد على الوحدة النمطية MostTop.. بالتوفيق left_top window.rar

تفضل جرب المرفق Book3.rar

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

بدي اعمل نظام متابعة لأرصدة العملاء .. قمت بتأسيس قاعدة بيانات علي اكسس وربطت العلاقات ببعض .. الأن الفكرة كالتالي . الأن عندي جدول مندوبين يضم عدد من المندوبين . كل مندوب اله رقم واسم وكلمة مرور . المندوب يضم عدد من العملاء . كل عميل له اكثر من حركة علي الدين . ( مدين - دائن ) عملت ثلاثة جداول وجدول لتسجيل الدخول عن طريق اسم المندوب وكلمة المرور . الأن المندوب يقوم بتسجيل الدخول عن طريق كلمة المرور واسمه الشخصي . تظهر له شاشة رئيسية فيها اضافة مندوب جديد . تسجيل حركة جديدة علي الدين ( الزيادة مدين - النقص دائن ) مرفق الملف . الرجاء المساعدة في استخراج التقارير بحيث يكون التقرير الأول كشف حساب للعميل بكل الحركات التي قام بها . وكشف ارصدة للمندوب يضم كل ارصدة العملاء بالصافي بعد طرق المدين من الدائن . وايضا المساعدة في الاستعلامات والأوامر . ولا استطيع رفع الملف الرجاء مساعدتي

المخازن برنامج يتكون البرنامج من اربع اجزاء الجزء الاول تعريف وحدات الاصناف تعريف المجموعة او المخازن تعريف الاصناف لكلمخزن او مجموعة تسطيع اضافة 100 مجموعة او مخزن واضافة 6000 صنف الجزء الثانى - ادخال الحركة على الاصناف من ( الرصيد الافتتاحى _ اضاف – صرف – مرتجع ) ممكن تعديل الحركة الجزء الثالث - تسطيع عمل تقاير من البرنامج 1 – تقرير يومى عن الحركات الى تمت خلال اليوم . 2 – تقرير حركة خلال فترة . 3 – تقرير كارت صنف . 4 – تقرير مجموعة او مخزن خلال فترة . 5 – تقرير عن الاصناف الراكدة التى لم يتم اجراء حركة عليها خلال فترة من الايام . 6- بحث سريع عن الصنف . تسطيع حفظ جميع التقرير بصيغة PDF الجزء الرابع - معرفة حالة المخزن فى حالة وجود صنف واحد تحت حد الطلب يتم تغير لون حالة المخزن الى الاحمر تسطيع طباعة كل الاصناف او الاصناف تحت حد الطلب بفضل الله ثم بفضل جميع اعضاء المنتدى البرنامج من تصميمى لا يوجد باسورد البرنامج مفتوح المصدر فى وجود مشاكل فى البرنامج او اقتراحات لتعديل اوتطوير البرنامج يتم طرحه من خلال المنتدى مخازن.xlsm

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة ونعود اليكم من جديد فى شر ح سلسلة كن محترف vba اول تعلم vba للمبتدئين ونشرح لكم اليوم الجزء الثانى من هذة السلسلة والان مع الدرس https://www.youtube.com/watch?v=O5aO9GCfLzU

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

السلام عليكم ورحمة الله جرب المرفق... بن علية Book1_10.rar

السّلام عليكم و رحمة الله و بركاته أخي الفاضل " محمّد الخازمي " .. و الله لم أجرّب إطلاقًا مع هذا الكود لأنّه يعطّل لي هذه العمليات على كافة الملفات فأتجّنبه دومًا .. لكن سنحاول معًا أنا و أنت و أي أخ آخر بإمكانه تقديم المساعدة .. إيجاد الحل بإذن الله إحتراماتي

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

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

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

ارجوا ضغط البرنامج وارساله على الاميل اهم شئ ضغط البرنامج

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

اكتب فى مريع النص لاسم الصنف resource date كود الصنف

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

حسب الملف المرفق في المشاركة الأولى إليكم الكود التالي .. والأفضل أن تدرسوا الكود بعناية لتتمكنوا من التعديل عليه بما يتلائم مع ملفاتكم Sub TestRun() Application.ScreenUpdating = False DeleteRow "بيانات الطلبة", 8 DeleteRow "إنجاز1", 8 DeleteRow "تحريرى ف 1", 8 DeleteRow "رصد الترم الأول", 8 DeleteRow "أعمال السنة", 8 DeleteRow "تحريرى ف 2", 8 DeleteRow "رصد الترم الثانى", 8 DeleteRow "كنترول شيت", 12 Application.ScreenUpdating = True End Sub Sub DeleteRow(sSheet As String, sRow As Long) Dim Ws As Worksheet Dim cnt As Long On Error Resume Next Set Ws = Sheets(sSheet) On Error GoTo 0 If Ws Is Nothing Then MsgBox "Sheet " & sSheet & " Doesn't Exist.", vbExclamation, "Sheet Not Found!" Exit Sub End If Application.ScreenUpdating = False On Error Resume Next Ws.Rows(sRow - 1).SpecialCells(xlCellTypeConstants, 3).ClearContents cnt = Sheets("بيانات المدرسة").Range("B10").Value Ws.Rows(sRow & ":" & (sRow + cnt - 2)).Delete Application.ScreenUpdating = True End Sub

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

السلام عليكم تابعت الحل اليدوي المرفق بالصورة أعلاه ولكني لم أفهم كيف تم حساب القيمة 0.008 يعنى لو ضربنا 0.02 في 0.04 سيكون الناتج 0.0008 وليس 0.008 وبناء عليه سيكون الناتج النهائي 0.159 وليس 0.152 كما هو مبين في الصورة فهل أنا محق في ذلك أم أني غلطان ؟

أعتقد أن كود النسخ الذي ينسخ لجميع أوراق العمل يقوم بعملية المسح التي تقصدها .. تعني أن المسح يكون في الصف السابق للصف الهدف ..أي أنك إذا كتبت الصف رقم 8 .. تريد مسح البيانات كلها من الصف رقم 7 لا تنسى أنني أتحدث عن الإجراء الفرعي المخصص الآن DeleteRow "Sheet1",8 الصف الهدف أي بداية الحذف للصفوف وليس المسح يكون من الصف رقم 8 ... فهل المطلوب أن يتم مسح الصف السابق ألا وهو في هذه الحالة الصف رقم 7 .. وهل لمسح لجميع البيانات أم للقيم الثابتة فقط والإبقاء على المعادلات ..؟؟؟؟

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

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

شكراً لك أخي الكريم سليم حاصبيا على هذه الإفادة .. وجعلها الله في ميزان حسناتك جزيت خيراً أخي الكريم ياسر خليل .. فقط إحتجت لمعرفة ذلك لأن طبيعة عملي (موظف إحصاء بشركة طيران سودانية) تحتم علي عدم الخطأ في إدخال أرقام التذاكر بحيث لا تكون ناقصة أو زائدة لكي لا تتسبب مشاكل .. لذلك محتاج كود بحيث أذا كان رقم التذكرة ناقص أو زائد ما يرحل معاي للشيت. .. هذا نموذج لملف الرحل لهذا الشهر للإطلاع والتطوير .. مع خالص تحياتي الباسويرد 72328 أبريل 2016.rar

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

جرب هذا الماكرو Sub Hide_Show() If Range("A1").Value = 4 Then Range("C1:E1").EntireColumn.Hidden = Not (Range("C1:E1").EntireColumn.Hidden) End If End Sub

بارك الله فيك أخي الكريم جمال وجزيت خيراً على كلماتك الطيبة أعتذر عن التأخر في الرد عليك .. أنا أعمل على أوفيس 2016 ولا يوجد مشكلة لدي .. هل جربت الملف المرفق في الموضوع الأصلي؟ هل به مشكلة؟ ..أنا جربت الكود على الملف الأصلي وعلى ملفك ويعمل بشكل جيد مع كل أوراق المصنف بلا استثناء كما هو طلبك ويعمل الكود مع أي عدد من أوراق العمل أي أن الكود مرن .. يرجى إرفاق الملف الذي حدثت به المشكلة للإطلاع عليه .. وذكر السطر الذي يظهر به الخطأ من خلال النقر على كلمة Debug .. وجرب أن تضع السطر التالي قبل السطر الذي يظهر به المشكلة On Error Resume Next تقبل تحياتي

جرب هذا الملف (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) احسب يدوياً بغض النتائج لنغرف اين الخطأ من المثال الثالي manuel_copmt.rar

بعد إذن أخي الكريم سليم وإثراءً للموضوع إليك الرابط التالي فيه حل لمشكلتك إن شاء الله الرابط من هنا تقبل تحياتي

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

و عليكم السلام و رحمة الله و بركاته ... بداية نعم يمكن و بعد بحث طويل توصلت الى نتيجة انتظرني ... ان شاء الله اعود لك بمثال اعمل عليه حاليا

السّلام عليكم و رحمة الله و بركاته أخي الكريم " عبد العزيز البسكري جزاكم الله خير وبارك الله فيكم وجعله الله في ميزان حسناتكم اللهم اجزي عنا اخينا " ياسر خليل أبو البراء " خير الجزاء

السّلام عليكم و رحمة الله و بركاته أخي الكريم " محمّد عبد السّلام " .. لم أفهم بالضبط ما تريده .. و لذلك عملت الاجراءيْن معًا بملفيْن مختلفيْن .. 1 - إلغاء الخروج من الاكس داخل الشيت الاكسل .. و هذا الكود للأمانة للأخ الغالي و الأستاذ الفاضل .. الهرَم الرّابع بِجيزة أوفيسنا " ياسر خليل أبو البراء " بارك الله فيه و له و جزاه خير الجزاء و زادها بموازين حسناته 2 - إلغاء الخروج من الاكس داخل اليوزرفورم فائق إحتراماتي إلغاء الإكس.rar

جميلة الفكرة وجديدة واعجبتني ويكتمل جمالها بتنفيذها تفضل هذا مثال جديد واستوردت الجدول الرئيسي مع انشاء نموذج جديد حبيت انفذ الفكرة بشكل بسيط وواضح خطوات او فكرة الحل : - انشاء مربعات نص بنفس مقاس مربعات السرد - انشاء تعبير بداخل كل مربع لجلب القيم المطلوبة من مربعات السرد - وضع خاصية التاق للمربعات المراد اظهارها واخفاؤها وباسم "aa" اذهب الى خصائص المربع ثم غير ذلك ثم خاصية العلامة - وضع كود يلف على اي عنصر تتوفر فيه الخاصية علامة= aa فيقوم باخفائها في حالة الاضافة او التعديل واظهارها في البحث سؤال : هل هذا شبيه بالذي رايته في احد البرامج كما ذكرت ؟ بالتوفيق New Microsoft Access Database (6).rar

السلام عليكم اخي نصب اوفس احدث حتى تحصل على دعم اكثر حاليا انا اعمل على اوفيس 2013 وشكرا

خذ راحك اسدحه اهم شي تختفي علامات المنسدحات .. الدالة عليها يمكن ايضا انك تضع مربع ضغير يخفي علامة مربع التحرير تحته ويختفي عند التعديل

جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(4)) Is Nothing And IsNumeric(Target) _ And Target.Row > 1 Then Application.EnableEvents = False: Application.ScreenUpdating = False With Columns("d").Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=and(isnumber($d1),len($d1)=10)" End With End If Application.EnableEvents = True: Application.ScreenUpdating = True End Sub تفضل الكود مرفق مع الملف الكود لا يسمح بادخال اية قيمة في العامود D الا اذا كانت رقماً مؤلفاً من 10 خانات CAI-KRT 3-2016 macro.rar

تم الارسال يعطيك الف عافية

انا مستعد للتعاون مع حضرتك فقط اضغطى الملف علىwinrar وارسليه على email hanythomas@hotmail.com وباذن الله ساعدله وارفقلك الملف

اخى الحبيب ابوالبراء الموضوع ممكن يكون بدون اكواد من شريط القوائم اختر Pagelayout ثم اختر Print titles هتظهر لك قائمه اختر اخر شئ وهو sheet ثم من الجزء الخاص بـ Print ضع علامه صح بجوار Black and white تقبل تحياتى

و عليكم السلام و رحمة الله و بركاته ... التعديلات كثيرة ... اطلع على المرفق بعد التعديل , و أي إستفسار انا حاضر تفضل ... SimpleStor2.rar كرار ...

For i = 3 To 33 Sheets("جمع تراكمى").Cells(i, 2) = Sheets("الحسابات").Cells(i, 2) + Sheets("جمع تراكمى").Cells(i, 2) Sheets("الحسابات").Cells(i, 2) = "" Next الرقم 2 في الكود يمثل العمود المراد الجمع له يمكنك تغييره تقبل تحياتي حسابات.rar

بسم الله الرحمن الرحيم ازيكم يا محترفي الاكسيس انا عندي سؤال ما هي طريقه عمل قائمه منسدله بها مجموعه من الاختيارات انا على ما اعتقد ان الطريقه سهله وبسيطه طيب مممكن اسئل سؤال تانى مرتبط بالسؤال الاول ازاى يتم عمل قائمه منسدله اخري مرتبطه بالقائمه الاولي ؟ مثال على المطلوب : القائمه الاولي بها اسماء الدول مصر السعوديه الكويت الاردن القائمه الثانيه بها اسماء المحافظات والمدن للدوله يعنى عند اختيار مصر من القائمه الاولي تظهر قائمه اخري بها اسماء محافظات ومدن مصر وعند اختيار السعوديه يتم ظهور قائمه اخري بها المدن الخاصه بالسعوديه وهكذا ارجو الاجابه على سؤالي بالتفصل وشكرا لكم مسبقا

الاخ الكريم ابحث عن هذا البرنامج Elcomsoft Password Recovery وقد جربت اكثر من برنامج لفك الباسورد من الاوفيس عامة ولكن هذا البرنامج الافضل وقد جربته فلو وجدته في كميوتري لرفعته على الموقع ليستفيد من الاخرين

الاخ م فــــــــــواز " لااعرف اذا كان الاسم صحيحا " هناك العديد من البرامج التي يمكنها ان تؤدي هذا الغرض يمكنك البحث في المنتدى ... وستجد عدة برامج ويمكن ان ترفع ملفك وسيقوم الاساتذة بمساعدتك ... مع التنويه ان فك الحماية للبرنامج ليس عليه رقابة سوى الامانة بأن يكون طالب فك الحماية هو صاحب الملف فعلا وهذ يعود للاخلاق والخوف من الله وفقك الله ابو الحارث