البحث في الموقع

عندي قاعدة البيانات المرفقة وفيها ثلاث استعلامات اجرائيةQ1 استعلام إلحاقQ2 استعلام حذفQ3 استعلام الحاقوعندي النموذج QQ السؤال كيف يمكنني اضافة زر ((أمر)) واحد ينفذ هذه الاستعلامات بضغطة واحدة وذلك في النموذج QQوشكراً سلفاً AB.rar

السلام عليكم ورحمة الله وبركاته من زمان كنت ابحث في المنتديات والمواقع التقنية عن كود لجلب الصور من فولدر الى الاكسيل لم اوفق في هذا البحث واقرب ما وجدته كان كود قديم لا يعمل الا على الاكسيل القديم 97 - 2003 وكان الملف حجمه كبير وبطيء على الجهاز ولا يناسب طبيعة عملي ثم تركت الفكرة لفترة ثم بدأت في الاطلاع على ال VBA وبدات في تسجيل بعض الماكرو البسيطة واستخدامها في عملي حتى تذكرت في يوم رغبتي القديمة فقلت ولم لا لما لا ابدء في عمل كود لجلب الصور من الملف بامكانياتي المتواضعه فبدأت في تسجيل ماكرو عادي ثم عدلت على الكود قليلا قليلا بمساعدة البحث وموقع Stack Overflow وكتاب VBA For Dummies حتى كانت النتيجه مرضية الى حد ما لي واردت مشاركة ما بدأته معكم والشكر موصول للاساتذة في منتدى اوفيسنا والذي تعلمت منه الكثير والان مع الملف وهو عبارة عن ملف اكسيل به عدد 2 شيت الشيت الاول DATA : يحتوي على جدول به ثلاث اسطر السطر الاول لتحديد المسار اي عنوان الفولدر الذي يحتوي على الصور وهو في الملف المرفق اسم الفولدر"1" في البارتيشن "D" ويجب الحرص على وضع شرطه مائلة بعد عنوان الفولدر مباشرة السطر الثاني لتحديد امتداد ملف الصور ويكتب نقطة ثم الامتداد السطر الثالث لتحديد عنوان الخلية المراد وضع اسم الصورة بها في الشيت الاخر "Gallery" الشيت الثاني Gallery : يحتوي على اطار الصورة التي سيتم استدعائها بناء على التغيير في الخلية الموجودة تحت اسم الملف وهذه الخلية يمكن تغيير موضعها عن طريق شيت DATA في ثالث سطر في الجدول - ملحوظة الصورة يمكن تعديل حجمها وتغيير مكانها حسب الحاجة وفي النهاية ارجوا ان تستفيدو من هذا الملف ولي رجاء من له اي استفسار لا يبخل به علينا ومن له تصحيح او نصيحة لا يبخل بها علينا والملف حقوقه محفوظة لكل مسلم سيحانك اللهم وبحمدك استغفرك واتوب اليك Great 1.zip

السلام عليكم ورحمته الله وبركاته بالبداية احب ان اشكر هذا المنتدى الجميل وبصراحة اسفتد كثير من هذا المنتدى بس ساقول بارك الله فيكم ومساعدتكم للناس ويجعله في ميزان حسناتكم اخواني الاعزاء محتاج كود ترقية الموظف يعني مثلا عندي موظف درجة /9 وترقى في سنة 2015 وبعد 3 سنوات سيتم ترقيته اريد كود يعمل تاريخ ترقيته تلقائياً في الحقل ملاحظة :- الموظف درجة / 10 و 9 و 8 و 7 كل 3 سنوات تتم ترقيتهم والموظف درجة / 6 و 5 و 4 و 3 كل 4 سنوات تتم ترقيتهم والموظف درجة / 2 و 1 كل 6 سنوات تتم ترقيتهم هل يوجد كود هكذا والنموذج في المرفقات وشكرا لكم ولكل من يستطيع مساعدتي Database1.rar

