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

https://support.microsoft.com/ar-sa/kb/214153/ar

انسخ عذا الماكرو الى ملفك في Module و حدد له زر على الورقة Sub select_multiple_cells() Dim r As Integer r = 12 Range(ActiveCell, ActiveCell.Offset(0, r - 1)).Select End Sub

السلام عليكم و رحمة الله و بركاته يحوي هذا الموضوع فهرس تسجيلات دورة الفيزيو من البداية الى الاحتراف: فهرس الحلقات السابقة: الجزء الأول - المستوي الأساسي ( خمسة حلقات باجمالي حوالي 3 ساعات و نصف ) 1 الحلقة الأولي من دورة الفيزيومن البداية الى الاحتراف - المستوي الأساسي تم عقد الحلقة بتاريخي 6 و 10 سبتمبر 2014 التعرف على الفيزيو ، التعامل مع الملفات ، إنشاء رسم ، التعامل مع لوحة الأشكال ، إستخدامات المساعدة 02 الحلقة الثانية من دورة الفيزيومن البداية الى الاحتراف - المستوي الأساسي تم عقد الحلقة بتاريخ 13 سبتمبر 2014 التعود على التطبيق ، تخصيص قوائم الوصول السريع Quick Access Toolbar، تخصيص مربعات الاوامر الاساسية Customizing the Ribbon. 03 الحلقة الثالثة من دورة الفيزيو من البداية الى الاحتراف - المستوى الأساسي تم عقد الحلقة بتاريخ 19 سبتمبر 2014 التعرف على كافة الأوامر فى التطبيق بصورة عامة - نظرة عامة على التطبيق 04 الحلقة الرابعة من دورة الفيزيو من البداية الى الاحتراف - المستوى الأساسي تم عقد الحلقة بتاريخ 29 سابتمبر 2014 تحرير و ترتيب و محاذاة الأشكال ، أدوات الرؤية View ، التعامل مع الصفحات Pages ، و التحضير للطباعة Print نهاية المستوى الأساسي من الدورة الجزء الثاني المستوى المتوسط ( خمسة حلقات باجمالي حوالي ثلاثة ساعات) 05 الحلفة الأولى من دورة الفيزيو من البداية الى الاحتراف - المستوى المتوسط تم تسجيل الحلفة بتاريخ 8 أكتوبر 2014 التعامل مع الملفات Files و الخلفيات Backgrounds 05 الحلقة الأولي من دورة الفيزيو من البدابة الي الاحتراف - المستوى المتوسط - إعادة تم تسجيل الحلقة بتاريخ 19 أكتوبر 2014 إعادة الحلقة التعامل مع الملفات Files و الخلفيات Backgrounds 06 الحلقة الثانية من دورة الفيزيو من البداية الى الاحتراف - المستوى المتوسط تم تسجيل الحلقة بتاريخ 19 أكتوبر 2014 عوضا عن تسجيل البث الحي فى اليوم السابق التعامل مع الاشكال بطرق متقدمة ، حاويات الاشكال Containers، الاشارات Call-outs، التعامل مع الطبقات Layers 07 الحلقة الثالثة من دورة الفيزيو من البداية الي الاحتراف - المستوى المتوسط تم التسجيل بتاريخ 21 أكتوبر 2014 تسجيل مباشر دون بث حي التعامل مع أدوات اللغة و البحث و التدقيق اللغوي Research and Language Tools التعامل مع الصور فى الفيزيو Pictures 08 الحلقة الثامنة من دورة الفيزيو من البداية الي الاحتراف - المستوى المتوسط تم البث المباشر للحلقة بتاريخ 25 أكتوبر غطت الحلقة تعريف سريع بالاضافات الموجودة فى نسخة المؤسسات مقارنة بنسخة المحترفين ، التعامل مع الهياكل التنظيمية Organization Charts ، التعامل مع الرسومات من نوع Cross-Functional Charts 09 الحلقة التاسعة من دورة الفيزيو من البداية الي الاحتراف - المستوى المتوسط تم تسجيل الحلقة بتاريخ 1 نوفمير 2014 غطت الحلقة - التعامل مع القوالب Template - التعامل مع مجموعات الاشكال Stencils - انشاء مجموعات اشكال مخصصة New Stencils - تعديل الاشكال Editing Master Shapes نهاية المستوى المتوسط من الدورة نظرا لضعف المتابعة ، لم يكن من المجدي تسجيل المستوى المتقدم الي لقاء فى دورات اخرى باذن الله قناة اليوتيوب

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

