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

اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس

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

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

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

نعم ممكن ذلك mail with attachd.rar

لا مش غريب فقط بحياتي ما رأيته وما اقدرته ان اعرف

::: ههههه ما غريب إلا هذا الكود ؟!

السلام عليكم أخي الفاضل لست أدري كيق أشكرك , كل ما أستطيع فعله أني أدعو لك بظهر الغيب متمنيا من الله القبول جزاك الله كل خير

السلام عليكم تفضل عله المطلوب - كان من الممكن ان يكون الكود ابسطمن ذلك بكثير - ولكن تحسباً لكون عدد التكست بوكس يكون كبير او ما الى ذلك - اليك الكود التالى Dim r As Long Private Sub CommandButton1_Click() Dim i As Integer Me.TextBox5.Value = "" For i = 1 To 4 Me.TextBox5.Value = Val(Me.TextBox5.Value) + Val(Replace(Me.Controls("TextBox" & i).Value, ",", "")) Next r = r + Val(Me.TextBox5.Value) Me.TextBox6.Value = r For i = 1 To 4 Me.Controls("Textbox" & i).Value = "" Next End Sub ان لم يكن المطلوب - يرجي مزيد من التوضيح التفصيلى

السلام عليكم تفضل اخي الكريم عله المطلوب حسب ما فهمت Sub Test() m = 20 Range("A" & m & ":G" & m).Interior.ColorIndex = 6 End Sub

السلام عليكم العفو استاذي الحبيب / محمد حسن المحمد - نحن فقط نسير على دربكم - جزاك الله خيراً كل عام وحضرتك بخير

ههههههههههههههههه استاذ @Shivan Rekany عهدنا هذا الصرح الشامخ وتميزه بخير الاساتذة الكرام وجميل حلمهم وعظيم كرمهم ووافر علمهم نسأل الله تعالى لكم جميعا الخير والفلاح والصلاح والرشاد

شو نعمل بكم ... يللا نحن في كل الاحوال راح نرد عليكم لكي يوصلون الى مطلباتكن

اتمى ان ينال هذا العمل المتواضع على رضاكم ان شاء الله تعالى كل عام وانتم وانتم بخير وان شاء الله كل عام وكل شهر وكل يوم وانتم الى الله تعالى اقرب اخوكم المحب لكم فى الله _ محمد عصام ولمعاينة الفلاش اون لاين بدون قاعدة البيانات المرفقة من الرابط الاتى http://store6.up-00.com/2017-05/149557322361211.swf هديتى المتواضعة اليكم ... رجاء فك الضغط عن الملف المرفق لوجود ملف فلاش مقترن بقاعدة البيانات رمضان كريم.rar

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

راااااااااااااااائع جدا تسلم ايدك استاذ @Shivan Rekany

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

زيادة في التوضيح هذا المثال كنت قد نفذته في 2011 ووضعت به كل امكانيات إرسال البريد من جيميل باستخدام cdo وبعد سطر البريد والباسوورد هذه أهم سطور .replyto = "mm@mm.com" 'myemail or any other .cc = Me.cc 'with coma (,) separated .bcc = Me.bcc 'with coma (,) separated .to = Me.tomail .From = """" & Me.myname & """ <" & myemail & ">" .Subject = Me.sub .BodyPart.Charset = "UTF-8" '.TextBody = "plain text" 'send pain text '.CreateMHTMLBody "http://www.google.com" 'send web page '.CreateMHTMLBody "file://c|/temp/test.htm" 'send hrml file .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'></div>" .AddAttachment (Me.attach) 'you can attach more repeat this line with full file path شرح هذه السطور للرد إلى بريدي أو أي بريد آخر إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع رؤية كل واحد لجميع المرسل إيهم إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع عدم رؤية كل واحد لجميع المرسل إيهم المرسل إليه الأساسي اسم المرسل وبريده نرميز جسم الرسالة إمكانية إرسال نص فقط في جسم الرسالة إمكانية إرسال ثفحة ويب فقط في جسم الرسالة إمكانية إرسال ملف هتمل html فقط في جسم الرسالة إمكانية إرسال كود html فقط في جسم الرسالة إمكانية إضافة مرفقات للرسالة مع وضع مسار الملف كاملا واسمه وامتداده وتكرار السطر مع كل ملف مرفق وفقنا الله وإياكم لكل ما يحب ويرضى

