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

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

السلام عليكم و رحمة الله و بركاته اخوانى و أحبابى فى أوفيسنا اليوم باذن الله تعالى أعرض عليكم تعليمة برمجية صغيرة من سطر واحد تمكنك هذه التعليمة من الضغط على أى شكل تلقائى بمعلومية اسمه . مثال : اذا كان لديك شكلا تلقائيا اسمه Picture 1 كيف تضغط عليه برمجيا لا يدويا يمكن تنفيذ ذلك من خلال هذه التعليمة : Sub clickonashape() Application.Run ActiveSheet.Shapes("Picture 1").OnAction End Sub ممارسة الضغط على الشكل Picture 1 لن تشعر به الا اذا ربطت هذا الشكل بكود معين يؤكد لك أنه تم ضغطه لنربط الشكل بالكود التالى مثلا : Sub xxx() MsgBox "Hi Officna" End Sub جرب تشغيل الكود الأول ستجد أن الكود الثانى اشتغل و ظهرت الرسالة ( Hi Officna ) تطبيق على الكود السابق : اضافة شكل تلقائى لتشغيل كود مباشرة دون ربطه يدويا فى الكود التالى تم استثمار التعليمة السابقة و لكن بشكل مختلف : يتم اضافة شكل تلقائي فى مكان محدد بالشيت و له بعض الخصائص : من ضمن هذه الخصائص : أن يكون الشكل مربوطا بكود موجود مسبقا Sub addshpjoinedwithcode() Dim shp As Shape ' اضافة الشكل فى المكان المحدد Set shp = ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, Left:=ThisWorkbook.Application.Range("E5").Left + 10, Top:=ThisWorkbook.Application.Range("E5").Top + 2, Width:=100, Height:=100) ' اضافة بعض الخصائص للشكل المضاف With shp .Name = "SmileyFace" .Fill.ForeColor.RGB = RGB(255, 192, 0) ' لون الشكل .Line.ForeColor.RGB = RGB(0, 176, 240) ' لون الخط .Adjustments.Item(1) = -2 ' الشكل يبدو عابسا .OnAction = "xxx" ' السطر الرئيسى : فى حالة ضغط الشكل يعمل الكود المحدد End With End Sub يعنى باختصار يلا يظهر الشكل تقدر تدوس عليه ليعمل الكود التالى : xxx Sub xxx() Application.ScreenUpdating = False With ActiveSheet.Shapes("SmileyFace") .Fill.ForeColor.RGB = RGB(146, 208, 80) ' لون الشكل الجديد .Line.ForeColor.RGB = RGB(192, 0, 0) ' لون الخط الجديد .Adjustments.Item(1) = 1 ' الشكل يبدو ضاحكا End With Application.ScreenUpdating = True MsgBox "Hi Officna" End Sub المرفقات : programmatically add shape , join it with specific code.rar programmatically click on a shape.rar أتمنى أن يكون الموضوع خفيفا و مفيدا لكم فى أكوادكم و برامجكم و السلام عليكم ورحمة الله وبركاته

الموضوع شكله ضاحكا واللي يعدي وميحطش اعجاب يبقي عابسا احلى لايك

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

تفضل أخى الفاضل =(HOUR(A1)*3600+MINUTE(A1)*60+SECOND(A1))/60 بفرض أن الوقت موضوع فى الخلية A1 برجاء أخى الانتباه بالنسبة لتكرار الموضوع حيث أن هذا الموضوع مكرر مرتين

عذرا أخى فقد نسيت هذه النقطة تفضل تجزئه3.rar

السلام عليكم ورحمة الله وبركاته بعد اذن أخى الحبيب ياسر خليل تفضل أخى جرب الكود التالى Sub ragab() Dim cl As Range, sh As Worksheet Dim ws As Worksheet '======================================= Set sh = Sheets("الرئيسيه") Set ws = Sheets("النموذج") '======================================= Application.ScreenUpdating = False ThisWorkbook.Unprotect "123" ws.Unprotect "123" '======================================= For Each cl In sh.Range("D4:R7") If Not IsEmpty(cl) Then x = Trim(cl) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) ws.Range("A1:k36").Copy With Sheets(x) .Select .Paste .Protect "123" End With End If End If Next '======================================= Application.CutCopyMode = False ThisWorkbook.Protect "123" ws.Protect "123" Sheets("الرئيسيه").Select Application.ScreenUpdating = False End Sub تجزئه2.rar

