رشراش علي

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

شكـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

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

ترى هل طلبي مرفوض؟؟؟؟ ام انه لا يستح

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

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

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

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

اعتقد اننا متتبعون لكل اساتذتنا ومن المهم ان يكون الاصدار في المتناول .. اقصد اعلى تقدير 2007 طالما يمكن 2003 وبالتالي نتفادى زوبعة تعمينا عن مجهودكم وترهقكم وترهقنا

في نفس السياق ارجو اساتذتي ان تشرحوا لي سبب هذا الخطاء وكيف اعالجه ولكم مني فائق التقدير فورم ادخال و تعديل مرن مع الطباعة 1 http://up.harajgulf.com/uploads/gulfupd56f738894701.rar

اللهم زد أساتذتنا علما وكن ربي جزيل العطاء لهم يوم لا يبقى الا عطاءك........

مما فهمته ان هناك خلية امام كل موظف يدون عليها تلقائيا كم من مرة تم استخراج اسمه وطبعه فمثلا اذا قمت بطباعة شهادة عمل للعامل رقم واحد نجد في العمود × في السطر الموافق له (1) وفي المرة المقبلة نطبع نسختين لنفس الشخص يظهر تصبح (1)+(2) ونجد في × (3) ..وهكذا .... اعتقد انه نفس ما بحثت عنه مرارا لانه فيما بعد سنفكر ونقول اذا طبعنا لفلان شهادة عمل لا يجوز له استخراج أكثرمن شهادتان في مدة تقل عن شهر مثلا....

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

الاوفيس الذي تتقنه ثم بعد مدة تجد نفسك محتاج الى امور يوفرها الاصدار الموالي ..... اما عني فاوفيس 2007 افظله عما قبله وومابعده رغم انه رائع الا اني ساتدرج اليه يوما (حسب المكروبروسيسير) 2007

لا فظ فوك وكانك تكلمت عن لساني العاجز ....... لست وحدك في قدر الامية بكسر القاف وكسر القدر نفسها هههههههه اللهم ادم نعمك على اساتذتنا فان كرمهم من كرمك

أساتذتي الكرام ربما سؤالي هذا لا يهم معظم الناس لكنها فكرة ربما يستفاد منها؛ 'ولي لها مكان ههه' نحن مثلا تعودنا ان نكتب في التكست بوكس فيتم طباعتها في الخلية المقصودة، فهل يمكن مثلا ايجاد كود يجعلنا لما نكتب في التكست بوكس يتم تحريرها في محرر الاكواد؟ -- كما ايضا هل يمكن ان نجعل من كود عند تنفيذه ينقل من الخلية المحددة الى ما مدون فيها الى محررالأكواد ؟؟ ============================ للتوضيح اكثر: عادة وخاصة فيما يتعلق بكلمة المرور نضعها في الشيت أو في الفورم فتنتقل الى خلية في شيت؛ أو في حالات أخرى نحجز لها مكانا في محرر الاكواد "وهنا بيت القصيد" ولب السؤال: في الفورم لديا تكست بوكس وزر، اضغط على الزر يأخذ الكلمة المكتوبة في التكست بوكس ويضعها في محرر الاكواد؟؟؟ اما انه خيال علمي؟؟ مبني على جهل مبتدئ؟؟؟

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

لما عجز لساني عن شكركم اساتذتي.... اتجهت الى رب العرش داعيا اياه عز وجلّ ان يتولاكم برعايته وعنّا يجزيكم بما هو اهل له سبحانه + عرفاني وامتناني+

