طارق محمود

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

السلام عليكم السؤال غير واضح هل تعني (إذا إستعملنا نفس الأرقام في المثال) أنك إذا ذكرت كلمة مصاريف في عمود C عدد من المرات وليكن 5 فيكون أول مرة يكون المتاح من 1000 إلي 1999 وثاني مرة يكون المتاح من 1001 إلي 1999 وثالث مرة يكون المتاح من 1002 إلي 1999 ورابع مرة يكون المتاح من 1003 إلي 1999 وخامس مرة يكون المتاح من 1004 إلي 1999 وهكذا

تفضل أنقر علي أي من التالي دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم وهي واحدة من كثييييير من إنتاج أخونا وأستاذنا أبوتامر ، رده الله إلينا سالما وإذا تختصر الوقت وتذهب لأي من مواضيعه ، ستجد في توقيعه بالأسفل الكثير مما يهمك ولاننسي العبقري خبور خير وهذه واحدة من إبداعاته دالة إستخراج اسم ولي الامر

أخي العزيز يبدو أنني لاأستطيع مساعدتك - عندك مشكلة في الشرح يوجد تعارض بين الملف وبين ماتطلب أنا طلبت منك في مشاركتي السابقة المهم ، الملف المرفق به بيانات إفتراضية من عندي وبه تعديل طفيف في المعادلة بالورقة (1) كل التعديلات باللون الأخضر أرجو مرة أخري أن تدخل بيانين أو 3 وترحلهم يدويالأفهم بالضبط ماتريد تفضل المرفق مرتبات اكسبل2.rar

موضوع أعجبني أحببت مشاركته معكم: مرقة رقبة بقرة علي القرقبي من بين مراق رقاب أبقار القراقبة يهم الآباء ويخص الأخوة المدرسين والتربوين ، حيث ملاحظ أن معظم الأعضاء منهم أرجو يعجبكم تفضلوا المرفق مرقة رقبة بقرة علي القرقبي من بين مراق رقاب أبقار القراقبة.rar

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

السلام عليكم عذرا أخي فقد كنت في عجلة بالأمس أضف سطر الكود التالي قبل السطر رقم 50 Worksheets(1).Activate

أخي مصطفي جزاك الله كل الخير

بفرض ان الرقم هو 24 فالكود يعطي الدالة أولا نفس القيمة أي تساوي 24 ستبدأ الدالة بقسمة 24 ÷ 23 فتجد أن هناك كسور فتهمل الـ 23 وتتجه للي بعده 22 فتجد أيضا أن هناك كسور فتهمل الـ 22 وتتجه للي بعده 21 وهكذا إلي الرقم 12 فحاصل قسمة 24÷12 = 2 رقم صحيح (بلاكسور) وهنا يتغير محتوي الدالة لتكون 24,12 ثم تستكمل اللف في الـ LOOP حتي الرقم 8 فحاصل قسمة 24÷8 = 3 رقم صحيح (بلاكسور) وهنا يتغير محتوي الدالة لتكون 24,12,8 وهكذا حتي نصل إلي الـ 1 فتكون النتيجة ه الأرقام التي ممكن قسمة الــ 24 عليها بلاكسور : 24,12,8,6,4,3,2,1 يارب تكون وصلت الفكرة

بس بس إيه الزعل ده كله أنا أول مرة أشوف الموضوع لو ممكن تغير أسماء الأكواد اللي بالعربي وتخليها إنجليزي (لعيب في الجهاز عندي) ثانيا أن أفترض أن يكون ذلك بالمعادلات أسرع لو ممكن تدخل بيانين أو 3 وترحلهم يدويالأفهم بالضبط ماتريد

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

السلام عليكم تفضل أخي الدالة مع شرحها في المرفق factors_explain.rar

السلام عليكم أخي العزيز / DVB Software إسمح لي 1. لم يكن هنك داعي لعمل إرفاق لملف صغييييييير فقط يحتوي علي كلمة السر 2B3F 2. كلمة السر 2B3F خطأ ولاتفتح الكود حتي إن غيرت الأحرف إلي 2b3f أرجو إعادة المحاولة وإن كنت فتحته ، ممكن ترسل الكود نفسه

