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

تفضلي أختي الكريمه : مي الكيال قاعدة بيانات بها نموذج وتفتح لك ملف وورد بناء على طلبك بالتوفيق اخي الغالي : جعفر السلام عليكم ورحمة الله وبركاته اتمنى ان تكون بصحة جيده انت وجميع الأخوة الكرام هنا في المنتدى اختكم : زهره محمد العبدالله ( أم عهود ) zahrah.rar

أخي الحبيب وأستاذي الغالي رجب بارك الله فيك وجزاك الله خيراً أخي الكريم عبد الرحمن بدوي جرب الملف المرفق التالي فيه تطبيق ما تريد قم بتغيير التوقيت المطلوب تنفيذ الكود فيه ليتم تنفيذه في الوقت المحدد تقبل تحياتي Run Macro At Specific Time.rar

السلام عليكم ورحمة الله وبركاته كتاب رائع في تعليم إكسل 2016 بأسلوب سهل جداً الرابط http://arab.sh/aanp3r7yi9zo وشكراً

السلام عليكم جميعا مرفق ملف يحتوي على كود لتصدير جميع أو جزء من أوراق العمل إلى ملف PDF واحد ، أرجو الفائدة للجميع مع خالص احترامي و تقديري export_to_PDF.rar

أخى الفاضل كلمة "hello" ف الكود السابق ليست هى الرسالة التى سوف تظهر عند تنفيذ الكود ولكن هى اسم الكود ( الاجراء ) الذى سوف يتم تنفيذه عند الوقت المحدد وبالتالى لابد من ادراج موديول جديد و عمل كود بنفس الاسم الموضوع فى السطر السابق وهو "hello" ليتم تنفيذه وبالتالى يكون التعديل كالتالى الكود السابق كما هو والكود الموجود داخل الموديول يكون كالاتى Sub hello() MsgBox "Hello officena" End Sub تقبل تحياتى

اليك هذا الملف مع كود اخر Tarhil.rar

بعد اذن أخى سليم تفضل اخى كله بالاكود لانه مينفعش تعديل ع وجود معادلات الاستدعاء هذا كود الاستدعاء فى حدث الورقه Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range Dim LR As Integer Dim sh2 As Worksheet Set sh2 = Sheet2 If Target.Address = [c2].Address Then LR = sh2.Cells(Rows.Count, 1).End(xlUp).Row For Each cl In sh2.Range("A4:A" & LR) If [c2] = cl Then [c4] = cl.Offset(0, 1) [b6] = cl.Offset(0, 2) [b8] = cl.Offset(0, 3) [b10] = cl.Offset(0, 4) End If Next End If End Sub وهذا كود الترحيل Sub ragab() Dim cl As Range Dim LR As Integer Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Sheet1 Set sh2 = Sheet2 LR = sh2.Cells(Rows.Count, 1).End(xlUp).Row For Each cl In sh2.Range("A4:A" & LR) If sh1.[c2] = cl Then cl.Offset(0, 1) = sh1.[c4] cl.Offset(0, 2) = sh1.[b6] cl.Offset(0, 3) = sh1.[b8] cl.Offset(0, 4) = sh1.[b10] End If Next End Sub وهذا الملف اوفيسنا.rar

الأخوة والأساتذة الكرام طلب أحد الأخوة نسخ الخلية النشطة مع صفها من شيت الى شيت آخر فى هذا الرابط http://www.officena.net/ib/index.php?showtopic=62805 ولعموم الفائدة أضع بين أيديكم كود نسخ الخلية النشطة وبعدها عدد محدد من الخلايا وليكن 5 خلايا مثل النسخ من A5 الى F5 Sub mokhtest2() Application.ScreenUpdating = False ActiveCell.Resize(1, 6).Copy Sheets("مستودع").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) ' لنسخ ولصق النشطة بالفورمات وبعدها 5 خلايا Application.ScreenUpdating = True Application.CutCopyMode = False End Sub الجزئية ActiveCell.Resize(1, 6).Copy معناها نسخ الخلية النشطة مع 5 خلايا بعدها فى نفس الصف وده = 6 الجزئية Sheets("مستودع").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) هى وجهة اللصق أول فارغة فى العمود 1 فى الشيت مستودع واللصق يكون للقيم والفورمات باقى الكود للتسريع وتفريغ الذاكرة العشوائية المرفق copy row based on ActiveCell mokhtar .rar

