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

17 hours ago, ياسر خليل أبو البراء said: الموضوع منذ أيام ولم أراه سوى الآن .. ولا أجد أي عضو يلفت النظر للسائل بأن العنوان غير مناسب ساعدوني بارك الله فيكم ..... تعبت من كثرة توجيه الأعضاء للالتزام بالتوجيهات .. من المعروف أن الكتاب بيبان من عنوانه كذلك موضوعات المنتدى .. وإلا أصبح المنتدى مسخ بالعناوين الفارغة الغير معبرة والغبر مناسبة أرجو الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى (والكلام موجه للجميع) الاخ ياسر خليل أبو البراء تحياتي لك ارجو ان تتقبل نصيحتي المنتدي به من الاخوة الاكفاء و ذو الخبرة الجيدة امثال الاخ سليم حاصبيا و الاخ أبو حنــــين و الاخ جلال الجمال_ابو أدهم وغيرهم كثر ربما لم الحظهم ولكنك تعرفهم خيرا مني فلماذ لا تتم ترقيتهم الي مشرفين حي يساعدو في عملية الاشراف لا تخبرني ان التدرج بالترقيات يتم اليا حسب المشاركات قديما تم ترقيات من هم اقل منهم خبره ويمكنني ذكر اسمائهم ان احببت للتذكره وتأكد ان المنتدي سيعج بالنشاط والانضباط فلا يجوز ان تقوم بكل شئ يجب ان تتفرغ للأمور اخري كفصل ودمج وحذف المشاركات والموضوعات وامور اخري لا مجال لذكرها هنا ملحوظه هامة انا خارج هذه الترقيات لأسباب منها علي سبيل المثال لا الحصر اولا شبعت ترقيات قديما ثانيا انا اقوم بإختيار موضوعاتي التي استجيب لها (( عدم وجود اي نوع من الحماية - عدم حذف اي من اشرطة الادوات - التنسيق الجيد - وجود داتا كافية للتجربه عليها - واخيرا الموضعات الجديدة او ذات جهد معين )) فلا يجوز لي الاشراف لأني لن اكون عادلا مع الاخوة الاعضاء واعتقد ان الكثير من الاخوة الاعضاء يوافقون علي ترشيحاتي ارجو ان تتقبل نصحي بصدر رحب

من الأوّل كــده solution.rar

هذة اول الهمة ... وجودتكم مشهورين مو فى المنتدى و لكن حول العالم.!

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

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

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كشف حساب جديد من اعمال عماد الحسامى تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي و لا تنسونا من صالح الدعاء تحياتى كشف حساب (يومية عملاء و كشف بين تاريخين).rar ملخص شهري 555 (1).rar كشف حساب للفترة (1).rar

واحدة تكفي وجرب عند on load فقط

عزيزي خلينا نضع الاجابة هنا لتعم الفائدة اريد الاجابة على 1. اين وضعت امر التكبير 2. خاصية نوع الاطار border style للنموذج

ممكن المرفق؟ واين وضعت امر التكبير؟ عند اي حدث للنموذج؟

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

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

جرب منبثق = نعم كما ان الامر تكبير لم تذكر موقع الحدث ؟

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

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

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

أخي العزيز / حسين 22 تم التعديل حسب النموذج الذي أرسلت amn2016.rar

بارك الله فيكم أبو البراء وجزاكم الله خيرا

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

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

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

أخي الكريم طارق أين الملف المرفق وأين الكود الذي تتحدث عنه وأين أنت الآن ؟؟

أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير بينما كنت تقدم الحل لأخونا محمد السباعي كنت منهمك في الكود التالي (الذي تعدى معي حد الجنون ..!! أكثر من ساعة ونصف وربما ساعتين في هذا الكود) هو كود مجنون بحق .. حاولت فيه بقدر المستطاع أن أجعله كون مرن يصلح لأي موضوع شبيه بهذا الموضوع (خصوصاً أن هذا الموضوع يتكرر في كثير من الأحيان) وهو أن يكون هناك ورقة عمل رئيسية بها عمودوالمطلوب ترحيل القيم في هذا العمود إلى الورقة المناسبة ، وأضفنا إليه من قبل إمكانية إنشاء ورقة عمل إذا لم تكن موجودة .. الكود المجنون من العيار الثقيل وأرجو أن يبدي الأعضاء أي ملاحظات عليه لتطويره بحيث يصلح لهذه المشكلة أياً كان شكلها وحجمها وأبعادها ... الكود بالشكل التالي Sub Transfer_Data_Using_Filter_By_List() 'Author : YasserKhalil 'Release : 01 - 09 - 2016 '------------------------ Dim dictPerson As Object, dictSheet As Object, mtx(), isFound As Boolean Dim I As Long, v1 As Variant, v2 As Variant, arr As Variant, arrCol As Variant Dim rng As Range, arrHeader As Variant Dim cnt As Integer, counter As Integer Dim Rc As Long, Gc As Long, Bc As Long '=========================================================================================== 'Column Number To Be Filtered Const iCol As Integer = 5 'Sheet Name (The Source Sheet) Const sSheet As String = "DATA" 'Data Range Including Header Set rng = Sheets(sSheet).Range("A5:E" & Sheets(sSheet).Cells(Rows.Count, iCol).End(xlUp).Row) 'Row Number For Destination Sheets (5 = Row 5) Const destRow As Integer = 5 'Column Number For Destination Sheets (1 = Column A) Const destCol As Integer = 1 'Column Widths For Output Sheets arr = Array(14, 50, 15, 14) 'Columns Order To Be Copied. So Column 4 In Data Sheet To Be Copied To Column 1 To Destination Sheet arrCol = Array(4, 3, 1, 2) 'Columns Order To Be Copied. So Column 4 In Data Sheet To Be Copied To Column 1 To Destination Sheet arrHeader = Array("القيمة", "البيان", "التوجيه المحاسبي", "التاريخ") '=========================================================================================== Application.ScreenUpdating = False mtx = rng.Value Set dictPerson = CreateObject("Scripting.Dictionary") For I = 2 To UBound(mtx, 1) If Not dictPerson.Exists(mtx(I, iCol)) Then dictPerson.Add mtx(I, iCol), mtx(I, iCol) Next I Set dictSheet = CreateObject("Scripting.Dictionary") For I = 1 To Worksheets.Count If Not dictSheet.Exists(Worksheets(I).Name) Then dictSheet.Add Worksheets(I).Name, Worksheets(I).Name Next I dictSheet.Remove (sSheet) For Each v1 In dictPerson isFound = False For Each v2 In dictSheet If v1 = v2 Then isFound = True Exit For End If Next v2 If Not isFound Then If MsgBox(v1 & " Does Not Exist." & vbCrLf & "Create This Sheet ? ", vbOKCancel) = vbOK Then Worksheets.Add After:=Sheets(sSheet) ActiveSheet.Name = v1 ActiveSheet.DisplayRightToLeft = True Else dictPerson.Remove v1 End If End If Next v1 For Each v1 In dictPerson Sheets(v1).Cells.Clear rng.AutoFilter Field:=iCol, Criteria1:=v1 With rng.Offset(1) For counter = LBound(arrCol) To UBound(arrCol) .Columns(arrCol(counter)).SpecialCells(xlCellTypeVisible).Copy Sheets(v1).Cells(destRow + 1, destCol + counter).PasteSpecial xlPasteValues Sheets(v1).Columns(destCol + counter).NumberFormat = .Columns(arrCol(counter)).NumberFormat Next counter Sheets(v1).Cells(destRow, destCol).Resize(1, UBound(arrHeader) + 1).Value = arrHeader End With With rng(1, 1) Rc = .Interior.Color Mod 256 Gc = Int(.Interior.Color / 256) Mod 256 Bc = Int(Int(.Interior.Color / 256) / 256) Sheets(v1).Cells(destRow, destCol).Resize(1, UBound(arrHeader) + 1).Interior.Color = RGB(Rc, Gc, Bc) End With With Sheets(v1) With .Cells .ReadingOrder = xlRTL .Font.Name = "Arial" .Font.Size = 11 .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter .RowHeight = 19 .ColumnWidth = 9 End With With .Cells(destRow - 1, destCol) .Offset(1).CurrentRegion.Borders.Value = 1 .Value = v1 .Resize(1, UBound(arrHeader) + 1).Interior.Color = vbYellow .Resize(1, UBound(arrHeader) + 1).HorizontalAlignment = xlCenterAcrossSelection End With With .Rows(destRow - 1).Resize(2) .RowHeight = 25 .Font.Bold = True .Font.Size = 13 End With For cnt = LBound(arr) To UBound(arr) .Columns(destCol + cnt).ColumnWidth = arr(cnt) Next cnt Application.Goto .Range("A1") End With Next v1 Application.Goto Sheets(sSheet).Range("A1") rng.AutoFilter Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub فمت بوضع التعليقات باللغة الإنجليزية (معلش تعود مش أكتر) سأقوم بشرحها لمن يهمه الأمر أول سطر في التعليق يتعلق برقم العمود الذي يحتوي على القيم التي سيتم فلترتها السطر التالي يكتب اسم ورقة العمل التي تحتوي على البيانات (الورقة الرئيسية) السطر التالي نطاق البيانات المراد العمل عليها السطر التالي رقم الصف المراد وضع البيانات فيه السطر التالي رقم العمود المراد وضع البيانات فيه .. مثال لو أردنا وضع البيانات في الخلية H3 هذا يعني أن رقم الصف هو 3 ورقم العمود هو 8 السطر التالي عرض الأعمدة في المخرجات ..بما أننا تعاملنا في المخرجات مع 4 أعمدة فيكتب 4 أرقام ..يمكنك ببساطة زيادة أو نقصان العدد السطر التالي ترتيب الأعمدة وهذا السطر مهم للغاية ..فقد لاحظت أن الترتيب ليس بالضبط كترتيب الورقة الرئيسية وهذا ما دفعني إلى كتابة الكود في الحقيقة .. المهم هنا الرقم 4 هو رابع عمود في ورقة البيانات ، والرقم 3 هو ثالث عمود في ورقة البيانات ، والرقم 1 أول عمود في ورقة البيانات ، والرقم 2 هو ثاني عمود في ورقة البيانات ، وسيتم ترحيلهم بنفس الترتيب إلى الأوراق الجديدة السطر التالي هو خاص بالعناوين التي ستوضع في الأوراق الأخرى والتي سيتم ترحيل البيانات إليها ، وقد قمت بذلك أيضاً لأنني لاحظت أن هناك تغيير في العناوين (العمود "مدين" يسمى في المخرجات باسم "القيمة") المهم الأربعة سطور الأخيرة يجب أن يكون كل منها محتوي على 4 عناصر حسب عدد الأعمدة المطلوبة في المخرجات أسأل الله العظيم أن يكون الكود مفيد لكم وأعتذر عن الإطالة .. ولكن كان لابد من التوضيح التام لما هو مهم في الكود لتتمكنوا من استخدامه بسهولة ويسر .. لتجربة الكود بشكل أعمق اختر في الخلية E12 ايصال تسوية ، وهي ورقة عمل غير موجودة لتشاهد ورقة العمل وهي تنشأ وتوضع فيها البيانات .. ولك الحرية في تلك النقطة (لك أن تنشيء ورقة العمل أو تلغي ... لابد أن يكون هناك مرونة) تقبلوا وافر تقديري واحترامي رابط الملف المرفق من هنا

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