بسم الله الرحمن الرحيم الجزء الثاني : تحليل التعادل ( طرق تحديد نقطة التعادل ) -------------------------------------------------- بدانا في الجزء الاول بمقدمه تمهيديه عن نقطة التعادل واستخدمنا حاله من الواقع العملي تكلمنا فيها بشكل عام عن نقطة التعادل وكيف يتم تحديد كمية التعادل ومبيعات التعادل ------------------------------------------------- وفى هذا الجزء: نتكلم عن طرق تحديد نقطة التعادل الطريقة الاولى: طريقة المعادلة الطريقة الثانية : طريقة هامش المساهمة الطريقة الثالثة: الطريقة البيانية لا تنسونا بصالح دعاؤكم نحاول ان نوضح كيفية استخدام الاكسيل في الطريقة البيانية خطوه بخطوه رابط الجزء الاول http://www.officena.net/ib/index.php?showtopic=61914&hl= تقبلوا خالص تحياتى تحليل التعادل2.rar

شرح فلتره البيانات للاستاذ الكبير الحسامي لعله يفيد احد الاخوه نظام فلترة البيانات.rar

السلام عليكم ورحمة الله وبركاته وبعد موضوع اليوم من وجهة نظرى المحدودة فكرة لذيذة ونادرة على ما أعتقد الفكرة هى كما يبدو من العنوان ازاى نحذف محتوى الشيت مع استثناء مدى معين وفى المرفق الجميل اللى هتحمله أتحداك لو ما قلتش الله . تحياتى Delete all data on sheet except certain range .rar

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

ما شاء الله .... عطر اوفيسنا لا ينضب ابدا ما اروع ان تجد من يساعد ويجتهد فى المساعده ولا يبتغى غير وجه الله استاذ اسامه ... ما اروعك .. اوجزت فانجزت فابدعت .... ممتاز اخى وحبيبي فى الله ياسر خليل .... انت فاكهة هذا الصرح الكبير اما اجابه سائل او توجيه تائه او شكر مجتهد .... بجد ما اروعك اخى وحبيبى قصى ... تفضل ما طلبت التغلب على مشكلة العدد لا تظليل بعد الان نسخ صفوف في عده اوراق ..2.rar

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

شكرا لك على اطرائك ودعواتك وجزاك الله خير.. انا لم آت بجديد عما وضعه الاخ مارد سوى انني وضعت المعايير في مصادر صفوف مربعات البحثA,B,C,D جعلتها تستند الى التصنيف الرئيسي والفرعي بصورة اساسية. بعكس الاخ مارد الذي جعل المعيار لكل مربع بحث يستند للمربع الذي قبله فمعيار B هو A ومعيار C هوB وهكذا.. كما انني اضفت لك معيار ثالث في مربع المنطقة يستند للمحافظة بحيث لايظهر من المناطق الا التي تتبع المحافظة فعلا على سبيل المثال حلوان معروف انها بمحافظة القاهرة وليست بالعباسية فبالتالي لاتظهر الا مع محافظة القاهرة وهكذا... كما لاننسى انني بدأت من حيث انتهى مارد الاكسس واكواد التحديث التي وضعها على مربعات البحوث مهمة للغاية وبدونها ستتعطل العملية بكلها.. جزاكم الله خير جميعا.. البحث2.rar