أخي احصائي النت عمل ممتاز بارك الله فيك لو أردت الإستزادة في الدوال الهندسية وأشكاله المختلفة يمكنك الرجوع لموضوع رسم الدوال الهندسية (رسم بياني بالإكسيل للدوال الهندسية) علي الرابط : http://www.officena.net/ib/index.php?showtopic=30605&st=0&p=153705&hl=%D1%D3%E3%20%C7%E1%CF%E6%C7%E1%20%C7%E1%E5%E4%CF%D3%ED%C9&fromsearch=1&#entry153705

الموضوع ده يشبه ولادة متعسرة لكن الحمد لله ، تمت عل خير

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

السلام عليكم أنا أيضا تعبتك لأني غير محترف فقط أعلم في هذا الباب أكثر منك قليلا إستبدل الكود من عند السطرين التاليين 'ACC(1 To Qaid_No) For qq = 1 To Qaid_No إلغيهما مع كل ماأسفلهما إلي نهاية الكود وإستبدل بالتالي وإن شاء الله يضبط معاك ' ACC(1 To Qaid_No) For qq = 1 To Qaid_No X = Worksheets.Count For I = 1 To X If Worksheets(I).Name = s_name(qq) Then GoSub 3333 Next I chk_all = s_amount(qq * 2 - 1) + s_amount(qq * 2) If chk_all = 0 Then GoTo 1000 Sheets("sample").Select Sheets("sample").Copy Before:=Sheets(1) ActiveSheet.Name = s_name(qq) Range("C1").Value = S_ACC(qq) Range("F3").Value = s_name(qq) '______________________________________________ 3333 Worksheets(s_name(qq)).Select Range("a1000").Select Selection.End(xlUp).Select If ActiveCell.Row = 5 Then ser = 1 Else ser = ActiveCell.Value + 1 ActiveCell.Offset(1, 0).Select ActiveCell.Value = ser ActiveCell.Offset(0, 1).Value = s_amount(qq * 2 - 1) ActiveCell.Offset(0, 2).Value = s_amount(qq * 2) ActiveCell.Offset(0, 5).Value = S_explain(qq) ActiveCell.Offset(0, 6).Value = S_DATE ActiveCell.Offset(0, 7).Value = S_KIND ActiveCell.Offset(0, 8).Value = S_SER If (qq / 2 - Int(qq / 2)) = 0.5 Then qid_f = 1 Else qid_f = -1 ActiveCell.Offset(0, 9).Value = s_name(qq + qid_f) Return '______________________________________________ 10000 Next qq Windows("1.xls").Activate Range("A1").Select End Sub

الفارق بينهما شاسع =VLOOKUP(m,Range,c) تبحث رأسيا في العمود الأول من مجال من البيانات Range عن عنصر m ، إذا وجدته تأتي إليك بالعنصر الموجود بالعمود رقم c المقابل له في المجال Range أما INDEX(Range,x,y) فتأتي إليك بالعنصر الموجود في الصف x والعمود y من مجال البيانات Range

أخي العزيز كان هناك أخطاء صغييييرة للغاية صلحتها ومرفق الملف 1 فقط (اللي به الماكرو) تفضل 1.rar

أخواني الأعزاء الأفاضل (بن علية -جمال دغيدي) جزاكما الله خيرا شاكرا مروركما الكريم وكلماتكما الطيبة

طبعا، أنا أتشرف بذلك مااسم اليوزر تبعك في الماسنجر onlymanly أم إسم آخر بالمناسبة أنا قليل جدا في إستخدام الماسنجر

السلام عليكم أخي منسق تفضل المرفق وبه المطلوب ترحيل بشرط2.rar

السلام عليكم أخي أنور تقول: لابد أنه فيه شيء ناقص أنا لاأفهم عموما فقط إذا كنت تريد فقط نقل لاعمدة الى صفوف اوالعكس فلايعني أن تقوم بنفسك باخد كل مرة خلية وتضعها في احدى الصفوف ممكن تأخد المجموعة كلها نسخ ثم لصق خاص (تغيير الإتجاه) عفوا لايوجد عندي أوفيس عربي فلاأدري الأسم الصحيح لهذه الخاصية بالإنجليزي Copy > Past Special >Transpose

السلام عليكم أخي جودة تفضل الكود مع الشرح داخل المرفق Class_Code.rar

أخي الحبيب هشام المطلوب عمل مقارنة وتحليل بين بيانات الشهرين من حيث كميات المبيعات موقف مندوبي المبيعات والاصناف المباعة والعملاء تقبل ودي وإحترامي