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

بارك الله فيك أخي عبد الله ولإثراء الموضوع ضع هذه المعادلة في الخلية G3 =IF($B3<>"",DATE(YEAR($C3)+COLUMN(A$1)*5,MONTH($C3),+DAY($C3)),"") وانسخ المعادلة أفقيا ورأسيا كما تريد

السلام عليكم بعد اذن الاخوه الكرام جزاهم الله خيرا استاذى محمد حسن جرب هذا الحل تحياتى =SUMPRODUCT(SUBTOTAL(3;OFFSET($D$11:$D$25;ROW($D$11:$D$25)-MIN(ROW($D$11:$D$25));;1));($G$11:$G$25=$D27)*($I$11:$I$25)) طلب دالة تحدد كمية الصنف بعد التصفية.rar

يمكنك ذلك عن طريق الطريقة الاولى : اختيار الخط AGA Arabesque ثم كتابة حرف ال e صغير والنتيجة e كم يمكنك معرفة باقي الاختصارات بتجربة كل حرف فمثلاً ال a يكتب q وهكذا يمكنك تجربة باقي احرف لوحة المفاتيح الطريقة الثانية : عن طريق التبويب ادارج رمز ثم المزيد من الرموز ثم ايضاً اختيار نوع الخط AGA Arabesque واختيار النص الذي تريده الطريقة الثالثة : يمكنك ذلك عن طريق كتابة الحروف fdfa ثم بعدها alt+x وتكون النتيجة ﷺ ولاضافة التشكيل لها يتم اختيار الخط Sakkal Majalla وتكون النتيجة ﷺ

تفضل اخي الكريم هذا المطلوب يمكنك تنفيذ نفس الحل على الملف الخاص بك شيت-متابعه-اقامات-العمال-1.rar

ان شاء الله اخي اعمل عليها

بسم الله الرحمن الرحيم تطرق الكثير من المبرمجين إلى موضوع التفقيط وهو تحويل الأرقام إلى كلمات عربية ولكني كمعلم لمادة اللغة العربية لم أجد من هذه الدوال ما يتوافق مع قواعد اللغة العربية قاعدة كتابة الأعداد العربية بطريقة مضبوطة وصحيحة وتجد في هذا الرابط شرح مبسط للعدد وتمييزه http://www.reefnet.g.../AdadMadoud.htm وبفضل الله قمت ببرمجة دالة تقوم بتحويل الرقم إلى كلمات عربية مضبوطة تماماً وموافقة لجميع قواعد كتابة العدد في اللغة العربية تجدها هنا https://officena.net/team/mas/tafkeet وتم برمجة هذه الصفحة بلغة php وهذا الإصدار الجديد يعتمد فقط علي جافاسكريبت https://www.mr-mas.com/p/tafqeet.html وإذا لاقى الموضوع قبولا وإعجابا فسوف أعرض عليكم الكود الخاص بهذه الدالة أخوكم محمد صالح مبرمج بأكثر من لغة برمجة ومصمم ومطور مواقع

أخواني وأخواتي الأعزاء تحية طيبة وبعد ،،،،،،،، أقدم اليوم إليكم برنامج الرواتب والموارد البشرية حسب قانون الخدمة المدنية الفلسطيني قبل التعديل ، وأتمنى أن تستفيدوا من الأفكار والبرمجة الموجودة بداخله حيث أنه مفتوح المصدر. توجد به حركة الرواتب من 30/4/2004 وحتى 31/12/2005 حيث كان الاحتساب يبدأ بتاريخ نهاية كل شهر مثال ذلك 30/4/2004 أو 31/5/2004 أو 30/6/2004 أو 31/12/2005 وهكذا فإذا أردت طباعة أي استمارة راتب مثلاً كل ما عليك أن تدخل رقم الموظف في خانة من .. الى .. وتاريخ الاحتساب. أتمنى لكم التوفيق Salaries_2005.rar

