بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم إبراهيم، إن الدالة DATE تحتاج إلى وسائط ثلاث، الأول: رقم السنة - الثاني : رقم الشهر - الثالث : رقم اليوم وفي المعادلة المستعملة في الملف الخاصة ببداية الشهور تجد فيها : =DATE($B$4;ROW($A1);1) * رقم السنة : مضمون الخلية B4 (المثبتة) * رقم الشهر : استعملت فيه الدالة ROW التي تعطي رقم السطر لخلية معينة واخترت الخلية A1 والتي يهمني فيها الرقم 1 (الذي سيمثل رقم الشهر الأول من السنة) أما الحرف A فهو غير مهم وكان بالإمكان اختيار أي خلية أخرى B1 أو C1 أو غيرهما... وعند سحب المعادلة إلى الأسفل فإن (ROW($A1 تصبح (ROW($A2 لتعطي الرقم 2 (رقم الشهر الثاني) ثم (ROW($A3 لتعطي الرقم 3 (رقم الشهر الثالث) وهكذا... ويمكن أيضا استبدال (ROW($A1 بأي دالة أخرى تعطي تسلسلا للأرقام بطريقة تلقائية عند السحب إلى الأسفل مثل : (ROWS($1:1 أو غيرها... * رقم اليوم : الرقم 1 (ثابت) للإشارة إلى اليوم الأول من كل شهر بالنسبة لمعادلات نهاية كل شهر استعملت المعادلة : =DATE($B$4;ROW($A1)+1;0) والتي كانت في الأصل : =DATE($B$4;ROW($A1)+1;1)-1 والتي تعني بداية الشهر الموالي للشهر الحالي بحذف يوم واحد أي في الأخير تعطي نهاية الشهر الحالي... (الشهر الحالي أقصد به رقم الشهر الذي تعطيه العبارة (ROW($A1 حسب مكانها بعد سحب المعادلة)... والله أعلم أخوكم بن علية

السلام عليكم ورحمة الله تقبل الله منا ومن المسلمين جميعا الصلاة والصيام والقيام وصالح الأعمال... أخي العزيز محمود، والله ما فهمته من العنوان -ما هو بين قوسين- "ادراج بدايه الشهور ونهايتها" أن الأخ الكريم يريد تاريخ أول من كل شهر وتاريخ آخر يوم منه بوساطة المعادلات أو الأكواد (مع تفضيله لكليهما)... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم، هذه محاولة بالملف المرفق بالمعادلات والكود (كود بسيط) حسب الطلب... أخوك بن علية تاريخ بداية ونهاية الشهور.rar

السلام عليكم ورحمة الله أخي الكريم، الظاهر أنه لا الطريقة التي اقترحتها عليك ولا الكود الذي وضعه أخي الحبيب أبو حنين لم يُجديا معك نفعا أو أنك لم تعرف طريقة استعمالهما... أرفق ملفا تضع فيه المطلوب بمثال من عندك... مع تحديد (الأوفيس+لغة الأوفيس) الذي تستعمله لوضع (ربما) ملف تنفيذي يشرح العملية والطريقة المقترحة في رد سابق... أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم أبو حنين لتحديد الخلية التي تلي آخر خلية غير فارغة في كود أخي الحبيب عبد الله (وأستسمحه في هذا التغيير) يكفي إضافة 1 في آخر المعادلة المسماة ROWEND فتكون كما يلي: =MAX(NOT(ISBLANK(Sheet2!$A$2:$A$60000))*ROW(Sheet2!$A$2:$A$60000))+1 وبالفرنسية تكون: =MAX(NON(ESTVIDE(Sheet2!$A$2:$A$60000))*LIGNE(Sheet2!$A$2:$A$60000))+1 وفي الكود الذي قدمته أيضا يمكن أيضا القيام بذلك بالفكرة نفسها فيكون الكود (وأستسمحك في التغيير) كما يلي: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Column = 1 Then Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select End If End Sub أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم، لست أدري ما المشكلة التي جعلت الطلب الثاني لم يتم بطريقة غير صحيحة... جرب إذن الطريقة التالية باتباع الخطوات التالية: * مع أوفيس 2007 أو 2010 1- نفتح خصائص (options) الإكسيل حسب النسخة... 2- نختار خصائص متقدمة Advanced 3- نحذف العلامة من مربع "استعمال رموز النظام" أو Use system separators 4- اختيار "المسافة" لـ "رمز الألوف" Thousands separator (إن لم تكن موجودة أصلا) * مع أوفيس 2003 المراحل من 1 إلى 4 تكون كما يلي: 1- نفتح خصائص (options) من ثائمة أدوات Tools... 2- نختار القائمة International 3- نحذف العلامة من مربع "استعمال رموز النظام" أو Use system separators 4- اختيار "المسافة" لـ "رمز الألوف" Thousands separator (إن لم تكن موجودة أصلا) وفي الملف خاصتك نختار التنسيق المخصص للأرقام في الخلايا باستعمال ما يلي [$-2000000]# ##0 أرجو أن تعمل معك هذه الطريقة... أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم صالح الأعمال... أخي الكريم، أريد أن أنبه إلى أمر مهم إن الأرقام العربية هي الأرقام المتداولة في الكثير من المناطق أي هي الأرقام : 0، 1، 2، 3، 4، 5، 6، 7، 8، 9 وليست الأرقام (الهندية) المستعملة خاصة في المشرق... بالنسبة للمطلوب في موضوعك: الطلب الأول: تجده في الملف المرفق (مع تطبيق التنسيق على الأرقام حسب الطلب الثاني) Book1.rar الطلب الثاني: اخترت التنسيق المخصص التالي (اقتراح) على الأرقام [$-2000000]_-* # ##0_-;_-* # ##0-;_-* "-"??_-;_-@_- أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم، محاولة في الملف المرفق علها تجيب المطلوب... أخوك بن علية تقريب رقم.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم كل أعمال الخير... أخي الكريم، الخلل الذي جعل البحث ينحصر فقط في حوالي 30000 سطر (وبالضبط في 32767 سطر) راجع إلى التصريح ببعض المتغيرات بخاصية Integer التي تأخذ فيها هذه المتغيرات قيما صحيحة من -32767 إلى 32767 ولتصحيح الخلل تم تغيير التصريح لهذه المتغيرات (المتعلقة بالأسطر في كودين Kh_Find و kh_Add_Controls) من Integer إلى Long (أو Double) اللذان يسمحان بقيم كبيرة جدا (وقد اخترت الخاصية Long لاعتمادها أعدادا صحيحة)... وتم التصحيح في الملف المرفق.... أرجو أني وفقت في التصحيح والشرح... أخوكم بن علية Listbox Form5_1.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم كل أعمال الخير... أختي الكريمة، هذا حل آخر بالمعادلات (مستوحاة من ملف أخي الحبيب جمال) مع بعض التعديلات... يكفي اختيار عدد الصفوف (1 أو 2) في الورقة 66 وسيتم التوزيع... أخوك بن علية توزيع بالمعادلات2.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم، إن كنت قد فهمت المطلوب فقد قمت بتعديل على الكود الذي اقترحته في ردي السابق ليناسب ما تريد الوصول إليه (وزيادة)... أخوك بن علية دفتر النقل.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم هذه محاولة بكود (كلاسيكي) بسيط في الملف المرفق مع إضافة لتعيين عدد الأسطر وعدد الأعمدة للمصفوفة... أرجو أني وفقت في بعض الحل... أخوك بن علية دفتر النقل.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم تريد شرحا للمعادلة الثانية رغم أن شرحها موجود في طلبك وشرحك للطلب... غير أنني سأحاول شرحها بقليل من التفصيل... المعادلة المقصودة هي المعادلة الموجودة في الخلية Q46 (والتي تم نسخها إلى الأسفل): =IF(COUNTIF($P:$P;$P46)>=2;$R46*$O46/SUMPRODUCT(($P$46:$P$1000=$P46)*($R$46:$R$1000));$O46) هي معادلة شرطية باستعمال الدالة IF والتي تحتاج إلى 3 وسائط: الشرط ، النتيجة حالة تحقق الشرط ، النتيجة حالة عدم توفر الشرط * الشرط : يعبر عنه الجزء COUNTIF($P:$P;$P46)>=2 للتأكد إن كان مضمون الخلية P46 مكررا في العمود الإضافي (العمود P) * إذا كان الشرط محققا أي لما يتكرر (التشغيلة مع أمر الشغل) أكثر من مرة فإن "مبلغ سكاي" في الخلية O46 يتم تقسيطه حسب مجموع الأعداد (من العمود R) لهذه التشغيلة والذي تم باستعمال الجزء $O46/SUMPRODUCT(($P$46:$P$1000=$P46)*($R$46:$R$1000)) من المعادلة ثم ضرب هذا القسط في عدد أمر الشغل في الخلية R46 من السطر نفسه * وإذا كان الشرط غير محقق (لا يوجد تكرار لأمر الشغل مع التشغيلة) يتم نقل "مبلغ سكاي" إلى الخلية Q46 كما هو دون تغيير... وتلاحظ أني لم أضف الكثير على المطلوب وشرحه... أرجو أني قمت بتقريب الشرح للمعادلة المقترحة في الملف... (ويمكن فهم عمل المعادلة باستعمال خاصية Evaluation)... ومعذرة للتأخر في شرح المعادلة لأن الشرح يأخذ الكثير من الوقت مع صعوبته... وقد لاحظت أنك تطالب كثيرا في ردودك شرحا للمعادلات والأكواد وهو أمر لا يتسنى القيام به دائما ولذا اعذرنا جميعا في حالة عدم الرد على طلبك لهذه الشروح... أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم صالح الأعمال... أخي الكريم هذا حل آخر بمعادلة صفيف دائما مستوحاة من حل أخي الكريم محمود مع إمكانية نسخها في إجمالي الأيام الأخرى شرط أن يكون ارتفاع نطاق كل يوم ثابتا في كل يوم (عدد الأسطر نفسه لكل يوم)... أخوك بن علية 3_2.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم كل أعمال الخير.... أخي الكريم، قمت بإضافة معادلة حسب المطلوب في ملف أخي الحبيب رجب في آخر مشاركة له... أتمنى أن تفي بالغرض المطلوب... أخوك بن علية آخر سعر2.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... وجمعة مباركة أخي الكريم إن كنت قد فهمت المطلوب والشرح، هذه محاولة في الملف المرفق (مع إضافة عمود للضرورة)... أخوك بن علية Comb.rar

السلام عليكم ورحمة الله أخي الكريم، أمر المسح كان موجودا أصلا في الكود ولكنه متعلق بالعمود B وبالتالي يكون الكود بعد التعديل عليه كما يلي: Private Sub Worksheet_Selectionchange(ByVal Target As Range) A = "A" 'ÚãæÏ ÇáÊÓáÓá B = "B" 'ÚãæÏ ÇáÈíÇäÇÊ R = 6 'ÇáÈíÇäÇÊ ÊÈÏà ãä ÇáÕÝ '================================================= L = Range(B & 65000).End(xlUp).Row If L < R Then Exit Sub Range(Cells(R, A), Cells(Range(A & 65000).End(xlUp).Row, A)).ClearContents '================================================= For I = R To L If Cells(I, A) = "" And Cells(I, B) <> "" Then N = N + 1 For ii = I To L If Cells(ii, B) = Cells(I, B) Then Cells(ii, A) = N End If Next ii End If Next I End Sub أخوك ين علية

السلام عليكم ورحمة الله تقبل الله صلاة وصيام وقيام الجميع بالمزيد من الأجر والثواب... أخي الكريم يمكنك إضافة أمر مسح محتويات العمود الأول قبل تنفيذ الكود... مثلا : ضف السطر التالي في الكود قبل سطر الـ IF الأولى : Range("A6:A65000") = Empty فيكون الكود في النهاية كما يلي: Private Sub Worksheet_Selectionchange(ByVal Target As Range) A = "A" 'ÚãæÏ ÇáÊÓáÓá B = "B" 'ÚãæÏ ÇáÈíÇäÇÊ R = 6 'ÇáÈíÇäÇÊ ÊÈÏà ãä ÇáÕÝ '================================================= Range("A6:A65000") = Empty L = Range("B65000").End(xlUp).Row If L < R Then Exit Sub Range(Cells(R, A), Cells(L, A)).ClearContents '================================================= For I = R To L If Cells(I, A) = "" And Cells(I, B) <> "" Then N = N + 1 For ii = I To L If Cells(ii, B) = Cells(I, B) Then Cells(ii, A) = N End If Next ii End If Next I End Sub أخوك ين علية

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي مصطفى، فهمت المطلوب وحاولت اختصار المعادلات دون جدوى... أرجو أني وفقت في تقديم جزء من المطلوب في الملف المرفق... اقتراح: يستحسن حفظ الملف بصيغة .xlsb بدلا من الصيعة .xlsm أخوك بن علية Payroll Tax - 2012.rar وهذه نسخة على أوفيس 2003 للفائدة... Payroll Tax-2012.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح العمال.... أخي الكريم، تم تحضير كود بسيط (تحويل المعادلة المقترحة في الملف السابق إلى كود) يقوم بالعملية المطلوبة... أرجو أن يكون مقبولا أو انتظر من الأعضاء الكرام الذين لهم باع كبير في VBA حتى يدلوا بما فضل الله عليكم من علم ويقدموا أكوادا أفضل من الذي وضعته في الملف المرفق... أخوك بن علية تسلسل2.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال.... أخي الكريم، باستعمال أداة أخرى تم المطلوب في المرفق.... أخوك بن علية Book3.rar

السلام عليكم ورحمة الله تقبل الله صيام وقيام الجميع.... أخي الكريم تجد في الملف المرفق حلا لمسألتك... أخوك بن علية... مرتبات.rar

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، وهذا حل آخر يعتمد تكرار أسماء العملاء في العمود الأول... أخوكم بن علية Book2.rar