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

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

تفضل أخى رجب.rar

بسم الله الرحمن الرحيم الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه إخوتي ...أحبتي الكرام وأساتذتي الأجلاء السلام عليكم ورحمة الله وبركاته اعترافاً بفضلكم وجهودكم المتواصلة في إيصال المعلومة الصحيحة والعلم النافع أقدم تجربة في إعداد برنامج مخازن جمعت به من كل بستان زهرة نهلت من علمكم وقد رأيت دروساً للأستاذ الكريم عماد غازي فطبقتها في محاولة صنع برنامج لا يصل إلى غبار علمكم فلكم السبق في كل شيء وكذلك نسخت أكواد شاشة البداية من أستاذي الصقر (لا يوجد جديد إلا محاولتي إعداد برنامج فلا تؤاخذونني على التقليد الذي لا أعتبره كذلك)... أرجو أن أكون قد خطوت خطوة إلى الأمام...راجياً منكم إبداء آرائكم به علماً أنني اعتمدت الجداول بدلاً من النطاقات وقد تكون نقطة ضعف لدي اسم المستخدم :admin كلمة المرور: 123 حماية الأوراق داخل المصنف دون كلمة مرور والسلام عليكم. ملاحظة: يرجى توجيهي نحو كل خطأ أو تقصير لاستدراكه برنامج المخازن.xlsm

أخي الكريم محمد قم بعمل عمود مساعد ليسهل عليك الأمر ، وفي النهاية يمكنك إخفاء العمود المساعد في الخلية R12 اكتب كلمة "عمود مساعد" .. وضع المعادلة التالية في الخلية R13 =C13&D13&E13&F13 ثم ضع الكود التالي في موديول ونفذ الكود ليقوم بعملية الترتيب كما طلبت Sub SortData() Dim LR As Long LR = Range("B" & Rows.Count).End(xlUp).Row Range("B12:R" & LR).Sort Key1:=Range("R12:R" & LR), Order1:=xlAscending, Header:=xlYes End Sub إليك الملف المرفق بعد إزالة كافة الفورم والموديولات والإبقاء على الكود المطلوب فقط حتى لا يتوه الأعضاء في الطلب ويستطيع من يحمل المرفق أن يفهم المرفق بسهولة يرجى عدم تعدد الطلبات في الموضوع الواحد ..يمكنك طرح موضوع لكل طلب على حدا Sort Data In Ascending Way YasserKhalil.rar الطلب الثاني وهو فتح ملف الورد قم بوضع الكود التالي مع تغيير اسم ملف الورد ليناسب طلبك Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open (ThisWorkbook.Path & "\Ahmed.docx") objWord.Activate تقبل تحياتي

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

أخي الكريم المسلم العربي تقوم الدالة Countif بعمل المطلوب حيث تقوم الدالة بالعد بشرط تذكره .. الدالة لها عدد 2 بارامتر الأول هو النطاق المراد عده والثاني هو الشرط المطلوب العد على أساسه بالتالي كما في مثالك ..النطاق المراد العمل عليه وعد الشرط به هو E3:E12 ، والشرط المطلوب هو كلمة "ذكر" في حالة أن المطلوب عد الذكور ، ولا تنسى أن كلمة ذكر توضع بين أقواس تنصيص لأنها نص في النهاية تكون المعادلة بهذا الشكل =COUNTIF(E3:E12,"ذكر") الفاصل بين البارامترات الخاصة بالدالة يكون فاصلة عادية أو منقوطة (حسب إعدادات الويندوز لديك) .. إذا لم تعمل المعادلة بهذا الشكل قم باستبدال الفاصلة العادية الموجودة في المعادلة بفاصلة منقوطة ; يمكن الاستغناء عن الشرط كنص أي بدلاً من كتابة كلمة "ذكر" في المعادلة يمكن كتابتها في أي خلية ترغب فيها وليكن الخلية C14 اكتب فيها كلمة ذكر (بدون أقواس تنصيص في هذه الحالة) ..ثم قم بوضع المعادلة بهذا الشكل ... =COUNTIF(E3:E12,C14) أرجو أن تكون الصورة واضحة والشرح مفهوم تقبل تحياتي

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

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

السلام عليكم وتأييدأ لأخي أبوخليل ، وإيضاحا بالصور: http://www.officena.net/ib/topic/66616-لصق-ارتباط/?do=findComment&comment=433253 جعفر

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

