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

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

تفضل أخى كشف الحضور والغياب والفصل.rar

أليك أخى ماطلبت الحد الأعلى.rar

أتمنى يكون المطلوب تقبل تحياتى : وأدعى لمصر وجيشها TEST2.rar

أنظر الملف الأتى يمكن تفيدك معادلة البحث الموجودة به أما البحث عن طريق التاريخين الملف غير كامل ياريت يكون فى ملف أخر حتى يتسنى لى كتابة المعادلة المناسبة لحضرتك وستجد معادلة البحث عن العميل فى ( شيت ADD ) تقبل تحياتى إضافة ترحيل.rar

بعد إذن أساتذتى الأفاضل وبعد هذه الحلول الجميلة وبعد تنوية لأخى الغالى (هانى عدلى ) عن مرفق لى يقوم بفصل جميع ماترغب فصلة عن طريق تحديد الرقم ولكن هذا الحل يعتمد فى المقام الأول على وجود فراغ بين ماتريد فصلة ورغم الظروف التى تعيشها مصر وإن كنت متأكد أن الله حارس لها ليوم الدين ، وطالما بها شعب ، وجيش بهذه العظمة لن يخذلها الله أبدا و إن كنت أخذت على عاتقى عدم الأشتراك حتى تخرج مصر الحبيبة من هذه العثرة البسيطة إلا إننى رغبت فى مشاركة عملاق وعبقرى بحجم أستاذى ومعلمى ( يحيى حسين ) وأستاذى ( سعيد بيرم ) بهذه المعادلة وهى معادلة صفيف =1*MID(A1;MATCH(TRUE;ISNUMBER(1*MID(A1;ROW($1:$100);1));0);COUNT(1*MID(A1;ROW($1:$100);1))) وأتمنى الدعوة لقلب العروبة النابض أن يزيح عنها هذا الكابوس وإن كنت كما قلت قبل ذلك طالما بها ( جيش )، ( وشعب ) بهذه العبقرية لن يخذلها الله أبده وكل سنة والجميع بخير ومصر الحبيبة بألف خير وسلام

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

كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج و اعتذر للإطالة و تحياتى للجميع New_Microsoft_Access_Application.rar

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' ' هذا الكود للعالم العلامة عبد الله باقسير Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If Activewindow.ScrollColumn = 1 Activewindow.ScrollRow = 1 On Error GoTo 0 End Sub في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله التنقل بين الصفحات.rar

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

برنامج لقراءة الكتب الإلكترونية في ويندوز نتشرت مؤخراً الكتب الرقمية بكثرة وزادت مع انتشار الأجهزة اللوحية مثل “آي باد”، “جالاكسي نوت” و”كيندل” إلا أن المستخدم قد يرغب بقراءة الكتب على حاسبه المكتبي أو المحمول. يمكن استخدام برنامج “Genius PDF." في ويندوز المتخصص في قراءة الكتب الإلكترونية التي تأتي بصيغ مختلفة مثل “بي دي إف”، “إي بوب”، “سي بي آر” و “سي بي زيد”. بعد تشغيل البرنامج نلاحظ أن واجهته تشبه واجهة برنامج “آكروبات” من أدوبي خصوصاً عند فتح مستند “بي دي إف”، أما عند فتح أي ملف بصيغة “موبي” مثلاً فنلاحظ طريقة عرضه البسيطة والتي تركز على المحتوى دون وجود أزرار كثيرة وتعقيدات لتمنح المستخدم تجربة مشابهة لقراءة الكتب الإلكترونية على الحواسب اللوحية

النشرة الدورية العدد الخامس عشر - إبريل & مايو 2012 رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. news 15.pdf

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

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

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