تمت اضافة السطر المحدد فى الصورة السابقة

ههههههههههه بس أحلى بطيخة حمرا ومرملة ودمها خفيف

عوداً حميداً أيها الزعيم والمعلم الكبير رجب والله لكم أسعد بوجودك فيما بيننا .. جهز البطة عشان نازل قريب على آخر الأسبوع

تفضل أخى الفاضل جرب هذه الفكرة اكرم.rar

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

وبعد اذن اخى الكريم واستاذى / سليم حاصبيا واثراء للموضوع اليكم رابط وهو للأستاذ الكبير / حسام

اذهب الى العنوان حيث لي مشاركة بهذا الموضوع http://www.officena.net/ib/topic/66471-%D9%82%D8%A7%D8%A6%D9%85%D8%A9-%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9-%D9%85%D8%B7%D8%A7%D8%B7%D9%8A%D8%A9-%D9%85%D9%86-%D8%B5%D9%81%D8%AD%D8%A9-%D8%A7%D8%AE%D8%B1%D9%89/#comment-433091

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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الأغر ... هل ....؟ سؤال موجه لكم وليس لي هل .....؟ والإجابة على السؤال بهل إما بـ "نعم" أو بـ "لا" هل قمت يوماً ما بتحميل مصحف كامل لأحد القراء المحببين إليك؟ إذا كانت الإجابة بنعم انتقل للسؤال الثاني وإذا كانت الإجابة بـ "لا" .. مش عيب عليك تحمل أفلام ومسلسلات وألعاب وناسي كتاب الله السؤال الثاني : هل بعد عملية التحميل وجدت أن المجلد الذي يحتوي على السور مرقمة من 001 و 002 إلى 114 بدون أسماء السور؟ إذا كانت الإجابة بـ "نعم" فإليك الحل السحري مع الإكسل .. الحل هو دمج أسماء السور مع الاحتفاظ بالرقم أيضاً من أجل ترتيب السور ، لتصبح في النهاية بهذا الشكل 001 - الفاتحة ، 002 - البقرة وهكذا!! خطوات العمل : ************** قم بنسخ المصنف الذي سأقوم بإرفاقه في نفس مسار المجلد الذي يحتوي على السور القرآنية .. افتح المصنف .. اضغط زر الأمر .. وشكراً لكم على حسن تعاونكم معنا أترككم مع الملف :fff: Rename Quran Files.rar

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

السلام عليكم ممكن عمل توسيط للاسماء التي في القائمة المنسدلة تعديل.rar

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

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

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

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

أخي الغالي رجب دا عشمي فيك والله .. إن شاء الله ناوي أزورك مش عشان البط ..يكفيني كوباية عثير وثاندوتث كبده .. أنا قنوع ومش عايز أتقل عليك

أخى الحبيب / ياسر ليست بطة واحدة ولا اثنتان بل ثلاث بطات وأكثر أنت تؤمر وتنور بلشاى كلها

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

أخي الكريم طارق صراحة الموضوع معقد بعض الشيء لكن بفضل الله وحده تمكنت من الوصول لسبب المشكلة وهو الإجراء الفرعي في حدث الفورم اخذف الإجراء الموجود واستبدل التالي مكانه Sub ListArr(Cmd As String) Dim sTe As String: sTe = Me(Cmd).Text Dim II As Long, E As Long E = 0 For II = LBound(Arr1) To UBound(Arr1) If CStr(Arr1(II)) <> sTe And Not IsEmpty(Arr1(II)) Then E = E + 1: ReDim Preserve Arr2(E - 1) Arr2(E - 1) = Arr1(II) End If Next II ReDim Arr1(E): Arr1 = Arr2 End Sub تقبل تحياتي

