نجوم المشاركات

السلام عليكم ماهو افضل اصدار للاكسيل في اصدارات الاوفيس ( اوفيس 2003 - اوفيس 2007 - اوفيس 2010 - اوفيس 2013) اثار هذا الموضوع جدلاً كبيرا معي فأحببت ان اعرض الموضوع عليكم وما دعاني لوضع هذا الاستفتاء هنا هو وجود عدد كبير من الخبراء والاستاتذة والاعضاء لاستعرض آرائكم في ما هو افضل اصدار للاكسيل ( 2003 - 2007 - 2010 - 2013 ) برجاء التصويت عن اقتناع مع علمي بأنه ( لولا اختلاف الاذواق لبارت السلع ) والسلام عليكم

كل عام وجميع أعضاء منتدانا الكرام بألف خير تقبلوا تحيـــــــــــــــــــــــــــــــــــــــــــــــــــــاتى بعد فك الضغط عن المرفق ويفتح معك ( إضغط كليك يمين بالماوس ) أرجو لك الأستمتاع مع المرفق عام سعيد.rar

السلام عليكم ورحمة الله الفاضل / أبو محمد عباس جرب الكود التالي Sub AL_KHALEDI() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("بيانات الطلبة حسب الحروف") Intersect(.Range("B5").Resize(9999, 11 * 28), .UsedRange).ClearContents For Each C In Range(Sheets("بيانات الطلبة").[B4], Sheets("بيانات الطلبة").Cells(Rows.Count, 2).End(xlUp)) T = Mid(Trim(C), 1, 1) If T = "ج" Then T = "ح" Else If T = "ح" Then T = "ج" M = Application.Match(T, [{"A","ب","ت","ث","ج","ح","خ","د","ذ","ر","ز","س","ش","ص","ض","ط","ظ","ع","غ","ف","ق","ك","ل","م","ن","ه","و","ي"}]) If Not IsError(M) Then Lc = (M * 11) - 11 + 3 Lr = Application.Max(5, .Cells(Rows.Count, Lc).End(xlUp).Row + 1) .Cells(Lr, Lc - 1).Value = Lr - 4 .Cells(Lr, Lc).Resize(1, 8).Value = C.Resize(1, 8).Value Else: Er = Er + 1: End If Next End With MsgBox "تم بحمد الله" & IIf(Er > 0, vbCr & Application.Rept("=", 30) & vbCr & "عدد الاسماء الخطا غير المرحلة" & vbCr & Er, "") Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub في امان الله

أخى الحبيب ( وليد ) الأكواد دائما تنسيقية ، ولكن العمل كله قائم فى الأساس على المعادلة شكرا على المرور تقبل تحياتى تقبل تحياتى

أخى الحبيب ( عباس ) أنت تعلم جيدا أن مرورك يسعدنى جدا ويشرفنى ، والحمد لله أن العمل قد أعجب حضرتك وأتمنى أن يكون مفيدا لحضرتك شكرا أخى الحبيب على مرورك وكلماتك تقبل تحيات أخيك

بعد إخوتى الأعزاء هذا حل أخر لعله يثرى الموضوع تقبلوا تحياتى البحث عن خصائص موظف.rar

أخى الحبيب ( إيهاب ) بارك الله فيك على هذه الكلمات الطيبة وأى جهد يقابلة هذا الحب ، يعتبر قليل جدا على أعضاء هذا المنتدى تقبل تحياتى

أختى وأستاذتى الغالية ( أم عبد الله ) شكرا على مرورك وكلماتك الطيبة ، بارك الله فيكى وجعل مرورك هذا فى ميزان حسناتك تقبلى تحياتى

أخى الحبيب ( محمود ) بارك الله فيك وأكثر الله من أمثالك ، شكرا على كلماتك الرائعة وشعورك الطيب هذا تقبل تحيات : أخيك

أخى الحبيب ( عطاء الله ) أولا : شكرا على سؤال حضرتك عنى وبصراحة فى هذا الصرح الرائع لم يتحصل الفرد على المعلومة فقط ولكن على إخوة :، يتشرف أى إنسان بهم ثانيا : شكرا على شكرك فى البرنامج وأتمنى أن يكون به الإفادة ثالثا وهذا الأهم سلملى على الجزائر وأهل الجزائر وأساتذة الجزائر أمثال الأستاذ ( عطاء الله ) تقبل تحيات : أخيك

أستاذى ومعلمى وعبقرى الوطن العربى ( عبد الله بقشير ) لاتدرى حضرتك ، كم يشرفنى ويسعدنى مروركم الكريم فهو فخرا لكل تلميذ ، تتلمذ ولازال على علمكم عبقريتكم تقبل تحيات : تلميذك