السلام عليكم مرحبا بأخى الحبيب ياسر خليل المنتدى كدا نور بجد حمد لله على السلامة أخى محمد جرب المعادلة التالية =SUMIFS(OFFSET($B$7;;MATCH($B$3;$B$6:$J$6;0)-1;29;1);$A$7:$A$35;">="&$B$1;$A$7:$A$35;"<="&$B$2) تطبيق بدالة sumifs.rar

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

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

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

تفضل جرب انسخ والصق في اي مكان اخر التعديل بسيط جدا تحديد ونسخ فقط بضغطة زر.rar

تفضل أخى Private Sub ComboBox1_Change() ComboBox2_Change End Sub Private Sub ComboBox2_Change() Dim c As Range Dim cc As Range Dim LR As Integer If ComboBox1.Text = "" Or ComboBox2.Text = "" Then TextBox1 = "" TextBox2 = "" End If LR = Cells(Rows.Count, 1).End(xlUp).Row For Each c In Range("A5:A" & LR) For Each cc In Range("C4:O4") If c = ComboBox1.Text And cc = ComboBox2.Text Then TextBox1 = Cells(c.Row, 2) TextBox2 = Cells(c.Row, cc.Column) Exit For End If Next Next End Sub رجب.rar

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

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

جرب هذا الملف عشوائى salim.rar أو هذا توزيع عشوائي دون تكرار1 adv.rar

أخي الكريم المسلم العربي أنا لست بسيد أحد إنما أنا عبد لله مثلي مثلك .. نحن أخوة في الله ومن حق الأخوة تقديم يد العون لأخوك المسلم .. تقبل وافر تقديري واحترامي

ما أعلم أن قيمة المدخل بالحقل يقاس بالبيت bit ومعلوم أنها أصغر وحدة قياس وسواء تم ادخال الصفر أم ترك الحقل فارغ فلا فرق ولكن المهم هو نوع وحجم البيان الذى تم تخصيصه للحقل عند تصميم الجدول فإن الأكسس يحجز لهذا الحقل حجما بالذاكرة على قدر نوع وحجم البيان المعد من قبل المصمم سواءا ترك الحقل فارغا فيما بعد أو ملأ بالبيانات, مثال: لنفترض أن الحقل A بالجدول tbl1 اعداده نص وحجمه 255 فإن الأكسس يحجز لهذا الحقل بالذاكرة 255 بيت بغض النظر عن حجم البيان الذى سيتم ادخاله بعد فى هذا الحقل أكان مساوى ل 255 أم لا أم كان الحقل فارغا أصلا. هذا والله أعلم

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

ولو حبيت تختصر المعادلة فى الخلية يمكنك تسيمة النطاق التالى =OFFSET(B7;MATCH(B1;A7:A35;0)-1;;MATCH(B2;A7:A35;0)-MATCH(B1;A7:A35;0)+1;37) ووضع الاسم وليكن ragab مثلا فى المعادلة فتكون المعادلة على الصورة التالية =SUM(ragab) تطبيق بدالة sumifs.rar

السّلام عليكم و رحمة الله و بركاته واصل أخي الغالي " محمد حسن المحمّد " إبداعاتك .. و الله الموفّق فائق إحتراماتي

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

بارك الله فيك ونفع بعلمك برنامج روعة من استاذ رائع

الاستاذ الكبير علي المصري تعجز الكلمات عن وصف باقات الشكر الموجه اليك بارك الله بك وجعله في ميزان حسناتك

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

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

و عليكم السلام و رحمة الله و بركاته ... استاذ عبد الرحمن حسب معلوماتي المتواضعة , لا فرق فاذا كانت القيمة الافتراضية للحقل = صفر او يتم ادخال قيمة معينة . واذا تركناه فارغا فعندما نستخدمه nz ( [ اسم الحقل];0 )

جزاك الله خير برنامج رائع جداااااااااااا

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

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

موضوعك يا اخي / محمد عادل عبد الغنى مهم جدا بالنسبالي جزاك الله كل خير

