طارق محمود

السلام عليكم أخواي الحبيبان/ احمدزمان ، جمال الفار جزاكما الله خيرا علي مروركما وكلماتكما الطيبة أخي الحبيب/ جودة الحمد الله لاتتردد في أي سؤال

السلام عليكم أخي العزيز ضع المعادلة التالية في الخلية A2 =COUNTIF($B$1:B2,">0") وانسخها للأسفل ثم من التنسيق الشرطي ضع الشرط التالي في التنسيق =OR(A2=0,A2=A1) وإجعل التنسيق ، لون الفونط أبيض أو تفضل المرفق ترقيم تلقائى_جودة.rar

السلام عليكم أهلا ومرحبا بك اخي بين إخوانك تفضل الملف المرفق به المطلوب بضغط الزر الأحمر ، سيتم ترحيل القضايا ويتم أيضا تكوين ورقات أوتوماتيك للتواريخ التي ليس لها ورقات تفضل ترحيل قضايا.rar

السلام عليكم أخي عادل إن كنت تريد الرقم الصحيح بدون تقريب ، يعني مثلا 4.7 تكون 4 فاستعمل المعادلة التالية =INT(A1) حيث الرقم في الخلية A1 أما إن كنت تريد الرقم الصحيح مقربا لأقرب عدد صحيح، يعني مثلا 4.7 تكون 5 فاستعمل المعادلة التالية =ROUND(A1,0) حيث الرقم في الخلية A1 وإذا كانت الأرقام التي تريد تغييرها مثلا العمود D فلتلجا لعمود مساعد بعيدا عن مجال عملك بالورقة وليكن X وتضع به المعادلة التي تريدها ROUND أو INT وتنسخها لباقي العمود المساعد X ثم تنسخ قيم هذا العمود المساعد X ، لصق خاص ، قيم فقط للعمود الأصلي D

السلام عليكم أخي الصديق شرح الكود ، عادة ليس سهلا لأنك تضطر للتماشي مع مؤلفه أساسا ويكون أصعب بدون مرفق للتطبيق عليه ثم أصعب مرة أخري إن كان لأحد العظماء مثل عالمنا الجليل خبور خير ، حفظه الله عموما ، الحمد لله شرحت لك بالمرفق الكود الأول وللأسف ، لاأجد وقت كافي للثاني تفضل المرفق M-Khboor.rar

السلام عليكم أخي الحبيب الغالي / بن عليه: ماشاء الله ، ربنا يزيدك من فضله العظيم أختنا الفاضلة / صفاء في المعادلة الموجودة بالمشاركة #5 تجدين ثلاث متغيرات ليست دوال وهي Cell1 , Cell2 , Cell3 وقد لجأ أخونا العزيز لهذه الحيلة (الجديدة علي) لإختصار طول المعادلة وكما شرح أكرمه الله في المشاركة #8 أضيف فقط لو ضغطت Ctrl-F3 داخل الملف لترين النطاقات المسماة في الملف لوجدت نلك الأسماء Cell1 , Cell2 , Cell3 معرفة كالتالي Cell1 =INDIRECT(ADDRESS(ROW(),SMALL(IF((Sheet1!$B8:$F8)<(Sheet1!$B$3:$F$3),COLUMN(Sheet1!$B$3:$F$3)),1))) Cell2 =INDIRECT(ADDRESS(2,SMALL(IF((Sheet1!$B9:$F9)<(Sheet1!$B$3:$F$3),COLUMN(Sheet1!$B$3:$F$3)),1))) Cell3 =INDIRECT(ADDRESS(3,SMALL(IF((Sheet1!$B10:$F10)<(Sheet1!$B$3:$F$3),COLUMN(Sheet1!$B$3:$F$3)),1))) وعلي هذا فهذه المعادلة القصيرة نسبيا الموجودة بالمشاركة #5 =IF(SUMPRODUCT(((B4:F4)<($B$3:$F$3))*1)>=2,"لا يرفع",IF(Cell1+0.1*Cell2>=Cell3,"يرفع","لا يرفع")) والتي عدد حروفها 97 حرف هي في الأصل 368 حرف هكذا (بعد التعويض بقيم كل من Cell1 , Cell2 , Cell3) =IF(SUMPRODUCT(((B4:F4)<($B$3:$F$3))*1)>=2,"لا يرفع",IF(INDIRECT(ADDRESS(ROW(),SMALL(IF((Sheet1!$B5:$F5)<(Sheet1!$B$3:$F$3),COLUMN(Sheet1!$B$3:$F$3)),1)))+0.1*INDIRECT(ADDRESS(2,SMALL(IF((Sheet1!$B6:$F6)<(Sheet1!$B$3:$F$3),COLUMN(Sheet1!$B$3:$F$3)),1)))>=INDIRECT(ADDRESS(3,SMALL(IF((Sheet1!$B7:$F7)<(Sheet1!$B$3:$F$3),COLUMN(Sheet1!$B$3:$F$3)),1))),"يرفع","لا يرفع"))

