أخى مصطفى
الملفات تكون موجودة فى مساحة تخزينية لك على النت
و يمكن لمن تسمح لهم
إنزال الملفات و تعديلها
كما يمكن تعديلها مباشرة على الموقع
لكن أوامرها مختلفة شوية عن أوامر مجموعة أوفيس المعروفة لدينا
لمزيد من المعلومات
اكتب فى باحث جوجل
google document
عليكم السلام ورحمة الله
الصيغة مضبوطة أخ هشام
من نتائجها عرفت ذلك
هل تقصد الفاصلة المنقوطة و غير المنقوطة
هذه نفس الصيغة بالفاصلة المنقوطة
=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))
و هذه فى i16
=SUMPRODUCT(($C$4:$C$11=G16)*($B$4:$B$11=B4)*($D$4:$D$11=I15))
و على منوالهما فى الفئة ب
السلام عليكم
أثناء التجوال فى الإنترنت
وجدت هذا الكود
لحفظ مدى معين من الخلايا كصورة على جهازك
قد يستفيد منه بعضكم
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
ممتاز جدا أخ أيسم
مفهوم
مشكلة أخرى صغيرة
حقل تاريخ الميلاد
يظهر فى الفورم
بصيغة التاريخ الأمريكى
الشهر فى البداية من اليسار ثم اليوم ثم السنة
وبأرقام عربية ( يعنى إنجليزية )
مع أن الحقل الذى يستدعى منه التاريخ
أرقام هندية و بصيغة تاريخ معتادة
انظر الصورة