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

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

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

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

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

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

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

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

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

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

جرب هذا Bon de livraison Said Jouet.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.xlsx

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

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

اسمحوا لي ان اشرح فائدة الطريقة اللي اشرت لها انا 🙂 الفائدة هي محاكاة البرنامج الاخر ، وارسال بيانات له ، واستيراد بيانات منه ، وهذا لا يقتصر على قاعدة البيانات التي فتحت البرنامج الآخر ، وانما يعتمد على اي عدد من قواعد البيانات التي فتحتها عن طريق المتغير appAccess و appAccess2 و ... وبعد اذن اخي ابو البشر ، فاستخدمت مرفقه ، وبتعديل بسيط على البرنامج Sub بحيث النموذج mark2 لا يُفتح تلقائيا ، واضفت له زر : الكود التالي : يفتح قاعدة البيانات Sub ، 1. يرسل القيمة "c:\abc\abc" الى الحقل txtPath ، 2. ويأخذ المسمى الموجود في حقل التسمية 7 ، ويضعه في برنامجنا : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click Dim appAccess As Object Dim DB_Path As String Dim myWhere As String 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = Application.CurrentProject.Path & "\mark2.mdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "Mark" appAccess.Visible = True With appAccess.Forms!Mark .txtPath = "c:\abc\abc" Me.lbl2.Caption = .[تسمية7].Caption End With appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر fayz.zip

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

صورة متحركة بداخل ملف الاكسل عام 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

بارك الله فيك استاذنا الكريم

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

تم معالجة الامنر (انا لم انتبه الى السؤال جيداً) هذه المعادلة في الخلية 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

تفضل

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

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

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

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

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

جرب هذه المعادلة =TEXT(A1,"B2 DDDD") وجرب معادلتك كما ترى وان لم تفلح معك فعليك استبدال الفاصة العادية بالفاصلة المنقوطة ; =CHOOSE(WEEKDAY(A2),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعة","السبت")

وعليكم السلام تفضل لك ما طلبت RORO - Calculation (Revised)1.xlsx

بارك الله فيك ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات

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

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

تفضل تنسيق شرطي.xlsx

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

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

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