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

كيف تدرج جدولاً عشوائياً بأي عدد من الصفوف و الاعمدة دون تكرار انظر الى المرفق table_rand_numebr.rar

أخي الكريم كمال هل أنت متأكد من عمل الكود الذي قمت بإرفاقه لأن الكود المرفق يقوم بعمل حلقة تكرارية لملفات تختارها ثم يقوم بنسخ نطاق محدد عموماً جرب الكود التالي سيتم تنفيذه بمجرد فتح الملف الرئيسي س .. Sub SUM_WBs() Dim WBK As Workbook Dim FolderPath As String Dim FileName As String Dim Counter As Double FolderPath = ThisWorkbook.Path & "\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Application.Calculation = xlManual Do While FileName <> "" If FileName <> ThisWorkbook.Name Then Set WBK = Workbooks.Open(FolderPath & FileName) Counter = Counter + WBK.Sheets("Sheet1").Range("A1").Value WBK.Close SaveChanges:=False End If FileName = Dir() Loop ThisWorkbook.Sheets("Sheet1").Range("A1").Value = Counter Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub وإليك الملف المرفق Loop Through Closed Workbooks To Sum Specific Cell YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته إخواني الأحباب سبق أن قمنا بكسر حماية محرر الأكواد بدون برامج .. الآن مع كسر حماية أوراق العمل بالاستعانة ببرنامج صغير الحجم اسمه XML Marker وهو برنامج للتعديل على ملفات الـ XML وهو مرفق في الموضوع ... أترككم مع الفيديو ..عسى أن تستفيدوا منه إن شاء الله (ومتنسوش اللايكات !!) تقبلوا تحيات أخوكم أبو البراء xmlmarker_2_2_setup.rar

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

انسخ هذه النعادلة بعد تعيين النطاق المطلوب (يجب ان تستعمل Ctrl+Shift+Enter و ليس Enter وحدها) =SUM(IF(ISNUMBER($C$2:$C$12),$C$2:$C$12,0))

تم التعديل المصنف1 salim1.rar

فكرة رائعة بحيث نضع اكبر قيمة في العمود الجديد ويتم جلب القيم منه

جزاك الله خيرا لا اعرف ولكن اذا كان جمع كل القيمتين ممكن نستخدم دالة SUMPRODUCT و الله اعلم

أخى احمد جزاك الله كل خير على محاولتك لمساعدتى لسه المشكله متحلتش لو لاحظت مثلا الموظف 3 رقم 26778 يوجد لديه 2 خانه باسم ولاء وانتماء واحده بقيمه -5 والاخرى بقيمه -198.35 المطلوب هنا ان احنا ناخد القيمه -198.35 فقط قمت بارفاق الملف مره اخرى بعد حذف عمود من اعمدة الولاء والانتماء للبيانات المسحوبه بالكود اعتذر على تعبكم معى وجزاكم الله كل خير 2016-2.rar

السلام عليكم و رحمة الله وبركاته اخي احمد تم العمل على جلب البيانات كما في المرفق المشكلة الرئيسية انه في العمود A تم وضع الأرقام بصيغة نص - - - لذلك يجب تحويلها الى رقم اتمنى ان يكون هذا المطلوب 2016-1.rar

بعد اذن اخي وصديقي رجب هذا الملف المصنف1 salim.rar

جرب أخى هذا الكود Sub ragab() Dim x As Integer Dim cl As Range Dim Rng As Range Set Rng = Range("A2:A50") For Each cl In Rng If cl.Font.Bold = True And cl <= 25 Then x = x + 1 End If Next Range("C1") = x End Sub

اكتب في الخلية A40 الرقم الذي تريده ... اذهب لخلية اخرى و اكتب =IF(AND(A40>=0,A40<=9999),"فعال","")&IF(AND(A40>=-30,A40<0),"منتهي","")&IF(AND(A40>=-60,A40<-30),"مغلق","")&IF(AND(A40>=-355,A40<-60),"ملغى","")&IF(AND(A40>=-9999,A40<-355),"شاغر","") بالتوفيق ملغى.rar

تفضل اخي وقم بالفك بنفسك http://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/

تك تحميل الملف يرجى التجربة Book166.rar

السلام عليكم ورحمة الله اخى الحبيب اليك الحل عبارة عن ثلاثة اكواد كل واحد منها يختص بترحيل حالة معينة Book166.rar

الدالة mid تقوم باقتطاع عدد معين من الرقم حسب الاختيار فمثلا العدد 1637524890 مكون من 10 ارقام mid("1637524890",4,3) سترجع بــ او بتعبير آخر ستقتطع العدد 752 فالرقم 4 يعني العدد الواقع في الخانة الرابعة من اليسار والعدد 3 يعني ثلاث خانات بعد العدد الرابع او بالاصح ثلاث خانات مع العدد الرابع

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

الاخ ابو الياس شكرا لك والان مع اسطوانة تحفيظ القران الكريم الجزء 26 الأحقاف ازهب لتحميل الاسطوانة انتظروا الجزء25 قريبا

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