بارك الله فيكم إخواني وأحبابي على الحلول الجميلة أخي الكريم إتش جرب الملف التالي عله يفيدك .. Sub CountSumCF() Dim Ws As Worksheet, I As Integer, J As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Activate I = I + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), False) J = J + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), True) Next Ws MsgBox "Yellow Cells In All Sheets Count = " & I & vbNewLine & "Yellow Cells In All Sheets SUM = " & J Sheet1.Activate Application.ScreenUpdating = True End Sub Function CountCFCells(Rng As Range, C As Range, bCount As Boolean) Dim I As Single, J As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Application.Volatile Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Dim II As Integer Dim IIFlg As Boolean Dim Tmp IIFlg = False For II = 1 To Len(Str1) Tmp = Mid(Str1, II, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If (IIFlg) Then Exit For End If Next Tmp = Right(Str1, Len(Str1) - II + 1) Str1 = "=" & CFCELL.Address & Tmp If bCount = False Then If Evaluate(Str1) = True Then J = J + 1 Else If Evaluate(Str1) = True Then J = J + CFCELL End If Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J Set Rng = Nothing Set C = Nothing End Function تقبل تحياتي Count & Sum Conditional Formatting Cells YasserKhalil.rar

تم تعديل المرفق فقط باقى الرسائل الجماعية ان شاء الله قريبا مرفق المراسلة2.rar

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

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

نشكرك يا اخي علي ما تقدمت به لمساعدة الاخرين .......... واعتقد انه مجرد نسيان حيث انه لم ينسبه لنفسه ولكنه نسي ذكر صاحبه و الله المستعان

هل تقصد هكذا ربط 2 كمبوبوكس.rar

السّلام عليكم و رحمة الله و بركاته أخي الكريم " رسول " .. ريثما يقوم أحد الأساتذة الأفاضل بمد يد المساعدة بإذن الله .. حاول مع هذا الملف .. يمكنك التغيير بعنوان الخلية و رقم الصف واسم الشيت مثلما تشير له الصّورة أدناه .. إدراج الوثيقة.rar

الإخوة الكرام إستخدمت هذا الكود لمنع حفظ الملف أو حفظه باسم فهل هذا جيد أم أنه هناك طريقة أفضل جزاكم الله خيراً Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro disables the "Save As" Feature in Excel 'This means that a user will not be able to save this 'workbook(file) under a different name or in a different location ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' Application.CommandBars("Standard").FindControl(ID:=3).Enabled = False If SaveAsUI = True Then Cancel = True End Sub

للرفع ...رفع الله قدركم .. جمالُ اللغةِ العربيةِ سئل أحدُهم : من أسعدُ الناسِ؟ فأجاب قائلاً: من أسعدَ الناسَ

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

أخي الكريم يوسف عطا .. لم أفهم النقطة الأخيرة هلا أرفقت مثال بشكل النتائج المتوقعة ليسهل فهم المطلوب ..

بســم الله الـرحمــن الرحيــم اخواتي وخواني الاعزاء في قسم الاكسس العام السلام عليكــم ورحمـة الله وبركاتــة أقدم اليكم اليوم برنامج تقسيط . فكرة البرنامج: مؤسسة تقدم خدمة واحدة وتعطي زبائنها امتياز الشراء على أقساط وهذا البرنامج مفتوح المصدر. أتمنى لكم التوفيق BORDERS111.rar

السلام عليكم ورحمة الله اخي الكريم الرابط المرفق هو رابط تحميل البرنامج الذي قمت باعداده ولا احتاج الا لاظهار شريط ادوات الطباعةفي التقرير (التقرير هو التصريح الذي اريد طباعته ) مع العلم ان البرنامج قد تم تحويله الى ملف تنفيذي ولكنه قابل للتعديل وارجو منك ومن الاخوة هنا وهو الاهم اعطاء راي الخبراء بالعمل الذي قمت به لانه اول برنامج اقوم بتجهيزه واتمنى منكم ابداء الملاحظات او التعديلات اذا سمحتم وشكرا الك رابط تحميل البرنامج : http://www.4shared.c...bile-store.html

السلام عليكم أخي العزيز / aly elhedewy تفضل المرفق فاتورة جديدة5.rar

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

السلام عليكم ورحمة الله وبركاته،، كيف اصمم الاشكال التالة : 1- (( دفتراليومية )) 2- (( دفتر استاذ )) 3- (( قائمة المركز المالي )) 4 - (( قائمة الدخل )) 5- (( ميزان المراجعة)) 6- (( قائمة التدفقات النقدية )) ولــــــــــــكـــــم فائق الشكر و الاحترام,,,,,,,,,,,,,