هذا الملف مرفق ممكن تساعدوني
اريد اعمل عداد
مغلق
dr_abdalrhman كتب:السلام عليكم اخىما فى مشكلة لكن حاول تتعرف على function الموجودة عندك فى الاكسيل
بالنسبة لسؤالك
اذهب الى الخلية n2 واكتب
(Max(c2:c9=
اما بالنسبة لكلمة المقابلة كيف التخلص
اذهب فى اى خلية واكتب
(MATCH(n2;C2:C9=
القيمة الناتجة هى index to row which have the max number---وليكن 9
اذهب الى الخلية p2 واكتب
D9
على فكرة اخى هى دائم القيم الكبرى فى الصف الاخير انا مش عارف هل هذا بسبب برنامجك لو كان كدة يبقى ما عندك المشاكل التى قلت عليها اصلا
حقيقة جاوبتك وانا لا افهم ماذا تريد بالضبط لكن اتمنى اكون جاوبتك الاجابة الصحيحة
بالتوفيق ان شاء الله
جزاك الله مليون خير
اريد اقولك لا اريد ان اكتب يدوي في الخليه
p2
اريد داله تجلب النص المقابل لا اريد ان اكتب يدوي
ثانيا مشكله العداد الله يبارك فيك عندما اكتب في أي خليه يزداد العداد واحد اتمنى تري هذه المشكله الله يزيدك من فضله
dr_abdalrhman كتب:السلام عليكم اخىما فى مشكلة لكن حاول تتعرف على function الموجودة عندك فى الاكسيل
بالنسبة لسؤالك
اذهب الى الخلية n2 واكتب
(Max(c2:c9=
اما بالنسبة لكلمة المقابلة كيف التخلص
اذهب فى اى خلية واكتب
(MATCH(n2;C2:C9=
القيمة الناتجة هى index to row which have the max number---وليكن 9
اذهب الى الخلية p2 واكتب
D9
على فكرة اخى هى دائم القيم الكبرى فى الصف الاخير انا مش عارف هل هذا بسبب برنامجك لو كان كدة يبقى ما عندك المشاكل التى قلت عليها اصلا
حقيقة جاوبتك وانا لا افهم ماذا تريد بالضبط لكن اتمنى اكون جاوبتك الاجابة الصحيحة
بالتوفيق ان شاء الله
جزاك الله الف خير
يا اخي عفوا انا اريد ان يرجع لي في الخليه
p2
(العباره( كيف التخلص
لا اريد رقم الصف الاكبر انما اريد العباره نفسها بارك الله فيك
ثاينا مشكله العداد ممكن تري هذه المشكله عندما اكتب في اي خليه اي رقم او حرف يزيد العداد العدد واحد وتعبر هذه مشكله
العداد الموجود في العمود
c
لو كتبت في أي خليه حرف او رقم يزيد العداد واحد
عفوا على الازعاج وكتب الله لك بكل حرف مليون حسنه باذنه الكريم
dr_abdalrhman كتب:السلام عليكم اخىاخى انا ما فهمتة انك تريد القيمة الكبرى للعمود ومن ثم القيمة التى تقابلة فى العمود d
وهذا ما جاوبت على اساسة
بالنسبة للدالة تعطيك هذة النتيجة ليست يدويا انا ما بعرف حقيقة – سوف اراها لك -
بالنسبة للعداد انا مش عارف انت واضع القيم فى هذا العمود على اى اساس يعنى انت ادخلت رقم وعملت auto fit
صراحة مش عارف اجاوب لان مش واضح عندى اى شىء
ارجو بتوضح وعلى قد معرفتى راح اجاوبك ----رغم انى نسيت الاكسيل والاكسيس من زمان ما استخدمتهم
فى الاخير-----وكتب الله لك بكل حرف مليون حسنه باذنه الكريم -----
الله يجزيك خير على الدعوة والله بنتظرها من الاعضاء بفارغ الصبر ربنا يتقبل امين يا رب
بالتوفيق ان شاء الله
السلام عليكم
اولا اشكرك على التجاوب معي السريع
يا اخي الله يفتح عليك اريد اكبر قيمه في عمود العداد وكذلك العباره المقابله حق اكبر قيمه
السوال الثاني العداد
كيف اعمل عداد اذا كانت قيمه العمود
a
اكبر من 1000 يزيد العداد واحد فقط عداد عادي
الله يوسع رزقك والجميع من يقرأ هذه التعقيبات
طابت ليلتك
تم تعديل هذه المشاركة بواسطة راشد اليماني في 16 يوليو 2007 في 16:39
dr_abdalrhman كتب:السلام عليكم اخىقرات الملف ولكنى والله مريض جدا اليوم
فان شاء الله غدا او بعد غد اجاوب عليك
بالتوفيق ان شاء الله
السلام عليكم
الله يشافيك لا توجد مشكله المهم صحتك
شفاء عاجل بأذن الله
الله يعطيك العافيه
تشكر على جهدك معي
بسم الله الرحمن الرحيم
اخى الكريم
هذا الكود يفى بالمطلوب
Sheet2.Range("A2:B9").ClearContents
End Function
Sub sh1_DOIT()
Counter
sCopy
My_Max
End Sub
Private Function sCopy()
Clear
Dim RNG1, RNG2 As Range
Set RNG1 = Sheet1.Range("A2:A9")
Set RNG2 = Sheet2.Range("A2:A9")
RNG2.Value = RNG1.Value
End Function
Private Function Counter()
Dim i, cnt As Integer
cnt = 2
For i = 2 To 9
If Sheet1.Cells(i, "A").Value <> Sheet2.Cells(i, "A").Value _
And Sheet1.Cells(i, "A").Value > 1000 Then
Sheet1.Cells(i, "B").Value = Sheet1.Cells(i, "B") + 1
End If
Next
End Function
Private Function My_Max()
Sheet1.Cells(12, "A") = "أعلى قيمه"
Sheet1.Cells(12, "B") = Application.WorksheetFunction.Max(Sheet1.Range("M2:B9"))
Dim i, cnt As Integer
cnt = 2
For i = 2 To 9
If Sheet1.Cells(i, "B").Value = [B12].Value Then
Sheet1.Cells(12, "C").Value = Sheet1.Cells(i, "C").Value
End If
Next
End Function
Private Function Clear()
لم استطع ارفاق الملف
سارفقه لاحفا ان شاء الله
مرفق ملف
السلام عليكم
طول الله عمرك بارك الله فيك
يعطيك العافيه
مسرور عندما حصلت على الحل
بس عندي سؤال بسيط لا تقول طمع
لواني ما اريد هذا الكود في زر امر اريد أتوماتيك
ما اريد ان انقر عليه يظهر لي الاعلى لو سمحت
مشكور والله يفيد بالطلب الحمد لله رغم اني قد يئست من الحل
بسم الله الرحمن الرحيم
سيحتاج هذا الطلب الى مجهود فى الوقت الحالى
اقترح عليك الاتى
طالما ان البيانات الاساسيه تتحدث بصفه مستمره يمكن اضافه كود الى الملف السابق ليقوم بالتحديث تلقائيا بناء على الوقت الذى نختاره 0
السلام عليكم
اشكرك على شعورك
بارك الله فيك
اشكر كل الاعضاء على المرور
هادي سالم
thank you
هذا الموضوع مغلق.