طارق محمود

السلام عليكم أخي الكريم تفضل المرفق صر ف عزام.rar

الملف محمي أرسل الباسوورد ـ أو فك الملف وأعد إرساله

السلام عليكم تفضل المرفق توزيع9.rar

أو هذه لوتفضل اللجوء للباركود =LOOKUP(2,1/(Buys!$C$1:$C$60000=Stor!A2),Buys!$M$1:$M$60000)

السلام عليكم أخي العزيز إستبدل المعادلة =IF(ISERR((SUMIF(Buys!$C$2:$C$63197,A2,Buys!$M$2:$M$63197))/G2),"0.000",(SUMIF(Buys!$C$2:$C$63197,A2,Buys!$M$2:$M$63197))/G2) الموجودة بالورقة Stor بالخلية Q2 بهذه المعادلة =LOOKUP(2,1/(Buys!$E$1:$E$60000=Stor!C2),Buys!$M$1:$M$60000) وانسخها للأسفل

السلام عليكم تفضل أخي المرفق غير في أي من الخلايا الخضراء أو الخلية الزرقاء توزيع8.rar

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

أو تفضل المرفق ((ع عندي مشكلة في رفع الملفات )) تجد الملف علي الرابط http://www.4shared.com/rar/zi8j0vRl/300.html

السلام عليكم أخي ماجد استبدل هذا الكود Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) mocro1 End Sub بالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$H$3" Then Exit Sub mocro1 End Sub

السلام عليكم تفضل أخي المرفق أرجو أن يكون هذا ماتريد توزيع6.rar

السلام عليكم أخي محمد السؤال غير واضح ممكن مثال وتعمل فيه ماتريد يدويا

السلام عليكم هذا الخطأ #NOM? يدل أن البيان الموجود بالخلية المفروض أنها الرقمية ليس رقما يعني في مثالنا هذا كلا من الخلية F2 والخلية G2 تحتويان علي تاريخ فلو عندك مثلا أحدهما التاريخ بصيغة TEXT وليس رقم فستعطي لك هذا الخطأ راجع تنسيق الرقم بالخلايا ومرفق أيضا الملف بصيغة 2003 sumproduct.rar

السلام عليكم أخي / ماجد السوءال عام جدا الأفضل تحديد ماذا تريد بالضبط مثلا لجعل مربع أو صورة (علي شكل زر) تقوم بتشغيل ماكرو قف عليه بالماوس ثم كليك يمين ستجد من الخيارات ربط ماكرو عليه إذا اخترت هذا سينقلك لقائمة الماكروهات المتاحة لتربط بأحدها ومثلا لجعل خلية معينة (سواء بها محتوي أم لا) ترتبط بمكان آخر في نفس الورقة أو نفس الملف أو حتي خارج الإكسل أو الإنترنت قف عليها ثم Ctrl-K ثم اتبع التعليمات

السلام عليكم أخي العزيز الدالة MATCH تأتي برقم الصف الوكلاء الذين يتعاملون بسعر2 تبدأ أسماؤهم من السطر 10 (>9) السؤال (>9) يأتي ب (صح / خطأ) False / True الضرب ×1 يجعلها تأتي بـ (0 / 1)

السلام عليكم تفضل أخي المرفق <<<<< سيتم حذف الموضوع المكرر >>>> السعر المطلوب2.rar

السلام عليكم أخي (أبوعبدالله) الجزيرة تعلم أن الدالة SUMIF / SUMIFS لابد لها من معيار لتختار علي أساسه الأخ السائل قال فإذا كانت الخلية F2 بها الرقم 1000 وأردت من الدالة مثلا أن تختار الأعداد التي أكبر من أو تساوي تلك التي بالخلية F2 (لكي أحرر الخلية للمستخم يضع بها مايشاء) فإذا وضعتها بالصورة >1000 ثم غيرت الخلية فلن تتأثر وإذا وضعتها بالصورة ">F2" سيعتبرها TEXT فالأفضل وضعها هكذا ">="&F2

السلام عليكم أخي / طاهر قد يكون الفاصل لديك في الويندوز فاصلة منقوطة(;) وليست كومة (,) غيرها وأخبرني لأني جربتها علي نسخة 2003 لدي ولامشاكل