كتابات الاستاذ / محمد طاهر http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=3 كتابات الاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=11314 كتابات الاستاذ / عبد الله المجرب http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=59952 كتابات الاستاذ / حمادة عمر http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=87469 كتابات الاستاذ / احمد زمان http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=18051 كتابات الاستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&search_app=forums&mid=68381&sid=84565fa0a04c1fd51a42420c7e32d59c&search_app_filters[forums][searchInKey]=&userMode=title كتابات الاستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=49440 كتابات الاستاذ / هشام شلبي http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=39948 كتابات الاستاذ / جمال دغيدى http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=27378 كتابات الاستاذ / سعيد بيرم http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=55837 كتابات الاستاذ / مجدى يونس http://www.officena.net/ib/index.php?app=core&module=search&do=user_activity&mid=54584 ساكمل الموضوع تباعا ان شاء الله

السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar

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

السلام عليكم الاخ الكريم / galal elgammal بارك الله فيك لقد قمت باضافة النصف الأخر من التفاحة الي الموضوع الذي طلبت فيه ذلك علي الرابط فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة ... ارجو ان يعجبك وينال رضاك تقبل خالص تحياتي

الاخ الكريم / galal elgammal شاهد هذا الفورم به ما تريد الانتقال الي اوراق العمل مهما كان عددها تقبل خالص تحياتي فورم للنتقال لصفحات الملف.rar

تفضل اخى حسب ما فهمت و هى من احدى اعمال احد اعضاء المنتدى تسلسل تلقائى.rar

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

الاخت فاطيما خلاص فى انتظار اعمالك بالمنتدى

الاخت فاطيما افتحى موضوع جديد وان شاء الله نساعدك فى طلبك

الاخت فاطيما 2013 بارك الله فيك ياريت تغيير الاسم للغه العربيه وهذا مطلب عام للمنتدى

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

إتبع هذا الرابط أخى سيصل بك إلى ماتريد http://www.officena.net/ib/index.php?showtopic=45938

أخى الحبيب ( محمود الأسيوطى ) والله الذى لاأله إلا هو لمشاعرك وكلماتك لهى الأجمل والأروع من أى عمل فى الدنيا بارك الله فيك على مشاعرك النبيلة هذه تقبل تحيات : أخيـــــــــــك

أخى الحبيب ( a12 ) الفكرة كلها تكمن فى ال ( check box ) نفسها بمعنى أنه عند إدراجها فى خلية تكون قيمة الخلية فى حالة ( وضع العلامة داخل ) check box) =true ) ، وفى حالة حذفها تكون ( false ) وهنا تم إستغلال هذه الخاصية بوضع معادلة فى ( conditional formmat ) إذا كانت الخلية الموجودة بها ال check box=true لون السطر بلون الذى تختارة وإذا رفعنا العلامة من check box وساوت الخلية false يتم عودة الصف لوضعة الأول وهكذا ............................ألخ أرجو أن يكون الشرح واضح وبمتابعة المرفق سيكون الشرح أوضح ملحوظة هامة : لعدم إظهار كلمة ( false ) ، ( true ) فى الخلية تم عمل formatt cell للخلية الموجود بها ال check box عن طريق إختيار custom وكتابة داخل المستطيل الموجود بها ( ;;; ) 3علامات منقوطة كما هو موضح لأخفاء الكلمة وتم عمل ذلك أيضا لإخفاء عمود الأسماء للقائمة المنسدلة بالعمود ( p ) تقبل تحياتى

اليك اخي الكريم الملف الخاص بك بدون حماية بعد مشاهدة الاكواد والتأكد ان معظمها من داخل المنتدي ... ( وذلك حفاظا علي حقوق الملكية تبعا لسياسة المنتدي وتبعا للسياسة الاخلاقية من ناحية اخري ) بعدم انتهاك حقوق الغير ويمكنك اخي الكريم استعمال برنامج Passware Kit Enterprise 10.0 مثلا لكسر الحماية الموردين-sama.rar

أليك أخى ماطلبت حذف المكرر اوفسنا.rar حذف المكرر اوفسنا2.rar

أتمنى يكون المطلوب sal2.rar