من فضلكم اريد المساعدة في كود الترحيل برقم مثلا ترحيل 1 ، ترجيل 2 ، ...... حتى لا يعيد الترحيل مرة أخرى و لكم مني فائق الاحترام و التقدير. z1 = Sheets("Dataentry").Range("e5").Value For i = 3 To 34 If z1 = Sheets("Timeline").Cells(1, i) Then Sheets("Timeline").Cells(3, i) = Sheets("Dataentry").Range("e7").Value Sheets("Timeline").Cells(4, i) = Sheets("Dataentry").Range("e8").Value Sheets("Timeline").Cells(8, i) = Sheets("Dataentry").Range("e10").Value Sheets("Timeline").Cells(9, i) = Sheets("Dataentry").Range("e11").Value End If Next i Sheets("Dataentry").Range("e7:f11").ClearContents job costing.rar job costing.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" ايام مباركه من الله عز وجل و لا تنسونا من صالح الدعاء أقدمه لكم صدقه جاريه على روح المغفور لها امى و استاذنا / عماد الدين الحسامى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه و هديتى متجدده باذن الله تعالى من هنا اضغط على رابط العنوان اسفله للوصول للمدونه

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه ( موضوع مميز ) درس في الترحيل باستخدام الاكواد_ بدأه _ أ / عماد الحسامى شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba _ بدأه _ أ / عماد الحسامى ( موضوع مميز )ملف كامل عن كيفية استحدام ال UserForm والتعامل مع كافة جوانبه_ بدأه _ أ / عماد الحسامى (موضوع مميز) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء_ أ / عماد الحسامى شرح شريط أدوات _ أ / عماد الحسامى دالة مستحدثة جديدة ( RANKING للترتيب التلقائي ) _ أ / عماد الحسامى شرح جملة الدوران For ... Next (موضوع تعليمي) _ أ / عماد الحسامى ملف كامل للجمل الشرطية واستخدام الخلايا (موضوع تعليمي) _ أ / عماد الحسامى استيراد خلايا ذات تنسيق مختلف (عامودي الى افقي) _ أ / عماد الحسامى شرح كيفية عمل الكشوقات ذات المتغيرات المتعددة _ أ / عماد الحسامى الجمع بشرط ما بين تاريخين _ أ / عماد الحسامى و هشام شلبى كود تلوين الخلية المختارة واعادة التنسيق عند الخروج _ أ / عماد الحسامى و هشام شلبى كود بديل VLOOKUP & SUMPRODUCT _ أ / عماد الحسامى و هشام شلبى موضوع مميز_ كود بديل VLOOKUP & SUMPRODUCT مع شرح الكود _ أ / عماد الحسامى و هشام شلبى من هنا وهناك : نافذة للجميع لإضافة كل جديد وطريف في عالم الإكسيل _ أ / هشام شلبى بالكود_نموذج خفيف_ عكس النص او الرقم _ أ / هشام شلبى رقم أول وآخر سطر يحقق شرط معين _ أ / عماد الحسامى_و_ أ /عبدالله باقشير اهداء_موضوع مميز_فورم لدوال الاكسل_خطوه خطوه _ أ / عبدالله باقشير دليل المواضيع المثبتة _ بدأه _ أ /عبدالله باقشير _ منتدى اوفيسنا [موضوع مميز] دالة الصفيف kh_MatchArray لارجاع ارقام صفوف سجلات حسب شروط _ أ / عبدالله باقشير دروس عن المصفوفات _ أ / عبدالله باقشير فورم لحفظ نسخة من الملف _ أ / عبدالله باقشير كود جاهز_نسخ ورقة عمل بالكامل مع اعادة التسمية _ أ / عبدالله باقشير قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري) _ أ / عبدالله باقشير قوائم مخصصة على الفورم باستخدام CommandBars _ أ / عبدالله باقشير ملف لحوالي 560 لون مع المعلومات (Hex Code , RGB , MSAccess) _ أ / عبدالله باقشير فورم باوامر صناديق الحوار Application.Dialogs _ أ / عبدالله باقشير فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به _ أ / عبدالله باقشير فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به _ أ / عبدالله باقشير هل تعلم---------- معلومات تخص ListBox _ أ / عبدالله باقشير بالكود_ نسخ صف مماثل بالتنسيقات والمعادلات _ أ / عبدالله باقشير استخلاص بيانات من عمود الى عمود آخر_مع عدم التكرار _ أ / عبدالله باقشير كود صغير جدا و لكن مفيد جدا_كود منع ادخال الارقام و الاسماء المكرره عند ادخالها فى عمودين _ أ / عبدالله باقشير بالكود ترحيل بيانات غير مكررة بشرط _ أ / عبدالله باقشير دوال لجمع قيم بين تاريخين_جمع نطاق بين تاريخين _ أ /عبدالله باقشير _ احمدزمان _ أبوعبد الله_اكسلجى كود اضافة صف_صفوف بنفس التنسيق و المعادلات بعدد محدد _ أ / أبوعبد الله_اكسلجى كود جاهز_لعمل اطار(سطر تحديد) مع اخر سطر به بيانات _ أ / أبوعبد الله_اكسلجى كود جاهز_اجبار المستخدم على ملىء خلايا او نطاق محدد _ أ / أبوعبد الله_اكسلجى كود ادراج صف جديد بدبل كليك مع نسخ المعادلات _ أ / أبوعبد الله_اكسلجى بالكود_ادراج أو حذف سطر بمعادلاته و تنسيقاته دبل كليك _ أ / أبوعبد الله_اكسلجى بالكود_فورم عرض تعليقات الخلايا _ أ / أبوعبد الله_اكسلجى اكواد مميزه مجمعه_للبيانات المكررة _اظهار_اخفاء_مسح_تلوين _ أ / أبوعبد الله_اكسلجى بالكود_sumif_لجمع قيم كثيرة_مع ترتيب ابجدى تلقائى _ أ / أبوعبد الله_اكسلجى شرح دالة TRUNC_جمع خليتين قرش و جنيه _ أ / أبوعبد الله_اكسلجى كود صغيرة و مفيدة جدا_ لتلوين الخلايا التي بها معادلات وكود للتراجع عن التلوين _ أ / أبوعبد الله_اكسلجى بالمعادلات_عدم التكرار و استخراج البيانات المكررة باستخدام التنسيق الشرطى _ أ / أبوعبد الله_اكسلجى معادلة CONCAT ومفهوم جديد وطريقة اسهل في دمج البيانات _ أ / أبوعبد الله_اكسلجى كود لتلوين وإلغاء تلوين كل الخلايا التي بها تعليقات COMMENTS _ أ / أبوعبد الله_اكسلجى كود لدمج البيانات مهما كان عدد الخلايا أو موقعها أو ترتيبها _ أ / أبوعبد الله_اكسلجى كود_ادراج صف جديد بين صفوف ورقة العمل _ أ / أبوعبد الله_اكسلجى كود صغير جدا و لكن مفيد جدا_ادراج تاريخ ادخال البيان _ أ / أبوعبد الله_اكسلجى بالكود و المعادلات_فلترة بدون تكرار للبيانات المكررة و ترحيلها الى صفحة جديده _ أ / أبوعبد الله_اكسلجى _ نزار سليمان عيد ألغاز إكسيلية (موضوع ترفيهي) _ _ أ / ياسر خليل أبو البراء المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى _ أ / ياسر خليل أبو البراء دورة كاملة في المصفوفات Arrays من البداية إلى ما شاء الله (الحلقة الأولى) _ أ / ياسر خليل أبو البراء دورة كاملة في المصفوفات Arrays من البداية إلى ما شاء الله (الحلقة الثانية) _ أ / ياسر خليل أبو البراء وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه _ أ / ياسر خليل أبو البراء حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial _ أ / ياسر خليل أبو البراء حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته _ أ / ياسر خليل أبو البراء الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة _ أ / ياسر خليل أبو البراء فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري _ أ / ياسر خليل أبو البراء تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي _ أ / ياسر خليل أبو البراء منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود _ أ / ياسر خليل أبو البراء تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator _ أ / ياسر خليل أبو البراء عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد _ أ / ياسر خليل أبو البراء تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) _ أ / ياسر خليل أبو البراء بالكود و المعادلة_تجميع قيم و كميات لحساب او بند متكرر _ أ / ياسر خليل أبو البراء _ أ / أبوعبد الله_اكسلجى ( موضوع مميز ) بالكود_و_المعادلات_ استخراج الأسماء المكررة في قائمة _ مشاركات الاعضاء كود مميز_استخراج اسماء بدون تكرار مباشرة on air _ أ / عماد الحسامى و مشاركات الاعضاء امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله))_بدأه الاستاذ / ضاحي الغريب تكبير وتصغير الصورة داخل الفورم _ الاستاذ / ضاحي الغريب شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup _ أ / شوقي ربيع درس في طريقة التعامل مع ListView _ أ / شوقي ربيع حركة جديدة (اجعل الفورم يأخذ اي شكل تريده) _ أ / شوقي ربيع تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس _ أ / شوقي ربيع قوائم مخصصة على الز الايمن للماوس _ أ / شوقي ربيع شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع) _ أ / شوقى ربيع طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة_ بدأه _ أ / حماده عمر طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة_ بدأه _ أ / حماده عمر طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة_ بدأه _ أ / حماده عمر طلب عند تشغيل كود معين ان يطلب كلمة سر لتشغيل هذا الكود _ أ / حمادة عمر كود تشغيل الفورم مع فتح الملف تلقائيا _ _ أ /حمادة عمر شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination _ أ / حسام عيسى _ الصقر شرح مبسط عن msgbox فى لغة البرمجه VBA _ أ / حسام عيسى سلسلة علمنى كيف اصطاد - الترحيل _ أ / حسام عيسى _ الصقر سلسلة علمنى كيف اصطاد - الحلقة التكرارية For next _ أ / حسام عيسى _ الصقر سلسلة علمنى كيف اصطاد ( الفورم ) Forms _ أ / حسام عيسى _ الصقر نظرة عامة حول النماذج وعناصر تحكم النماذج وعناصر تحكم ActiveX في ورقة عمل _ أ / حسام عيسى _ الصقر شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination _ أ / حسام عيسى _ الصقر سلسة علمنى كيف اصطاد - ( الداله MAX / الداله Min ) _ أ / حسام عيسى _ الصقر سلسة علمنى كيف اصطاد __ أ / حسام عيسى _ الصقر داله DateDif رائعه لايجاد الفرق بين تاريخين او طرح تاريخين_ أ / حسام عيسى _ الصقر شرح VLOOKUP وMATCH وINDEX وكيفية الربط بينهما _ أ / حسام عيسى _ الصقر اقدم لكم شرح مبسط لداله VLOOKUP للمبتدئين __ أ /حسام عيسى _ الصقر دعوة للتصفح داخل هذا الكنز _ أ / حسام عيسى _ الصقر و من روابط المنتدى داله IF بلا حدود الجديده مع الشرح_ أ / هادى محمد المامون سالم الماكرو للاستاذ هادي مأمون و شرح لبرنامج المصروفات _ مشاركة_ أ / محمد يحياوي اهداء الى الاستاذ / هادى محمد المامون سالم اظهار قيمة فى كمبو بوكس على اساس قيمة مختارة من كمبو بوكس اخر _ أ / هادى محمد المامون سالم تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور _ أ / هادى محمد المامون سالم SumProduct - الجزء الأول _ أ / يحيى حسين (موضوع مميز ) اصنع صندوق الادوات وعناصر التحكم الخاصة بك في محرر الاكواد_ بدأه _ أ / محمد يحياوى اعادة الاكسل الى الاعدادات الافتراضية _ أ /محمد يحياوى ملف اكسل تنفيذي _ أ / محمد يحياوى بعض الاكواد المستخدمه مع التيكست بوكس_ أ / إبراهيم ابوليله اهداء للمنتدى-كود الذهاب الى شيت معين بعد ترك الملف غير نشط لمده من الزمن _ أ / إبراهيم ابوليله موضوع مميز---اظهار ناتج الجمع بناء على شروط فى حالة الفلتر _ أ / ابراهيم ابو ليلة اهداء الى المنتدى-شرح كيفية عمل بحث باستخدام conditional formatting _ أ / ابراهيم ابو ليلة سلسلة دروس التنسيق الشرطي Conditional Formatting للأستاذ إبراهيم أبو ليلة (إهداء للمنتدي) _ أ / ابراهيم ابو ليلة شغل برنامجك بدون تفعيل الماكرو لمن يعانون من تفعيل الماكرو _ أ / ياسر العربى ايقونات و ازرار الماكرو ( تصاميم مختلفة )_ بدأه _ أ / الجزيرة فكره مقتبسه من برنامج الاسيوطى المحاسبى (اختيار لون لبرنامجك بالتنسيق الشرطي) _ أ / ابو اياد ( الاسيوطى ) اهداء بسيط لاعضاء المنتدى الكريم اكواد الا خ زياد مع الشرح اكرمة الله_ أ / حسين شاكر هديتى مدونة_مينى كود_اسكتش_ترحيل_بحث_ادخال_فورم_متجدد _ جلال الجمال _ ابو ادهم هديتى مدونة_مينى كود_اسكتش_متجدد _ جلال الجمال_ابو أدهم هديتى مدونة_مينى كود_اسكتش_التنسيق_خلفيات_الخط_التظليل_متجدد _ جلال الجمال _ ابو ادهم كود مميز جاهز_كود دبل كليك لاستدعاء اى فورم ...الخ _ مشاركة / جلال الجمال_ابو أدهم ( VLOOKUP ) من البداية وحتى الاحتراف _ أ / خالد الرشيدى اخر قيمة مطابقة لقيمة البحث -- LOOKUP _ أ / خالد الرشيدى شرح الدالة INDIRECT _ أ / خالد الرشيدى شطب تواريخ الصلاحية المنتهية_ أ /محمد الريفى تعلم الداله sumifs بشكلها البسيط والمتقدم _ أ / محمد الريفى حالات متقدمه لدلة الجمع SUM _ أ / محمد الريفى دالة Hyperlink باسهل مما تتخيل _ أ / محمد الريفى ابجدة الاسماء بالمعادلات _ أ / محمد الريفى استخراج القيم بدون تكرار _ أ / محمد الريفى استخدام الدالة VLOOKUP من الواقع العملى -لقائمة اسعار _ أ / محمد الريفى استخدام دالة VLOOKUP فى الواقع العملى (البحث فى عدة صفحات) بشكل جديد وسهل _ أ / محمد الريفى Excel what-if analysis ادوات التحليل ماذا-لو؟ _ أ / محمد الريفى صيغ متقدمة فى دمج وتحويل _ أ / محمد الريفى ربط الحلايا / وتخطى الفراغات _ أ / محمد الريفى و مشاركات الاعضاء شرح الترحيل بالأكواد _ أ / محمود الشريف شرح مبسط لدالهIFERROR مع VLOOKUP فى استخدامها لإستعلام او الإستدعاء _ أ /محمود الشريف إستخدام جملة التكرار For ... Next _ أ / معتصم محمد جولة فى عالم الإكسل 2007 شرح الدوال Average و Min و Max و 3 دوال Coun _ أ / معتصم محمد المحافظة على مرونة جدول (لا نطاق ) في ورقة محمية فنزيد صفوفه _ أ / محمد حسن المحمد حل عمل " FREEZE " للوقت أو التاريخ بعيدا عن الأكواد والمعادلات _ أ / جمال عبد السميع شرح UserForm Spreadsheet _ أ / أبو تامر_عمر الحسينى دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر _ أ / أبو تامر_عمر الحسينى احدى الطرق لحساب نسبة معدلات الخصم او الاضافة _ _ أ / أبو تامر_عمر الحسينى إستيراد وتصدير جدول إكسيل من وإلى الأكسيس _ _ أ / أبو تامر_عمر الحسينى صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة _ أبو تامر _ عمر الحسينى موضوع مميز_عمل جمع تلقائى بواسطة Dynamic table Range مع الداله OFFSET _ أ / أبو تامر_عمر الحسينى كود جمع تلقائى ديناميكى بناء لمتغير محدد _ أ / أبو تامر_عمر الحسينى الحلول الذكية و شريط الادوات الذكية _ أبو تامر _ عمر الحسينى كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة _ أبو تامر _ عمر الحسينى تصدير مدى محدد الى الوورد _ أبو تامر _ عمر الحسينى دالة تجزئة الاسماء و الارقام _ أبو تامر _ عمر الحسينى دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب _ أبو تامر _ عمر الحسينى استرجاع اعدادات الاكسل الاصلية _ أبو تامر _ عمر الحسينى التخلص من علامات خطأ المعادلات _ أبو تامر _ عمر الحسينى نسخ الاكواد من ملف الى ملف _ أبو تامر _ عمر الحسينى أداة تحويل صيغ المعادلات الى اكواد _ أبو تامر _ عمر الحسينى التحكم بأشرطة الادوات والقوائم المنبثقة _ أبو تامر _ عمر الحسينى تلوين السطور الفردية أو الزوجية _ أبو تامر _ عمر الحسينى كيفية الحصول على سريال نمبر الهارد ديسك _ أبو تامر _ عمر الحسينى اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) _ أبو تامر _ عمر الحسينى إستخراج النتائج بشرطين صيغة ظريفة سلسلة _ أبو تامر _ عمر الحسينى منع حفظ الملف بأسم آخر _ أبو تامر _ عمر الحسينى زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 _ أبو تامر _ عمر الحسينى اكواد و اوامر ( VBA ) مفيدة _ أبو تامر _ عمر الحسينى المدى او النطاق ( ثابت / ديناميكى ) _ أبو تامر _ عمر الحسينى الارقام العشوائية بدون تكرار _ أبو تامر _ عمر الحسينى دالة (VLOOKAnyCol) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر _ أبو تامر _ عمر الحسينى ادراج مجموعة من الاسماء فى combobox _ أ / / أبو تامر_عمر الحسينى و خالد القدس تعلم فيجول بيسيك بالعربى من البداية _ اهداء الى _ أ / محمد طاهر _ مشاركة_ أ / أبو تامر_عمر الحسينى كود صغير جدا و لكن مفيد جدا_ازالة الاصفار و الفراغات من عمود مع اعادة الترتيب _ أ / أبو تامر_عمر الحسينى _ أ / أبوعبد الله_اكسلجى بالكود_التنبه عند تكرار قيمة _ أ / محمد طاهر معرفة هل السجل له مثيل و تحديد عدد التكرار _ أ / محمد طاهر أغلب اختصارات الاكسيل _ أ / محمد طاهر طريقة تصميم شيت على الاكسل _ أ / مجدى يونس التحكم بنطاق الخلايا الثابت داخل المعادلة وجعله متحركاً_دالة ( countif ) _ أ / أكرم الغامدي كود ممتاز لتلوين الخلية حسب قيمتها (شرح كود) _ أ / عبد الفتاح كيرة و مشاركات الاعضاء تنسيق شرطي للمعادلات _ أ / سليم حاصبيا The Duplicate _ أ / زياد علي Sorting and Subtotals _ أ / زياد علي الجدول الديناميكي _ أ / عادل حنفي افتح اي ملف وور او اكسل عن طريق الصندوق الحواري _ أ / عادل حنفي هل تود ان تكون مبرمجا علي الاكسل _ أ / عادل حنفي و مشاركات الاعضاء شرح لبعض اوامر الماكرو 2 _ أ / احمد حمور-ابوعبدالله هل تعلم؟؟ معلومات تهمك عن الاكسيل _ أ / رفيق محمد شرح فلاشي لدالة LOOKUP بتطبيقاتها الرائعة _ أ / أبو أكرم هدية مميزة:تظليل الخلية الفعالة _ أ / ياسر أحمد الشيخ sum product بعض استخدامات الداله _ أ / محمد عادل عبد الغنى إسترجاع و إزالة الوضع الإفتراضي لقوائم و أشرطة إكسل _ أ / halwim طريقة لتخفيف حجم ملفات إكسل بشكل مذهل _ أ / halwim عدة أمثلة لإستخدام التحقق من الصحة والتنسيق الشرطي _ أ / halwim شرح ايجاد الفرق بين تاريخين بالمعادلات و الاكواد (محاكاة الدلة DateDif) _ أ / ابو تراب تنسيقات غير تقليدية للأرقام بدأه / Sharaf و مشاركات الاعضاء دليلك لصناعة رسائل msgbox احترافية _ أ / محمد صالح الصناديق الحوارية فى الاكسل dialog boxes _أ / رجب جاويش احفظ ملف الاكسل باسم أي خلية مع امكانية تحديد مكان الحفظ _ أ / احمد فضيله كود جاهز_لحفظ ملف العمل و تسميته فى مسار محدد _ أ / أبو حنــــين استخراج قائمة بيانات غير مكررة أ / احمدزمان بالكود_اضافة ورقة عمل جديده منسوخه من شيت بتسميه جديده _ أ / ابو اسامة العينبوسي بالكود_استعرض خطوطك_FONT _ ا / ابو اسامة العينبوسي كود صغير جدا و لكن مفيد جدا_AUTO fit_تغير عرض العمود طبقا للنص و الرقم _ أ / الشيباني1 بالفورم اجراء عمليه حسابيه_قسمه و ضرب و طرح _ أ / طلعت محمد حسن دليل وظائف LOOP _ أ / الزباري مشاركة ملف الإكسيل لأكثر من مستخدم والتعديل عليه في نفس الوقت _ أ / الزباري طريقة مبسطة لتقسيم الصفحة مع تكرار العناوين وإضافة إجمالي لكل صفحة _ أ / الزباري _ _ أ / سليم حاصبيا IF FUNCTION _ أ / haroonqudah كود صغير جدا و لكن مفيد جدا_تلوين صف الخلية النشطة او الخلية فقط _ أ / h63 كود لاظهار الارقام الساقطة من التسلسل و الارقام المكرره _ مشاركات الاعضاء كود اظهار الحرف الاول من الكلمه او الصنف بعمود _ مشاركات الاعضاء بالكود و المعادللات_نقل بيانات من نطاق لاخر بنفس الصفحه _ مشاركات الاعضاء بالكود و المعادلات_استخراج اخر عملية لعميل معين _ مشاركات الاعضاء كود صغير جدا و لكن مفيد جدا_تلوين صف الخليه النشطه مع تحديد النطاق _ مشاركات الاعضاء كود صغير جدا و لكن مفيد جدا_كود حذف صفوف الارقام و الاسماء المكرره عند ادخالها _ أ / asmo200666 لنتعلم معا : دالة INDEX _ أ / مصطفى كمال و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