السلام عليكم أخي العزيز / هاني ردا علي مشاركتك ملاحظة عامة لرسم الدائرة أو أي شكل هندسي بمقياس رسم لابد من إختيار الرسم البياني س/ص Scatter فهو الوحيد في أشكال الرسومات البيانية الذي تتوفر به خاصية مقياس الرسم وفيما يلي، سأشرح بإسهاب الملف كله أول ورقة :رسم الدائرة بمعلومية نصف القطر إذا حركت زرالتحكم أو زودت عرض العمود D ستجد الخلية D4 تتأثر مباشرة بهذا الزر +/- ثم الخلية C4 = نصف الخلية D4 وهذا هو نصف القطر إذا رسمت بيدك علي ورقة دائرة وبها نصف قطر وزاوية من المحور الأفقي فنصف القطر هذا يصل بين مركز دائرة ونقطة علي محيطها والعلاقة بينهما (من حيث س،ص) دائما أن إحداثيات هذه النقطة تبعد عن المركز بمسافة أفقية = نق×جتا الزاوية ورأسية = نق×جا الزاوية وهذا تفسير المعادلات في العمودين B ، C والحقيقة أن الدائرة المرسومة بالإكسل ليست دائرة فهي شكل مضلع وكلما كثرت الأضلاع زاد إقترابه من شكل الدائرة وقد إخترت خطوة الرسم 0.1 درجة كما تلاحظ العمود A خطوته 0.1 ، 0.2 ,0.3 هكذا لأن أكثر من ذلك سيكون عدد النقاط كثير بلاداعي وأقل من ذلك سيبدو الشكل مضلعا ثاني ورقة :طول القوس بمعلومية الوتر ، نق ليس بها رسم غير شكل توضيحي فقط وأعتقد أن الشرح بها كافي ولكن كمراجعة عليه طول القوس بدائرة = حاصل ضرب نصف القطر × الزاوية بالتقدير الدائري يمكن الحصول علي الزاوية (بالتقدير الدائري) باستخدام حساب المثلثات فنسبة الجيب sin لنصف هذه الزاوية = نصف الوتر ÷ نصف القطر العمود الأول A : به أرقام افتراضية تستطيع تغييرها لنصف القطر وكذلك العمود الثاني B : به أرقام افتراضية تستطيع تغييرها للوتر العمود الرابع D : به معادلة تحسب نصف الزاوية ثيتا عن طريق دالة (جا-1) بالإكسل ASIN العمود الثالث C : به معادلة تحسب طول القوس بالدائرة = 2×نق×ثيتا ثالث ورقة :رسم الدائرة والوتر أيضا إذا حركت زرالتحكم أو زودت عرض العمودين D،P ستجد الخليتين D4،P4 تتأثران مباشرة بهذين الزرين +/- ثم الخلية C4 = نصف الخلية D4 وهذا هو نصف القطر والخلية O4 = نصف الخلية P4 وهذا هو الوتر تستطيع تغييرهما بيديك إما أن تضع ضعف الوتر في الخلية P4 وضعف نصف القطر (أي القطر) في الخلية D4 أو أن تضع الوتر في الخلية O4 ونصف القطر في الخلية C4 ولكن في هذه الحالة الثانية ستفقد المعادلتين البسيطتين الموجودتان بالخليتين O4 ، C4 ويمكنك وضعهما ثانية إن أردت فيما بعد والآن طريقة عمل الرسم الشكل البياني مكون من شكلين دائرة وخط مستقيم الدائرة كما شرحتها في الورقة الأولي ليس بها تغيير الخط المستقيم له قصة صغيرة ، إنتبه معي للتالي أولا يجوز رسم الوتر في أي مكان في الدائرة (أفقي - رأسي - مائل) ، إخترت الأسهل أفقي موجب للأعلي وهذا سبب اللون الأصفر عند الصف الأفقي 39 لأن الزوايا بالعمود A بعد هذا تعبر عن الجانب السالب أكبر من 180 درجة (3.14159 دائري) إذن علينا تحديد المساحة بالمحور الأفقي التي ستقابل هذا الخط إذا رسمت بيدك نصفين قطرين من أول وآخر الخط المستقيم (الأفقي) فنصف القطر الأيمن (في الجانب الموجب من الإحداثيات) يحصر زاوية علي الأفقي = 90-(ثيتا÷2) ونصف القطر الأيسر (في الجانب السالب من الإحداثيات) يحصر زاوية علي الأفقي = 180-(ثيتا÷2) وقد سميتهما ثيتا1 ، ثيتا2 في الخلايا T1، T2 وفي الخلايا المجاورة لـ ثيتا1 ، ثيتا2 تجد بالعمود V معادلة لجلب قيم أقرب زوايا بالرسم (لأني إخترت خطوة الرسم 0.1 درجة كما أوضحت بشرح الورقة الأولي) ثم الخلايا المجاورة الثانية تجد بالعمود W معادلة لجلب أرقام الصفين اللذان بهما أقرب زوايا بالرسم ثم المعادلة الموجودة بالعمود N تضع قيمة الإحداثي الرأسي y لهذا الخط فقط عندما تكون زوايا الشكل واقعة بين ثيتا1 ، ثيتا2 ثم أهم جزء رسم هذا الخط المستقيم وقد لجأت لتسمية مجالين ديناميكيين هما W_X ، W_Y تستطيع مراجعتهما إذا ضغطت Ctrl-F3 ثم علي نفس رسم الدائرة ، كليك يمن ، أضف شكل آخر جديد : بيانات(x) له هي W_X و بيانات(y) له هي W_Y وأخيرا بالنسبة للخطأ الذي يحدث ، فكما نوهت لك بالملف أسفل الشكل التوضيحي بالورقة الثانية قلت لك: لايجب أن يزيد طول الوتر عن القطر (يعني 2×نصف القطر ) وهذه هي الحالة التي تجلب الخطأ لأنها غير حقيقة أرجو أن أكون وفقت في الشرح وإن كان لك أي استفسار فأهلا وسهلا

