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

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

انظر ...... exam 1.accdb

انظر المثال المرفق ......

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

السلام عليكم ورحمة الله إن كنت قد فهمت المطلوب جيدا، جرب الملف المرفق لعل فيه ما تريد. بن علية حاجي مثال (2).xlsx

ما الحكمة في تحديدها بالماكروا ............ لماذا الكود ... لا .... ؟؟؟؟؟

الحمد لله رب العالمين

أحبابي وأصحابي في كل مكان يسعدني أن أهدي لهواة ومحترفي برمجة vba في الأوفيس دالة جديدة لترجمة النصوص من أي لغة إلى أي لغة في إكسل 2013 باستعمال ترجمة جوجل بطريقتين وهذا رابط ملف الإكسل الموجود في الفيديو http://adf.ly/1GFYwU قائمة برموز اللغات * * 'AFRIKAANS' : 'af', * 'ALBANIAN' : 'sq', * 'AMHARIC' : 'am', * 'ARABIC' : 'ar', * 'ARMENIAN' : 'hy', * 'AZERBAIJANI' : 'az', * 'BASQUE' : 'eu', * 'BELARUSIAN' : 'be', * 'BENGALI' : 'bn', * 'BIHARI' : 'bh', * 'BULGARIAN' : 'bg', * 'BURMESE' : 'my', * 'CATALAN' : 'ca', * 'CHEROKEE' : 'chr', * 'CHINESE' : 'zh', * 'CHINESE_SIMPLIFIED' : 'zh-CN', * 'CHINESE_TRADITIONAL' : 'zh-TW', * 'CROATIAN' : 'hr', * 'CZECH' : 'cs', * 'DANISH' : 'da', * 'DHIVEHI' : 'dv', * 'DUTCH': 'nl', * 'ENGLISH' : 'en', * 'ESPERANTO' : 'eo', * 'ESTONIAN' : 'et', * 'FILIPINO' : 'tl', * 'FINNISH' : 'fi', * 'FRENCH' : 'fr', * 'GALICIAN' : 'gl', * 'GEORGIAN' : 'ka', * 'GERMAN' : 'de', * 'GREEK' : 'el', * 'GUARANI' : 'gn', * 'GUJARATI' : 'gu', * 'HEBREW' : 'iw', * 'HINDI' : 'hi', * 'HUNGARIAN' : 'hu', * 'ICELANDIC' : 'is', * 'INDONESIAN' : 'id', * 'INUKTITUT' : 'iu', * 'ITALIAN' : 'it', * 'JAPANESE' : 'ja', * 'KANNADA' : 'kn', * 'KAZAKH' : 'kk', * 'KHMER' : 'km', * 'KOREAN' : 'ko', * 'KURDISH': 'ku', * 'KYRGYZ': 'ky', * 'LAOTHIAN': 'lo', * 'LATVIAN' : 'lv', * 'LITHUANIAN' : 'lt', * 'MACEDONIAN' : 'mk', * 'MALAY' : 'ms', * 'MALAYALAM' : 'ml', * 'MALTESE' : 'mt', * 'MARATHI' : 'mr', * 'MONGOLIAN' : 'mn', * 'NEPALI' : 'ne', * 'NORWEGIAN' : 'no', * 'ORIYA' : 'or', * 'PASHTO' : 'ps', * 'PERSIAN' : 'fa', * 'POLISH' : 'pl', * 'PORTUGUESE' : 'pt-PT', * 'PUNJABI' : 'pa', * 'ROMANIAN' : 'ro', * 'RUSSIAN' : 'ru', * 'SANSKRIT' : 'sa', * 'SERBIAN' : 'sr', * 'SINDHI' : 'sd', * 'SINHALESE' : 'si', * 'SLOVAK' : 'sk', * 'SLOVENIAN' : 'sl', * 'SPANISH' : 'es', * 'SWAHILI' : 'sw', * 'SWEDISH' : 'sv', * 'TAJIK' : 'tg', * 'TAMIL' : 'ta', * 'TAGALOG' : 'tl', * 'TELUGU' : 'te', * 'THAI' : 'th', * 'TIBETAN' : 'bo', * 'TURKISH' : 'tr', * 'UKRAINIAN' : 'uk', * 'URDU' : 'ur', * 'UZBEK' : 'uz', * 'UIGHUR' : 'ug', * 'VIETNAMESE' : 'vi', مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI شير x الخير فزكاة العلم نشره

هل هذا مطلوبك الاول ؟؟؟؟ ALI.rar

If MsgBox("هل تريد حفظ الإدخال الحالي", vbYesNo, "حفظ السجل") = vbNo Then DoCmd.CancelEvent Me.Undo Me.txtName.SetFocus Else DoCmd.GoToRecord , , acNext End If

السلام عليكم أولا أهلا بك عضوا جديدا بيننا في هذا المنتدى العريق وثانيا طلبك غير مفهوم، وماذا تعني بـ "حساب" (عد - جمع - طرح - ضرب - قسمة ...)؟ هل يمكن وضع مثال على ذلك مع النتيجة المرجوة... بن علية حاجي