انا صممت برنامج بالإكسيل وعندي بعض النواقص بالاكواد. إذا ممكن المساعدة. علما ان نصف البرنامج صممته من خلال المنتدى 1- ممكن كود يفتح UserForm من نفس UserForm. يعني إذا انا صممت قائمه حساب. وارغب بفتح قائمه حساب جديدة وعدم اغلاق السابقة 2- ممكن كود طباعة فقط ListBox اي محتويات ListBox فقط من خلال UserForm او طباعة TextBox معين انا اقوم باختياره 3- ممكن كود اضافه TextBox جديد في نفس UserForm بشكل أوتوماتكي في حال ملائة TextBox الاول بالبيانات يقوم اضافة TextBox ثاني بشكل أوتوماتكي 4- ممكن كود ترقيم تلقائي UserForm في حال قمت بالبيع مثلا يعطيني رقم جديد للقائمه او يظهر لي باركود بدل الترقيم التلقائي شاكرين تعاونكم معنا محمد ثامر

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

السلام عليكم ..... لمن لديه الخبرة فقد تم أضافة صندوق بخيارات ليتم أختيار قيمة معينة رقم السيارة مثلاً ويقوم بدوره بفتح التقرير أستناداً إلى القيمة المختارة من صندوق الأختيارات. ملاحظة:في الملف المرفق تم تطبيق كود لربط رقم الموظف مع تقرير معين وقد عمل بشكل جيد ولكن عنده محاولة تطبيقه على تقرير أخر يظهر رسالة لأدخال القيمة يدوي. المطلوب:هو عند أختيار نوع السيارة حسب الرقم والضغط على زر التقرير يظهر لي السيارة المختارة فقط. Human Resources DataBase-beta.rar Human Resources DataBase-beta.rar

