mhfouzm

معقـــــــــول _ السوال صعب جدا ؟ علي عباقره واساتذه المنتدي ؟

الاخ علي شكرا جدا جدا وجزاك الله عنا خيرا بأذن الله وارجو لك التوفيق _ في ايجاد حل لمشكله الاخ لورد

الاخ علي جزاك الله خيرا _ وزادك علما هل ممكن ان يبحث الكود فى ملف اخر وفقا لما يطلبه الاخ LORD وعند وجود خطا ان يقوم بتجاهله وعدم اظهار رسائل واستكمال العمل علي باقي الخلايا . If Err <> 0 Then MsgBox "هناك رقم أو أكثر غير موجودة في البيانات الأساسية", vbExclamation, "أرقام غير موجودة" Else

معقـــــــــول _ السوال صعب جدا ؟ علي عباقره واساتذه المنتدي ؟

الاخ / علي جزاك الله عنا خيرا الكود يعمل بحاله جيده _ وذلك هو المطلوب باضافه تعديل واحد وهو ان الداله تقوم بالبحث في المجال المحدد في sheet اخر .

اخي الكريم شكرا لك علي مجهودك ولكني اريد وضع كود الباسورد بذلك الكود الذي اقوم بالعمل به وهو كود تم وضعه في احدي المشاركات بالمنتدي من الاخ والاستاذ / محمد حجازي Sub ADO() Dim DB As Database Dim RS As Recordset Dim SQL As String Dim Endrow As Long SQL = "ضع الاستعلام هنا" Set DB = OpenDatabase("C:\M\mah.mdb") Set RS = DB.OpenRecordset(SQL) Endrow = Sheets(1).Range("A1").CurrentRegion.Rows.Count Sheets(1).Cells(Endrow + 1, 1).CopyFromRecordset RS RS.Close DB.Close End Sub كود ربط الاكسيل بالاكسس من مشاركه للاستاذ / محمد حجازي

السلام عليكم ورحمه الله وبركاته كل عام وانتم بخير _ بمناسبه شهر رمضان الكريم كيف يمكن ان يتم تفجير الكود تلقائيا بان يقوم بالقراءه الاليه لمحتويات الخلايا بالنطاق ("A2:B20") وارجاع القيمه المقابله للداله Private Sub Worksheet_Activate Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Row >= 2 And Target.Row <= 20 Then Me.Cells(Target.Row, 4).Value = Application.WorksheetFunction.VLookup(Target.Value, Me.Range("A2:B20").Value, 2, False) End If End Sub

اسف علي التأخير في الرد وذلك بسبب وفاه احد اصدقائي (رحمه الله وادخله الجنه ان شاء الله ) شكرا لك اخي الكريم _ وسوف اقوم بأذن الله بتطبيق المعادله واخبارك بالنتائج . جزاك الله عناخيرا

كيف يمكن ادخال باسوردملف اكسس ( محمي بكلمه مرور) داخل كود الاكسيل لقراءه البيانات .

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

السلام عليكم ورحمه الله وبركاته . الاخ محمد حجازي كيف يمكن النعديل والتنسيق بالخلايا للجداوال المحوريه من تعديل عرض العمود اضافه الحدود للخلايا بحيث يتم تثبيتها وعدم تغيرها

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

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

السلام عليكم ورحمه الله وبركاته . ارجو ان اجد الحل لداله SUMPRODUCT باستخدامها داخل الكود بطريقه معينه =SUMPRODUCT((A9=DATA!$A$4:$A$1000)*($H$7=DATA!$B$4:$B$1000)*($C$5=DATA!$E$4:$E$1000)*(DATA!$D$4:$D$1000)) هل يمكن ايجاد كود يحل محل الداله السابق TEST_1.rar

شكرا لك joly لقيت الحل عن طريق الكريستال ريبورت من خلال parameter بحيث اقوم بتحديد الارقام التي اريدها فقط . جزاك الله خيرا

إين عباقره المنتدي . !

السلام عليكم ورحمه الله وبركاته . لدي تقرير بالكريستال ريبورت ويعمل بشكل رائع . يحتوي الجروب علي ارقام تمثل الارقام الصادره . من رقم 1 الي 100000 ما اريده ان اقوم بكتابه بعض ارقام الصوادر في العمود الاول داخل الاكسيل مثل 100 500 1200 فيتم عرض تلك الصوادر فقط بواسطه اداه عرض التقرير بالكريستال الموجوده داخل vB EXCEL. هل ممكن ذلك.

شكرا لك وجزاك الله خيرا

السلام عليكم الاستاذ / محمد حجازي يقوم الكود السابق بالقراءه من استعلام اكسس ولقد قمت باظهار جميع الاعمده الهامه التي اريد استخراج منها البيانات . بحيث لاتتعدا الاعمده النطاق المحدد

السلام عليكم ورحمه الله وبركاته الاخ محمد حجازي لقد قمت بربط ملف الاكسيل بملف قاعده البيانات والكود يعمل بكفاءه عاليه وبعد بعض الاعمال واجهتني المشكله التاليه اريد ان احدد في ملف الاكسيل نطاق معين يتم قراءه قاعده البيانات منه علي ان يبقي باقي الشيت حر لاضافه الدوال الخاصه مثال ان يتم قراءه قاعده البيانات خلال النطاق a1: k1000 علي ان لاتتغير باقي الاعمده بتشغيل الكود Sub ADO() Dim DB As Database Dim RS As Recordset Dim SQL As String Dim Endrow As Long SQL = "ضع الاستعلام هنا" Set DB = OpenDatabase("C:\M\mah.mdb") Set RS = DB.OpenRecordset(SQL) Sheets(1).CopyFromRecordset RS RS.Close DB.Close End Sub وجزاك الله خيرا

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

الي الاخوه الكرام ......... كيف يمكن ربط استعلام اكسيس بصفحه شيت في الاكسيل