استاذ @Shivan Rekany يعلم الله تعالى قدر حبى لكم فوالله احبكم فى الله ولوجه الله واعلم انا وكل طلاب العلم فى هذا الصرح الشامخ قدر جهدكم فى تسهيل دروب العلم والتيسير والمساعدة ومد يد العون لكل صاحب حاجة انت لا تحتاج الى تبرير استاذنا الجليل وانت محق ولكن فعلا احيانا لا يبحث الشائل عما يريد قبل طرح السؤال وقد يرجع ذلك لكثرة الانشغال او لقلة الحيلة فى كيفية البحث او احيانا يكون السائل فى عجلة من امره هههههههههه وانا كمان احيانا اطرح تساؤلاتى دون محاولة البحث احبكم فى الله

غير صحيح .. كان الاولى المتابعة وطرح الاستفسار هناك

ربما يفيدك هذا الملف

حساب العمر 2.rar

كل عام و انتم بخير

عفوا استاذي الكريم وجدتك قد عدلتها في الجدول المرفق لأني لم أكن قد تأكدت منه من قبل..بارك الله فيك ونفع بك

شكرا جزيلا استاذخالد و جزاك الله كل خير شرح اكثر من رائع شكر

السلام عليكم جربى المرفق أختى ووافينا بالنتيجة لأنى لم أجرب Refer 7_UP.rar

من جديد أستأذن من استاذنا @أ / محمد صالح اخي ميفان السلام عليكم ورحمة الله وبركاته هناك بعض خطوات لاز تعمله .. لا اعلم هل عملته ام لا اولا يجب ان تكتب جيميلك و رقم سري في الكود الارسال شوف الصورة انا كتبت جيميلي و رقم سري تابع جيميلي ... لكن اللي في الصورة ليس رقم سري صحيح لا تفكر ان تحاول تفتح جيميلي وهناك ملاحظة يجب ان تنتبه لحروف الكبيرة والصغيرة لرقم سري تابع جيميلك ثانيا هناك كان نقص في الكود اي اننا نتعامل مع حقل نصي لذا يجب ان نكتب شرط هكذا "[Email]='" & me.txtMail & "'" كما في الصورة والا سيحدث معك الخطأ اللي في مشاركتك السابقة و اخيرا تم ارسال بنجاح شوف الصورة تقبلوا تحياتي اعتذر منك استاذ @أ / محمد صالح انا ما عملت الريفرريش لصفحة لذا ما رأيت ردك .. تقبل تحياتي mas_forgetpassword_email.rar

حل هذه المشكلة هو تغيير السطر الذي يحتوي على dlookup عن كلمة المرور للبريد المكتوب بإحاطة البريد بفاصلة مفردة لأنه نص .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'>كلمة المرور للبريد : <font style='color:red'>" & Me.txtMail & "</font><br /><br /><br />هي :<br /><font style='color:green'>" & DLookup("[Password]", "UsersT", "[Email]='" & Me.txtMail & "'") & "</font></div>" لاحظ هذا الجزء '" & Me.txtMail & "'" أما بخصوص رسالة الخطأ الثانية فهي تعني أن البريد المكتوب لا يتوافق مع صيغة البريد وهي username@website.com وعلى العموم يمكن حذف كود التأكد من صحة تكوين عنوان البريد في الحدث Private Sub txtMail_AfterUpdate() وفقنا الله وإياكم لكل ما يحب ويرضى

::: اعتذر .. تم الاصلاح Refer 5_UP.rar Refer 6_UP.rar

::: تفضلي عملت تغيرات على اسماء الكائنات برجى ملاحظة ذلك . Refer 5_UP.rar

::: تفضلي ... تم التعديل والاضافة ... يرجى التجربة وإعلامنا بالنتيجة ... ثم التقييم Refer 4_UP.rar

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

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

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

السلام عليكم ورحمة الله أقدم حلين للمسألة : الأولى هي تعديل على ملف أخي الكريم "ابن الملك" وأستسمحه في ذلك غير أنه يجب القيام بتحديث الجدول عند تغيير العميل في شيت "الكشف" والحل الثاني تم بالمعادلات في شيت "الكشف 2" مع إضافة تنسيق شرطي للمجاميع النهائية (أسفل الجدول)، والعميل يتم تغييره من خلال القائمة المنسدلة في الخلية C2... أرجو أن يفي الغرض المطلوب... ملاحظة : الحلان لا يصلحان إلا لعميل واحد فقط... بن علية المصنف2.rar