أخى الحبيب ( ريان ) بارك الله فيك ، على كلماتك الجميلة والأهم إن البرنامج يحقق المطلوب تقبل تحيات : أخيك

السلام عليكم الاستاذ القدير / جمال عبد السميع بارك الله فيك وجعل الله العام الجديد في كل المسرات لك ولأهلك وولدك اجمعين دائما ما تتحفنا بالروائع والابداعات مبدع دائما في المعادلات والاكواد .. حيرتنا معاك ودائما يعجبني جدا استخدام الـ ( Array ) في الاكواد فما بالك مع الالوان .. اعجبتني جدا تحياتي الخاصة للعريس الصغير ( محمود ) وتقبل استاذي خالص تحياتي

اخى العزيز اتبع الصورة التالية

السلام عليكم الاخ الكريم / محمدعشره بارك الله فيك علي حسب علمي اخي الكريم انه اذا قمت بعمل حماية للشيت لا يمكنك تحريك الاشكال او حذفها او التعديل فيها شاهد المرفق به زر تم ربطة ارتباط تشهبي ( هايبر لينك ) ولا يمكنك تحريكه او حذفه او التعديل عليه جرب واخبرني بالنتيجة او قم بارفاق الملف المقصود للوقوف علي الخطأ تقبل خالص تحياتي حماية الاشكال.rar

أسأل الله العظيم ان يفرج كربه و يرزقه من الخير و يبعد عنه كل شر

السلام عليكم الاخ الكريم / نور وحيد بارك الله فيك بالنسبة لطلبك تنفيذ المطلوب باستخدام المعادلات ... فعلي حسب علمي .. ان ذلك لا يمكن الا باستخدام الاكواد ولا يمكن اضافة صف باستخدام المعادلات ... والله اعلم اما بالنسبة لشرح الكود ... فتفضل اخي الكريم ( شرح الكود سطر سطر ) 'اسم المهمة او الاجراء Sub ali_Insrt() 'وضع المتغيرات المستخدمة في الكود Dim i&, Str&, En& Dim Lng% 'السطر التالي يقول انه بالنسبة للشيت الذي تم تنشيطة 'او الشيت المفتوح نفذ الاوامر التالية عليه وذلك باستخدام 'with جملة With ActiveSheet 'السطر التالي يقول اغلق اهتزازات الشاشة في بداية تنفيذ الكود Application.ScreenUpdating = False 'السطر التالي هو عبارة عن سطرين مفصول بينهم بالعلامة ( : ) 'Str = 6 السطر الاول هو 'ويعني ان بداية تنفيذ الكود هو السطر رقم 6 'En = .Cells(.Rows.Count, 2).End(xlUp).Row السطر الثاني 'ويعني نهاية البيانات في العمود 2 Str = 6: En = .Cells(.Rows.Count, 2).End(xlUp).Row 'السطر التالي عبارة توضع لجعل الكود يكمل حتي في حالة وجود خطأ On Error Resume Next 'اظهار بوكس ادخال لادخال عدد الصفوف المطلوب ادراجها Lng = InputBox("إدخل عدد الأسطر المراد إدراجها ", "") 'معادلة تقول انه اذا كانت قيمة الادخال في بوكس الادخال تساوي صفر الغي الامر ' او اذا كانت قيمة بوكس الادخال تساوي نص انه المهمة If Lng = 0 Or Lng = cancel Or Lng = vbString Then Exit Sub 'عمل جملة تكرارية لتنفيذ امر ادراج الصفوف من بداية الصف المختار وهو هنا رقم 6 'الي الصف الاخير بخطوات بالعدد الذي تم تحديده في بوكس الادخال عند ظهوره في بداية الكود For i = En To Str Step -1 .Rows(i + 1).Resize(Lng).Insert 'نهاية الحلقة التكرارية Next i 'السطر التالي يقول انه في حالة وجود خطأ اذهب للصفر او بمعني آخر لاشئ On Error GoTo 0 'السطر التالي نقوم فيه باعادة تشغيل اهتزازات الشاشة Application.ScreenUpdating = True 'with نهاية جملة End With 'نهاية المهمة بالكامل End Sub ارجو ان يكون الشرح واضح وبسيط تقبل خالص تحياتي

السلام عليكم الاخ الفاضل / أ محمد عبد الصمد بارك الله فيك جزاك الله خيرا تقبل خالص تحياتي

السلام عليكم ورحمة الله وبركاته الاخ العزيز محمد غزال جزاك الله خيرا عمل رائع وجهد كبير جعله الله في ميزان حسناتك وفقك الله ورعاك تقبل فائق احترامي وتقديري