بداية كل الاحترام والتبجيل لساتذتنا الكرام وليكن ثوابهم من عند الله اما نحن فلن نفيهم حقهم ... اقول هذا لأني من الجيل المؤمن بجملة من علمني حرفا صرت له عبدا وذلك في توقير العلم ومن ينشره، ثانيا آلمني رأسي وارهقت من داخل تلافيفي بحثا عن معنى هذه الأكواد الرائعة .... صحيح استفدت من هذا المنتدى ايما استفادة؛ لهذا وليقيني انكم أساتذتي بتواضعكم لتلميذكم هذا (انا طبعا) لن تبخلوا علينا بشرح هذه الاكواد (اقصد في الملف المرفق) : Option Explicit '====================================================== '====================================================== Option Explicit '====================================================== '====================================================== ' تنسيق التاريخ Private Const DtF As String = "yyyy/mm/dd" '====================================================== ' عرض تكست الادخال Private Const iWgt1 As Single = 200 '====================================================== Private Const Frmtop As Single = 3 Private Const Frmlft As Single = 3 Private Const iHgt As Single = 21.55 Private Const iTop As Single = iHgt + 2 Private Const mBox As Long = vbMsgBoxRight + vbMsgBoxRtlReading '====================================================== '====================================================== Private Ar() As Integer Private MyRngSeri As Range Private MyRngdate As Range Private ContRow As Long Private iRow As Long Private LastColumn As Integer Private tSr As Boolean Private MyList As String Private tAc As Boolean Private iColor1, iColor2 Private Sub BoxFind_Click() Dim tm As Integer Me.ListFind.Clear tm = Me.BoxFind.Tag Me.Controls("Labeldt" & tm).ForeColor = vbBlack tm = Me.BoxFind.ListIndex + 1 Me.Controls("Labeldt" & tm).ForeColor = Me.BoxFind.ForeColor Me.BoxFind.Tag = tm End Sub Private Sub ButtonCalendar_Click() On Error GoTo 1 Dim MyVelue, t With Me.Frame1 If .ActiveControl Is Nothing Then .SetFocus If TypeOf .ActiveControl Is MSForms.TextBox Then .ActiveControl.BackColor = Me.ButtonCalendar.BackColor If .ActiveControl.Top > .Height Then .ScrollTop = .ActiveControl.Top - (.Height / 2) MyVelue = .ActiveControl t = .Controls(.ActiveControl.TabIndex + 1) If Not IsNumeric(MyVelue) And IsDate(MyVelue) Then Else MyVelue = Date With FormDate .Caption = t .Tag = MyVelue .Show End With .ActiveControl.BackColor = &HFFFFFF Else MsgBox "لا يمكن اضافة التاريخ في القائمة", mBox, "تنبيه" End If End With 1 If Err Then Err.Clear End Sub Private Sub ButtonClear_Click() kh_ClearRecord End Sub .... .... ................... الاكواد من فورم ادخال و تعديل مرن مع الطباعة في هذا الموضوع '============================' وإن لم يكن كلها فبعضها ولكم جزيل الشكر طلب توضيح بخصوص فورم ادخال و تعديل مرن مع الطباعة.rar

واني معك من المنتظرين رغم اني من المبتدئين جدا جدا جدا ================================= وستوفق ان شاء الله ولو بعد حين.... خذها من رجل لا ينكر جميل اساتذتنا في اوفيسنا

اللهم لا تحرم اساتذتنا في منتدانا هذا، في الدنيا السكينة وراحة البال؛ وفي الآخرة الجنة ومن اي الابواب شاءوا دخلوا ... يا رب العالمين...

شكرا أخي الطلحي وليوفقك الله وسننتظر أنا وانت وآخرون من يعطينا الطريقة من الوورد أو ربما من الباوربوانت

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

أستاذي عبد السميع لا انكر ولا اجحد ما قدمه الاستاذ محمد الريفي وفكرته الأولى يمكنني العمل بها لكن كما قلت وددت لو لا اضيف العمود A ثم ان حله في المرحلة الثانية جمع فيه (D9:H9) وهذا ليس المطلوب ولهذا ها قد نفذت معادلاتك لكني لم انجح والنتيجة مرفقة أستاذي الكريم عبد السميع فرحت جدا لالتحاقك بموضوعي لتساعدني وهنا لا يفوتني ان اشكر كل اساتذتنا وكل من يساهم في المساعدة لي ولغيري "شكرا للجميع". الترتيب الفردي بعد ادخال معادلات الاستاذ عبد السميع (1) --- لم أنجح.rar

من الذكاء ان تطلب شئ موجود ولا تجد من يعطيك اياه