بارك الله فيك أخي الحبيب مختار إليك كود آخر لا يرقى لمستوى كودك بالطبع ..فكودك هو الأيسر والأسهل Sub CopyRowActiveCell() Dim WS As Worksheet, SH As Worksheet Dim lrWS As Long, lrSH As Long, I As Long Set WS = Sheets("بيانات"): Set SH = Sheets("مستودع") lrWS = ActiveCell.Row lrSH = SH.Cells(Rows.Count, 1).End(xlUp).Row + 1 For I = 1 To 6 SH.Cells(lrSH, I) = WS.Cells(lrWS, I) Next I End Sub

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

بسم الله الرحمن الرحيم الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه إخوتي ...أحبتي الكرام وأساتذتي الأجلاء السلام عليكم ورحمة الله وبركاته اعترافاً بفضلكم وجهودكم المتواصلة في إيصال المعلومة الصحيحة والعلم النافع أقدم تجربة في إعداد برنامج مخازن جمعت به من كل بستان زهرة نهلت من علمكم وقد رأيت دروساً للأستاذ الكريم عماد غازي فطبقتها في محاولة صنع برنامج لا يصل إلى غبار علمكم فلكم السبق في كل شيء وكذلك نسخت أكواد شاشة البداية من أستاذي الصقر (لا يوجد جديد إلا محاولتي إعداد برنامج فلا تؤاخذونني على التقليد الذي لا أعتبره كذلك)... أرجو أن أكون قد خطوت خطوة إلى الأمام...راجياً منكم إبداء آرائكم به علماً أنني اعتمدت الجداول بدلاً من النطاقات وقد تكون نقطة ضعف لدي اسم المستخدم :admin كلمة المرور: 123 حماية الأوراق داخل المصنف دون كلمة مرور والسلام عليكم. ملاحظة: يرجى توجيهي نحو كل خطأ أو تقصير لاستدراكه برنامج المخازن.xlsm