وعليكم السلام ورحمة الله قم بإنشاء مربع نص اسمه TxtTDateHijri وضع في النموذج في حدث عند الفتح هذا الكود Calendar = vbCalHijri TxtTDateHijri = Date TxtTDateHijri = Format(TxtTDateHijri, "yyyy/mm/dd") & " هـ" منقول للأمانة ولو بحثت ستجد امثلة كثيرة

جزاكم الله خيرا تقبلوا تحياتي وشكري

جرب الكود البسيط التالي لتنفيذ المطلوب ... بعد وضعه في زر امر مثلا Sub sama() Application.ScreenUpdating = False ActiveCell.EntireRow.Select ActiveCell.EntireRow.Copy ActiveCell.EntireRow.Insert Shift:=xlDown Application.CutCopyMode = False ActiveCell.Select Application.ScreenUpdating = True End Sub

الأستاذ / احمد فرج السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ الفاضل / عطا الله جزاه الله خيراً على الحل ولإثراء الموضوع يمكن إضافة عمود به تاريخ الميلاد وتعمل فرز عادي بداية من التاريخ ثم الاسم وإليك ملف به ماكرو لذلك ويمكن الاستغناء عنه بعمل فرز يدوي وإليك ملف آخر به الترتيب من الأكبر سناً أو الأصغر سناً بمعادلة offset قد تعلمتها من أستاذي العبقري ملك المعادلات قد استخدمها في استخراج العشرة الأوائل جزاه الله خيراً وزاده الله من فضله وعلمه. أحمد فرج.rar أحمد فرج1.rar

السلام عليكم الاخ الكريم / رشراش علي بارك الله فيك مرور طيب وكريم من شخص كريم تقبل خالص تحياتي

السلام عليكم الاخ الفاضل / ahha985 بارك الله فيك مرور طيب وكريم ولكن مع اختلافي معك في الرأي بخصوص المستخدمين الجدد فكما قال الاستاذ / عبد الله باقشير ان افضل واسهل اصدار هو الذي تتعلم عليه بالنسبة للمستخدمين للجدد تقبل خالص تحياتي

الاستاذ عطاء الله سيتم احتساب صوتك لاوفيس 2007 علي رغبتك الاولي

اخي الحبيب / عبد الغني كنت اداعبك فقط تقبل خالص تحياتي

أخى الحبيب ( إبراهيم ) شكرا أخى على مرورك وشعورك الرائع هذا أما باقى الكلمات فأنا أقدر شعورك الرائع تجاهى أدام الله الحب بين أعضاء هذا الصرح جميعا لأن هذا أفضل مافى هذا الصرح والمعادلة ماهى إلا توفيق من ربى أولا وأخيرا وشرح المعادلة قد تم فأرجو من كل قلبى أن يكون به الأفادة المطلوبة تقبل تحيات : أخيك

عفوا كان هناك خطأ فى المدى لكن المعادلة صحيحة 100% أنظر المرفق عدد بدون تكرار مع شرط التاريخ.rar

السلام عليكم الاخ / الفاضل / Mr_Eldeeb شكرا لمرورك الكريم ةرأيك صائب تماما ولكن من خلال وجودي في هذا المنتدي وامكانيات خبراؤنا واساتذتنا اصبح توظيف اي اصدار سهل معهم بالنسبة لي اوفيس 2003 هو اقوي اصدار للاكسيل

أخى / عباس السماوي السلام عليكم ورحمة الله وبركاته تفضل أخى ما تريد فرز وترحيل حسب الحروف الابجدية2007.rar

تفضل أخي الفاضل روابط أخرى غير الموجودة فوق هذا رابط مباشر من هنا أو من ميديا فاير من هنا أو من سيرفرات أخرى متعددة من هنا

الاخ الحامد الشاكر اليك الملف وفيه تفقيط بالعربي لنفس الملف ارجوا ان يكون حسب طلبك ومع العلم ان كود ليس لي وليس لي خبرة في مجال الاكواد وانما منقول و احببت ان اساعدك واتمنى ان لاتكون مخالفة لانظمة المنتدى تفقيط اكسل نجليزي وعربي.rar

أخي المحترم أبو سليم واضح أنك تبذل مجهود كبير لتوصل لنا المعلومة المفيدة وتشكر جزيل الشكر على اخلاصك ولنا طلب بسيط منك لوسمحت تضع شرح بسيط عن المرفق اوعنوان او اي شي لبين لنا ماهو المرفق لكي نتشجع ونحمله وشكرا مع خالص تحياتي

الف شكر على هذه المجموعة الرائعة وجزاك الله خير