في خانة بعد تحديث اكتب هذا الكود DoCmd.RunCommand acCmdRefresh DoCmd.OpenForm "form1", acNormal, , "[id] = " & Forms!form2!asMALXANE.Value DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy Forms!form2.SetFocus DoCmd.RunCommand acCmdPaste DoCmd.Close acForm, "form1" اخي العزيز اذا بترفق الملف بيكون اسهل لكي نساعدك مع التقدير

لو مثلا اريد ترحيل ID و INVOICE DESCRIPTION و EDIT NOTE في شكل فاتورة ممكن ولا صعبه

أعتذر أخي عن التأخر في الرد إليك الملف التالي فيه التعديل .. الملف معتمد على الملف الذي قمت بإرفاقه من قبل .. حيث وجدت ملفك المرفق يحتاج لنفس الخطوات التي قمنا بها من قبل وفي هذا مشقة .. أرجو أن يفي بالغرض إن شاء الله Grab Data By Hijri Dates Using Arrays YasserKhalil V2.rar

ارفق نموذج

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

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

نعم هو نفس الشيىء ولكن التعديل لم يأتى بثمارة ولا حتى مع IFERROR وافر تقديرى واحترامى

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

أخي الكريم أبو عيد بارك الله فيك على قوة الملاحظة .. الكود يعتمد على استخراج القيم الغير مكررة .. لذا وجب استخدام كود آخر يؤدي نفس الغرض المطلوب كما وضحت جرب التالي Sub Test() Dim coll As New Collection, rng As Range, arr, c As Long, I As Long, strKey As String, v1 Set rng = Range("A1").CurrentRegion rng.Offset(1).Interior.ColorIndex = xlNone arr = rng.Value For I = 2 To UBound(arr, 1) strKey = Abs(arr(I, 3)) On Error Resume Next coll.Add Key:=strKey, Item:=Array(New Collection, New Collection) On Error GoTo 0 If Sgn(arr(I, 3)) = -1 Then coll(strKey)(0).Add I Else coll(strKey)(1).Add I Next I For Each v1 In coll I = Application.Min(v1(0).Count, v1(1).Count) If I > 0 Then c = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) For I = 1 To I rng.Rows(v1(0)(I)).Interior.Color = c rng.Rows(v1(1)(I)).Interior.Color = c Next I End If Next v1 End Sub تقبل تحياتي