الاستعلامات الاستعلامات هي أهم كائنات قواعد البيانات ، من خلال الاستعلام يمكنك عمل الكثير كما سنري بإذن الله و لدينا عشرة أنواع من الاستعلامات خمسة منها لها واجهة رسومية يمكن استخدامها لتكوين الاستعلام باستخدام الفأرة أو كتابة الاستعلام يدويا و الخمسة الأخري سنكتب فيها جمل ال SQL مباشرة و الأصل فى الاستعلامات أنها جميعا فى النهاية عبارة عن جمل و تعبيرات SQL و قبل أن نعرض الي تعريف الانواع العشرة ، تعالوا نتعرف الي ما تعنيه هذه الحروف الثلاثة SQL Structured Query Language السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات مثل الاكسس أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات و نعود ثانية الي الأكسس : :d سنبدأ فى هذا الموضوع بتعريف أنواع الاستعلامات ، كتعريف عام قبل أن نعرض اليها بالتفصيل بإذن الله تعالي: 1. استعلامات الاختيار : select query 2. استعلامات الجداول المحورية : ؛Cross Tab Query 3. استعلام تحديث : Update Query 4. استعلام إضافة : Append Query 5. استعلام حذف : Delete Query 6. استعلام إنشاء جدول : Make Table Query 7. استعلامات التوحيد : Union Query 8. استعلامات التمرير : Pass-Trough Queries 9. استعلامات تعريف البيانات : Data definition queries 10. الاستعلامات الفرعية : Sub-query استعلامات الاختيار : select query تكوين مجموعة من السجلات المبنية علي جدول أو أكثر من بحيث تمثل كل الببيانات أو المجموعة من السحلات التي تحقق شروط معينة. بالاضافة الي امكانية التحكم فى ترتيب السجلات . – مثل جميع الطلاب الذين تتعدي درجاتهم 90 و بلدهم القاهرة و عدد أيام الغياب لديهم أقل من خمسة – مع كون الشروط الثلاثة نخص بيانات مسجلة فى ثلاث جداول مختلفة. و كما تكلمنا سابقا ، يمكن عمل ذلك باحدي طرق تصفية الجداول ، و لكن هنا سيكون لدينا كائن استعلام محفوظ ، يمكن استخدامه فى أي وقت . أيضا يمكن استخدامه لتجميع البيانات التي تشترك فى خواص معينة ، أي تلخيص البيانات و في هذه الحالة يطلق عليها استعلام تجميع استعلامات الجداول المحورية : ؛Cross Tab Query و هي أداة تحليلية تستخدم لتحليل البيانات بناء علي الخاصية المطلوبة ، فيتم فيها تجميع البيانات التي تجمعها خاصية معينة و تحليلها بالنسبة لخاصية أخري و تقديم الاحصائية المناظرة بمعني : لو لدينا بيانات عدد من الطلاب ، و تقديرهم و الجنسية ، و نريد احصائية تكون الصفوف فيها هي البلد و الأعمدة هي التقدير و محتويات الجدول عدد الطلاب الذين ينتمون الي كل بلد و كل تقدير أو مثلا بدلا من العدد نريد البيانات مجموع المصروفات المناظر ، أو أكبر تاريخ ميلاد لكل بلد و لكل تقدير فنحن نتحدث عن تطبيق مباشر للاستعلامات من نوع Cross Tab استعلام تحديث : Update Query تحديث كل أو بعض قيم بيانات فى جدول بشروط او بدون استعلام إضافة : Append Query اضافة سجلات الي جدول بشرط و بدون استعلام حذف : Delete Query حذف كل أو بعض السجلات من جدول بشرط أو بدون استعلام إنشاء جدول : Make Table Query إنشاء جدول جديد يحوي بيانات مختارة استعلامات السي كيو ال المحددة SQL Specific Queries استعلامات التوحيد : Union Query مثل استعلامات الاختيار ـ، و لكن تتميز عليها بامكانية توحيد أو ضم بينات أكثر من جدول فى نفس الحقل فمثلا لو لدينا جدول به أوامر البيع و آخر به أوامر التوريد ، و كلاهما به حقل رقم الامر و القيمة و أردنا أن ننشيء استعلام واحد يجمع بيانات الجدولين بحيث يكون به ثلاث حقول الاول يوضح نوع الامر و الثاني رقمه و الثالث القيمة و تكون القيمة موجبة فى حالة اوامر التوريد و سالبة فى حالة اوامر الصرف ، فنحن نتحدث عن تطبيق مباشر لاستعلامات التوحيد استعلامات التمرير : Pass-Trough Queries تستخدم لارسال أوامر بلغة اس كيو ال ، الي خادم قاعدة بيانات مباشرة من خلال ال ODBC ، و قد يكون لها مردود باعادة عرض سحلات و قد لا يكون لها ، و تفاصيل كتابة الاوامر فيها تعتمد علي قاعدة البيانات التي سنقوم بالتمرير اليها و نمر سريعا علي تعريف ال ODBC : Open Database Connectivity (ODBC): A standard method of sharing data between databases and programs. ODBC drivers use the standard Structured Query Language (SQL) to gain access to external data.) امكانية الاتصال بين قواعد البيانات ، و مشاركة البيانات بينها ، و تعتمد علي لغة الاستعلامات البنائية ( اس كيو ال) النمطية للتعامل مع البيانات استعلامات تعريف البيانات : Data definition queries و هي تستخدم لانشاء و حذف و تعديل الجداول و الفهارس الاستعلامات الفرعية : Sub-query و هو ليس نوع جديد ، و لكنه تطبيق لاستخدام استعلامات الاختيار ، و لكن هذه المرة لتعريف حقل أو معيار لحقل و طبعا هذا تعريف عام ، كبداية للحديث ، و يلي ذلك عرض الموضوع بالتفصيل بإذن الله

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى الة وصحبة وسلم استاذنا الكبير ( ابو يوسف ) اولا : احب ان اهنئك على هذا العمل الرائع الذى يتميز بالبساطة والرقى والاحتراف وهذه معادلة صعبة لاتوجد فى معادلات الاكسيل = بساطة + رقى + احتراف = تميز وهذة منة من الله عزوجل يمن بها على من يشاء من عبادة ولقد من الله عز وجل عليك بها ماشاء الله لاقوة الا بالله عمل رائع وممتاز ابهرتنا بالتصميم المميز للبرنامج استمر --- طور----- ابدع وفقك الله لما يحب ويرضى ثانيا : والله انا لم ارى الموضوع الا الان فتقبل اعتذارى على التاخير فى التهنئة بهذا العمل الرائع

أخى الفاضل / الأستاذ أيمن ابراهيم تفضل وأرجو أن يكون كما تريد الفورم.rar

الأخ الفاضل / أيمن ابراهيم أجمل وأرق تحية وتقدير تفضل جرب المرفق الفورم.rar

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