السلام عليكم و رحمة الله كيف يمكنني عدم تمكين زر الاغلاق نص35 فى نموذج اذا كان مربعين النص [my_numbr1]و[my_numbr2] بهم ارقام وتمكين الزر اذ كان مربعين النص فارغين

السادة المحترمون سلام الله عليكم مش عارف ايه الغلط فى الكود ده Private Sub cbotype_AfterUpdate() Dim ctype As String ctype = "select* from tbl_customers where ( [ type ] = ' " & Me.cbotype & "')" Me.customers_subform.Form.RecordSource = cbotype Me.customers_subform.Form.Requery End Sub New Microsoft Access Database (2).rar

كود انتقال.rar

اخي الكريم ... اشكر اهتمامك .. لنفترض انا حيكون عندي فورم مكون من textbox 1 + textbox2 textbox1 يوجد فيه نص ... انا بدي كود يكتب كلمة محددة في textbox2 / اذا وجدت كلمه معينه في النص الموجود في textbox 1

السلام عليكم ورحمة الله وبركاته اتمني حد يرد عليا في طلبي دا يوجد ماكرو اسمه kh_wVisible عايز اضيفه مع الكود بنفس الطريقه في الكود وكل ماضيفه للاسف لا يعمل علما ان لاغي علامة x من العمل يعني الاكسل لا يغلق لو ضغطنا علي علامة ( x ) وعامل زر لاغلاق الاكسل يريت اهل الخبرة يفدوني في اصلاح هذا الكود الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If kh_wVisible False End Sub

