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

السلام عليكم ورحمة الله وبركاته اخواني الاحباء،، احب ان اشارككم هذا العمل البسيط لعمل القوائم المدرسية بمناسبة افتتاح العام الدراسي الجديد.. يتميز بسهولة التعامل مع البرنامج.. وتم ارفاق ملفين ملف 2003 وملف فوق 2003 برنامج القوائم - الاصدار الاول-2003.rar برنامج القوائم - الاصدار الاول-2007.rar

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

الاخوة الافاضل السلام عليكم ورحمة الله اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو خاصة بتنظيم الوقت فاحببت ان اشارككم بها 1- اغلاق ملف الاكسل بعد وقت محدد : وهو ممتاز للملفات المشتركة والتي يتعامل بها اكثر من شخص او ان تحدد لنفسك وقت محدد للعمل على ايت حال يعتبر هذا المكرو ميزه جيدة يمكن اضافتها لعدة استخدامات المكرو : Private Sub Workbook_Open() Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes Application.DisplayAlerts = True TimeInMinutes = 180 'Timer is set for 180 minutes; change as needed. If TimeInMinutes > 5 Then TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60) Start = Timer Do While Timer < Start + TotalTimeInMinutes DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "This file has been open for " & TotalTime / 60 & " minutes. You have 5 minutes to save before Excel closes." End If Start = Timer Do While Timer < Start + (5 * 60) DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "Excel will now close." Application.Quit End Sub 2- تشغيل المكرو اتماتيكين لمدة ثواني - دقائق - ساعات بعد تشغيل ملف الاكسل, وهو مفيد جدأ عند الحاجة لربطة مع مكرو اخر يتم تشغلة بعد فترة من الزمن مثلاً أعداد قالب اختبارات ويتم التنبيه عن الوقت المتبقي لنتهاء فترة الاختبار ملاحضة يتم نسخ المكرو في ThisWorkbook لتفعيلة لا يستفاد من هذا المكرو على حدة - يجب ربطة بمكرو اخر للاستفادة من وذلك بتغير Name_of_Macro الى اسم المكرو المراد تفعيلة عند ربط وتفعيل المكرو يجب حفظ الملف واغلاقة ثم اعادة فتح الملف حيث انه سيبدء العد عند فتح الملف ان الوقت المحدد لهذا المكرو للبدء هو 10 ثواني ولتغيره قم بادخال الوقت المطلوب في خانة 00:00:10 المكرو: Private Sub Workbook_Open() 'Runs a macro 10 seconds after Excel is opened Application.OnTime Now + TimeValue("00:00:10"), "Name_of_Macro" End Sub 3- تشغيل المكرو في وقت محدد من اليوم مثلاً اساعة 4:43 عصراً وهو مقارب للمكرو السابق ولكن يعمل في وقت محدد من اليوم ملاحضة جميع الاعدادات السابقة لمكرو رقم 2 يجب تطبيقها لهذا المكرو بلأضافه الى انه سيعتمد على توقيت الساعة الموجودة في كمبيوترك المكرو : Private Sub Workbook_Open() 'Runs a macro at 4:30 PM Application.OnTime TimeValue("16:30:00"), "Name_of_Macro" End Sub مع تمنياتي للجميع بتوفيق اخوكم بوفيصل

عمل جميل ممكن مرفق 2003

جزاكم الله خيرا

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

منورة بيك يا استاذ أزهر العراقي وبكل من في المنتدى الغالي شكرا

السلام عليكم جزاكم الله خيرا هذه معادلة اخرى لاسم العميل ( ليست معادلة صفيف ) =INDIRECT("C"&LOOKUP(2;1/(SUBTOTAL(3;OFFSET(C6;ROW(C6:C150)-6;;1)));ROW(C6:C150))) ممكن تستخدمها هكذا علشان تعطيك كلمة اخرى في حالة عدم وجود فلترة =IF(SUBTOTAL(3;C6:C150)=COUNTA(C6:C150);"ALL";INDIRECT("C"&LOOKUP(2;1/(SUBTOTAL(3;OFFSET(C6;ROW(C6:C150)-6;;1)));ROW(C6:C150)))) تقبلوا تحياتي وشكري

تفضل أخى فرز بيانات1.rar

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

وجزاك الله خيرا يا ابو سليم

أخوتي الأعزاء في هذا المنتدى العزيز على قلبي : في البداية أود أن أشكر كل من رد على رسالتي هذه ، ,واعبر للجميع عن كامل حبي و إعتزازي لهم وكما وعدتكم فإنني أحب أن أرفق لكم هذه المجموعة من الأمثلة المثيرة و المفيدة بنفس الوقت و التي آمل أن تلاقي لديكم التقبل و الفائدة و الاعجاب وأعدكم بالمزيد المزيد من الامثلة المثيرة و المفيدة ،،،، مع جزيل شكري و إعتزازي للجميع ، ، ، ، autofill.zip autobkup2k.zip clipboard2k.zip BrowseAndOpenFile.zip password2k.zip wipeeffects2k.zip subformreference2k.zip wowaarch.zip boilerplate2k.zip