أخي الكريم شروط المنتدى لا تسمح بأكثر من سؤال في موضوع واحد ، فرجاء إختيار أفضل إجابة للمشاركة التي ساعدتك في حل سؤالك ، ثم افتح موضوع لكل سؤال تريده جعفر

اخى الحبيب ارجو ان يكون هذا هو المطلوب ملف الامتحان.rar

أنا شايف أستاذى العزيز ياسر وهو بيدينى الاعجاب أكيد بيجرب الملف وبيحاول يعمل زيه ما هوغلباوى لكن أنا سبقتك وعملت لك ملف بطريقة احترافية . تحياتى لأستاذى العزيز mokhtar for Y_K.rar

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

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

تفضل ولكن رجاء انظر الى الكود ، ففيه الكثير 1. في النموذج client عندما تضغط على زر "دفع القسط" ، فالحدث لا يفتح النموذج df فقط ، وانما يختار من قائمة Code_Client (ليس يدخل الاسم فقط) ، وذلك من خلال مقارنة رقم العميل ، بتلك الموجودة في القائمة المنسدلة ، والكود الذي يعمل هذا هو: Dim stDocName As String Dim stLinkCriteria As String stDocName = "df" DoCmd.OpenForm stDocName, , , stLinkCriteria 'Now select this name from the Listbox Code_Client of the Form df, 'this is as if we select from the Code_Client listbox itself, 'where we will get the Code_Client and Name_Client columns Dim ctl As Control Set ctl = Forms!df!Code_Client For i = 0 To ctl.ListCount - 1 If Val(ctl.Column(0, i)) = Val(Me.Code_Client) Then ctl.Value = Val(ctl.Column(0, i)) Exit Sub End If Next i 2. في النموذج df ، دائما نجعل التاريخ d1 يكون اول الشهر ، بغض النظر عن اي تاريخ تم اختيارة (وذلك تسهيلا للمستخدم ، بدل ان يفتش عن اول الشهر) ، والكود التالي يعمل هذا: 'make the date always the 1st of the month, 'making it easier for the user to select anydate of the month, and the code corrects it Me.d1 = DateSerial(Year(Me.d1), Month(Me.d1), 1) 3. عند الضغط على زر دفع ، تأتي الخطوات التاليه فيه: أ- التأكد ان المستخدم اختار عدد الاشهر ، والذي يجب ان يكون اكبر من 0 ، وإلا سيتوقف عمل الحدث: 'if No month is selected, get out If Me.f = 0 Then Exit Sub ب- يبحث في الجدول B_Pay ، في انه هل تم الدفع لهذا الزبون في الشهر d1 مسبقا ، فاذا تم الدفع ، واذا تم ، ستحصل على رسالة بذلك ، وسيتوقف عمل الحدث: Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From B_Pay Where [Code_Client]=" & Me.Code_Client) rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1) If rst.NoMatch = False Then MsgBox "you already used this date for this client" Exit Sub End If ج- اما اذا كان كل شئ تمام ، فالكود التالي يدخل البيانات في الجدول B_Pay: For i = 0 To Me.f - 1 rst.AddNew rst!Code_Client = Me.Code_Client rst!Code_Elshr = i + Month(Me.d1) 'rst!Dfa= 'rst!mogl= 'rst!data_eldfa = rst!data_eldfa1 = DateAdd("m", i, Me.d1) rst!data_eldfa2 = DateAdd("m", i + 1, Me.d1) 'rst!byen = rst.Update Next i MsgBox "Done" جعفر 89.db1.mdb.zip

امين واياك ولمسلمين في كل مكان بخير وسلامة وامن ومحبة تقبل الله صيامكم وقيامكم

اخى محمد جعلك الله سباقا دائما فى الخير وكل عام والامه المسلمه فى افضل حال تقبل تحياتى

وأنت وجميع الامة الاسلامية والعربية بألف خير يارب

