مصطفى كمال

السلام عليكم ورحمة الله وبركاته مرحبا بك أخا كريما بيننا أخي الكريم ليسهل عليك العمل رجاء حمل ملف إكسيل فيه مثال ليمكن للأخوة العمل عليه, ولا تنسى ضغطه بالرار ثم حـمّـله على الموقع الجواب الأول استخدم الدالة IF الجواب الثاني أخي الكريم استخدم التنسيق الشرطي للخلية لأي توضيح أو سؤال يسرنا انضمامك معنا في هذا المنتدى

السلام عليكم ورحمة الله وبركاته أخي الكريم تفضل الملف التالي فهو ملف تنقيط للأساتذة في التعليم الإكمالي أو الثانوي أرجو أن تستفيد منه في كتابة معادلاتك اضغط لتحميل الملف أو حمله من الملفات المرفقة عليك بفتح الملف تحت البرنامج excel 2003 دفتر التنقيط.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم تفضل الملف المرفق اكتب البيانات في أحد الخانات فوق , وعند التشابه أضف اسم مثلا أرجو أن يفيدك في عملك بحث متشابه في دالة recherhev.rar

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الكريم تفضل الملف التالي , أرجو أن يكون ما طلبت TEST.rar

السلام عليكم ورحمة الله وبركاته إنا لله وإنا إليه راجعون ، لله ما أخذ ولله ما أعطى اللهم اغفر له وارحمه واعف عنه وعافه اللهم تغمده برحمتك الواسعة يا أرحم الراحمين يارب العالمين

السلام عليكم ورحمة الله وبركاته إنا لله وإنا إليه راجعون ، لله ما أخذ ولله ما أعطى اللهم اغفر له وارحمه واعف عنه وعافه آمين

السلام عليكم ورحمة الله وبركاته أخي الكريم تفضل الرابط التالي قي يفيدك دوال مستحدثة ستجد فيه رابط يشرح لك الدالة vllok2all

السلام عليكم ورحمة الله وبركاته أخي الكريم رجاء تقبل اعتذاري فأنا لم انتبه إلى عدد مشاركاتك مرحبا بك أخا كريما بيننا في هذا المنتدى وأهلا وسهلا بك

السلام عليكم ورحمة الله وبركاته أخي الكريم تفضل الملف المرفق حيث تمت ترجمتهما من الفرنسية إلى العربية للأمانة أرجو أن يوضحا لك عمل الدالتين match.rar

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

السلام عليكم ورحمة الله وبركاته أخي الكريم تفضل الملف التالي قد يساعدك في عملك حيث تمت الإجابة على الشطر الأول الشطر الثاني يتم العمل عليه مباشرة في الورقة الأخيرة بطريقة عادية عملية طرح في انتظار مشاركة باقي الإخوة Rehana to cilantro .rar

السلام عليكم ورحمة الله وبركاته أخي الكريم حاول إرفاق ملف ، لنحاول فيه مع باقي الإخوة

السلام عليكم ورحمة الله وبركاته تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب تحياتي وسلامي الحارين للأخ hben لكل مايبذله في المنتدى أخي الكريم لم أفهم مقصودك حول العمودين A وF سابقا تفضل أخي الملف المرفق وقد تم التصحيح بطريقة جديدة الدوال من نوع الصفيف ، بعد كتابتها اضغط على Ctrl + Alt +Enter لتحصل على الأقواس وتعمل الدالة دالة بحث اسم وجلب احد بياناته.rar

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

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

السلام عليكم ورحمة الله وبركاته تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب تفضل أخي الملف المرفق، رجاء لا تنسى بالدعاء صاحب الملف أستاذناالكريم خبورخير بظهر الغيب gestion stock1.rar

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

السلام عليكم ورحمة الله وبركاته تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب تفضل أخي الكريم Bast الملف المرفق ، ارجو أن يكون ما طلبت في انتظار البحث عن دالة أفضل 10330.rar

