سليم حاصبيا

اثراءً للموضوع هذا الكود Sub salim_Loop() With Sheets("a") .Range("E13:E1000") = Empty x = .[g10] t = 0 .Cells(13, "e").Activate Do While t < x ActiveCell = Round([d10] / x, 2) ActiveCell.Offset(1, 0).Activate t = t + 1 Loop End With ActiveCell.Offset(-1, 0).Activate End Sub او هذا Sub salim1() With Sheets("a") .Range("E13:E1000") = Empty .Cells(13, "e").Resize(.[g10], 1) = Round(.[d10] / .[g10], 2) End With End Sub

الى اي مكان تريد النسخ واللصق هذا اولاً ثانياُ هل تريد ان يتم ذلك بشكل متسلسل (يعني المحافظة على ما تم نسخه سابقاً)

اعاده الله عليكم و على الجزائر الحبيبة بلــــــــــ المليون شهيد ــــــــــــــد بالخير واليمن و البركات

كل عام و انتم بخير جرب هذه المعادلة في الخلية E13 و اسحب نزولاً =IF(ROWS($A$1:A1)>$G$10,"",ROUND($D$10/$G$10,2))

كل عاام و انتم بخير جرب هذه المعادلة في الخلية E13 ,و اسحب نزولاً =IF(ROWS($A$1:A1)>$G$10,"",ROUND($D$10/$G$10,2))

اليك ما يجب القيام به 1-File>>>Option>>>advanced>>>Display for this workbook 2-Show sheet tabs تزيل علامة الصح من جانب 3- Ok

لعله المطلوب date_if.rar

يجب ان تكون محتويات العامود C في الورقة All ارقاماً وليست نصوصاً (هل 005 هي رقم او نص برأيك) للتحويل الى ارقام انسخ العامود C الى اي مكان (فليكن صفحة جديدة مثلاُ) و اضرب كل محتوباته ب 1 ثم انسخ النتيجة و راجعها الى العامود C Paste Value او يمكنك استعمال هذا الماكرو (قم بتنفيذه بعد ان تحدد كل محتويات العمود C) Sub test_to_val() For Each cel In Selection If cel.Value <> "" Then On Error Resume Next cel.Value = cel.Value * 1 If Err.Number <> 0 Then cel.Value = Application.WorksheetFunction.Trim(Replace(cel.Text, Chr(160), Chr(32))) cel.Value = Application.WorksheetFunction.Clean(Replace(cel.Text, Chr(127), Chr(7))) End If End If Next End Sub انا قمت بتحويل بعضهاالى ارقام وهي التي تعطي النتائج التي تراها

1-استبدل الرقم 857 في المعادلة (أول خلية بالنطاق A3 ) بالرقم الذي تريد 2- اضغط Ctlr+Shift+Enter (معادلة صفيف) 3-اسحب المعادلة يميناً حتى H3 ثم نزولاً قدر ما تريد من الصفوف

جرب هذه المعادلة في الخلية I3 ,واسجب نزولاً =IF($A2="","",COUNTIF($B2:$H2,"X"))

=IF($A2="","",COUNTIF($B2:$H2,"X")) جرب هذه المعادلة في الخلية I3 ,واسجب نزولاً

ماذا تقصد بالتنقيط املأ الجدول يدوياً بالنتائج المتوقعة

جرب هذا calculation-Repport.rar

اكنب هذه المعادلة في الحلية D3 واسحب نزولاُ =IF(COUNTIF(E$3:E3,E3)=1,"","مكرر "&COUNTIF(E$3:E3,E3)) بصراحة لم افهم ما تعنيه هذه العبارة "بشرط ان يكون اجمالى عدد av 2 او dv 2"

شاهد المرفق عند الضغط على الخلية A1 يتم تصفير كل شيء (ماكرو الاخ ابو عبد الباري) و عند تغيير اي خلية في الاعمدة(B,F,j او N ) ابتداء من الصف السادس الى 36 يتم الجمع الى الخلية المجاورة tazkara.rar الكود(اقصد هذا الكود تحديداً) لا يوضع في مديول جديد بل في حدث الصفحة

بعد وضع الكود لا تفعل شيئاً فقط غير اي رقم في اي عامود B,F,j او N عند الضغط على الخلية A1 يتم تصفير كل شيء (ماكرو الاخ ابو عبد الباري) و عند تغيير اي خلية في الاعمدة(B,F,j او N ) ابتداء من الصف السادس الى 36 يتم الجمع الى الخلية المجاورة جرب هذا المرفق tazkara.rar

جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim RB, RF, RJ, RN, My_rg As Range Dim My_sh As Worksheet Dim Oldval, Newval As Long Set My_sh = Sheets("ورقة1") Set RB = Range("b6:b36"): Set RF = Range("f6:f36") Set RJ = Range("j6:j36"): Set RN = Range("n6:n36") Set My_rg = Union(RB, RF, RJ, RN) If Not Intersect(Target, My_rg) Is Nothing And Target.Count = 1 Then With Application .EnableEvents = False .ScreenUpdating = False .Calculation = xlCalculationManual End With Newval = Target.Value Application.Undo Oldval = Target.Value Target.Value = Newval Target.Offset(0, 2) = Target.Offset(0, 2) + Newval End If With Application .EnableEvents = True .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

اخي بن علية معادلة ممتازة جزاك الله خيراً لكن انا استعمل (rows($a1:A1 مكان (Row($a1 و ذلك اذا قمت باضافة صف (او عدة صفوف) او مسح صف او عدة صفوف قبل صف المعادلات لا تتأثر المعادلة

انظر الى هذا من فضلك على قكرة كيف لي ان احمل الصور كما في مشاركاتك ؟؟دون استعمال الوورد او Paint Add site.rar

الرابط لا يعمل

عل تريد احتساب المكرر مرة واحدة ام لا مثلاُ لنفرض ان احمد باع ثلاث مرات نفس الصنف ما العمل في هذه الحالة (لا اريد التخمين)

الف شكر و ان شاء الله تحصل عل مثلها شكراُ اخي عبد السلام وانت ايضاً من الذين يستحقون الترقية التي ان شاء الله ان تكون قريبة

جرب هذا الملف (Sheet2) تقسيم الكلمة salim.rar

بدل الرقم 269 في المعادلة برقم اخر صف العامود G 2923 على اظن

اليك المعادلة المطلوبة _(تضغها في الخلية C5 ,و تسحب نزولاً) =IF($B5="","",HLOOKUP($B5,$D$1:$H$2,2,0)+COUNTIF($B$5:B5,B5)-1)