بفضل من الله وجدت الحل المطلوب بعد عناء الطريقة ربط الحدث بماكرو معين ارفقت لكم مثال لكي تصل لكم الفكرة ... عند فتح الملف المرفق أنتظر 20 ثانية وسوف يعمل الماكرو يجب تفعيل حماية الماكرو للملف المرفق لكي يعمل ضع هذا الكود في حدث الملف In Workbook events: Private Sub Workbook_Open() RunEveryTwoMinutes End Sub قم بعمل ماكرو وضع فيه هذا الكود القيمة الموجودة في المثال أي التوقيت 2 دقيتقين بامكانك تغيير القيمة للوقت الذي ترغب ان يعمل به الماكرو In a module: Sub RunEveryTwoMinutes() //ضع هنا اي كود تريده بدل هذه الجملة في مثالي وضعت كود تكبير الشاشة Add code here for whatever you want to happen Application.OnTime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes" End Sub في ملفي المرفق وضعت كود تكبير الشاششة وغيرت قيمة التوقيت إلى 20 ثانية ليعمل الماكرو بتدون تدخل منك ارجوا ان اكون وفقت في الشرح والحمدلله على كل حال Auto macro_01.xlsm

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أثناء تجولي في الإنترنت وجدت ملفاً يعرض معلومات النظام ومنها مثلا سيريال الهارد ديسك رقم المعالج رقم المازر بورد وغيرها الكثير فأحببت مشاركتكم فيه .... أترككم معه وأتمنى تجربة الملف على أنظمة تشغيل مختلفة يعني xp و 7 و vista وسيفن و 8 و 8.1 و 10 وينندوز بالنواة 32 أو 64 وإخباري بالنتيجة SystemInfo.rar

ما شاء الله الله يرفع مقدارك وينور حياتك تستحق اكثر من كلمة مبدع

ما شاء الله لا قوة الا بالله مبدع يا بشمهندس ربنا يزيك

السلام عليكم اتمنى ان يلبي الملف طلبك .. تحياتي ZZZ_alaa.accdb الملف بصيغة 2003 ZZZ_alaa1.mdb

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

تم الحل بتقديم كود رائع للمطلوب من قبل أستاذنا الكبير العلامة الأستاذ ياسر خليل ابو البراء له منا جميعا كل الحب والإحترام فدائما وابدا نتعلم منه الكثير زاده الله من فضله ووسع الله فى رزقه وبارك الله فى أولاده ورحم الله والديه وغفر لهم والحل موجود على هذا الرابط يمكنك الدخول اليه-فأعتقد ان هذا هو اقل حاجة تقدمها لأستاذنا الكبير هو الشكر على هذا العمل الرائع وهذا يعتبر اقل شيء حتى نعطيه ونوفيه حقه فى العمل https://excel-egy.com/forum/t2811&count=0#28256

وعليكم السلام-اهلا بك اخ كريم فى المنتدى تفضل تم عمل اللازم وتم عمل ترقيم تلقائى لرقم الفاتورة ايضا داخل الكود INVOICE CARGO.xlsm

Right click on the worksheet tab and select Move or Copy.1 Select the Create a copy checkbox.2 Under Before sheet, select where you want to place the copy.3 Select OK.4

السلام عليكم ورحمة الله الخطأ في الدالة Vlookup أن البحث عن "قيمة البحث" تتم في العمود الأول من "نطاق البحث"... قمت باستبدال الدالة VLOOKUP بالدالتين INDEX و MATCH... بن علية حاجي 2018.xlsx

السلام عليكم ورحمة الله وبركاته ادخل المعادلة التالية في الخلية G4 ثم اسحبها لبقية الخلايا =SUMPRODUCT(LARGE(('اذون الاستلام'!$F$4:$F$2000=$B4)*('اذون الاستلام'!$B$4:$B$2000);COLUMNS($G:G))) المعادلة ترجع الارقام مرتبة تنازليا او المعادلة التالية ترجع الارقام حسب موقعها =INDEX('اذون الاستلام'!$B:$B;4^8-SUMPRODUCT(LARGE(('اذون الاستلام'!$F$4:$F$2000=$B4)*(4^8-ROW('اذون الاستلام'!$F$4:$F$2000));COLUMNS($G:G)))) لإخفاء الصفر يمكن اضافة الدالة TEXT الى المعادلتين مثلا للمعادلة الاولى =TEXT(SUMPRODUCT(LARGE(('اذون الاستلام'!$F$4:$F$2000=$B4)*('اذون الاستلام'!$B$4:$B$2000);COLUMNS($G:G)));"General;General;") في امان الله

في تنسيق التاريخ dd تعني رقم اليوم و dddd تعني اسم اليوم و mm تعني رقم الشهر و mmmm تعني اسم الشهر جرب ضع التنسيق التالي في حقل التاريخ ثم انظر النتيجة =yyyy/mmmm/dddd