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

بعد إذن أخى الحبيب ( وليد فتحى ) أخى ( محمد ) ضع هذه المعادلة فى قائمة " DATA" ثم " VALIDATION " ثم " SETTINGS " ثم " ALLOW " ثم " CUSTOM " ثم " FORMULA " I7<=TODAY() أخى " محمد " طبعا لو أردت أن تجعل الخلية لاتقبل سوى التاريخ المطابق لتاريخ اليوم ستلغى علامة " >" من المعادلة وتجعلها " = " فقط I7=TODAY() أما فى فى المرفق المعادلة تقبل التاريخ المطابق والأقل من تاريخ اليوم تقبلوا تحياتى معادلة التاريخ.rar

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

أخى الحبيب ( وليد فتحى ) أستاذتى الفاضلة ( أم عبد الله ) ماشاء الله ، تبارك الله حلول ولاأروع بجد شئ يدعو للفخر والأعجاب ، لأساتذة يفتخر بهم أى عضو ينتمى لأسرة أوفيسنا ولمزيدا من الأفكار فكرة بسيطة لعلها تضفى على هذه الأفكار الرائعة شيئا بسيطا أخى " ماجد جلال " هذا حل أخر بمعادلة الصفيف " أى بعد كتابة المعادلة قف بمؤشر الموس أخر المعادلة وأضغط ( ctrl+shift+enter ) لتقم المعادلة بجلب القيم يشكل صحيح فى ( D7 ) ضع هذه المعادلة وأسحبها لأسفل =IFERROR(SMALL(IF(ISNUMBER($B$7:$B$25); $B$7:$B$25; "");ROWS($D$1:D1));"") تقبلوا فائق أحتراماتى 106.rar

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

السلام عليكم الاخ الفاضل شوقي ربيع عادي يا اخي يمكنك ان تناقش اي شي ما فيش مشكلة عندي انا صممت هذا العمل ليكون على كائن واحد فقط ويكون له كود واحد فقط ليتم تشغيله به وذلك ليسهل نقله واستخدامه للكل وايضا اردته ان يكون بهذا الاسلوب التشغيلي ( الشكل المصمم) ليكون مثل البار الشائع الاستخدام اما عن البطىء الذي تتحدث عنه فقد يكون مطلوب في بعض الاعمال ( شكل جمالي ) وهوهنا يعتبر لا شي حيث لا يتعدى ثانية في 10000 صف واذا اردت ان تجعله بمثل سرعة كودك شيل DoEvents من مكانها الحالي وضعها داخل كود البار داخل شرط الحركة هكذا : If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n": DoEvents ارجو ان يكون واضح ما اوردته اليكم تقبلوا تحياتي وشكري

السلام عليكم جرب هذه ملاحظة : الكود به خطأ عند اختيار خلايا بدل من نطاقات تحياتي رسم بيانى بالضغط على الزر++.rar

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

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

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

بسم الله الرحمن الرحيم إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم ( سلسلة الفارس فى شرح دوال الإكسل عن طريق الفيديو ) والهدف من هذه السلسلة ( التى أرجو من الله أن أستطيع إكمالها ) هو الآتى : 1- رد جميل هذا المنتدى الذى أدين له ولأساتذته بكل ما لدى من معلومات 2- تقديم مادة علمية شيقة لكل من يحاول تعلم دوال الإكسل تقوم على التفاعل المباشر عن طريق الفيديو لكى يسهل وصول المعلومة فى أبسط صورة 3- صدقة جارية ( أرجو من الله القبول ) وكل ما أرجوه دعوة بظهر الغيب والله من وراء القصد وهو يهدى السبيل بداية السلسلة شرح الدالة IF http://youtu.be/h--yP3NRaQQ if function 1.rar

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

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

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

السلام عليكم أريد تشغيل ماكرو تلقائيا عند التنقل إلى الورقة 2 الملف به عدة ورقات و الماكرو يقوم بنسخ خلايا محددة من ورقة 1 و لصقها في جميع الأوراق مثال يقوم بنسخ A1:F50 و لصقها في جميع الأوراق أي عند فتح الملف أذهب إلى الورقة 1 و أقوم بالتغييرات في خلايا معينة ثم أنتقل إلى ورقة 2 يشتغل الماكرو و يقوم بنسخ و لصق البيانات الكود يجب أن يشتغل مرة واحدة كلما دخلت إلى الورقة 2 مشكورين