اخي احمد بدلا من ارفاق الحل خليني اعطيك الخطوات لتنفيذها وفائدة اكثر : لتعلم ان الاستعلامات تنبني على جمل sql . هذه الجمل هي الكفيلة بعمل الاستعلامات ! لترى هذه الجمل اذهب الى عرض sql من ايقونة طرق عرض الاستعلامات في الزاوية اليمنى العلوية اذا كانت اللغة عربي ! بمعنى كل استعلام له sql في الخلف ! الآن : اعمل استعلام جديد >> ستظهر لك شاشة اضافة الجداول .. اعمل الغاء .. >> اذهب الى عرض sql >> ستحصل على نافذة بها كلمة select ... امسح كل شي والصق النص الذي بالمشاركة رقم 3 >> اعمل عرض للاستعلام ... ويمكن عرض تصميم لترى الاستعلام وهو من نوع استعلام جدولي ! بالتوفيق

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

تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar

السلام عليكم مرفق ملف يؤدى الغرض المطلوب (جربه بس ياريت تغير اسامى المجلدات اللى انت مستخدمها لو حصل معاك مشكلة ) مع ملاحظة التالى الملفات الاصلية تنسيقها CSV زى مانت باعتها الملفات المستهدفة اللى انت ها تشيل فيها البيانات وتكون عامل فيها المعادلات لازم تكون اكسل البرنامج بيدور على اسامى الملفات الاصلية واذا لم يجدها بيلون الخلية اللى فيها اسم الملف المفقود وكمان بيدور على الهدف مع امكانية نه يعمل لك الملف لو لم يجده او يضع لون اخر على اسمه وده حسب اختيارك الملف غير مقيد انه يكون مع الملفات الاصلية او المستهدفة ..... ولكن لازم يكونوا الاتنين تحت مجلد رئيسى واحد Start Backup From CSV to Excel.rar

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

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

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

أخي الغالي أيمن إبراهيم إليك الكود التالي عله يكون المطلوب Sub Ayman_Trheel_TBYED() Dim SH As Worksheet, I As Long, S As Long, CL As Range S = 1 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each SH In Worksheets If SH.Name <> "الشيت" Then SH.Range("A10:BY819").ClearContents Next SH For I = 2 To 7 For Each CL In Range("CC6:CC" & [CC1000].End(xlUp).Row) If CL.Value = Sheets(I).Name Then CL.Offset(0, -79).Resize(1, 76).Copy If I = 5 Then S = 2 End If Sheets(I).Range("B" & Sheets(I).[B1000].End(xlUp).Row + S).PasteSpecial xlPasteValues With Sheets(I).Range("A10:A" & Sheets(I).[B1000].End(xlUp).Row) .Formula = "=+IF(I10="""","""",SUBTOTAL(3,I$10:I10))" .Value = .Value End With End If Next Next Application.CutCopyMode = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True MsgBox "تم ترحيل الطلبة الناجحــون والـدور الثـاني للتبيـيض بنجاح ", vbOKOnly, "الحمـــد لله" End Sub تقبل تحيات تلميذكم ياسر