وعليكم السلام بما انك تستخدم الاستعلام مباشرة ، فاليك طريقتين: 1. بإستخدام الوحدة النمطية Con: . وهذه هي الوحدة النمطية: Function Con(x) If IsNumeric(x) = True Then 'رقم Con = Val(x) Else 'نص Con = Replace(x, " ", "") End If End Function . والطريقة الاخرى ، هي وضع الكود كله في الاستعلام ، هكذا: . طبعا التغيير على الكود هنا سيكون اكثر صعوبة من التغيرر في الوحدة النمطية ، والنتائج في كِلا الاستعلامين: . جعفر 276.Test.accdb.zip

جزاك الله خير ولك الف شكر

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

السلام عليكم ورحمة الله وبركاته أخي الكريم أبو أنس.. جزاكم الله خيرا على مروركم الكريم وكلامكم الطيب. تقبل تحياتي والسلام عليكم.

تفضل لما تختار الملفات ، تستطيع تستخدم زر Ctrl او Shift او الضغط بالماوس والسحب على اسماء الملفات لإختيار الملفات المطلوبة ، وبعدما تختار ملفات من مجلد معين ، تستطيع مرة ثانية/ثالثة ان تختار ملفات اخرى من مجلدات مختلفة (لا تقول ما ادلعكم ) وبعدين في شغلة اريد اقولها ، انا لما قلت: مو تصدقون كل شئ اقوله جعفر 275.4.ImportDegrees.accdb.zip

السلام عليكم ورحمة الله وبركاته... إخوتي الكرام: بعد التفكير بطريقة للطباعة السريعة قمت بوضع الكود التالي في موديول: يقوم بالتصفية التلقائية ثم الطباعة ثم إلغاء التصفية لينتقل إلى الصنف التالي: ضمن مدى معين من الأصناف لكنني أرغب من علماء الإكسيل الكرام إيجاد إمكانية لتحديد مدى الأصناف من:..... إلى:...... وذلك بخلاف ما هو عليه الآن إذ يبدأ برقم وينتهي بنهاية الأرقام للأصناف... Private Sub CommandButton1_Click() Application.ScreenUpdating = False For I = 1 To 6 If ورقة6.Range("j1") = I And ورقة6.Range("j1") <> "" Then ورقة6.Range("g3") = I ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6, Criteria1:= _ "<>" ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1, Criteria1:= _ "<>" ورقة6.PrintOut Copies:=1 ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1 ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6 ورقة6.Range("j1") = الجدول6.Range("j1") + 1 End If Application.ScreenUpdating = True Next I End Sub فائق احترامي وشكري وتقديري والسلام عليكم ورحمة الله وبركاته... برنامج مخازن.rar

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على التوجيهات في الموضوعات المثبتة في المنتدى ممكن ترفق شكل النتائج المتوقعة أو جزء منها ليسهل فهم المطلوب ؟؟ بالنسبة للملف رقم 2 هل تريد التعامل مع كافة أوراق العمل بالنسبة للمندوب الواحد أي تجميع كل القيم الخاصة بالمندوب من كافة الأوراق أم لا؟

أخي الكريم كمال بالنسبة لسؤالك الأول كيف يمكن جعل الماكرو يعمل تلقائياً عن فتح المصنف .. قم بالإطلاع على المرفق في المشاركة الأخيرة لي وادخل على نافذة المشروع ودبل كليك على ThisWorkbook لتجد الكود المناسب .. يتم وضع الكود في حدث المصنف بالنسبة لسؤالك الثاني يمكنك تغيير المسار من خلال السطر التالي في الكود (في السطر يتم التعامل مع المصنفات في نفس المسار الحالي للمصنف) FolderPath = ThisWorkbook.Path & "\" أما عن عدم عمل الكود مع المسميات العربية فربما تكون أسماء أوراق العمل لديك باللغة العربية ..فيجب تغيير كلمة Sheet1 في الكود والتي تقع بين أقواس تنصيص بكلمة ورقة1 لو واجهتك أي مشكلة قم بإرفاق ملفك الذي به المشكلة ليسهل الإطلاع على المشكلة وتوجيهك نحو التعديل المناسب تقبل تحياتي

أخي الكريم حسن أهلاً بك في المنتدى ونورت بين إخوانك جرب الكود التالي سيتم وضع أول أربعة حروف في الخلية A1 .. Sub Test() Range("A1").Value = Mid(ActiveWorkbook.Name, 1, 4) End Sub إذا لم يؤدي الكود الغرض فيرجى إرفاق ملف أو مزيد من التوضيح تقبل تحياتي

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

هدية اخرى للسادة الزملاء اسطوانة برامج لحين رفع باقى اجزاء تحفيظ القران الكريم اوفيس 2003 وافيس 2-10 عربى على الرابط التالى http://yonis.arab.st/t60-topic#71 باقى البرامج وصورها على المنتدى

تم التعديل على المعادلة (استعملها مع Ctrl+Shift+Enter ,وليس Enter وجدها) =INT(($D$2-(HOUR(SUM($C$3:$C$10))+MINUTE(SUM($C$3:$C$10))/60))*60/60)+1&" H"& " : "&FLOOR(MOD(($D$2-(HOUR(SUM($C$3:$C$10))+MINUTE(SUM($C$3:$C$10))/60))*60,60),0.1)&" Mins."

