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

الحلقة الثانية: أكواد الطباعة و الخصائص و... سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من طباعة صفحة الويب و حفظها و عرض خصائص الصفحة و غيرها... 1- كود طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT 2- كود معاينة طباعة الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT 3- كود عرض خصائص الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT 4- كود حفظ صفحة الويب: Me.WebBrowser3.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT 5- كود تنسيق الصفحة: Me.WebBrowser3.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT 6- كود عنوان رابط الصفحة: MsgBox Me.WebBrowser3.LocationName 7- كود رابط الصفحة: MsgBox Me.WebBrowser3.LocationURL 8- كود فتح الصفحة الإفتراضية للمتصفح: Me.WebBrowser3.GoHome 9- كود فتح صفحة البحث: Me.WebBrowser3.GoSearch 10- كود فتح صندوق التصفح: هذا الكود يقوم بفتح صندوق لإدخال رابط صفحة ويب جديدة Me.WebBrowser3.ExecWB OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT 11- كود تخطي رسائل الأخطاء التي تظهر من الأداة عند التصفح: Me.WebBrowser3.Silent = True وهذا المرفق بعد الإضافات الجديدة webbroser.rar

بسم الله الرحمان الرحيم و الصلاة و السلام على أشرف المرسلين أما بعد: سوف نقوم اليوم إن شاء الله بشرح أداة WebBrowser وأهم ما يتعلق بها من أوامر و أحداث و خصائص و إدخال و إخراج. و سوف يتم تقسيم هذا العمل إلى مجموعة حلقات نبدأ من الصفر حتى آخر نقطة نستطيع الوصول إليها إن شاء الله مع وضع مثال تطبيقي لكل حلقة. مقدمة: WebBrowser هي أداة تعمل عمل أي متصفح و هي مقترنة المتصفح الشهير Internet Explorer فهي تساعدك في تصفح المواقع من ناحية و التحكم في أكواد HTML وكل ما يرتبط بها من إدخال و استخراج بيانات من ناحية أخرى. ملاحظة: لتشغيل هذه الأداة بشكل جيد يجب تحديث المتصفح الشهير Internet Explorer إلى الإصدار 10 أو 11. مع العلم أن ونداوز 10 به الإصدار 11 الحلقة الأولى: أكواد التصفح سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التصفح و التنقل داخل الأداة. 1- كود فتح صفحة موقع: WebBrowser3 هو اسم الأداة داخل النموذج Me.WebBrowser3.Navigate ("رابط الصفحة كامل") 2- كود فتح صفحة فارغة: Me.WebBrowser3.Navigate ("about:blank") 3- كود الرجوع للصفحة السابقة: Me.WebBrowser3.GoBack 4- كود الإنتقال للصفحة التالية: Me.WebBrowser3.GoForward 5- كود إعادة تحميل الصفحة: Me.WebBrowser3.Refresh 6- كود إيقاف تحميل الصفحة: Me.WebBrowser3.Stop 7- كود إستخراج رابط الصفحة الحالية: MsgBox Me.WebBrowser3.Document.url و هذا مثال لما تم ذكره في هذه الحلقة webbroser.rar

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

بعد اذن اخي محمد جرب المرفق مره باستخدام Do والاخرى باستخدام for Database761.accdb

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

اختصار للأكواد (يمكنك التعامل مع الشيت حتى ولو كان اليوزر ظاهراً) Private Sub CommandButton1_Click() Sheets(1).Activate lrow = Range("a" & Rows.Count).End(xlUp).Row For k = 1 To 5 With Range("a" & lrow + 1) .Offset(, k - 1).Value = Me.Controls("TextBox" & k) Me.Controls("TextBox" & k) = vbNullString End With Next MsgBox "New Record Has Added in Row :" & lrow + 1 TextBox1.Value = lrow + 2 TextBox2.SetFocus End Sub '=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= Private Sub UserForm_Initialize() Me.ListBox1.ColumnCount = 6 Srow = Range("a" & Rows.Count).End(xlUp).Row Me.ListBox1.RowSource = Range("a2:f" & Srow).Address TextBox1.Value = Srow + 1 TextBox2.SetFocus End Sub الملف مرفق MY_User.xlsm

الملف جاهز مجرد ان تحدد ما المطلوب من الخلية A3 ستجد كل شيء امامك My_data.xlsm

وعليكم السلام-تفضل 1111.xlsx

اهلا بك فى المنتدى-تفضل تم عمل المطلوب بهذا الكود Sub ØÈÇÚÉ1() Sheets("استمارة متابعة").Activate Range("H2").Activate [H2] = 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("x2").Value Range("H2").Activate [H2] = 1 End Sub طباعة كل الأسماء.xlsm