جزيت خيراً أخي الغالي وأستاذي الكبير رجب تقبل وافر تقديري واحترامي

بارك الله فيك أخى الحبيب ياسر

السلام عليكم تم دمج الحسابين في الحساب الجديد ، مع كل الشكر و التقدير

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

أخي الكريم أبو أنس يرجى إرفاق ملف مع مزيد من التوضيح للمطلوب لتجد الاستجابة من قبل إخوانك .. تقبل تحياتي

بارك الله فيكم عمل رائع مجهود كبير

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

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

أخي الحبيب أبو يوسف جرب الكود التالي عله يكون المطلوب Sub طباعة() Dim I As Long For I = Range("J1").Value To Range("K1").Value Range("G3").Value = I ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next I End Sub تقبل تحياتي

أحسن الله اليك أخي أبا خليل ، و رفع قدرك بين اهل الارض و السماء أخي كريمو حلّ مقترح ، بعجالة ... لا يلزم ان تضيف السنة ( حسب ما أرى ) نحدث الجدول متى نشاء ، ونستخرج النتائج حسب اليوم والشهر ونرفق نموذجا يظهر ما يلزم حال تحقق الشرط مع رسالة تنبيه أنظر ... طبق وعدّل كما يلزم NA_fon2016-2.rar

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

ما شاء الله ، هذا الموضوع مبارك ، فقد شاركنا فيه الاستاذ رمهان ايضا بعد غياب طويل يا رجال وينك من زمان جعفر

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

لا لا مش مصدق .. ماشاء الله تبارك الله وعودا حميدا لزهرة الاكسس .. ونبارك للمنتدى عودتها ومشاركتها .. ويبدو في عودتها سيعود اعضاء كثر بارك الله في الجميع

السلام عليكم اهلا بعودتكم الغاليه اهلا بطيبة الذكر

السلام عليكم أساتذتي الكرام: أخي الحبيب أبو البراء ما أرغبه تكوين كود حلقة تكرارية يرتكز على المعطيات المسجلة في الخليتين J1 وK1 يقوم هذا الكود أثناء طلب الطباعة السريعة بالتنقل ضمن تسلسل الأرقام المسجلة بين الخليتين المذكورتين أعلاه فيتحول كل مرة إلى صنف جديد ضمن شرطي تاريخ بداية ونهاية التقرير معتمداً أيضاً على كود الصنف G3 أما عن مدى الطباعة فهو بدءاً من الخليةB1 وانتهاء بالخلية I2600 لأنني وضعت الجدول ليشتمل على سنوات فإن أردتم تصغير الجدول ليشمل سنة فلكم التصرف به كما تشاؤون . والسلام عليكم. ملاحظة: يرجى الأخذ بعين الاعتبار أن عدد الأصناف سيكون أكبر مما هو بين الخليتين ليتجاوز 100 صنف مثلاً.

اذا كنت قد استعملت المرفق الاول وحاولت كتابة المعلومات في الصفحة الاولى فهذا خطأ اضافة المغلومات تتم في الصفحات غير الاولى اما الصفحة الاولى فهي للنتيجة فقط اذا رغم كل شيء حصل خطأ حاول ان تستبدل في المعادلة في الخلية A7 الفاصلة بفاصلة منقوطة واسحب يساراً و نزولاً في هذا المرقق متابعة العملاء salim1.rar

بالتأكيد أستاذ ياسر. فهذا أقل واجب. انا أرد الان من الهاتف سأقوم بإرفاقه لاحقا هنا أو في موضوع جديد او كليهما. ما رأيك؟ مع الاحترام و التقدير للجميع

أخي الكريم محمد أفضل من الشكر قول "جزاك الله خيراً" .. وفقني الله وإياك لما فيه الخير والصلاح في الدنيا والآخرة وفي انتظار تنفيذك للكود .. تقبل تحياتي

يامرحبـا عـد النجــــــوم بسمانـا ومع جيتــــك عـم الفـرح منتدانـا

