محمد الزريعي

المطلوب هو كيف يتم حذف الأرقم في الورقة 1 أذا كان هذا الرقم موجود في الورقة 2 وأضافه أي رقم الي الورقة 2 من الورقة 1 أذا كان غير موجود ___ طبعاً سويت هذا على الكود ولكن كان عندي بطئ جداً .. علماً بأن الأرقام في كل ورقة ما يقارب 120 ألف رقم . نرجو التكرم منكم بالمساعدة أذا أمكن شاكرين ومقدرين حسن تعاونكم معنا فزر المكرر.rar

السلام عليكم ورحمة الله وبركاته وبعد يسعدني أن أقدم لكم هذا الملف الذي يساعد عمل شئون الموظفين ولكني لم أستطيع عمل الأكواد التالية 1- كيفية تثبيت الراتب والأيام المستحقة دون أن تتكرر هذه الأيام أو الرواتب في الاجازات التي تلحقها خلال سنة ما أو سنوات متراكمة . على سبيل المثال على نفسي أستحقيت في هذه السنة الي تاريخ اليوم 5 أيام والراتب على سبيل المثال 3000 ريال يعني أستحقييت مبلغ وقدرة 500 ريال فقط . وطلبت اجازة لمدة 5 أيام . وهي مستحقة ثم في نصف السنة أصبح الاستحقاق ليا 15 يوم والمفترض يكون 10 أيام فقط لأننا أخذت قبل كذا اجازة 5 أيام ؟ ما الحل .. سوف نناقش الموضوع حتى يصبح بالشكل المطلوب .. وأنشاء الله راح يستفاد منه .. الكثير والكثير . في داخل هذا الملف معادلات كيف تحسب الأيام المستحقة وغيرها الي . احتساب أجازات الموظفين.rar

الأن

مشكورين لكم جميعاً وعلى جهدكم الثمين ، وللقائمين ومبتكري هذا الموقع الكبير

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

لنفترض أنه ليا عدد موظفين حراسة أمنية . اقوم يومياً بتعيينهم في المواقع الخاصة بهم بشكل يومي .. كيفية الحصول على أخر تاريخ لهذا الموظف ومكان عملة . Book1.rar

سجل إجازة الموظفين كيفية اظهار تاريخ أخر أجازة تمتع بها الموظف .. لكل موظف الأجازات.rar

شكراً لك ،، وأنت فتحت باب جديد لكي اقدم كل مشاركاتي فيه .

كلما أرت رفع الملف تظهر ليا رسالة غير مسموح برفع هذا النوع من الملفات . بالرغم أنه من ملف أكسل فقط وحجمة صغير فقط 4 شيتات أرجو الرد وشكراً

الأخوة الأعزاء أنني قمت بعمل كود يقوم بإخفاء الصفوف التي لا تحتوي على قيم في عمود معين حيث أن الخلايا الموجودة في هذا العمود تمثل ( كل خلية تمثل شيت ) يعني عندي 50 خلية و50 شيت .. اسماء الشيت مرقم من 1 الي 50 قمت بإخفاء الصفوف ولكن لم استطيع اخفاء الشيتات كما هو في التالي : Dim rng As Range Dim cell As Range If ToggleButton1.Value = True Then ToggleButton1.Caption = "S H O W" Set rng = Range("j6:j55") For Each cell In rng If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True End If Next cell Else ToggleButton1.Caption = "H I D E " Set rng = Range("j6:j55") For Each cell In rng If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = False End If Next cell End If المطلوب كيف اخفي الشيت بناء على قيمة الخلية في عمود معين يعني الخلية j6 أذا كانت صفر تختفي الورقة التي اسمها "3" والخلية j7 أذا كانت صفر تختفي الورقة التي اسمها "4" والخلية j8 إذا كانت صفر تختفي الورقة التي اسمها "5"

الأخوة الأعزاء أنني قمت بعمل كود يقوم بإخفاء الصفوف التي لا تحتوي على قيم في عمود معين حيث أن الخلايا الموجودة في هذا العمود تمثل ( كل خلية تمثل شيت ) يعني عندي 50 خلية و50 شيت .. اسماء الشيت مرقم من 1 الي 50 قمت بإخفاء الصفوف ولكن لم استطيع اخفاء الشيتات كما هو في التالي : Dim rng As Range Dim cell As Range If ToggleButton1.Value = True Then ToggleButton1.Caption = "S H O W" Set rng = Range("j6:j55") For Each cell In rng If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True End If Next cell Else ToggleButton1.Caption = "H I D E " Set rng = Range("j6:j55") For Each cell In rng If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = False End If Next cell End If المطلوب كيف اخفي الشيت بناء على قيمة الخلية في عمود معين يعني الخلية j6 أذا كانت صفر تختفي الورقة التي اسمها "3" والخلية j7 أذا كانت صفر تختفي الورقة التي اسمها "4" والخلية j8 إذا كانت صفر تختفي الورقة التي اسمها "5"