الجزء الثاني نستكمل سويا بمشية الله الجزء الثاني من موضوع الإضافات للإكسل Addins بعد أن تعرفنا في الموضوع الأول على ما هي الإضافة وكيفية تحويل الماكرو إلى إضافة وحمايته بكلمه سر. للإطلاع على الموضوع الأول فضلا زيارة الرابط التالي: http://www.officena.net/ib/index.php?showtopic=61907#entry400221 في هذا الجزء سوف نقوم بعمل شيت إكسل أخر يكون جنبا إلى جنب مع الإضافة ويكون بمثابة ملف Setup . ما فائدة هذا الملف؟ الملف بسيط ويتكون من 2 زر أحدهم لتثبيت الإضافة بمجرد الضغط عليه والموافقة يقوم بتثبيت الإضافة تلقائيا بدون الدخول إلى قوائم أو غيره. والزر الأخر هو لحذف الإضافة عكس الزر الأول. تجدون في المرفق ملف مضغوط به ثلاث ملفات Setup Arabic + Setup English + Addin للتطبيق عليها. بمجرد فك الضغط على الملف سيظهر لنا مجلد جديد به الملفات المذكورة افتح ملف Setup واضغط على تثبيت الإضافة ليتم تثبيتها إلى الاكسل ولحذفها إضغط على حذف يوجد ملف Setup المحتوى ورسائل التنبيه باللغة العربية وأخر بالإنجليزية شكل الملف من الداخل الشيت 2 به الإعدادات لتمكن من استخدامها والتعديل عليها بما يناسبك والكود البرمجي مفتوح للجميع للتعديل والإضافة عليه لمن أراد والحقوق محفوظة لصاحب الكود الأصلي Set up Addin.rar

الله يصلح حالك أخي راعي الغنم منذ ساعتين وانا جالس من أجل أن أجد أي شئ خطا ولكن لم أجد إلا كل خير (الله أكبر والحمد لله) وجزاكم الله خيرا فقد اتعبتكم واتعبت الكثير من أجل الوصول للنتيجة هذا ما شاء الله أخي فعلا هذا هو المطلوب وفرت علي وقت كبير جدا جدا جدا أخي أخي هناك أمر قمت بإضافة معيار خامس للتصفية (وهو القرية) فالمحافظة تتبعها منطقة والمنطقة تتبعها قرية فلو فرضنا أنني قمت بأختيار التصنيف الرئيسي ثم التصنيف الفرعي ثم المحافظة ثم المنقطة فأريد إضافة القرية بعد المنقطة ويكون التسلسل محافظة ثم منقطة ثم قرية ومن أجل يتضح المثال: محافظة القاهرة تتبعها منطقة حلون - وداخل حلوان قرية أسمها (العرب) وأيضا ربما يكون عندي 50 قرية تابعة للمنطقة التى تتبع المحافظة انا قمت بالفعل بعمل جدول جديد اسمه القرية لكن للأسف لا يظهر منه شئ في الاختيارات رغم وجود بيانات للقري به (طبعا أنا حاولت أن أقلد ما فعلت في الاستعلام) لكني فشلت حتى أنني أخذت نسخ ولصق مع التعديلات المناسبة لكنه فشل أيضا (بإذن الله سأحول مرة ثانية) وبصدق انا منذ ساعتين وانا أحاول (حتى لا اتسبب في حرج لكم خاصة مع جهدكم الطيب المبارك بإذن الله) لكني فشلت في ذلك.... وطبعا القرية لها نفس الشرط المطبق على المحافظة والمنطقة أي تظهر القري فقط التى تتبع الجهة الرئيسية والفرعية والمحافظة والمنطقة ويكون بها بيانات وتببعهم أيضا... وجزاكم الله خيرا إن شاء الله سوف أقوم بدراسة تطبيق ما قمت به حضرتك خطوة خطوة وسوف أقوم ببنائها من البداية في قاعدة جديدة حتى أفهمها بشكل جيد وحتى أتعلم منها بصراحة انا تعبت جدا جدا للوصول لهذه النتيجة ولم أفلح فيها والحمد لله الذي جعلها تحل على يديكم وتقبل الله منا ومنكم صالح الأعمال.... كما اشكر أخي مارد على جهد وتعبه معي وتقبل الله منكم جميعا صالح الأعمال البحث2.rar

الشكر لله أخى و أستاذى أحمد أبو زيزو جرب هذا الرابط أخى الكريم http://omar84.com/docs/taw/arabic_writer.html لعل و عسى يساعدك فيما تريد ، ستتعامل معه ببساطة ستضع النص فى input ثم تضغطت Process input ان شاء الله تحصل على نتيجة مرضية .