السلام عليكم أخوانى على الرابط التالى موضوع http://www.officena.net/ib/topic/58539-استدعاء-بيانات-بهذه-الطريقة،-يوجد-ملف-مرفق/#comment-373767 الكود المعنى بالتعديل " GetIdFaster " ليشمل عدة أعمدة من العمود C الى العمود Z بالمرفق ياللى بالمشاركة رقم 6 وهو من تنفيذ الاستاذ / ياسر خليل تقبلوا وافر تقديرى

السلام عليكم ورحمة الله وبركاته أخواني الكرام الحمد لله الذي بنعمته تتم الصالحات نحمده ونشكره على نعمه الذي لاتعد ولاتحصى أحبائي واساتذتي وعلمائينا الافاضل في هذا الصرح الذ طالما ابدعنا واذهلنا في كل شي جديد في مجال الاوفيس بشكل عام والاكسيل بشكل خاص يوجد في الملف المرفق كود للاستاذ والعلامة عماد الحسامي يقوم بترحيل البيانات واظهارها بناء على اسم الحساب يعني (كشف حساب للعميل) قمت بتعديله لكي يناسب متطلبنا وتم التعديل ولله الحمد ولكن عندما كبر عدد الادخالات في الملف واصبحت بحجم ضخم تقريبا 25000 الف سطر أصبح تنفيذ الكود يأخذ وقت كبير مثل موضوعنا السابق ميزان المراجعة بالكودات http://www.officena.net/ib/topic/63382-ميزان-مراجعة-بالكودات/ ولكن عند تقريب تاريخ بداية الكشف الى تاريخ النهاية يصبح تنفيذ الكود سريع نسبياً في العمل بحثت وتعبت صراحة من البحث حول الموضوع كلها مواضيع حول ظهور نتائج البحث في اليوزر فورم ولكن كود الاستاذ عماد الحسامي فيه شي جميل أنه يظهر الحساب في الورقة ويظهر معه الرصيد السابق تبعا لتاريخ البداية وهذه الميزة رائعة ولها اهمية كبيرة في مجال المحاسبة فهل تشاهدون الملف المرفق وتذهبون الى ورقة كشف حساب والنقر على أيقونة كشف حساب شاهدو الوقت المستغرق الذي يأخذه الكود في التنفيذ البيانات مصغرة في الملف هل توجد طريقة لكي نسرع ترحيل البيانات وظهورها في الورقة أو فكرة أخرى يتفضلون علينا بها علمائنا واحبابنا الكرام تعديل كشف حساب.zip

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

