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

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

فورم لتوريد مبالغ الى الوزارات المتعددة وتسجيل التاريخ والوقت الفيديو

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

اخى الفاضل اكتب 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

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

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

يلزم هذين الكودين من اجل اليوزر (يمكنك العمل على الشيت حتى ولو كان اليوزر ظاهراً) بعد الضغط على الزر اضافة السجل 1- تنقل كل البينات الى مواقعها 2 - يتم تلوين المكرر 3- تمسح البيانات من اليوزر بانتظار البيانات الجديدة Private Sub CommandButton1_Click() Dim Final_row As Long, k% Final_row = cells(rows.Count, 1).End(3).row + 1 For k = 1 To 5 cells(Final_row, 1).Offset(, k - 1) = Me.Controls("TextBox" & k) Next colorize_me For k = 1 To 5 Me.Controls("TextBox" & k) = vbNullString Next End Sub '++++++++++++++++++++++++++++++++++++++ Sub colorize_me() Dim laste_row As Long, I As Long laste_row = cells(rows.Count, 1).End(3).row Range("A8").Resize(laste_row - 7, 5).Interior.ColorIndex = xlNon myvalu = "=SUMPRODUCT(--(A8" & "&" & """*""" & "&" & _ "B8=$A$8:A" & TextBox1 & "&" & """*""" & "&" & "B$8:B" & TextBox1 & "))" Range("MM8").Resize(laste_row - 7).Formula = myvalu For I = 8 To laste_row If Range("MM" & I) > 1 Then _ Range("A" & I).Resize(, 5).Interior.ColorIndex = 6 Next Range("MM8").Resize(laste_row - 7).Clear End Sub الملف مرفق SALIM_code.xlsm

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

بارك الله فيك وزادك الله من فضله وكل عام وأنتم بخير وعام سعيد علينا جميعا ان شاء الله

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

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

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

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

اذا كان الكود يعمل معك بكفاءة فبهذه الإضافة يكون الكود كالتالى: Sub Macro1() Dim i As Integer, m As Integer Application.ScreenUpdating = False For i = 2 To 4 With ThisWorkbook.Worksheets(i) m = .Cells(Rows.Count, 1).End(xlUp).Row If i <> 3 Then .Range("A1:AH" & m).PrintOut Copies:=1, Collate:=True ElseIf i = 3 Then If .Range("AH" & .Cells(Rows.Count, "AH").End(xlUp).Row).Value > 0 Then .ListObjects("HR_2").Range.AutoFilter Field:=34, Criteria1:=">0" .Range("A1:AH" & m + 1).PrintOut Copies:=1, Collate:=True .ListObjects("HR_2").Range.AutoFilter End If End If End With Next i Application.ScreenUpdating = True Sheets("Overtime").PageSetup.RightFooter = Range("AP3").Value End Sub

تم معالجة الامنر (انا لم انتبه الى السؤال جيداً) هذه المعادلة في الخلية B2 واسحب يساراً الى العامود D و نزولاً الى ما تشاء الى اخر صف =IFERROR(IF(ISNA(MATCH($E$3,$F$3:$F$1500,0)),"",INDEX($G$3:$I$1500,MATCH($E3,$F$3:$F$1500,0),4-COLUMNS($A$1:A1))),"") الملف مرفق CHICKAT_1.xlsx

عليك برفع الملف وتوضيح عليه المطلوب بكل دقة

عليك برفع ملف اكسيل وشرح ما تريده عليه بالتفصيل بارك الله فيك

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

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

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