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

الحلقة الثانية: أكواد الطباعة و الخصائص و... سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من طباعة صفحة الويب و حفظها و عرض خصائص الصفحة و غيرها... 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

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

اخى الفاضل اكتب Me.Refresh Private Sub barcode_AfterUpdate() DoCmd.SetWarnings False Dim x1 x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.barcode), 0) Me.Refresh If x1 = 0 Then MsgBox "åÐÇ ÇáÕäÝ ÛíÑ ãÓÌá", vbMsgBoxRight + vbCritical, "ÊäÈíå" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit Sub End If DoCmd.SetWarnings True End Sub بالتوفيق

اخي احمد لك كل التقدير والاحترام هو المطلوب زادك الله علما

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

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

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

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

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

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

وعليكم السلام-اهلا بك فى المنتدى كيف تقول هذا فكل هذه برامج من المنتدى بدون كلمة مرور شوف بنفسك برنامج_مخازن_جديد.xlsm برنامج مخازن شامل .xlsm

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

جميل جدا استاذ صالح ويحفز لافكار اكثر

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

لا أعلم اذا كان هذا المطلوب Leave_book.xlsx

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

جرب هذا Bon de livraison Said Jouet.xlsm

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

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

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

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

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

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

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

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

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

اين الاستبانة؟؟؟؟

الاخ smfsho2009 شاهد المرفق Test_1.xls

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

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

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

صورة متحركة بداخل ملف الاكسل عام 2020 سعيد عليكم الفيديو

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

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

جرب هذا الكود 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

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

تفضل

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

وهذا ملف أخر به كود اخر . تحويل الارقام الى حروف.mdb

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