هل هذا طلبك اخى الكريم Database test.rar

تفضل اخي الكريم برنامج الديون.rar

السلام عليكم في الاستعلام ضف عمود جديد وضع فيه الكود التالي Nz(DSum("nz([مدين])-nz([دائن])";"كشف حساب";"[المعرف]<=" & [المعرف]);0) بحيث المعرف هو الرقم التسلسي ضمن الجدول مدين ودائن اسم حقلين سيجمع المدين ويطرح الدائن كشف الحساب اسم الاستعلام الذي تستخدمه عندي لك عدة ملاحظات لتحصل على هذه النتيجة 1- الرقم التسلسي يجب ان يكون متسلسل بشكل صحيح ولا يوجد أي خطأ في الترتيب أو نقصان أرقام أقترح عليك إن تنشى جدول يحوي نفس حقول كشف الحساب ثم تقوم بتصدير حركة حساب الزبون فقط لهذا الجدول طبعا الجدول الجديد يجب أن يحوي معرف مستقل عن جدول اليومية وتستخدم هذا المعرف في الدالة السابقة 2- كشف الحساب هذا الاستعلام الذي سيعطيك النتيجة المرجوة يجب ان يكون مصدره الجدول الجديد 3- الجدول الجديد تستطيع نقل البيانات إليه عن طريق استعلام الحاق وتضع الشرط اسم الزبون وتحذف منه باستعلام حذف أتمنى أن أكون قد أوصلت الفكرة لك

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

الله يسلمك أستاذ محمد ده واجبنا وربنا يوفقك

انظر هذا الموضوع يتحدث عن مثل مطلوبك http://www.officena.net/ib/index.php?showtopic=49961#entry305187

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

السلام عليكم شخصيا استخدم نسخة أوفيس فرنسية ولا تحوي اصلا RightToLeft في خصائص الفورم لذى استخدم الكود Me.RightToLeft = True لاكن يجب استخدامه دائما أول امر يقوم به الفورم عند الاقلاع او بالاحرى قبل تعبئة اليست بوكس نحن نعلم ان الحدث Initialize هو اول حدث يبدأ التنفيذ عند تشغيل الفورم حتى انه يبدأ تنفيذ الأكواد التي به قبل ضهور الفورم لاكن للاسف لا يمكن ان نضع الكود الخاص بمجاذات الفورم هنا في هذه الحالة الكود نفذ بالفعل اقصد كود المحاذات للاسف vba امكانياته محدودة لان سرعة تنفيذ الاكواد في حدث Initialize تخلي اليست بكوس( لاتشعر) ان صح التعبر بان الكود نفذ و تبقى مجمدة على طبيعتها الاولى لاكن لو كان عندنا ملتبيج مثلا في الفورم وكانت اليست في احد باجاته لو تغير الباجة وتعود الى الاولى ستلاحظ ان اليست تحولت الى اليمين المهم لتفادي ماسبق ذكره اعتبر ان وضع الكود بداية حدث Activate هو افضل طريقة مع مراعات عدم تعبئة اليست قبل تنفيذ كود المحاذات تحياتي

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

تم التعديل على الملف حاضر ياسيدي بلاش القوائم المنسدلة دي مجاميع 1 SALIM.rar

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

ملف مميز جدا استاذ سليم بارك الله فيك

هيفتح طبعا من اول وجديد بس انا بفكر اربطه باسم الكمبيوتر نفسه

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

تفضل أخي الكريم Sub AutoFill() With Range("B6", Range("B" & Rows.Count).End(xlUp)) .SpecialCells(2).Offset(, 1).Formula = [C6].Formula .SpecialCells(2).Offset(, 2).Formula = [C6].Formula End With End Sub إذا أعجبك الحل لا تنسى أن تحدد المشاركة كأفضل إجابة ليظهر الموضوع مجاب

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