أخى الحبيب ( قنديل ) الطريقة غاية فى البساطة هناك معادلة أساسية وهى التى تمنع الكتابة فى العمود إذا تطابقت مع الكلمة الموجودة فى الخلية ( A1 ) وهى موجودة فى ( DATA VALIDATION ) ولزيادة فى التأكيد على غلق العمود قمت بعمل تنسيق شرطى بمعادلة إذا تساوت مع كلمة الغلق يلون العمود رصاصى وإرجاعة إلى وضعة العادى فى حالة الفتح للكتابة به تقبل تحيات : أخيك

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

السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي

لازال أخى تكتب المعادلة خطأ أكتب ( IFERROR ) وليس ( IFERORR ) =IFERROR(INDEX($A$2:$A$23;MATCH(SMALL(IF((COUNTIF($F$1:F1;$A$2:$A$23)+COUNTIF($D$2:$D$26;$A$2:$A$23))=0;COUNTIF($A$2:$A$23;"<"&$A$2:$A$23));1);COUNTIF($A$2:$A$23;"<"&$A$2:$A$23);0));"") ولاتنسى الضغط على ( CTRL+SHIFT+ENTER ) معا لتكوين تلك الأقواس ( { } ) فى بداية ونهاية المعادلة لابد من تكوين تلك الأقواس بالضغط على المفاتيح السابقة معا ، ولاتكتبها يدويا والمعادلة تصلح لأوفيس ( 2007 ) ومابعدها تقبل تحياتى

أليك ؟أخى ماطلبت دالة دمج.rar

أستاذى ومعلمى ( يحيى حسين ) أولا - شرف لية مجرد رد حضرتك على عمل لية ، وأشادة حضرتك به أسعدتنى بجد ولكن بالنسبلا لملحوظة حضرتك بخصوص المدى الثابت للأرقام كان أمامى إختيارين 1- أن يكون المدى ثابت كما قمت برفعة 2- أن أقوم بعمل ( start num ) : (end num ) ودى معادلتها عملتها بالفعل ولكنى رأيت قبل رفع المرفق أنها بالحل الأول ستكون أكثر بساطة بالنسبة لأخى السائل وليست المسألة صعبة ليقوم مستخدم المعادلة بتحديد المدى المطلوب وفقا لمتطلباتة أستاذى أسعدنى مرورك ، وشرفتنى كلماتك وسعيد بملاحظتك لأنها إن دلت تدل على عبقرية تحلل وتدقق وأنا فعلا متعمدها للأسباب سابقة الذكر أستاذى شكرا على كلماتك ولاتدرك حضرتك مقدار سعادتى لمجرد ذكرك أسمى لعمل مع حضرتك تقبل تحيات : تلميذك الذى يعتز بأستاذيتك له وهذه هى الفكرة أستاذى أتمنى أن تنول شرف قبول عبقرية بحجم حضرتك الأرقام المفقودة.rar

لمعرفة أعلى قيمة لأجور الشحن في العامود Freight من الجدول Orders ، نستخدم العبارة التالية : SELECT MAX(Freight) AS MaxFreight FROM Orders .............

up

إظهار خصائص الأقراص الموجودة (ضمن الجهاز) سواء ثابتة أو قابلة للإزالة (USB) باستخدام Win32_DiskDrive كطلب الاخ محمد أيمن وتطبيق نارت لبزو ( أبو آدم) http://www.officena....showtopic=41308 وتطبيق مبني على هذا الأساس ، تطبيق جميل ومفيد للأخ محمد أيمن لحماية التطبيقات برقم المصنع للفلاش ميموري http://www.officena....showtopic=41572 ..................

كود يوضع في زر امر لحذف الصفوف التي بها ارقام لا تبداء ب 3 Sub ss() Application.ScreenUpdating = False For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) <> 3 Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select Application.ScreenUpdating = True End Sub بفرض ان الارقام في العمود A في المجال A5:A100 ويمكن زيادة المدى المرفق 2007 2003 والله اعلم حذف الصفوف التي لا تبداء برقم معين.rar

الف شكر اخى الحببييب

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

السلام عليكم اسال الله الذي لا اله لال هو ان يسدد خطاك ويحشرنا معك في اعلى عليين تحياتي (y)