اريد حساب الاجازة الاعتيادية حسب الوظيف وحسب سنوات العمل حساب ايام الاجازات الاعنيادية.zip

السلام عليكم بار بسيط لمعاينة حركة اي كود على الفورم يمكنك استخدامة لاي كود يستخدم فور نكست على الفورم ويمكنك نقله مع الاكواد الخاص به الى اي فورم في ملفك هذا كود البار Private Sub kh_Update_Par(MI As Long, MX As Long) Static N As Integer If N = 0 Then Me.MousePointer = 11 Me.LabelPar.Visible = True Me.LabelPar.Caption = "" N = Int(MX / 30) End If '---------------------------------- If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n" '---------------------------------- If MI = MX Then N = 0 Me.LabelPar.Visible = False Me.MousePointer = 0 End If End Sub وهذه السطرين تضعها نهاية السلسلة فور نكست في اي كود تريد تشغيل البار معه مع تغيير المتغييرات الخاصة بالكود حسب الكود خاصتك Call kh_Update_Par(i, Lr) DoEvents وهذا الكود يمنعك من غلق الفورم اثناء حركة البار Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Me.MousePointer = 11 Then Cancel = 1 End Su واذا كنت تستخدم هذا الكود في الفورم خاصتك استخدم السطر التالي في بداية الكود خاصتك If Me.MousePointer = 11 Then Cancel = 1: Exit Sub تحياتي المرفق 2003 بار تحديث البيانات.rar

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

السلام عليكم الاخ الكريم / احمد عبد الفتاح بارك الله فيك برجاء مراعاة عناوين مواضيعك فيما بعد فهي مخالفة لقواعد المشاركة بالمنتدي .. ( حتي لا يتعرض موضوعك للحذف او الاغلاق ) واصبح لك الآن 3 مواضيع بخصوص الرسم البياني ... كان من الممكن ان يكفي موضوع واحد وتحديد الطلبات طلب تلو الآخر ... برجاء مراعاه ذلك فيما بعد ... لزيادة الافادة للجميع والالتزام بقواعد المشاركات تقبل خالص تحياتي قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