ممكن يوزرفورم يقوم بادخال البيانات كما في الصورة اليوزر الفورم للجدول الاول (على اليمين) اليوزر الفورم الثاني للجدول الثاني (على اليسار) مع توضيح إذا امكن (للأكواد) ملاحظة عندما يقوم بتعبئة البيانات في اليوزر فورم اريد ان ينزل تلقائياً للصف بعده، والجدول يتوسع تلقائياً ليشمل البيانات الجديدة (حين يتم تعبئة بيانات على صف جديد) أيضاً مثلاً عند كتابة تاريخ خاطئ يقوم بتنبيه كذلك في في العمود الرابع من كل جدول، يقوم بتنبيه إن كانت القيمة ليست أرقام هذا رابط لملف الاكسل http://www.gulfup.com/?SXGyuW وجزاكم الله خير

السلام عليكم ورحمة الله وبركاته وبعد هذا كود صممته _ مع قلة خبرتي في مجال الاكواد _ لينفذ أمر يشغل بال الكثير منا وهو تثبيت نطاق من الصفحة علوي وسفلي ليتكرر في جميع الصفحات . وعلى الرغم انني اعلم ان هناك طرق عادية يمنحها الاكسيل لتنفيذ ذلك نعم هذا صحيح !! ولكن ميزة هذا الكود انه يمنح ما لا يمنحه الاكسيل بالطريقة التقليدية في الاكسيل ( راس وتذييل ) الميزة هي: اننا نستطيع تثبيت جدول اعلى واسقفل كل صفحة. مشكلة هذا الكود :هو يعمل بشكل صحيح قي اول صفحة فقط ثم يقوم في باقي الصفحات بتثبيت النطاق الثاني الموجود بالكود فقط. الكود : Sub braa_head_foot() With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleRows = "$52:$55" ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End With End Sub braa_head-foot.rar

السلام عليكم اريد كود اخفاء صفحة و كود اظهار صفحة

السادة الكرام سلام الله عليكم ورحمته وبركاته ----- المطلوب عندما يتم كتابة تاريخين من والي في الخليتين B3 , B4 والضغط علي الزر يتم كتابة رقم 1 في النطاق من H:H في Sheet2 امام اي صف ينحصر بين هذين التاريخين " اي يكون اكبر من او يساوي التاريخ الاصغر واقل من او يساوي التاريخ الاكبر " كما هو موضح بالمرفق ------ وشكرا جزيلا استفسار هاااام.zip

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

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

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

السلام عليكم ورحمة الله وبركاتة . هذا الملف المرفق هو تلوين صف نشط . أولا يوجد أهتزاز في الورقة عند المشى بالأسهم ياريت أن تجعلوه لي لا تهتز الورقة أثناء التحريك وثانيا أريد حماية الخلايا التي أنا أريدها علما أستخدمت الكود التالي ولا فائدة وشكرا جدا ActiveSheet.Unprotect ActiveSheet.Protect 23321.rar