لا ياأخي هذه خاصة بالـ 2007 ومابعده يمكنك الإستغناء عنها بالدالة SUMPRODUCT كما أشار حبيبنا أبوأحمد في مشاركته ضع في نفس المثال السابق المعادلة التالية =SUMPRODUCT(--(B2:B13<=G2),--(B2:B13>=F2)*C2:C13)

السلام عليكم تفضل أخي المرفق sumifs.rar

السلام عليكم أخي لقد أوقفت التحديث بوضع أبوستروف قبل السطر في الكود الخاص بالورقة (Main) Private Sub Up_Date_Click() MsgBox "!!!الرجاء الانتظار بينما يتم الان تحديث بيانات التداول لسوق فلسطين المالي وبورصة عمان مباشرة من الانترنت ويستغرق ذلك عدة دقائق او اكثر حسب سرعة الاتصال لديك", vbInformation + vbMsgBoxRight, "تم الاستخراج" Application.ScreenUpdating = False ' ActiveWorkbook.RefreshAll Call Update_Total Application.ScreenUpdating = True End Sub كل ماعليك أن تزيل الأبوستروف من السطر ' ActiveWorkbook.RefreshAll ليصبح ActiveWorkbook.RefreshAll

السلام عليكم أي العزيز غيرت قليلا في الكود ليناسب طلبك Sub Update_Total() With Sheets(4).Range("A1:BZ10000") .ClearContents .ClearFormats End With For i = 6 To 20 Step 2 n = Sheets(i).Name sb_n = Right(n, Len(n) - 3) Sheets(i).Range("A1:BZ1000").ClearContents Range(Sheets(i - 1).[A1], Sheets(i - 1).Cells.SpecialCells(xlLastCell)).Copy (Sheets(i).[A1]) c = Sheets(i).[IV2].End(xlToLeft).Column Lr = Sheets(i).[A1000].End(xlUp).Row Range(Sheets(i).Cells(1, c + 1), Sheets(i).Cells(Lr, c + 1)) = sb_n Rw4 = Sheets(4).[A10000].End(xlUp).Row + 1 If Rw4 = 2 Then Rw4 = 0: GoTo 10 Sheets(4).Rows(Rw4).Interior.ColorIndex = 4 10 Range(Sheets(i).[A1], Sheets(i).Cells.SpecialCells(xlLastCell)).Copy (Sheets(4).Cells(Rw4 + 1, 1)) Next i End Sub مع اضافة الترحيل لصفحة (All_Market) ووضع خط أخضر بين بيانات الأسواق المختلفة في تلك الصفحة تفضل المرفق UpDateMyData010_1.rar

السلام عليكم تفضل أخي المرفق به ماطلبت توزيع4.rar

السلام عليكم أخي العزيز في المرفق 3 ورقات رسم الدائرة بمعلومية نصف القطر : الورقة 1 طول القوس بمعلومية الوتر ، نق : الورقة 2 رسم الدائرة والوتر : الورقة 3 مع بعض الشرح البسيط في الورقة 2 وفي الورقة 3 زرين للتحكم في طول الوتر ونصف القطر تفضل المرفق Circle2.rar

السلام عليكم أخي العزيز المطلوب غير منطقي لأن الورقات ليست بنفس الأعمدة فبعضها به متوسط مرجح والآخر لا ومعظم البيانات 10 أعمدة وبعضها 11 ويصل الحال إلي 41 عمود بيانات في بورصة فلسطين تفضل حل وسط أن تنتقل البيانات المحدثة إلي صفحاتها الرئيسية والتي تبدأ بـ To_ ولن نلغي تلك الصفحات الرئيسية إستعمل هذا الكود Sub Update_Total() For i = 6 To 20 Step 2 n = Sheets(i).Name sb_n = Right(n, Len(n) - 3) Sheets(i).Range("A1:BZ1000").ClearContents Range(Sheets(i - 1).[A2], Sheets(i - 1).Cells.SpecialCells(xlLastCell)).Copy (Sheets(i).[A1]) c = Sheets(i).[A1].End(xlToRight).Column Lr = Sheets(i).[A1000].End(xlUp).Row Range(Sheets(i).Cells(1, c + 1), Sheets(i).Cells(Lr, c + 1)) = sb_n Next End Sub