او هذا الرابط http://www.officena.net/ib/index.php?showtopic=61295 جعفر

هذا الموضوع يفيدك http://www.officena.net/ib/index.php?showtopic=16877

من واجبنا الالتزام بالتعليمات واحترام لمن قدم لنا العلم و الفكره والنصح والمشوره اذكرك واذكر نفسي بقوله تعالى: { هل جزاء الإحسان إلا الإحسان} جزاك الله الف خير

الاستاذ / ابونصرى المحترم تحياتى ارجو الاطلاع على مشاركتى والملف الذى رفعته هو م من المنتدى والصرح العلمى العظيم وهذا مشابه جدا لطلبك تحياى وتقديرى للقائمين على هذا الصرح

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

الأخ الكريم أكرم جلال إليك الكود التالي Sub ResizeActiveCell() ActiveCell.Resize(, 13).Select End Sub

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

السلام عليكم أخي أبو البراء الغالي: كلنا معك ... فأنت نبراس هذا المنتدى الكريم..وكلكم خير وبركة إن شاء الله تعالى.

ربنا يبارك فيك أخي وحبيبي علاء أخيراً لقيت حد يسند معايا ويوجه الأعضاء ربنا يجازيك خير تقبل تحياتي

و عليكم السلام و رحمة الله و بركاته يرجى أخى الكريم إرفاق ملف للعمل عليه مع توضيح النتيجة المرجوة ، لمزيد من التفاصيل يرجى مراجعة موضوع التوجيهات من هذا الرابط http://www.officena.net/ib/index.php?showtopic=60147 شكرا .

تفضل اخى سليم لعله المطلوب data.rar

الأخ أبو حازم بعد إذن الأخ الحبيب سليم .بارك الله فيه إليك الحل التالي بدالة معرفة قمة في الروعة تغنيك عن كل هذا الكم من المعادلات ..حيث قام أخي وحبيبي سليم باخفاء ورقة العمل ورقة3 ووضع بها معادلات لاستخراج القيم الفريدة أما الدالة المعرفة فتغنيك عن كل هذا الأمر Function GetUnique(ArrDupes As Variant, Ref As Long) As Variant 'تقوم الدالة باستخراج القيم الغير مكررة وتخطي الخلايا الفارغة '=IFERROR(GetUnique($A$1:$A$20,ROW(A1)),"") '----------------------------------------------------------- Dim E With CreateObject("Scripting.Dictionary") If TypeOf ArrDupes Is Range Then For Each E In ArrDupes If E <> "" Then .Item(E.Value) = Empty Next Else For Each E In ArrDupes If E <> "" Then .Item(E) = Empty Next End If GetUnique = .keys()(Ref - 1) End With End Function تقبل تحياتي حصر الاسماء وفرزها YK.rar

السلام عليكم أخي الحبيب أولا: لاداعي لذكر "مقابل مادى" لأننا جميعا بالمنتدي نعمل لوجه الله عسي أن يتقبل سبحانه وتعالي ثانيا: حجم الملف المضغوط 1.4 ميجا ، (أقل من 2 ميجا) ممكن كنت تحمله عالمنتدي سأحمله لمن يريد المشاركة ثالثا: حملت الملفات ولم أفهم جيدا ماتريد يوجد ملف مثلا في المجلد الأول : ‫TDWL - 1 وإسم الملف هو 1010 بامتداد csv ويوجد ملف بنفس الإسم في المجلد الثاني : ‫‫TDWL - 2 فهل تريد أن يتم إلغاء محتويات الملف الموجود بالمجلد الثاني ويستبدل بمحتويات الملف الموجود بالمجلد الأول أم يتم إضافة محتويات الملف الموجود بالمجلد الأول إلي محتويات الملف الموجود بالمجلد الثاني مجلداوفسينااصلوتابع.rar

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

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب

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

تفضل المرفق به كل الخيارات Test400-8.rar