عبد الفتاح كيرة

=VLOOKUP(E2,$A$2:$D$26,COLUMN()-4,0)

لا أفهم المطلوب بالضبط

لكن دالة

vlookup

ترجع الاسم الأول فقط

فتكرار mohamed

يفسد عمل الدالة

و عليكم السلام ورحمة الله و بركاته

تشرفت بمرورك أستاذنا يحيى

شهادة أعتز بها و إثراء طيب للمعلومة

بارك الله فيك

شكرا لك أستاذنا

abo_alaa

وشكرا لمرورك العطر و ثنائك الطيب

أخى الفاضل

ليست هذه نتائج معادلتى

انظر ما عندى

عليكم السلام ورحمة الله

الصيغة مضبوطة أخ هشام

من نتائجها عرفت ذلك

هل تقصد الفاصلة المنقوطة و غير المنقوطة

هذه نفس الصيغة بالفاصلة المنقوطة

=IF(AND(C2>=50;D2>=50;E2>=50);"ناجح";IF(COUNTIF(C2:E2;"<50")=1;"مكمل";IF(COUNTIF(C2:E2;"<50")>1;"راسب")))

تفضل أخى

ضع هذه المعادلة فى

F2

و اسحبها لأسفل

=IF(AND(C2>=50,D2>=50,E2>=50),"ناجح",IF(COUNTIF(C2:E2,"<50")=1,"مكمل",IF(COUNTIF(C2:E2,"<50")>1,"راسب")))

و الله فعلا

سعدنا بوجود الأخ خبور معنا

أما أنا فتشرفت بوجودك فى أحد موضوعاتى المنقولة

زادك الله علما

عندما تكتب فى عمود ما

محمد

محمود

محمد

على

على

ياسر

ففى الخلية التالية الفارغة

عندما تنقر عليها بالأيمن

و تختار

إدراج من القائمة المنسدلة

تظهر قائمة بها كل الأسماء بدون تكرار لتنقر أحدها

وتختاره ليدرج بالخلية الجديدة

فى مثالنا هذا سيظهر

محمد

محمود

على

ياسر

شاهد الفديو

رابط الفديو

الفراغات دوختنا

ضع المعادلة التالية فى h16

=SUMPRODUCT(($C$4:$C$11=G16)*($B$4:$B$11=B4)*($D$4:$D$11=H15))

=SUMPRODUCT(($C$4:$C$11=G16)*($B$4:$B$11=B4)*($D$4:$D$11=I15))

و على منوالهما فى الفئة ب

نعم أخى

يمكنك تغيير المدى من خلال السطر التالى

Set oRange = Range("A1:B2")

حسب ما تريد

شاهد الفديو

السلام عليكم

أثناء التجوال فى الإنترنت

وجدت هذا الكود

لحفظ مدى معين من الخلايا كصورة على جهازك

قد يستفيد منه بعضكم

Sub Export_Range_Images()


' =========================================

' Code to save selected Excel Range as Image

' =========================================


Dim oRange As Range

Dim oCht As Chart

Dim oImg As Picture




Set oRange = Range("A1:B2")

Set oCht = Charts.Add



oRange.CopyPicture xlScreen, xlPicture



oCht.Paste


oCht.Export FileName:="d:\SavedRange.jpg", Filtername:="JPG"


End Sub

و هذه هى صورة لمدى من صفين

شكرا أخى قصى

كلنا هنا إخوة

ولا يتأخر أحد عن الرد إلا لضيق وقته

أو قصر علمه

أما الرغبة فى نفع الآخرين

فأمر اتصف به الجميع و الحمد لله

لا أدرى لماذا لا يستخدم الإخوة ميزة إضافة الوسائط هنا

الفديوهات و الصوتيات

انظر

أخى المطلوبات كثيرة

أرجو أن تتابع المرفقات بالرابط التالى

فهى شبيهة بما تريد

http://www.officena.net/ib/index.php?showtopic=32891&pid=169827&st=0&#entry169827

ما أدرى

أشكر السائل

أم أشكر المجيب

كنت أحتاج لهذا الكود منذ زمن

جزاكم الله خيرا

قمت بتسجيل ماكرو للفرز مع وجود 3 أعمدة

وحسب العمود رقم 1

اسم الورقة " مصالح "

يمكنكم تغييره بما يلائم المطلوب

هاكم النتيجة

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveWorkbook.Worksheets("مصالح").Sort.SortFields.Clear

   'مفتاح الفرز a2:a1000 يمكنكم تغييره

    ActiveWorkbook.Worksheets("مصالح").Sort.SortFields.Add Key:=Range("a2:a1000"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("مصالح").Sort

       '3 أعمدة

        .SetRange Range("A1:c1000")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

نشكرك أخى سالم

جزاك الله خيرا

وبارك فيك

أنا اخترت هذا التنسيق

"YYYY/MM/DD"

و هذا هو الشكل المناسب المطلوب

ممتاز جدا أخ أيسم

مفهوم

مشكلة أخرى صغيرة

حقل تاريخ الميلاد

يظهر فى الفورم

بصيغة التاريخ الأمريكى

الشهر فى البداية من اليسار ثم اليوم ثم السنة

وبأرقام عربية ( يعنى إنجليزية )

مع أن الحقل الذى يستدعى منه التاريخ

أرقام هندية و بصيغة تاريخ معتادة

انظر الصورة

="I"&A1

=IF(A1>=2500,5000,IF(A1>1500,A1*2,IF(A1<=1500,A1+1500)))

ممتاز

يعى نختار ما نكتب به على أجهزتنا

ولا نقلق عند نقلها لأجهزة تعتمد غيرها

شكرا لردك

أفعل إن شاء الله

وشكرا لسرعة ردك

زر الأمر المسمى

" البحث عن بيانات طالب "

فى الورقة

" data"

برنامج شئون الطلاب للرفع 2003.zip

السلام عليكم

عندنا فورم

به مربع تحرير وسرد

و قد عينت فى خصائصه

أنه مرتبط بنطاق اسمه

names

النطاق عبارة عن 500 صف

أول 150 خلية منها بها بيانات

و الباقى خلايا فارغة

لكنه قابل للزيادة أو النقص

عند البحث بالكود التالى

لو حددنا عنصرا فارغا فى مربع التحرير

تظهر رسالة خطأ

كيف نجعل مربع التحرير مرتبطا بالخلايا غير الفارغة فقط داخل النطاق names

و هذا هو الكود

Sub ComboBox1_Change()

TextBox1.Value = ComboBox1.Value

Dim Snum As Long

Dim Lastr As Long

Lastr = Sheets("All").Range("b" & Rows.Count).End(xlUp).Row

Snum = WorksheetFunction.Match(ComboBox1.Text, Sheets("All").Range("b5:b" & Lastr), 0)

TextBox2.Value = Sheets("All").Cells(Snum + 4, 3).Value

TextBox3.Value = Sheets("All").Cells(Snum + 4, 16).Value

TextBox4.Value = Sheets("All").Cells(Snum + 4, 21).Value

TextBox5.Value = Sheets("All").Cells(Snum + 4, 22).Value

TextBox6.Value = Sheets("All").Cells(Snum + 4, 26).Value

End Sub

لو استعملنا أحد النوعين فى كتابة المعادلات

هل تعمل على أجهزة تستخدم النوع الثانى

يعنى هل يتم تحويلها؟