وعلى هذه الروابط التاليه شرح بالصور باللغة الإنجليزية لإنشاء الجداول المحوريه http://www.contextures.com/xlPivot07.html http://office.microsoft.com/en-us/excel/HA010346321033.aspx http://www.ozgrid.com/Excel/excel-pivot-tables.htm

السلام عليكم اخي العزيز / جودة شاهد الرابط التالي شرح للجداول المحورية فى الاكسيل و استخدامها - فيديو

السلام عليكم أخي العزيز جرب المعادلة التالية =ROUND(A1*2,1)/2 حيث A1 هو الرقم الذي تريد تقريبه ملحوظة أنت أخطأت في طلبك فإن كانت علي نفس منوال باقي الطلبات (تقريب لأقرب 0.05) فستكون أقرب للـ 20.15 وليس 20.20

السلام عليكم أخي العزيز ممكن أولا تدرس الموضوع اللي علي الرابط http://www.officena.net/ib/index.php?showtopic=40038&st=0&p=224377&hl=%D8%B1%D8%A7%D8%B3%D8%A8&fromsearch=1&#entry224377 ثم اخبرني إن كنت لاتزال تريد شيئا

السلام عليكم في الأوفيس 2003 تحفظ الملفات كلها بنفس الامتداد xls في الأوفيس 2007 / 2010 _______(1) تحفظ الملفات التي ليس بها ماكرو (كود) بالامتداد xlsx _______(2) تحفظ الملفات التي بها ماكرو (كود) بالامتداد xlsm جرب الحفظ باسم (Save As) أو إضغط F12 ثم إختر حفظ بصيغة xlsm أنظر الصورة

السلام عليكم أخي العزيز المشكلة في تسطيب إمتداد الملف لحل هذه المشكلة : من Control Panel ثم Folder Options ستجد الزر Hide file extensions for known file types غير نشط قم بتننشيطه أنظر الصورة أو يمكنك التعامل مع الوضع الحالي كما هو ولكن عند تغيير إسم الملف ، تغير في الإسم فقط وليس الإمتداد بمعني أن تحافظ علي النقطة والـ xls في حالة الإكسل مثلا ، وتحافظ علي النقطة والـ doc في حالة الوورد وهكذا يعني Book1.xls تصبح ن.xls وليست ن فقط كما بالمرفق الذي أرسلته انت

السلام عليكم أخي الكريم لم تذكر شيئ في الشييت إفتح الشييت وانظر أو قل بوضوح ماذا تريد

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

السلام عليكم أخي الحبيب أبوأحمد حسب مافهمت بمعلومية العمود الأول في الجدول Com. Id يتم تجميع مبيعات كل شركة من الجدول الثاني ثم يضرب الناتج في 10%

أهلا ومرحبا بك أخي الكريم ضع المعادلة التالية في الخلية H3 المظللة بالازرق =SUMIF($B$14:$B$21,B3,$D$14:$D$21)*10% ثم إنسخها للأسفل

