احمدزمان

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

السلام عليكم و رحمة الله جرب المرفق بيان بحركة السائقين1.rar

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

‏السبت‏، 22‏/ذو الحجة‏/1437هـ السلام عليكم و رحمة الله وبركاته جزاك الله خيرا على هذه الفائدة وبارك الله فيكم و في علمكم

تم التعديل لكي يرحل الى نفس الطالب تم عمل قائمة منسدلة لاتقبل رقم جديد تم اضافة المسح لها مع التحية كود نقل البيانات ومسحها بعد الحفظ.rar

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

- - السلام عليكم الأخ ابو حنين جرب المرفق مع ملاحظة النطاق من T1 الى Y3 مهم جدا لعمل الكود امكانيات استخدام النجمة"*" في عمليات ادخال جزء من النص للبحث مثال *EK سوف يعطيك كل العمليات التي تبدأ ب EK ايا كان رقمها وهكذا للباقي تحياتي و تقديري بيان بحركة السائقين1.rar

السلام عليكم و رحمة الله وبركاته اخي الفاضل في المرفق تم اضافة بعض الأعمدة يسار النموذج بحيث تسهل علينا عملية جلب البيانات و وضعها في مكانها الصحيح باستخدام التحقق من صحة لن تستطيع اضافة اكثر من تقييم واحد لكل صف - و - يتم التأكد من القيمة المدخله مع تطابقها للقيمة المطلوبة اعلى العمود اضغط اضافة يتم اضافة اي بيانات جديدة اضغط تعديل يتم تعديل البيانات المحددة اضغط مسح يتم تحديث النموذج و مسح البيانات التي به آمل ان يكون هذا المطلوب كود نقل البيانات ومسحها بعد الحفظ.rar

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

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

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

السلام عليكم الكوود التالي يلغي الطباعة من كل اوراق الملف Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True End Sub و يوضع في thisworkbook و الغاء الطباعة من ورقة محددة Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = ("Sheet1") Then Cancel = True End Sub

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

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

السلام عليكم و رحمة الله وبركاته بسم الله الرحمن الرحيم و الصلاة و السلام على سيدنا محمد وآله وصحبه اجمعين هذ الموضوع هو الحاقا للموضوع السابق برنامج السكرتير الخاص الإصدار الأول / أحمد زمان http://www.officena.net/ib/index.php?showtopic=42018#entry239414 حيث مرة عدة سنوات عليه مما احتاج خلالها الى بعض الإضافات و بعض التحسينات مرفق ملف شرح اتمنى ان يكون به افائدة للجميع ‏السبت‏، 19‏/3‏/2016م الموافق ‏10‏/6‏/1437هـ خصائص عامة بالملف: - حفظ الملف تلقائيا عند الإستخدام كل 10 عشرة دقائق - إخفاء ورقة الأرقام السرية - بعد الدخول إليها بـ 12 دقيقة - إمكانية استخدام التاريخين الهجري و الميلادي - المحافظة على صغر حجم الملف: حيث يتم زيادة 9 صفوف عند الدخول إلى أي ورقة تلقائيا 1- المواعيد يتم تسجيل كل المواعيد المهمة حسب التاريخ وتقبل خانه التاريخ أي تاريخ هجري أو ميلادي يتم ترتيب البيانات حسب التاريخ عن الدخول مره أخرى إلى الورقة أو بالضغط على زر المواعيد المواعيد المنتهية و المنجزه يتم التسجيل أمامها (منتهى) ولن تظهر أمامك إلا من خلال البحث يمكنك البحث عن اي معلومة في المواعيد من خلال الخلية الصفراء الموجودة في أعلى الورقة 2- دليل الهاتف * هو دليل يشمل عدة خانات من جوال وفاكس وهاتف و ايميل * يمكنك البحث في دليل الهاتف من الخلية الصفراء أعلى الصفحة * يمكنك البحث عن اي جزء من أي معلومة جزء من الاسم أو الرقم , مع تلوين النتائج بلون مميز 3- التقويم والتاريخ نظرا لما عانيته في استخراج التاريخ من الهجري إلى الميلادي ومن الميلادي إلى الهجري تم عمل هذه الورقة بحيث يتم إدخال التاريخ (هجري أو ميلادي) في ألخانه الصفراء أعلى الصفحة - ثم - تظهر لك النتائج للتواريخ متسلسلة لمدة 45 يوما قبل التاريخ المدخل ب 8 أيام مع تفاصيل تسجيل اسم الشهر الهجري واسم الشهر الميلادي واسم اليوم بالعربي والانجليزي ويوجد على يسار الورقة قائمه بأسماء الأشهر هجري و ميلادى مرتبه بالتسلسل 4- تجميع هي ورقه عاديه لتجميع الأرقام في الخانات 5- كلمه سر بسبب كثرة اسم المستخدم وكلمات المرور التي نستخدمها يوميا حيث كل موقع حكومي له اسم مستخدم وكلمة مرور وكل موقع بنك له كذالك وغير ذلك كثير, لذلك تم إنشاء هذه الورقة: * يتم الدخول إلى الورقة بكلمه سر وهى (22) * يتم وضع وصف للموقع وكلمه السر وكلمه المرور * يتم إخفاء هذه الورقة بعد 10 دقائق من استخدامها لسرية المعلومات التي بها * يتم البحث من الخلية الصفراء أعلى الورقة وتظهر لك النتائج المحددة في خانة البحث فقط مع تمييزها بلون مميز 6-وصول سريع بسبب كثرة الملفات التي نحتاجها باستمرار ولتسهيل الوصول إلى هذه الملفات وحيث أنني وجدت البحث في ويندوز الجديد صعب علي إنا. بالدخول إلى وصول سريع يتم ترتيب البيانات بالتسلسل الأبجدي تضع اسم مختصر للملف وشرح لعمل الملف ثم تضغط على زر (اضافه رابطlink) الموجود أعلى يسار الصفحة, من مربع الحوار تختار الملف المطلوب يتم وضع رابط للملف في خانة الموقع والوصول (ارتباط شعبي). البحث :- في قائمة البحث أعلى الصفحة تكتب أي أحرف من اسم الملف أو المجلد تظهر لك النتائج المطلوبة وبالضغط على موقع الوصول يتم فتح الملف المطلوب. السكرتيرالخاص1437.rar

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

