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

افرض عندك قائمة طويلة في احدى أعمدة الاكسيل و تحتوي هده القائمة على 5000 اسم مثلا .. و في مكان أخر هنالك خلية تستعمل لادخال اسم من الأسماء الموجودة بالقائمة .. هدا السيناريو يحتاج في الغالب الى قائمة منسدلة Data Validation List لتفادي الادخال في الخلية أسماء غير موجودة على القائمة ... هدا حل جيد لكنه بطيئ حيث يتطلب من المستخدم البحث بين 5000 اسم بواسطة شريطScrollBar قبل أشهر كتبت هدا الكود الدي يستدعي و يفلتر الأسماء أليا بمجرد بدأ كتابة الأحرف الأولى ... ملف للتحميل : https://app.box.com/s/v6uamjb6tad3ozs6ajw0bnt61292ja7v طريقة العمل : 1- Activate the Input Cell 2 - Press F1 Key to bring up the list 3 - ... Start Typing in and the list will get filtered automatically based on the letters you have typed 4 - Press Enter Key or use the Down /Up Arrow navigation Keys when the searched Item is found or Press the ESC Key to Cancel the whole operation

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

قبل أيام انتهيت من كتابة كود يفعل سكرول بمجرد وضع الماوس فوق أي كونترول و تحريك عجلة الماوس السكرول الأفقي يتم تفعيله لو المفتاح Ctrl Key مضغوط ... https://app.box.com/s/ese76vt2hinumy7flss2ovc11psqizyd الكود لا يشتغل في 64Bit Office 2010 x 64

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

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

رائع ما شاء الله ويا سلام لو فيه حاجة زي كدخ بس ترحيل الى الوورد

السلام عليكم و رحمة الله و بركاته بعد إذن الأستاذ الفاضل إبراهيم أبو ليله .. جرّب هذا الملف أخي محمد عبد السلام قد يكون ما طلبته NewForm 1.rar

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

اقدم لكم اصدقائي اليوم دليل هاتف بسيط ومرن واتمنى ان ينال اعجابكم ___________new.rar

شباب هذة هدية بسيطة وانا مستعد لاضافات او تعديلات حول البرنامج مسير رواتب الموظفين.rar

وعليكم السلام جرب المرفق دالة if (1).rar

السلام عليكم اخي عمار يبدو انك اخترت التنسيق المسبوق بعلامة النجمة* وهو تنسيق يتبع اعدادات نظام الويندوز لديك وبهذه الحالة يجب تغيير اعدادات التاريخ للويندوز ويتم ذلك من خلال الضغط على رمز الساعة الموجود بجانب رمز السماعة ثم change date..........change date ثم change calendar ثم اختار تقويم ميلادي تسمية انجليزية سوف تلاحظ التنسيق الذي سيظهر لك وهو dd/mm/yy

عسى ان ينال اعجابكم هذا الموضوع filter without filters.zip

نعم كل ما تحتاج هو تبديل "نعم" ب "لا" و هكدا .... Sub Test() MsgBox CountIf(Range("A1:H20"), "نعم") MsgBox CountIf(Range("A1:H20"), "لا") End Sub

السلام عليكم و رحمة الله و بركاته بارك الله فيك أخي فايز ياسين على التّوضيح .. جزاك الله خيرًا و زادها بميزان حسناتك

السلام عليكم حول تنسيق التاريخ الى تنسيق اخر سيظهر ان ما ادخلته هو شهر 3 ورقم سبعة يشير الى الايام حيث ان تنسيق التارخ الذي ادخلته تكون الايام في الوسط وتقبل تحياتي

السلام عليكم اخي عبد العزيز قمت بتجربة ما ذكرت والواجهة تعمل معي بشكل جيد بارك الله فيك وجزاك كل خير

السلام عليكم و رحمة الله و بركاته جرّب أخي مصطفى 20 هذا الملف .. ربما يكون ما تريده .. خالص تحياتي sssss - 2.rar

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته اخي عبد العزيز البسكري هدا هو المطلوب بارك الله فيك ونفع بك الاسلام والمسلمين

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

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

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

السلام عليكم ورحمة الله وبركاته اخي إبراهيم ابوليله المرفق في اعلى صورة NewForm.zip

أخي العزيز / طاهر محمد استعمل المعادلة التالية للمدى الذي تريده يتم تسطير الصف حسب المدى المحدد حسب الخلية ( A ) في نفس الصف إذا كانت أكبر من صفر والمعادلة هي =$A2>0 حيث تم تثبيت العمود (A) بوضع علامة الدولار($) قبله ليكون هو المعيار للتنسيق بينما الصف مطلق ليتغير بتغير الصفوف ويكون المعيار هنا الصف اللي الخلية (A) فيه أكبر من صفر فلو تم وضع علامة الدولار قبل رقم الصف سيصبح المعيار ثابت وهي الخلية (A2) لكل المدى وستصبح المعادلة بهذا الشكل =$A$2>0 لكن حسب طلبك المعادلة الأولى هي التحقق المطلوب إن شاء الله تسطير الي.zip