السلام عليكم بعد إذنك أخي الحبيب /محمد صالح جرب أخي المعادلة التالية =SUMPRODUCT(--((INDIRECT(B9&"!$B$8:$B$100"))<=$H$5)--((INDIRECT(B9&"!$B$8:$B$100")>=$C$5))*(INDIRECT(B9&"!$K$8:$K$100")))

السلام عليكم أخي الحبيب / محمد صالح تحية ملؤها الحب والتقدير ماشاء الله مجهود جبار دائما سباق للخير جعل الله ذلك في موازين حسناتك أحببت أن أشارك فأضفت علي الملف ورقات (لكل دالة ورقة) وعملت هايبرلينك من وإلي الصفحة الرئيسية ثم بدأت في نقل بعض الشروحات من الموضوع المميز لأخي الحبيب وأستاذي الجليل / خبور خير (عبد الله باقشير) من الرابط التالي http://www.officena....showtopic=31610 وفي الحقيقة ، لم أنقل سوي أول دالتين في الموضوع وهما INDIRECT ، FIND لكي أجرب الروابط عليهما (هايبرلينك) مع بعض التنسيق الطفيف ثم نترك فرصة للإخوة الأحباب لجعل الملف ككتاب إلكتروني جيد ومميز وذلك بنقل أو بالمساهمة في شرح باقي الدوال تفضلوا المرفق بصيغتي 2003 ، 2007/2010 excel-functions.rar

سلمت يمينك أبا أحمد تقبل تحياتي

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

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

السلام عليكم أخي الحبيب لاتنزعج أبدا من الأسئلة فهذه أسلم الطرق لحفر المعلومة في الرأس ردا علي سؤالك في الحقيقة الكود الأول ليس له داعي يلزمك إضافة السطورالتالية في أول الكود Dim myRange As Range Set myRange = [C7:I14] If Intersect(Target, myRange) Is Nothing Then Exit Sub وكذلك تغيير السطر For Each ce In UsedRange إلي For Each ce In myRange يعني سيكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Set myRange = [C7:I14] If Intersect(Target, myRange) Is Nothing Then Exit Sub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In myRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(### ### ###_);[Red]_((### ### ###);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .IndentLevel = 1 .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

السلام عليكم أخي عيد إحذف سطر .IndentLevel = 1 من جزئية الصفر ليصبح الكود كالتالي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In UsedRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(### ### ###_);[Red]_((### ### ###);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .IndentLevel = 1 .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each ce In UsedRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(### ### ###_);[Red]_((### ### ###);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .IndentLevel = 1 .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

السلام عليكم أخي الحبيب لأن الدالة VLOOK2ALL ليست هي المناسبة للبيانات الكثيرة هذه وشأنها شأن دوال البحث لايجب إستخدامها بكثرة في الورقة حيث تجعل الحركة داخل الملف ثقيلة وبطيئة كما لاحظ أخونا أبوأحمد (عبدالله المجرب) لذلك فقد ألغيتها ولجأت لوسيلة أخري لتحقيق المطلوب وضعت لك بيانات وهمية للتحقق من النتائج ووضعت كل جدول في ورقة منفصلة إستخدمت خاصية الجداول المحورية حيث أراها الأنسب في هذه الحالة مع كود بسيط راجع المرفق وأخبرني النتيجة يبدو أن هناك مشكلة في التحميل ستجد الملف علي الرابط التالي http://www.4shared.c.../___online.html مشروع الزيوت_جودة.rar

السلام عليكم أخي الحبيب / أبو الأنس قبل أن أري الملفات أردت بشدة أن أشكرك لطمـأنتنا علي حبيبنا الغالي وأستاذنا الجليل / أبو تامر (عمر الحسين) حفظه الله ورده إلينا بخير وصحة إن شاء الله وبالنسبة للملف سأحمله الآن