فتح ملف وورد من الاكسل من خلال الكود التالى ( كود عادى ) Sub Open_Word_Document() 'Opens a Word Document from Excel Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True Application.ScreenUpdating = False Application.DisplayAlerts = False 'عدل مسار واسم وامتداد الملف الذى تريد فتحه objWord.Documents.Open "H:\test.docx" objWord.Activate Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub عدل مسار واسم وامتداد الملف الذى تريد فتحه أما عن الأستفادة من مميزات وتنسيقات الاكسل سأتركها لك لتكتشف ذلك بنقسك !!!

تفضل اخي هل هو المطلوب Age Calculator- #of years at work.rar

اخي الفاضل شوف الجل اللي يتناسب مع طلبك وحدد افضل اجابة

استاذى الحبيب السطر المذكور غير واضح لا بد من ارفاق الملف حتى يتثنى لنا شرح ما تريد ولكن على حسب ما فهمت من سؤالك Dim lr As Range set lr= Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) مثال أنا عندى بيانات ممتلئه بالخلايا A1:A5 وعايز البيانات الجديده تنزل فى الخلية a6 فلازم اعرف اخر سطر به بيانات وهو a5 ثم اضيف له 1 لنصل الى A6 هنا LR هى متغير وقلنا انه يساوى (Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0 (وذالك حتى يتم كتابة LR فىما بعد بالكود بدلا من الجمله دى كلها (Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0 اول جزئية وهى (Cells(Rows.Count, 1 cells تعنى الخليه واى خلية عند قرائتها لابد من اسم العمود ورقم الصف مثلا A1 تعنى الخلية اللى موجوده بالعمود A والصف 1 فى الكود انا عايز اشير الى اخر خليه بها بيانات فتنسيق كتابة الخليه كالتالى (العمود,الصف) Cells لذالك كتبنا (Cells(Rows.Count, 1 هنا رقم الصف غير معروف فقلنا بالكود Rows.Count اى عمل احصاء لعدد الخلايا الممتلئه بالبيانات فى العمود وطبعا العدد هيكون 5 العمود هو رقم 1 وممكن يكتب هكذا "A" اسم العمود داخل علامات تنصيص ( اذن هناك خيارين كتابة رقم العمود مثل 1 أو كتابة اسم العمود مثل "A" ) النتيجة طبقا للسابق هى (5,1) Cells ( يعنى الخلية الموجوده بالصف 5 والعمود 1 ) وهى A5 طيب انا بلف دا كله علشان اوصل الى الخلية A5 ليه علشان اقول له هى اخر خليه بها بيانات فنقوم باضافه (End(xlUp. Cells(Rows.Count, 1).End(xlUp) طيب دلوقتى الكود فهم ان اخر خليه بها بيانات هى A5 أنا بقى عايز انزل البيانات الجديده بالخلية A6 فبقوم بأضافه (Offset(1, 0. (Offset(1, 0. يعنى من الخلية A5 تحرك بمقدار صف واحد ونفس العمود وهو بمثالنا A وبكدا الكود هيوصل الى الخلية A6 السطر هيكون كدا Dim lr As Range set lr= Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) اتمنى اكون وفقت بالشرح وهى استفسار انا تحت امرك تقبل تحياتى

عفواً اخواني مافهمت المطلوب ممكن كنت بقرأ من الشمال لليمين اعذرو جهلي

تفضل اخي الكريم اذا الملف ادى الغرض حدد افضل اجابة مثال.rar

تفضل اخي الملف تم تجهيزه بالتنسيق الشرطي الجزء الاول من المطلوب fouad.rar

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

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

اخي قم بتشغيل الماكرو عن طريق امان الماكرو

تفضل أخي الكريم شوف الملف اذا هو المطلوب قم بتحديد افضل اجابة كي تظهر انها مجابة برنامج الجرد 2015 (Autosaved).rar

بعد اذن استاذي ابا البراء يمكنك استخدام خاصية البحث قبل مشاركة موضوع ويمكنك مراجعة الموضوع التالي ان شاء الله تجد ضالتك http://www.officena.net/ib/index.php?showtopic=59619&hl=%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE

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

تفضل اخي هل هذا ماتبحث عنه برنامج بحث.rar برنامج بحث.rar

ارسل الملف الذي تعمل عليه حالياً ووضح المطلوب بالظبط

في هذا الكود لا يسمح لك الدكتور اكسل بادخال قيمة الخلية في نطاق معين الا مرة واحدة فقط فحــذار من الأخطاء protect entry.rar

التعديل الثاني : الان يتم التطبيق على الجدول الذي تقف فيه دون التقيد بكونه الجدول الاول ، اي توقف فى اي خلية و شغل الماكرو نفسه mytable تم الاستعانة بكود وجته على النت و مشار الي مصدره فى الكود ، حيث يقوم بخدعة بسيطة لمعرفة رقم الجدول و هي انه ينشأ علامة مرجعية مؤقتة ، يبحث عن رقم الجدول الذي يحوي هذه العلامة ، و هى فكرة بسيطة و ماكرة ، حيث لا يوجد كود مياشر لذلك و المشكلة الثانية تم التغلب عليها ايضا ، و قد كانت انه لم يكن من الممكن اختبار مدخلات الجدول كارقام او تحويلها الي ارقام و تبين ان السبب انه عند استخراج البيانات من الجدول كان ياتي معها مسافة ثم علامة فى النهاية و تم التغلب عليها عن طريق استخراج الارقام فقط منها عن طريق دالة Left ثم تحويلها الي ارقام لاختبارها و فى هذا المثال لا يوجد قيود على الارقام سوى انها ارقام صحيحة و الان فى المثال المرفق : ضع المؤشر فى اي جدول ، ثم اضغط ALT+F8 و شغل الماكرو mytable سيتم تلوين كافة الخلايا فى هذا الجدول فقط باللون الاخضر اذا كانت قيمتها اكير من 40 و يمكن طبعا تعديل الشرط و اللون بسهولة مرفق المثال TableFormat02.rar و هذا هو الكود Public mytableno As Integer Sub mytable() Dim strCellText As String Dim myrow, mycol, mytable As Integer Call FindTableNumber myrow = ActiveDocument.Tables(mytableno).Rows.Count mycol = ActiveDocument.Tables(mytableno).Columns.Count For i = 1 To myrow For J = 1 To mycol With ActiveDocument.Tables(mytableno).Cell(i, J).Range Dim cellval As Integer If Len(.text) > 2 Then cellval = CInt(Left(.text, (Len(.text) - 2))) 'Debug.Print cellval If cellval > 40 Then .Font.ColorIndex = wdBrightGreen End If End If End With Next Next End Sub Sub FindTableNumber() 'based on code from this source http://wordribbon.tips.net/T010897_Index_Number_for_the_Active_Table.html Dim J As Integer Dim iTableNum As Integer Dim oTbl As Table Selection.Bookmarks.Add ("TempBM") For J = 1 To ActiveDocument.Tables.Count Set oTbl = ActiveDocument.Tables(J) oTbl.Select If Selection.Bookmarks.Exists("TempBM") Then iTableNum = J Exit For End If Next J ActiveDocument.Bookmarks("TempBM").Select ActiveDocument.Bookmarks("TempBM").Delete 'MsgBox "The current table is table " & iTableNum mytableno = iTableNum End Sub

تفضل أنقر علي أي من التالي دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم وهي واحدة من كثييييير من إنتاج أخونا وأستاذنا أبوتامر ، رده الله إلينا سالما وإذا تختصر الوقت وتذهب لأي من مواضيعه ، ستجد في توقيعه بالأسفل الكثير مما يهمك ولاننسي العبقري خبور خير وهذه واحدة من إبداعاته دالة إستخراج اسم ولي الامر