أخي الكريم سعيد الطلبات الكثيرة في الموضوع الواحد تنفر الأعضاء حتى لو كان الأمر مجرد تعديل كما تراه التعديل يستلزم مراجعة الكود من البداية للنهاية للوصول لحل عموماً جرب التعديل التالي للجزء الأول من طلبك وهو ترحيل الثلاثة أعمدة من C إلى E ..إلى قائمة المخازن (مع الإضافة في كل مرة يتم فيها تنفيذ الكود) Sub TransferMatchingData() Dim vItems As Variant, vData As Variant, vOut As Variant, I As Long vItems = Sheet1.Range("B8", Sheet1.Cells(Rows.Count, "B").End(xlUp)).Resize(, 4).Value With Sheet2.Range("B8", Sheet2.Cells(Rows.Count, "B").End(xlUp)) vData = .Value vOut = .Offset(, 1).Resize(, 3).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = LBound(vItems) To UBound(vItems) .Item(vItems(I, 1)) = vItems(I, 2) & "|" & vItems(I, 3) Next I For I = LBound(vData) To UBound(vData) If .Exists(vData(I, 1)) Then vOut(I, 1) = Split(.Item(vData(I, 1)), "|")(0) vOut(I, 2) = Split(.Item(vData(I, 1)), "|")(1) vOut(I, 3) = vOut(I, 3) + vOut(I, 1) Else vOut(I, 1) = "" End If Next I End With .Offset(, 1).Resize(, 3).Value = vOut End With End Sub تقبل تحياتي

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

جرب هذا الملف دون يوزر فورم و كلما اضفت صفحة جديدة تضاف الى القائمة المنسدلة في الصفحة 1 متابعة العملاء salim.rar

تفضل لعله يشبه ما تريد تمنياتى بالتوفيق Inputbos.rar

تفضل 3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com . وهذا كود الازرار: Private Sub cmd_FollowHyperlink_Click() url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" Application.FollowHyperlink url_address & Me!name End Sub Private Sub cmd_ie_Click() Dim ie As Object Set ie = CreateObject("internetexplorer.application") url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" ie.Visible = True ie.Navigate url_address & Me!name End Sub Private Sub cmd_objIE_Click() 'Reference to Microsfot Internet Controls 'c:\windows\system32\ieFrame.dll Dim web As WebBrowser Set web = Me.objIE.Object url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" web.Silent = True 'stop script errors web.Navigate url_address & Me!name End Sub جعفر 255.web.accdb.zip

أخي الحبيب عبد العزيز قلم الإكسيل بارك الله فيك وجزاك الله كل خير على كلماتك الرقيقة في حقي وما أنا في النهاية إلا كقطرة في منتدى أوفيسنا منتدى العمالقة أما اقتراحك فأنا خايف الناس تقراه بمسافة بعد الألف ..فبدل ياسل هيقروها يا سل (وكدا أنا هزعل أكيد يا عربي) تقبل تحياتي

أو يمكن استخدام هذا الكود بدون اللجوء إلى استخدام طريقة النسخ أو الحلقات التكرارية Sub CopyRowActiveCell() Dim WS As Worksheet, SH As Worksheet, LR As Long Set WS = Sheets("بيانات"): Set SH = Sheets("مستودع") LR = SH.Cells(Rows.Count, 1).End(xlUp).Row + 1 SH.Cells(LR, 1).Resize(1, 6).Value = WS.Cells(ActiveCell.Row, 1).Resize(1, 6).Value End Sub

استاذ حسام انا مش عارف ازاي ارفع هنا. ده اميلي Eslam. Hamed@rocketmail.com

السلام عليكم ورحمة الله وبركاته الاخوه الاعزاء نهنيكم بعيد الاضحى المبارك اعاده الله علينا وعليكم باليمن والبركات الاخوه الاعزاء الموضوع قد يكون عندكم بسيط لكن المبتداء يراه صعبا عندى ملف اكسل اعجبني من ناحيت التنضيم والاشياء التى احتاجا في المستودع لكن ينقصه اننى لا اقدران اضيف اى صفوف جديده بسبب لا ادرى هل هو مغلق ام ماذا قد يكون عندكم الجواب لهاذا طرحت الموضوع STROE 222.rar

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

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

فى خلية جمع القروش اكتب =MOD(SUM(E4:E8);100) ثم فى خلية جمع الجنيهات اكتب =SUM(F4:F8)+INT(SUM(E4:E8)/100) و النواتج مجربة و صحيحة

عندي برنامج اكسيس موجود على server الشبكة وانا في مكة مثلا كيف يمكن لشخص اخر في مكان بعيد مثلا في جدة ان يعمل على هذه البرنامج وان يدخل على السيرفر ويشغل البرنامج ملاحظة : حاولت عمل ذلك ودخلت على السيرفر من مكان اخر ولكن كان تشغيل البرنامج بطيئا جدا جدا جدا فهل هناك طريقة لحل هذه المشكلة !!!!