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

جرب هذا الكود Option Explicit Sub Tarhil() Dim My_St: My_St = Sheets("data").Range("b1") Dim My_col% My_col = Sheets("tab").Range("A1:F1").Find(My_St).Column Sheets("data").Range("b2", Range("b1").End(4)).Copy _ Sheets("tab").Cells(2, My_col) End Sub

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

اخي جرب المرفق اكتب في الخلية C3 في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه ثم اضغط Inter ارجو ان يساعدك هذا تحياتي ارقام 2.xlsm

كيفية عمل فورم من خلال الفرام شركة مجدى يونس لبيع السلع المستوردة الجزء السابع الفيديو الصور كيفية عمل فورم من خلال الفرام شركة مجدى يونس لبيع السلع المستوردة الجذء السابع.rar

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

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

عمان اعشقها واحب اهلها الطيبين كثيرا كثيرا يا ميت هلا والله

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

اتفضل اسم اليوم والتاريخ الهجري بالتقرير.rar

مشكور مرورك اخي علي تحياتي

الف شكر اخ على هل اكمل على نفس الفورم ام اعدل

ان كنت تستخدم هذا الامر في البحث والذي يبنيه المعالج الافتراضي DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 استبدله بهذا DoCmd.RunCommand acCmdFind او هذا RunCommand acCmdFind واذا لم يفلح الامر ضع قاعدة تجريبية بالمشكلة وان شاء الله ستجد الحل :: تحياتي

اضف الى استعلام البحث الذي وضعه الأستاذ عبد اللطيف معيار رقم السند [Forms]![Frm_search]![رقم السند]

فقط امسح Dim MyID As String من السطر الاول

المتغيير ID as srting مكتوب مرتين في السطر الاول والرابع

@ابا جودى استاذ تقصد مصدر السجلات للنموذج

عام 1987 ما شاء الله وقتها كان عندى 5 سنوات

ارجوا الافادة اريد ارسال رسالة او عدد من الرسائل الي الهاتف او اكثر من هاتف رأيت برنامج يفعل ذلك وشرحة ١- تقوم بتحديد الارقام المراد ارسال لها الرسالة ٢-تقوم بكتابة الرسالة ٣-تضغط زر انشاء يقوم البرنامج بانشاء ملف بة الارقام والرسالة وهذا الملف مشفر ٤-نقوم بنقل الملف المشفر الي الموبايل ويوجد علي الموبايل تطبيق يقوم بقراءة الملف المشفر وارسال الرسالة الي الهواتف من رقمك ارجوا من اخوتي مساعدتي فى انشاء هذا المشروع سيكون مفيد لكل المبرمجين

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

شوف يا استاذ عبد اللطيف روعة البرنامج فى اى يؤدى المطلوب منه بمعالجة البيانات بسرعة و بدقة و بأقل استخدام للعوامل البشرية التى قد تؤدى الى الأخطاء وقمة الجمال فى البساطة

اخى الحبيب استاذ @عبد اللطيف سلوم هذا لا يقلل من قدر الهدية كل الشكر والتقدير استاذنا الكريم ولكن فقط احببت ان اشير الى تلك النقطة لربما تستخدمها فى احد البرامج قبل ان تعطيها لاحد عملائك

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

قد مر علي مثل هذا من الأسفل.accdb

تفضل أتمنى ان يكون هذا طلبك البحث.accdb

هنا تجد ضالتك ان شاء الله

بعد اذن اخى الحبيب واستاذى الجليل الاستاذ @essam rabea هذه طريقة المعقدين امثالى حتى يتعب من يحاول ان يصل الى مراده من اختراق البرنامج اقول يتعب قليلا هههههههههههه واعتقد والله اعلم لو القاعدة محولة الى accde , mde لن يستطيع احد التعديل على الجدول المباشر ليسترجع اعدادات اعادة الطباعة مرة اخرى للمرة الاخيـــــــرة هذه الطريقة للمعقدين فقد print only one time.mdb

السلام عليكم تفضل أخي عبد اللطيف هذا تعديل خفيف على ملفك ليفتح من الزاوية فتح من الزاوية.accdb

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

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

اولا يحفظك الرحمن لرقه ردك المكتبه العربيه تفتقد مثل هذا العمل .. فندعو الله ان تجد الوقت المناسب لعمل هذا الملف ولو بفكره جديده مره تانيه ربنا يبارك فيك

الملف بصيغة 2003 اذا كان الكومبوبوكس في الصفحة T فارغاً اخرج من الصفحة ثم عد اليها DALIM.xls

كل صفحة من اكسل 2010 تحتوي على: 1,048,576 صف (اكثر من مليون صف ) 16,384 عامود (اكثر من 16000 عامود) اي 1048576 × 16384=17,179,869,184 خلية (اكثر من 17 مليار خلية ) اكثر بثلاث مرات عدد سكان الارض هل تستطيع أن تملأها بيانات للتأكيد هذا الماكرو Option Explicit Sub Cells_numbe() Dim x, y, z x = ActiveSheet.Rows.Count y = ActiveSheet.Columns.Count z = x * y Cells(1, 1) = "Rows Count" Cells(1, 2) = "Columns Count" Cells(1, 3) = "Cells Count" Cells(2, 1) = x Cells(2, 2) = y Cells(2, 3) = z End Sub

تنسيق ما بين قوسين

هذه الميزة تمكنك من تنسيق أي كلام بين قوسين مهما كان عدده في ملف وورد خلال ثوان قليلة، مثلاً يمكنك تنسيق مئات الآيات والأحاديث والتخريجات خلال دقيقة أو أقل https://www.youtube.com/watch?v=4vYLx0958Iw

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