اللهم امين *** اللهم امين *** اللهم امين وتقبل الله منك اخى الحبيب ابو البراء صالح الاعمال

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

و هذا الكود لاستبدال الاسطر الزائدة الى تنتج عند النسخ من ملف PDF و يتم تشغيله بعد عمل اختيار للمنطقة المراد التطبيق عليها اولا Sub ReplaceLineBreak() ' With Selection.Find .Text = "^p" .Replacement.Text = " " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

اذا اردنا تطبيق الاكواد علي اختيار معين و ليس كل الملف فقبل تشغيل الكود يتم الاختيار اولا و يتم تغيير هذا السطر .Wrap = wdFindStop

إن شاء الله ليلاً سأحاول العمل عليه إذا لم يتدخل أحد الأخوة تقبل تحياتي

لمزيد من التميُّز احي ياسر انظر الى الورقة salim من هذا الملف تم تصحيح المعادلات في الورقة الاولى male_femel_macro.rar

السلام عليكم اخي الكريم جرب رفع ملفات الاكسس على جوجل درايف وضع رابط له او اي موقع اخر عندك موقع mega مثلا او dropbox ونحن بانتظارك

السلام عليكم، انه مضمن ضمن الملف السابق و بيانه كالتالي: ' حذف المسافة بعد كلمة عبد Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "عبد ال" .Replacement.Text = "عبدال" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

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

سبحان الله الشيت ظهر ( هييييييييييييييييييييييه ) دوست عليه وانا خايف بعد ما حذرتني من الخطف بس الحمد لله جت سليمة المهم ان التجميعة سليمة بس التاريخ مش في الحسبان يعني المفروض إني أحط التاريخ مع التجميعي ومش مهم لو الصنف اتكرر في نفس العمود حتى لو في نفس التاريخ ( انت زهقت أنا عارف ) بس المرفق هيوضح لك أنا في شيت الادخال مع كل حركة باسجل تاريخ عند كل سطر عايز شيت الاجمالي يكون فيه التاريخ ( عمود ا ) الفرع ( عمود 2) عمود 3 نوع الحركة الصنف ( عمود 4) الكمية ( عمود 5 ) وأنا هاوفر عليك وأعمل أنا filter وكمان pivot table Recipe YasserKhalil.rar

أخي صلاح الدين هل قمت بتحميل المرفق في المشاركة رقم 38؟ شيت أو ورقة العمل إجمالي موجودة فين؟ في المرفق والله ... سؤال غريب شويتين .. بالنسبة للكود أسهل وأيسر وأخف للملف خصوصاً مع البيانات الكثيرة قم بتحميل المرفق في المشاركة رقم 38 وافتح المرفق وواحدة واحدة أنا إن شاء الله معاك ورقة العمل "إجمالي" بلاقيها تحت في تبويبات الملف ، لما تنقر عليها هتلاقي نفسك في الشيت (اوعى حد يخطفك هناك) هتلاقي زر أمر مكتوب عليه "قل لا إله إلا الله" اوعى تكون مقولتش لأزعل منك انقر زر الأمر وبس خلاص على رأي يسرولة (يسرولة على وزن شعبولة..مش أحسن مني شعبان عشان يدلع وأنا لا) توكل على الله

لإدراج التاريخ Alt+Shift+D لإدرج الوقتAlt+Shift+T تسطير الكلمات فقط بدون الفراغات يمكنك عمل ذلك عن طريق الأزرار Ctrl+Shift+W وإذا أردت وضع خطين تحت الجملة فيمكنك عمل ذلك عن طريق الضغط على الأزرار Ctrl+Shift+D ترجمة الكلمات من العربية الى الانجليزية ضع المؤشر على الكلمة ثم اضغط Alt+ Shift + F7

لعمل جدول فى برنامج الوورد بطريقة سهلة جدا اتبع الاتي +===+===========+ ( لا تنسى هنا المسافات بين العلامات ) و اضغط زر Enter بعدها و شاهد كيف يتم انشاء الجدول و كذلك يمكن كتابة +--------+-------------------+ ( هنا لا يوجد مسافات بين العلامات )

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