الكود اخذ حقه ... يحفظك ربنا ويرعاك الاستاذ زيزو العجوز استخدم الكود التالى لمسح الدوائر و استخدم زر " Button" بدلا من استخدام الشكل التلقائى Sub Circles() 'هذا الكود للمحترم النابغه زيزو العجوز 'الهدف من الكود هو وضع دوائر على درجات في اعمده معينه 'تم هذا الكود في 19/5/2017 'استدعاء كود المسح اولا Call DeletingShp 'متغيرات Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range 'اسم صفحه العمل Set ws = Sheets("شيت") ' هذا شرط الا يعمل الكود قبل الصف 14 If LR < 14 Then LR = 14 'متغير لعد الصفوف LR = ws.Range("C" & Rows.Count).End(xlUp).Row 'ارقام الاعمده المطلوب وضع دوائر فيها Arr = Array(11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) 'بدايه الصفوف For R = 14 To LR ' عرض المصفوفة الخاصة بالاعمدة For i = LBound(Arr) To UBound(Arr) ' نطاق تطبيق الامر وهو الخاص برسم الدوائر For Each Cel In ws.Cells(R, Arr(i)) ' الشرط الذى على اساسه سوف يتم رسم الدوائر If Cel.Value < ws.Cells(13, Cel.Column) Or Cel.Value = "غ" Then ' مواصفات الشكل وهو هنا عبارة عن دائرة وما بين الاقواس هو ابعاد الدائرة حتى لا تصبح اكبر من حجم الخلية Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) ' مواصفات الدائرة من حيث درجة اللون وحجم الخط و الشفافية xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub ' الكود الثانى Sub DeletingShp() '' المتغيرات Dim shp As Shape, x As Long ' هذا النطاق يسمح بمسح كل الاشكال فى ورقة العمل سواء دائرة او غيرها For Each shp In ActiveSheet.Shapes ' امر المسح If shp.Type = 1 Then shp.Delete: x = x + 1 Next shp ' رسالة بعدد الدوائر التى تم مسحها 'MsgBox "تم حذف " & x & " دائرة بنجاح", vbMsgBoxRight, "الحمدلله" End Sub ============== كود الدوائر وكود مسحها.rar

السلام عليكم ورحمة الله اخى الكريم اليك ماطلبت ارجو من الله عز وجل ان يكون الشرح واضح Sub Circles() 'استدعاء كود المسح اولا Call DeletingShp 'متغيرات Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range 'اسم صفحه العمل Set ws = Sheets("شيت") ' هذا شرط الا يعمل الكود قبل الصف 14 If LR < 14 Then LR = 14 'متغير لعد الصفوف LR = ws.Range("C" & Rows.Count).End(xlUp).Row 'ارقام الاعمده المطلوب وضع دوائر فيها Arr = Array(11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) 'بدايه الصفوف For R = 14 To LR ' عرض المصفوفة الخاصة بالاعمدة For i = LBound(Arr) To UBound(Arr) ' نطاق تطبيق الامر وهو الخاص برسم الدوائر For Each Cel In ws.Cells(R, Arr(i)) ' الشرط الذى على اساسه سوف يتم رسم الدوائر If Cel.Value < ws.Cells(13, Cel.Column) Or Cel.Value = "غ" Then ' مواصفات الشكل وهو هنا عبارة عن دائرة وما بين الاقواس هو ابعاد الدائرة حتى لا تصبح اكبر من حجم الخلية Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) ' مواصفات الدائرة من حيث درجة اللون وحجم الخط و الشفافية xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub ' الكود الثانى Sub DeletingShp() '' المتغيرات Dim shp As Shape, x As Long ' هذا النطاق يسمح بمسح كل الاشكال فى ورقة العمل سواء دائرة او غيرها For Each shp In ActiveSheet.Shapes ' امر المسح If shp.Type = 1 Then shp.Delete: x = x + 1 Next shp ' رسالة بعدد الدوائر التى تم مسحها 'MsgBox "تم حذف " & x & " دائرة بنجاح", vbMsgBoxRight, "الحمدلله" End Sub

