برنامج متابعه عدد أكواب الشاى والقهوه والمياة

[ابن الملك]

مساء الخير ل أساتذتى و أهلى وأصدقائى فى بيتنا أوفيسنا

البيت الكبير أوفيسنا 

بعد غياب دام لفترة مش عارف قد اية

فاتنى الكثير جدا جدا فى المنتدى حبيت أرجع بحاجه غريبة جت فى دماغى لقيتها فى موبايل واحد صاحبى برنامج 

أسمه samsung health 

حبيت اعمل حاجه صغيرة جدا شبيه بالفكرة بس أكسيل يارب تعجبكم .

Track.rar

تم تعديل أغسطس 17, 2016 بواسطه كيرلس - ابن الملك

[أبو حنف]

ما شاء الله 

برنامج جميل وخفيف

[ياسر خليل أبو البراء]

أخي الكريم ابن الملك

عوداً حميداً .. لقد اشتقنا إليك ولمشاركاتك الرائعة والقيمة

بارك الله فيك على الموضوع الجميل ..

في الحقيقة في بداية الأمر لم أفهم الملف ثم قمت بالإطلاع على الأكواد لأعرف ما يحدث فوجدت العجب العجاب .. :)

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

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

المهم الكود بالشكل التالي

Sub Tea_Coffee_Water_Proc()
'Author : YasserKhalil
'Release : 18 - Aug. - 2016
'--------------------------
    Dim Obj As Object
    Dim iCol As Long
    Dim Rng As Range
    Dim strDate As Date
    Dim iRow As Long

    Application.ScreenUpdating = False
        With Sheets("Sheet1")
            'Get Column Number For Form Button
            Set Obj = .Buttons(Application.Caller)
            iCol = Obj.TopLeftCell.Column
    
            'Get Row Number For Date
            strDate = CLng(.Range("H2").Value2)
            Set Rng = .Columns(3).Find(What:=strDate, LookIn:=xlValues)
            If Not Rng Is Nothing Then iRow = Rng.Row
    
            'The Mission
            .Cells(iRow, iCol).Value = .Cells(iRow, iCol).Value + 1
            .Cells(.Cells(Rows.Count, iCol).End(xlUp).Row, iCol).Select
        End With
    Application.ScreenUpdating = True
End Sub

فكرة الكود بتعتمد على إني بعرف رقم العمود المطلوب العمل عليه من خلال زر الأمر .. المرسوم في الخلية (شاي  - قهوة - مياة)

وبعد كدا بجيب رقم الصف بالاعتماد على البحث ولكن بالأكواد .. وموضح دا في التعليقات (التعليقات بالإنجليزي عشان محدش يفهمني غلط)

وأخيراً تقدر تضع القيمة المطلوبة وهي زيادة مقدار الخلية بمقدار واحد من خلال سطر واحد ..

وفي النهاية يتم تحديد آخر خلية في نفس العمود

أرجو أن يكون الكود مفيد ومختصر ..

تقبل وافر تقديري واحترامي

 

[ابن الملك]

اشكر حضرتك كتير جدا على الهدية دى ودائما نجد عند حضرتك ضالتنا بجد 

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

أشكر حضرتك كتير 

جارى تجربة الكود .......

[جلال الجمال_ابو أدهم]

تحياتى

 

[ياسر خليل أبو البراء]

مشكور على مرورك العطر أخي الكريم جلال ..