و عليكم السلام و رحمة الله وبركاته اخي الفاضل جرب المرفق في العمود الأول ادخل اسم المشروع تظهر لك بياناته ان كانت موجودة لإستخراج بيانات محددة من نفس الورقة في اعلى الورقة في الخانة الصفراء F1 اكتب اسم المشروع تظهر لك كل بيانات هذا المشروع فقط امسح البيانات من F1 تظهر لك كل البيانات الكود المستخدم Private Sub Worksheet_Change(ByVal Target As Range) Dim TR, TC, ER, FR, CC TR = Target.Row TC = Target.Column If TR > 3 And TC = 1 Then ER = Sheets("sheet2").UsedRange.Rows.Count For FR = 1 To ER If Sheets("sheet2").Cells(FR, 1) = Sheets("sheet1").Cells(TR, 1) Then For CC = 2 To 5 Sheets("sheet1").Cells(TR, CC) = Sheets("sheet2").Cells(FR, CC) Next CC End If Next FR End If If TR = 1 And TC = 6 Then Dim RN As Range ER = ActiveSheet.UsedRange.Rows.Count Set RN = Range("A3:I" & ER) CC = Cells(TR, TC).Value If CC = "" Then RN.AutoFilter Else RN.AutoFilter Field:=1, Criteria1:=CC End If Cells(TR, TC).Select End If End Sub مع التحية expenses--az.rar

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

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

فكرة رائعة بحيث نضع اكبر قيمة في العمود الجديد ويتم جلب القيم منه

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

السلام عليكم و رحمة الله وبركاته اخي احمد تم العمل على جلب البيانات كما في المرفق المشكلة الرئيسية انه في العمود A تم وضع الأرقام بصيغة نص - - - لذلك يجب تحويلها الى رقم اتمنى ان يكون هذا المطلوب 2016-1.rar

السلام عليكم و رحمة الله وبركاته بالإضافة الى حلول الإخوة الأفاضله الجيدة هذا حل آخر باستفدام الدوال MATCH -- INDEX =INDEX($L$2:$L$7;MATCH($F2;$N$2:$N$7;-1)) A-Z.rar

السلام عليكم و رحمة الله وبركاته السؤال غير واضح هنا من G6 الى G1000 و في الملف آمل التوضيح اكثر

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