تفضل أخى ربط 2 كمبوبوكس.rar

طبعا ممكن اجعل كود استدعاء الفورم كالاتى Sub النتائج() Dim x As Variant x = InputBox("أدخل كلمة المرور لفتح الفورم") If x = "" Then Exit Sub If x = "123" Then UserForm1.Show Else MsgBox ("كلمة المرور غير صحيحة") End If End Sub

وعليكم السلام الطريقة الصحيحة لوضع قاعدة البيانات على الشبكة ، هي ان تعملها جزئين ، جزء للجداول (وتسمى BE) ، وجزء لباقي كائنات البرنامج (وتسمى FE)، جزء الجداول يكون على مجلد على الشبكة ، ويكون لجميع المستخدمين صلاحيات القراءة/التغيير ، جزء بقية الكائنات ، يكون على كمبيوتر كل مستخدم ، وتكون جداول الجزء الاول مرتبطة مع هذا الجزء. هناك عدة طرق لعمل تحديث لجزء الكائنات ، بحيث يقوم المبرمج بوضع النسخة الجديدة في نفس مجلد جزء الجداول على الشبكة (لأن جميع المستخدمين عندهم صلاحيات القراءة/التغيير للمجلد هذا ، مما يجعل هذا المجلد هو المجلد الاسهل للإستعمال)، احد طرق التحديث: 1. ان تعمل جدول في جزء الجداول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم التحديث ، وطبعا هذا الجدول سيكون مربوط مثل بقية الجداول ، بالجزء الثاني ، 2. وفي جزء بقية الكائنات ، تعمل جدول محلّي ، اي غير مرتبط مع الجزء الاول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم النسخة الحالية للجزء الثاني ، 3. عند تشغيل الجزء الثاني ، فسيعمل مقارنة بين رقم نسخته (من الجدول المحلي) ، ورقم نسخة التحديث (من الجدول المرتبط) ، فاذا تطابقت الارقام ، فمعناه انه لا يوجد نسخة جديدة ، اما اذا لم تتطابق الارقام ، فمعناه ان هناك نسخة جديدة موجودة ، ويجب ان يتم استبدال نسخته (التي على كمبيوتره ، بتلك التي في الشبكة) هذه صلب الفكرة جعفر

دا مثال بسيط بدأته لك القى نظرة عليه واي تعديلات انا موجود والاخوة الخبراء طبعا كلمة المرور للمستخدم ياسر : 123 Yasser.rar

السلام عليكم إخواني الكرام ... أشعر أن المنتدى كله مركز على الأسئلة والطلبات أكثر من الموضوعات التعليمية .. فإليكم درس خفيف ظريف ولن يستغرق منك في دراسته أكثر من 4 دقائق .. ************** نتحدث بشكل سريع عن استخدام دالة VLOOKUP للبحث عن جزء من النص داخل نطاق .. إليكم الملف المرفق به الشرح ، وأي استسفار أو سؤال لا تتردد واسأل ، لا تخجل من السؤال مهما بدا تافهاً لأن السؤال طريق ..طريق (وكله مطبات) بس هو طريق المعرفة .. VLOOKUP Text Inside A String.rar

أخي الحبيب // شوقي ربيع اخواني جمعيا....... السلام عليكم ورحمة الله وبركاته أهم دافع في عملنا جمعيا في المنتدي تطوعنا ويحكم العمل التطوعي عدة عوامل تنظيمية . والهدف الاسمي هو أن يكون صدقة وعلم نافع ينتفع به ، كذلك حتى أكون قد أضفت شيئا في مجال العلم الذي اكتسبته من اخواني جمعيا وفرسان المنتدي ، ولا أكون شخصا زائدا بالحياة يأخذ ولا يعطي … وعندي ايمان باننا كعالم عربي سنسترجع مكانتنا بين الدول عندما نصبح امة باحثة تضيف للعلم وليست مجرد متلقية فقط .. وهذا الوضع للبعض بالمنتدي وفي المجتمع أيضا متلقي فقط للمعلومة دون محاولة منه لفهم تلك المعلومة والكثير يلجأ الي الحفظ ويبعد البعد التام عن الفهم والحلول السريعة كمطاعم التيك وي لا تغني ولا تشبع من جوع بالاضافة للمخاطر المصاحبة لها . والبعض الاخر يحاول ويكفيه شرف المحاولة وان فشل وكلنا هنا نتعلم من بعضنا البعض نتعلم من المحترف والمتقن ونتعلم ايضا من السائل لانه بسؤاله يدفعنا للبحث والتطوير للوصول لفكرة سؤاله حتي لا اطيل عليكم دعوة من القلب لجميع اخواني قبل طرح السؤال يستخدم البحث وان فشل في البحث يقوم بطرح السؤال والاجابة كما تفضل اخي / شوقي تكون علي هيئة كود او معادلة داخل الموضوع حتي ندفع السائل بمحاولة التجربة والخطأ . مع تحياتي واحترامي لكم جمعيا