ahmadm_1

أخى m.hindawi اشكرك على ردك المتواضع .... 1 - ممكن اسألك عن طريقة أخفاء الصيغ و المعادلات من شريط الصيغ Formula Bar و عدم ظهورها للغير -- قد يكون هذا السؤال تكرر كثيراً و لكن بعض الشروحات و الطرق الموجودة فى المنتدى التى عرفتها عن طريق محرك البحث لم افلح فى الفهم منها شئ. 2 - ممكن ايضاً اعرف طريقة عمل دليل هاتف على الإكسل كفكرة متكاملة -- و أن شاء الله اضع الموضوع للمناقشة و المشاركة كموضوع مستقل بأسم خطوه بخطوة برنامج دليل الهاتف وطبعاً المبرمجين و من لهم الخبرة يقدموا الشروحات للخطوات الفعلية و هنا تعم الفائدة ما رايك ؟؟

بسم الله الرحمن الرحيم أخى العزيز الفاضل : m.hindawi (y) اشكرك بكل الود والحب و بارك الله فيك وفى معلوماتك ومساعداتك و فى ميزان حسناتك ما تقدمة من تبسيط وتيسير المعلومات و توصيل ما اكتسبته من علم إلى الغيير . (خيركم من تعلم العلم و علمة) ------------ ان شاء الله فى المرة القادمة تكون الاسئلة منى اقوى و اعمق حتى لا اضيع اوقاتكم الثمينة أخوكم أحمد مصر

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

بسم الله الرحمن الرحيم أخى العزيز الغالى : m.hindawi بارك الله فيك و فى ميزان حسناتك مساعدتك لى و حل اللغز الذى حيرنى فى طريقة تنفيذة اشكرك على تعبك معى و مساعدتى . و فعلاً ما قمت به هو ما اريد فالزر السريع فى فرز أسماء الموظفين الغائبين فى Sheet مستقل حل لى المشكلة و اجاب عن سؤالى. و لكن اريد ان اتعبك معى اكثر . هل هناك طريقة اسهل من الماكرو حيث اننى ضعيف جداً فى البرمجة عن طريق VBA ما اقصدة هل هناك معادلة خاصة تقوم بذلك. و ان كانت الاجابة لا . ارجوا منك شرح كود الماكرو حتى اتمكن من استخدامة بالتعديل فى ملفات اخرى و بطريقة اخرى (حتى اصبح متمكن منه) -------------------------------------- هذا الكود ---------------------------------------------- Sub DSDSD() Endrow = Sheets("كشف الحضور").Range("A1").CurrentRegion.Rows.Count ENDROW7 = Sheets("الغائبين").Range("A1").CurrentRegion.Rows.Count For a = 3 To Endrow tes = Sheets("كشف الحضور").Cells(a, 5).Value 'test2 = String(4, TES) If tes = "نعم" Then For b = 1 To 5 Sheets("الغائبين").Cells(ENDROW7 + 1, b).Value = Sheets("كشف الحضور").Cells(a, b).Value Next ENDROW7 = ENDROW7 + 1 End If Next End Sub ------------------------------ اشكر الجميع -------------------------------------------------

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

الملف المرفق عبارة عن كشف بأسم حضور وغياب الموظفين بالورقة الأولى أريد فى الورقة الأخرى أسماء الموظفين الغائبين كطريقة من الفرز ولكن عن طريق كود أو معادلة تمكنى من نقل الصف بأكملة المظلل باللون الأصفر فى Sheet1 إلى Sheetالاخر Book1.zip

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اريد كود نسخ صف بشرط محدد إلى ورقة عمل أخرى مثلاً : لدى كشف حضور و غياب موظفين فى شيت 1، اريد كود ينسخ (او ينقل ، أو يفرز) الموظفين الغائبين بنفس ترتيبهم إلى شيت أخر 2 مثلا بأسم أسماء الغياب .

أخى العزيز محمد حجازي: الفضول دفعنى أن افتح الملف و فعلت هلعت منه و لكن الحمد لله رب العالمين و صل عدد الملفات 184 تقريباً حتى اللتقت انفاسى وتحكمت فى الجهاز ولكن كيف اضمن بعد ذلك ملفات VBA أو الماكرو ؟؟؟؟

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذه اول مرة اشترك بفاعلية بالمنتدى الذى ارى أنه اقوى منتدى عربى خاص بمجموعة الافيس بارك الله فى القائمين على هذا المنتدى و جميع المساعدين و جموع الاعضاء ------------------------------------------------------------------------- اما الموضوع هو : اريد عمل ورقة عمل خاصة بحساب الرواتب الشهرية للموظفين بها (االايام ، التاريخ ، ساعة الحضور ، ساعة الانصراف ،الاجازات .... الخ) كل شئ بالقائمة سهل أن شاء الله ،،، أما ما احتاجة خاص بااجازات الموظفين بمعنى اريد كتابة حرف V ليدل الاجازة العادية S ليدل على الاجازة المرضية فمطلوب من اهل الخبرة شرح ل ـــ> عند كتابة حرف الـ V تقوم المعادله بطرح يوم من خانة رصيد الاجازات و هكذا عند كتابة حرف S تضيف يوم الى عدد الاجازات المرضية ------------------------------------------ اشكرك الجميع مقدماً وكل من يحاول ان ييسر لى طريقة الشرح و الفهم -------------------------------------- قد يكون هناك شرح لهذا السؤال بالمنتدى !!!! ارجوا التماس العذر لى لان كلمات البحث لم تدلنى .