السلام عليكم ورحمة الله وبركاته تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب اخي الكريم ولد طيبة تحياتي وسلامي لك في هذا الشهر الكريم، وشرف لي شهادة من أخ كريم مثلك وفقك الله لما فيه خير وصلاح هذه الأمة أخي الكريم بعد البحث والتعمق في الدالة datedif , لديك خطأ بسيط في الدالة عند كتابة "md" في نهاية الدالة فأنت تبحث عن عدد الأيام فوق عدد الشهور لتصحيح خطأك قم بحذف حرف m وضع في نهاية الدالة "d" ستجد إن شاء الله أن الدالة تعمل معك تمام لتصحيح الخطأ في كل الملف استخدم بحث استبدال حيث تقوم بالبحث في الملف عن "md" وقم باستبدالها ب "d" اخي الكريم لا تنسى بالدعاء الصالح لكل القائمين على هذا المنتدى في هذا الشهر العظيم عند البيت الحرام دعوة بظهر الغيب لجميع الإخوة وتقبل الله منا صالح الأعمال

السلام عليكم ورحمة الله وبركاته تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب اخي الكريم خبرتي في vb محدودة جدا، ارجو أن تجد حلولا من طرف باقي الإخوة

السلام عليكم ورحمة الله وبركاته تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب أخي الكريم جرب الكود التالي =IF(E31="","",F31-E31)

أخي الكريم أيسم يبدو أن الملف المرفق يحتوي بداخله ماكرو كنظام حماية فعند تشغيل الملف تظهر رسالة خطأ ثم عند إعادة تشغيل الاكسيل يتم حذف وحدة الماكرو كليا لا أعرف ما السبب قمت بمحاولة بدائية على Module باستخدام بحث استبدال يمكن تغيير العملة وأجزاؤها أرجو التوفيق مم قمت به إليك أخي أيسم كود دالة تحويل من عربي إلى انجليزي بالنسبة لعملة الدولار Function ConvertCurrencyToEnglish(ByVal MyNumber) Dim Temp Dim Dollars, Cents Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' Convert MyNumber to a string, trimming extra spaces. MyNumber = Trim(Str(MyNumber)) ' Find decimal place. DecimalPlace = InStr(MyNumber, ".") ' If we find decimal place... If DecimalPlace > 0 Then ' Convert cents Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Cents = ConvertTens(Temp) ' Strip off cents from remainder to convert. MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" ' Convert last 3 digits of MyNumber to English dollars. Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then ' Remove last 3 converted digits from MyNumber. MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop ' Clean up dollars. Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select ' Clean up cents. Select Case Cents Case "" Cents = " And No Cents" Case "One" Cents = " And One Cent" Case Else Cents = " And " & Cents & " Cents" End Select ConvertCurrencyToEnglish = Dollars & Cents End Function Private Function ConvertHundreds(ByVal MyNumber) Dim Result As String ' Exit if there is nothing to convert. If Val(MyNumber) = 0 Then Exit Function ' Append leading zeros to number. MyNumber = Right("000" & MyNumber, 3) ' Do we have a hundreds place digit to convert? If Left(MyNumber, 1) <> "0" Then Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred " End If ' Do we have a tens place digit to convert? If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & ConvertTens(Mid(MyNumber, 2)) Else ' If not, then convert the ones place digit. Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens) Dim Result As String ' Is value between 10 and 19? If Val(Left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' .. otherwise it's between 20 and 99. Select Case Val(Left(MyTens, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select ' Convert ones place digit. Result = Result & ConvertDigit(Right(MyTens, 1)) End If ConvertTens = Result End Function Private Function ConvertDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: ConvertDigit = "One" Case 2: ConvertDigit = "Two" Case 3: ConvertDigit = "Three" Case 4: ConvertDigit = "Four" Case 5: ConvertDigit = "Five" Case 6: ConvertDigit = "Six" Case 7: ConvertDigit = "Seven" Case 8: ConvertDigit = "Eight" Case 9: ConvertDigit = "Nine" Case Else: ConvertDigit = "" End Select End Function