تفضل ، استعلام يمكن تحديثه 🙂 ولكن ليس بأستعلام واحد !! كان ممكن نختصر هذه الاستعلامات ، ولكنك اردت الحل عن طريق الاستعلام الفرعي ، وليس وحدة نمطية !! الاستعلام 4 هو مطلبك 🙂 . . جعفر 1167.1.mdb.zip

شكرا استاذ ( جزاك الله خيرا )

وعليكم السلام فى حقل المعيار للحقل اكتب التعبير التالى <>"هذا الاسم" وان شاء الله يتم تنفيذ طلبك والله اعلى واعلم بالتوفيق اخى

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

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

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

بعد إذن أستاذنا الفاضل سليم جرب هذا لعله يفي الغرض اضهار اول صف فارغ.xlsm

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

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

أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله

تم معالجة الامر Max_min_special.xlsx

شكرا جزيلا اخي صالح 🙂 لطالما ظل هذا الموضوع غامض ، وهو تحت اعيننا 🙂 جعفر

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

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

السلام عليكم تم تصحيح الخلل في الكود... أرجو أن يفي الغرض المطلوب.. بن علية حاجي 1.xlsm

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

وعليكم السلام تم عمل المطلوب برقم السيارة عباد الرحمن 12020.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

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

أحسنت استاذ مجدى وبارك الله فيك ورحم الله والديك

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

جرب هذا الكود Option Explicit Sub give_data() Dim ARR_P, P As Worksheet, D As Worksheet Dim MY_RG As Range, MY_NAME$, R%, i% ARR_P = Array(4, 6, 9, 2, 16, 15, 17, 13, 14, 7, 8, 3, 18, 19) Set P = Sheets("Principal"): Set D = Sheets("DATA") P.Cells(7, "C").Resize(14) = vbNullString MY_NAME = P.Range("A3") Set MY_RG = D.Range("B3").CurrentRegion If MY_RG.Columns("E").Find(MY_NAME, lookat:=1) Is Nothing Then Exit Sub R = MY_RG.Columns("E").Find(MY_NAME, lookat:=1).Row For i = 0 To UBound(ARR_P) P.Cells(7, "C").Offset(i).Value = D.Cells(R, ARR_P(i)) Next Erase ARR_P End Sub الملف مرفق Data_base.xlsm

السلام عليكم تفضل اخي الكريم اتمنى ان يكون هو المطلوب رسالة تنبيه.rar

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

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

وعليكم السلام-لك ما طلبت موازنة علي البنود لكل مشروع.xlsx

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

موضوع قيم بالفعل بارك الله فيك وزادك الله من فضله

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

وعليكم السلام-بعد اذن استاذنا الكبير سليم ,تم عمل كل اللازم بالنسبة لصفحة حساب سائق , من معادلات وقوائم منسدلة لجلب البيانات كما تريد من صفحة data كما تم وضع كود بمعادلة تفقيط بالملف 2020_-_1.xlsm

يمكنك استخدام هذه المعادلة ولكن بعد اعادة ضبط وتنسيق وتكملة الملف بحيث يكون مجموع الرصيد فى كل صفحة من صفحات الملف فى الخلية I352 ولو حابب يكون رقم الخلية اكبر من هذا فلابد من توحيد وتثبيت الخلية التى تريدها فى كل الصفحات وتعديل الرقم الذى تريده بالمعادلة =IFERROR(INDIRECT("'"&$A2&"'!I352"),"") عملاء - 1.xlsx

تفضل

برنامج_مخازن_جديد.xlsm

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

الرجاء بالتأكيد رفع الملف حتى تتمكن الأساتذة من المساعدة

يبقى حضرتك ماوضحتش هذا من الأول لأنك قلت عايز الخلية تكون بلون مختلف اذا كانت فارغة وليس كما قلت الأن ان تبقى بلا لون عموما تفضل تنسيق شرطي (1).xlsx

ما هى المشكلة ؟ يمكنك توضيح المشكلة على الملف ورفعها ثانية فالملف يعمل معى تمام وليس هناك اى مشكلة معى

وعليكم السلام جرب هذا استكرات اللجان للطلاب 99.xlsm

ولإثراء الموصوع هذا برنامج اخر برنامج مخازن شامل المحاسب الشاطر جروب.xlsm

بعد إذن أخي الحبيب الغالي محمد الريفي جرب هذا الملف ..النتائج مختلفة .. Convert Number To Days & Months & Years.rar

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