اكمل جميلك واشرح الاسطر الباقيه يحفظك الله ويرعاك استاذ زيزو Sub Circles() 'هذا الكود للمحترم النابغه زؤزو العجوز 'الهدف من الكود هو وضع دوائر على درجات في اعمده معينه 'تم هذا الكود في 19/5/2017 'استدعاء كود المسح اولا Call DeletingShp 'متغيرات Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range 'اسم صفحه العمل Set ws = Sheets("شيت") If LR < 14 Then LR = 14 'متغير لعد الصفوف LR = ws.Range("C" & Rows.Count).End(xlUp).Row 'ارقام الاعمده المطلوب وضع دوائر فيها Arr = Array(11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) 'بدايه الصفوف For R = 14 To LR For i = LBound(Arr) To UBound(Arr) For Each Cel In ws.Cells(R, Arr(i)) If Cel.Value < ws.Cells(13, Cel.Column) Or Cel.Value = "غ" Then Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub Sub DeletingShp() Dim shp As Shape, x As Long For Each shp In ActiveSheet.Shapes If shp.Type = 1 Then shp.Delete: x = x + 1 Next shp 'MsgBox "تم حذف " & x & " دائرة بنجاح", vbMsgBoxRight, "الحمدلله" End Sub ملف الكودين للمحترم زيزو العجوز ( الكود الاول لوضع الدوائر والكود الثاني لمسح الدوائر ) نسخه منقحه الدوائر.rar

السلام عليكم ورحمة الله استخدم الكود التالى لمسح الدوائر و استخدم زر " Button" بدلا من استخدام الشكل التلقائى Sub DeletingShp() Dim shp As Shape, x As Long For Each shp In ActiveSheet.Shapes If shp.Type = 1 Then shp.Delete: x = x + 1 Next shp MsgBox "تم حذف " & x & " دائرة بنجاح", vbMsgBoxRight, "الحمدلله" End Sub

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

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

السلام عليكم ورحمة الله استبدل هذه العبارة If shp.Type = msoAutoShape Or shp.Type = msoShapeOval Then shp.Delete بهذه العبارة If shp.Type = msoShapeOval Then shp.Delete

السلام عليكم ورحمة الله كود مسح الدوائر Sub DeletingShp() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type = msoAutoShape Or shp.Type = msoShapeOval Then shp.Delete Next End Sub

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

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

السلام عليكم ورحمه الله وبركاته اخي العزيز هذا العمل بحاجه الى شغل ووقت وقد رايت ان نتناوله خطوه خطوه حتى يخرج العمل على احسن وجه وحسب ما فهمت من كلامك تريد المعرفه بالاكواد حتى تستطيع بالمستقبل العمل لوحدك بالبدايه قمت بعمل ما يلي :- اضافه كود الترحيل من الفورم الى ورقة العمل واضافه كود المسح من الفورم واضافه كود الترقيم التلقائي بعد كل سجل وكذالك ضبط العمل في التشك بوكس انظر الى الاكواد واي سؤال عنها سوف اكون جاهز للاجابه واذا رايت بان هذه الخطوات حسب ما تريد يمكن تكمله العمل الى النهايه اقبل تحياتي واحترامي بحث.rar

السلام عليكم بناء علي سؤال احد الاخوة للتنبيه الصوتي لخلية ما بشرط معين وددت الاجابة عليه في موضوع منفصل لسهولة استعراضه عند الحاجة اليه بالنسبة للتنبيه الصوتي ستكون هناك عدة خطوات لكي يتم العمل بها اولا سيتم استخدام خاصية speech المودجودة مع الاوفس و ساتكلم هنا عن الذي لم يثبت هذه الخاصية يجب بداية تشغيل برنامج الوورد و من Tools اختار speech وستاتيك رسالة اختار نعم لتثبيت ال speech و هنا سيطلب منك السي دي الخاص الذي قمت بتحميل الاوفس منه لاكمال التثبيت بعد ان تتم هذه العملية قم باغلاق الوورد و بهذا لن تحتاج للقيام بهذه الخطوة مرة اخري قم بتشغل الملف المرفق و فكرته هي النطق بكلمات معينة انت تختارها عند تحقق شرط معين و الشرط الموجود في هذا الملف هو ان كانت الخلية A3 (وهي مجموع الخلية A1,A2) و سيتم عمل الكود عند التغير في الخلية A1 او A2 و عندما تكون الخلية A3 اكبر من 100 سيتم قراءة ماقي الخلية G10 ارجو التجربة و اخباري النتيجة خالص تحياتي Speech.rar

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

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