اخى اسامه يمكنك استعمال هذا الكود الكود يقوم بعمل نسخه بتاريخ اليوم بمعنى انه اذا قمت فتح الملف وغلقه اكثر من مره فى اليوم فلن تجد غير نسخه واحه لهذا اليوم كل مره يتم غلق الملف فيها يتم حزف النسخه الموجوده بتاريخ اليوم وتسجيل نسخه جديده وهكذا بالنسبه لليوم الذى يليه Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim BOOKNAME As String BOOKNAME = ThisWorkbook.Name & "--" & Format(Date, "DD-MM-YYYY") ThisWorkbook.SaveAs ("C:\Users\hima\Desktop\" & BOOKNAME & ".XLSB") End With End Sub واذا اردت الاحتفاظ بنسخه واحده فقط دون الحاجه الى التاريخ قم بتغير السطر التالى BOOKNAME = ThisWorkbook.Name & "--" & Format(Date, "DD-MM-YYYY") الى BOOKNAME = ThisWorkbook.Name

السلام عليكم سيصبح الكود هكذا Private Sub CommandButton1_Click() ' Changes the Chart's XValue and Value ranges to display the selected data If TypeName(Selection) = "Range" Then If Selection.Columns.Count = 1 Then If Selection.Column = 2 Then 'If Selection.Areas.Count = 1 Then tt = Selection.Address For k = 1 To Len(tt) If Mid(tt, k, 1) = "B" Then If n = 1 Then Rng = Rng & "D" n = 0 Else Rng = Rng & "a" n = n + 1 End If Else Rng = Rng & Mid(tt, k, 1) End If Next t = Range("A1:D1," & Rng).Address ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SetSourceData Source:=Range(t) 'Else ' MsgBox "Select a contiguous range of cells in column B.", vbInformation ' End If End If End If End If End Sub تم تعديل هذا السطر من الكود Rng = Rng & "D" وهذا t = Range("A1:D1," & Rng).Address

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

أخى الحبيب " سليم حاصبيا " بجد مجهود ممتاز وأعمال رائعة ، وفكرة المعادلة عبقرية وأسمح لى أشارك فى هذه الفكرة الجميلة وأضيف معادلة أخرى ، وإن كانت معادلة صفيف لكن تؤدى الغرض أيضا أى لابد من الضغط على " CTRL+SHIFT+ENTER " =SUM(--ISNUMBER(--(ROW(INDIRECT(YEAR(A1)&":"&YEAR(B1)))&"-02-29"))) =SUMPRODUCT(--(TEXT(ROW(INDEX(A:A;A1):INDEX(A:A;B1));"mm-dd")="02-29")) والمعادلة الثانية يكفى الضغط على " ENTER " تقبل تحيات : أخيك وللمرة الثانية فكرة معادلتك رائعة " بارك الله فيك " أخى الحبيب " سليم " أسف لتطفلى على مرفقك ولكن أنا لاأشترك فى شئ إلا إذا عجبتنى الفكرة

السلام عليكم جرب هذه المحاوله تحياتي Rot+.rar

ايه الحلاوه دى مشاء الله وزادك علما

الأخ الخالدي أنا أرغب في معرفة طريقة تصفية ورقة عمل بالكود وكود النسخ أيضاً ، ولا أريد الاعتماد على Pivote Table

ولاثراء الموضوع ايضا ... والاشتراك مع الاساتذة الكرام في هذا الشعور والتعاون الاكثر من رائع اليكم الرابط التالي http://www.officena....ndpost&p=223202 وهو من احد ابداعات الأستاذ ابو نصار ( العيدروس ) الذي نفتقده منذ فترة به كود لازالة المسافات الزائدة بين الكلمات لأكثر من مسافه واحدة و ازالة المسافات في نهاية الإسم ارجو ان يفيد تقلبوا خالص تحياتي

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

استعمل المعادلة : (Trim(A1= حيث ان A1 هي المكان المقصود (الأسماء) واسحبها على باقي العامود

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

جرب الكود ده SELECT december.Zone, december.Category, december.SubCategory, december.Activity, december.[Cost Center], december.Total, Nz([Total Cum],0) AS Expr1, Sum([Total]+Nz([Total Cum],0)) AS [Total dece], Sum(Nz([total cum],0)+[total]) AS [cum dece] FROM novmber RIGHT JOIN december ON novmber.[Cost Center] = december.[Cost Center] GROUP BY december.Zone, december.Category, december.SubCategory, december.Activity, december.[Cost Center], december.Total, Nz([Total Cum],0);

السلام عليكم في شيت البيانات يتم وضع رابط الملف كـ Text في شيت العرض يتم استخدام دالة الرابط التشعبي مع مخرج دالة ال vlookup مما يتيح تغيير الربط بتغيير كل اسم http://www.up-00.com/?kEGKمركز تحميل الصور تحياتي

After Warm Greetings,,, When I try to copy and paste a schedule in MS Proj. I face a message " a pasting error occurred on ID 1 in the constraint type column " {click a constraint type in the list & then press enter } Any Suggestion or Comment Thanks Faisal

مبروووووك مقدما

جزاك الله عنا كل خير قمة الروعة والابداع

نسألكم الدعاء وجزاكم الله خيرا

أخى فى الله استاذى القدير /سعيد بيرم نسأل الله عز وجل لكم ولكل الساده القائمين على إدارة الموقع أن يوفقهم لما فيه الخير ومن تقدم الى تقدم بإذن الرحمن بارك الله فيكم وتقبل منى وافر الإحترام والتقدير

الله المستعان

مشكور أخي الكريم

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

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

السلام عليكم حسب ما فهمت من الطلب استخدم الكود التالي Sub kh_Add() Dim Lr As Long Dim i As Integer Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, "A").Value = WorksheetFunction.Max(Range("A2:A" & Lr)) + 1 For i = 0 To 4 Range("B" & Lr).Offset(i, 0).Value = Array("a", "b", "c", "d", "e")(i) Next End Sub تحياتي

اخي سعيد من يقوم بأرسال الايميل الخاص بالنشرة هو الاستاذ محمد طاهر وليس انا

وهذا اوفيس 2003 اسمك اوفيس 2003 يعني الاوفيس الذي تستخدمه 2003 تفضل offes2003.rar