حياك الله أخوي رضا الله شاكر لك سؤالك عني ، هذا من طيبك واحسانك جعفر

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

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

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

اليك الملف مع المعادلة المطلوبة تقييم الموظفين salim.rar

أخى الكريم / حيثر يعقوب وبعد اذن استاذى الكريم / عبد العزيز وبارك الله فيكم على ملفكم القيم و على حسب علمى فيما يختص بالسؤال ، لا توجد طريقة للدخول مباشرة لأى موقع أو منتدى يطلب كلمه سر واسم مستخدم حتى فى الحالات الأخرى مثل تحديث الأسعار وخاصة فى عالم البورصة فيوجد ما يسمى بالعامل المساعد وهو أغلب الظن تكون برامج صغيرة تربط بين الموقع وملف الأكسل

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

بورك لك فى الموهوب وشكرت الواهب وبلغ أشده ورزقت بره

عن ابن عباس قال : كنت خلف رسول الله صلى الله عليه وسلم يوما قال يا غلام ، إني أعلمك كلمات : احفظ الله يحفظك ، احفظ الله تجده تجاهك ، إذا سألت فاسأل الله ، وإذا استعنت فاستعن بالله ، واعلم أن الأمة لو اجتمعت على أن ينفعوك بشيء ، لم ينفعوك إلا بشيء قد كتبه الله لك ، وإن اجتمعوا على أن يضروك بشيء لم يضروك إلا بشيء قد كتبه الله عليك ، ( رفعت الأقلام وجفت الصحف ) قال رسول الله صلى الله عليه و سلم : لولا أن أشق على أمتي لأمرتهم بالسواك عند كل صلاة

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

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

اتفضل اخى ان شاء الله يكون ما تريد بالتوفيق مرتب.rar

الطريقة كما يلي اعمل زر امر وفي حدث عند الضغط اكتب الكود كما يلي DoCmd.SetWarnings Off DoCmd.OpenQuery "اسم الاستعلام رقم 1" DoCmd.OpenQuery "اسم الاستعلام رقم 2" DoCmd.OpenQuery "اسم الاستعلام رقم3" DoCmd.OpenQuery "اسم الاستعلام رقم4" DoCmd.SetWarnings True

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

الف مبروك .. تستاهلون اكثر شكرا لمشرفينا الأعزاء وشكرا لإدارة الموقع

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

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

وعليكم السلام ورحمة الله أهلا بك أخي.. أي رسالة أخي التي تظهر لك؟ وهل السجلات أنت الذي الموجودة تمت كتابتها بشكل عشوائي أم هذا نتيجة ما أشرت إليه عند تمريرك للنموذج؟؟ أرجو مزيد من التوضيح ليظهر سبب ما تقابله

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

يستاهلوا الشباب

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

جرب هذا الملف عندك خيارين:(بخط كبير) قائمة منسدلة مطاطة(لا تذكر المكرر الا مرة واحدة ولا تحتسب الفراغات) مربع بحث حسب الحروف( او الحرف الاول) google combo.rar

حياك الله اخي الكريم قارئ الباركود لا يحتاج اي ربط .. فقط قم بتوصيل القارئ بفتحة Usb .. (فيه منها بدون كيبل,wireless) .. وعلى طول يشتغل . ضع مؤشر الماوس في الحقل الذي تريد القراءة ان تظهر فيه ,وابدا القراءة. بالتوفيق.

مشاركة مع اخواني اتوقع ان طريقة ارسال التقرير بالايميل افضل مع التالي: 1. يتيح لك الاكسس ان تعمل تقرير يومي به البيانات المحددة ! فمثلا بيانات مايخص صاحب البرنامج لاتكون في التقرير المرسل 2. يتيح لك الاكسس تحويل التقرير الى pdf وارسال بريد الكتروني مرفقا به الملف كلها ممكن في خطوة واحدة وبنقرة زر خصوصا وجود الوت لوك عندك يمكنك البحث في المنتدى فبه امثلة كثيرة حول ارسال التقرير بالايميل ! او ارفاق ملف للتطبيق عليه ! بالتوفيق