اخى انس دروبى عمل رائع ننتظر البرنامج المحاسبى جزاك الله خيرا

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

جميل جدا وتنبيه بسيط : يجب ان تكون جميع الجداول المرتبطه في القاعدة الامامية مغلقة حتى يسمح بنسخ القاعدة الخلفية كما انه يمكن الاستغناء عن الدالة الموجودة ومباشرة التعامل مع الامر filecopy تحياتي

السلام عليكم و رحمة الله و بركاته أخي العمري 1 تفقّد لو سمحت صندوق الرسائل الخاصة .. أرسلت لك الرابط على 4SHARED تحياتي

اخى الصقر جزاك الله خيرا والله صقر في البرمجه

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

قبل ما اواصل معاك حبيت الفت الانتباه الى كود الاستاذ ابا خليل في الرابط السابق ! واستنتاجا من ما ذكرت بانه تمام معك على mdb ! الانتباه : في كود ابا خليل يوجد السطر: NewFile = [DBNew] & "\" & DBwithoutEXT & "-" & (Format(Date, "yyyy") - 1) & "-" & Format(Date, "yyyy") & Right(DBwithEXT, 4) لاحظ الملون بالاحمر ! فهو يخص ال mdb ! جرب ان تعدل الرقم 4 الى 6 ! ثم جرب وطبق على accdb بالتوفيق لم يتم التلوين اقصد الجزئية: Right(DBwithEXT, 4) وكذلك في السطر التالي ومن الرابط السابق: DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) عدل 4 الى 6

تمام هل تريد نسخ القاعدة الخلفية على نفس مسارها وباسم مختلف ؟

لو تسمح حصرتك بمرفق صغير للتعديل عليه ورئية المشكلة لديك عيانا - فليس من رئا كمن سمع

بالنسبة للكود السابق ضعه خلف زر امر عند النقر والتاكد من تمكين المحتوى مع ملاحظة : - اذاكان ملف قاعدتك جديد من النوع accdb غير فقط abc.mdb الى abc.accdb وهنا ستجد ملف اكسس abc موجود في نفس مسار برنامجك الحالي - اذا لم يحدث شي قد تكون المشكلة صلاحية الكتابة على المجلد او المسار الذي به القاعدة الحالية بالتوفيق

اخي طاهر محمد إستخدام التنسيق الشرطي من الخلال دالة التسطير =AND($E10<>"";$E10>1)

بسم الله ما شاء الله أخيراً ظهرت على الشاشة بس ظهور مميز وفي منتهى الروعة والإبداع تسلم أخي الحبيب الغالي حسام بارك الله فيك وجزاك الله خير الجزاء

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الكريم " الصّقر " على الموضوع القيّم و الأفكار النيّرة .. جزاك الله خيرًا و زادها بميزان حسناتك

السلام عليكم وهذه محاولة مني :-) http://www.officena.net/ib/topic/63113-نسخ-ملف-خارجي-في-مجلد-خارجي/ جعفر

يقول المثل ابا خليل قديمك نديمك لذلك شغلك القديم اصح ! واسمح لي باختصاره الى الكود التالي Shell "cmd.exe /C copy " & """" & CurrentProject.FullName & """" & " " & """" & CurrentProject.Path & "\abc.mdb" & """" حيث الانتباه الى تساوي الامتداد بين الملف الحالي والوجهة ! تحياتي

وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج

السلام عليكم و رحمة الله وبركاته الدفاع عن النفس هذي حاجة تخوف شاهد الحل المرفق Sub TARHEEELL() ' ترحيل من sheet1 الى تقرير Dim FS As Worksheet, TS As Worksheet Dim R, ER1, ER2 Set FS = Sheets("Sheet1") Set TS = Sheets("تقرير ") FS.Range("B66:H66").Copy For ER2 = 6 To TS.UsedRange.Rows.Count + 9 If TS.Cells(ER2, 2) = "" Then TS.Range("B" & ER2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End End If Next ER2 End Sub مع التحية Xl0000016.rar

اخى الكريم اتفهم استخدامك لهذا الكم الكبير من التكست بوكس .. ولكن !!! جرب المرفق وابدى ملاحظاتك Book1.rar بالمرفق كود الترحيل فقط اما عن اكواد الاستدعاء والتعديل والحذف قم بفتح موضوع جديد لكل منهم تقبل تحياتى

رائع

أخي الكريم // مؤمن جمعة تم تعديل الفورم ليتناسب مع طلبك ماعليك الا ان تحدد العملية سيارات الشركة او سيارة موردين كالتالي جرب الفورم وان كانت هناك اي اخطاء او تعديلات اعلمني بها مع تحياتي متابعة السيارات.rar