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

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ضروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات وظهار كشف الحساب لكل مورد على حدى او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اخواد و مايضهره من جمال للفورم اما الثانية ما يضهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاص يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع WPFVBA.rar

هذه المعادلة في الخلية J3 واسحب نزولاً 5 صفوف ونفس العادلة على باقي النطاق =SUMPRODUCT(($A$1:$A$150=I$2)*($G$1:$G$150=$I3)) الملف مرفق 2020_sal.xlsx

وعليكم السلام 🙂 ومشاركة مع اخي عبد اللطيف 🙂 هناك أمر اسمه NZ ومعناه Null to Zero ، اي تحويل القيمة Null الفارغة الى صفر ، ونستعملها هكذا : A: NZ([اسم الحقل];0) او اذا كانت عندنا معادلة A: NZ([Balance]-[Qty];0) بالاضافة الى وجود طرق اخرى 🙂 جعفر

السلام عليكم ورحمه الله السادة الأعضاء المحترمين لقد قمت بشرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد طريقة بسيطة حتي يقدر يستفيد منه أي عضو الموقع غني بمواضيع مشبها ولكن لكل شيخ طريقة اترككم مع الفيديو رابط تحميل الملف https://drive.google.com/file/d/19PeZ77AKZ7Ki56ZiOpJaGcsqIjKv3wEZ/view?usp=drivesdk

أولا: أعتذر منك أخي إبراهيم لأنني أزعجتك بهذه الأسئلة أنا أسأل عن الروابط و ليس النماذج لا يا أستاذ ليس منصب على نموذج تسجيل الدخول أنا أستطيع التعامل جيدا مع النماذج من إرسال و إستقبال البيانات و كذلك الأزرار و مربعات النص و القوائم المنسدلة.. الموقع الذي أريد العمل عليه هو موقع محلي أو داخلي لا يشتغل من مكان آخر لذلك وضعت موقع أوفيسنا في المثال الأول نعم و أنا أستعمل IE 11 الخلاصة: لاستخراج الروابط الموجودة في الصفحة نغير في الكود الذي تقدمت به كالتالي: في مكان هذا السطر: WD.links(I).innerText نضع هذا السطر: WD.links(I).href لأن href هي المسؤولة على الروابط 2- الحدث Document_Complete يعمل بشكل ممتاز عندما طبقته على الموقع الخاص بي أو على موقع غوغل و العديد من المواقع الأخرى. 3- عدلت على هذا الكود ليقوم بالمرور على جميع العناصر و يستخرج جميع الروابط الموجودة. لأنني وجدته ينفذ المطلوب مع جميع الصفحات بشكل جيد و أصبح شكله كالتالي: Private Sub WebBrowser4_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next Dim WD As Object Set WD = Me.WebBrowser4.Document For i = 0 To WD.all.length WD.all.Item(i).target = "_self" Next i End Sub يعني أنا وصلت للمطلوب أو السؤال الذي وضعته في بداية الموضوع و الحمد لله و بارك الله فيك و في الأستاذ رمهان و جميع الإخوة المشاركين. و أردت أن أطبق فكرة الأستاذ رمهان كحل آخر و إثراء للموضوع و هي الحصول على رابط النافذة المنبثقة و نضعه مصدر لأداة ويب براوزر فقمت بالبحث و حصلت على التالي: 4- هذا الكود يقوم بعرض رابط الصفحة التي سوف تفتح في نفس الأداة باستخدام حدث BeforeNavigate2 Private Sub WebBrowser0_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) MsgBox URL End Sub بقي الآن هل نستطيع الحصول على الرابط الذي سوف يفتح في النافذة المنبثقة. و هذا مثال لما شرحته: webbrowser.accdb

تفضل اخي الكريم AutoComplete.mdb

حسب مشاركتك تم عمل المطلوب السعر يظهر عند اختيار نوع الاجمالي يظهر عند ادخال العدد اجمالي المبلغ يظهر ايضا عند ادخال العدد مغسلة المودة.xlsm

عليك السلام ورحمة الله وبركاته شاهد المرفق

وعليكم السلام 🙂 انا اعتذر اني ما انزلت برنامج اخوي احمد علشان اعرف شو اللي عمله 😞 لما تريد ان تطبع السجل الموجود في النموذج ، يجب ان: 1. تحفظ السجل (اذا كان سجل جديد ، او به تعديل) ، 2. في امر طباعة/معاينة التقرير ، يجب ان نضع رقم تسلسل السجل ID ، في قيمة Where في الامر ، هكذا : 'save the Record if any changes happened to the Record If Me.Dirty = True Then Me.Dirty = False 'open the Report to the ID of the Form DoCmd.OpenReport "normal rep", acViewPreview, , "[ID]=" & Me.ID انا لم اتطرق لأسماء الحقول 😞 جعفر متابعة_الائتمان_2.zip

اهلا بك فى المنتدى-فقط عليك استخدام هذه المعادلة =COUNTIFS($G:$G,$I3,$A:$A,$I$2) 2021.xlsx

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

وعليكم السلام ورحمة الله وبركاته استخدم الكود التالي =DSum("[مبلغ الباقي]";"[الوصل]";"[اسم العميل] ='" & [ اسم العميل] & "'") ولكن يجب ادخال اسم العميل في جدول الوصل تحياتي 1212.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Applicants - FF.rar تحياتي

لا حاحة للكود في مثل هذه الحالة تكفي هذه المعادلة (Ctrl+Shift+Enter) =IF(ROWS($K$4:K4)>ABS(COUNTIF($D$4:$D$100,"<>"&$G$4)-COUNTBLANK($D$4:$D$100)),"",INDEX($D$4:$D$100,SMALL(IF($D$4:$D$100<>"",IF($D$4:$D$100<>$I$4,ROW($D$4:$D$100)-ROW($D$4)+1)),ROWS($K$4:K4)))) الملف مرفق Copie.xlsx

هذا مثال من احد برامجي استخراج قيمة واذا كان فارغ يكتب صفر )IIF(ISempty اتمنى لك الفائدة

تفضل لك ما طلبت Sub t() Dim i, itotalrows As Integer Dim strRange As Range, strRange2 As Range Dim col As Long itotalrows = ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Row For col = 1 To 1 Do While i <= itotalrows i = i + 1 Set strRange = Cells(i, col) Set strRange2 = Cells(i + 1, col) If strRange.Text <> strRange2.Text Then Rows(i + 1).EntireRow.Insert itotalrows = ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Row i = i + 1 End If Loop Next col End Sub وهذا كود اخر اصغر Sub InsertBlankRows() Dim LastRow As Long Dim i As Long LastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = LastRow To 2 Step -1 If i = 1 Then 'Do nothing ElseIf Cells(i, "A") <> Cells(i - 1, "A") Then Cells(i, "A").Insert End If Next i End Sub ادراج 1صفوف.xlsm

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

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

مرحبا بك اخي احمد Sum فقط في النموذج الرئيسي لن تقوم بالجمع ولكن ستجمع سطر واحدفقط ستحتاج الى DSum وهذا طريقتها DSUM(fieldName; tbaleName; criteria) وفي هذه الحالة ستحتاج الى ضبط criteria واخونا صاحب الموضوع يقوم بعمل فلتر متعدد حسب التاريخ وحسب الكمبوبكس لذلك اسهل طريقة ان تضع مربع نص في تذييل النموذج الفرعي يقوم بعملية الجمع ثم تضع قيمته في النموذح الرئيسي وعند التصفية يعمل معك بكفاءة تحياتي

السلام عليكم مشاركه لاخى محمد حل اخر باستخدام Dsum =DSum("[ratb]";"[t1]") تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم جمع الرواتب.rar اخى محمد جزاك الله كل خير هو مينفعش استخدم sum فالرئيسى مباشره من غير استخدام الحقل الاضافى بالفرعى ؟

واياك اخي الكريم بالتوفيق دائما اخي تحياتي

شكر الله لك .. سبحان الله أشياء بسيطة تفوت أحيانا .. ربي يسعدك ..

شكر الله لك .. هو المطلوب .. لكن أخبرني ما الذي صنعت ؟؟

السلام عليكم في الاكسيس يمكنك استخدام SubForm = النماذج الفرعية وهي اكثر مرونة في الاستخدام من Grid View لانك تستطيع من خلال النماذج الفرعية التحكم بنوع كل حق ويمكنك ايضاً اضافة ComboBox او CheckBox بكل حرية ومرونة تحياتي

تمكنت من حلها وجزاكم الله كل الخير يا اساتذة

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

السلام علبكم تفضل اخي الكريم استحدم الكود التالي في حفل مجموع المبلغ الكلي الباقي =DSum("[مبلغ الباقي]";"[الوصل]";"[id] like '" & [id] & "'") test.rar

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي جلب مقطع من نص.xls

اشكركم بحثت وتوصلت للحل

عليك السلام ورحمة الله وبركاته جرب هذا لكن ترتيب التاريخ يصبح تنازلي test1.xlsm

تمام-جاري التجربة جزاكم الله خيراً اسف جدا-تمام كده من فضلك استاذ احمد عايز الصورة خلف الخلايا حتي اتمكن من العمل علي الخلايا وياريت لو تكون علامة مائية وشكرا

المعادلة =IF(A1="م";"م";"") أو المعادلة =IF(A1="م","م","") مع مراعاة الفاصلة أو الفاصلة المنقوطة تبع إعدادت الجهاز لديك ملف 1.xlsx

أخي الفاضل / أنا لم أستخدم أوفيس 2007 فاتضح لي أنه يجب تشغيل قائمة المطور أولاً شاهد الفيديو من هذا الرابط للوصول إلى تفعيل الماكرو https://sayid1pc.blogspot.com/2018/03/MacrosOffice.html

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

السلام عليكم تفضل اخي ان شاء الله يكون المطلوب بعد عمل استغلام للجدولين 1212.rar

اشكرك اخي عبد اللطيف جزيل الشكر

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

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

Sub test() Dim a, i, x With ActiveSheet x = Cells(4, 9) a = Range(Cells(4, 4), Cells(40, 4)) For i = 1 To UBound(a) If a(i, 1) = x Then: a(i, 1) = Empty Next .Cells(4, 12).Resize(UBound(a)) = a End With End Sub

نعم يمكن.. الشفرة التالية تطبع نص الرابط في النافذة السريعة Sub OPEN_LINKS() Dim WD As Object Set WD = Me.WebBrowser0.Document Dim I As Integer For I = 0 To WD.links.length - 1 Debug.Print WD.links(I).innertext Next End Sub

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

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

رائع جدا ... ما شاء الله عليك ننتظر رأي السيد : waheidi2005

بعذ اذن الاخ علي وزيادة في اثراء الموضوع هذا الكود Option Explicit Sub Insert_rows() Dim lra%, i%, k% Dim dic As Object, Itm lra = Cells(Rows.Count, 1).End(3).Row On Error Resume Next Range("A1:A" & lra).SpecialCells(xlCellTypeBlanks). _ EntireRow.Delete On Error GoTo 0 lra = Cells(Rows.Count, 1).End(3).Row Set dic = CreateObject("Scripting.dictionary") For i = 1 To lra dic(Range("A" & i).Value) = _ Range("A" & i).Row Next For Each Itm In dic.items Rows(Itm + 1 + k).Insert k = k + 1 Next End Sub الملف مرفق Insert_Ro.xlsm

اخي الكريم كل شيء ظاهر بالتقرير فقط قم باضافة المصاريف الادارية

وعليكم السلام -الأمر فى غاية البساطة نبدأ بأول جزء بالمعادلة وهو Sum وهذه معادلة للمجموع كما تعلم اما بالنسبة Int وهذا لأن التاريخ مرتبط بوقت وكما تعلم ان الخلية A2 وهى اول خلية بها تاريخ ثم علامة الطرح ثم بعد ذلك نكتب المعادلة Weekday لحساب الأيام بين تاريخين اما الأرقام التى بين قوسين التنصيص وهى ارقام الأيام المراد حسابها بين التاريخين وعدم ذكر الرقم 1 والرقم 7 لأن 1 يعنى يوم الأحد رقم 7 يعنى يوم السبت وهذه الأيام التى تريد تجنب حسابها بين التاريخين اى حساب الفرق بين التاريخين بدون يومى السبت والأحد وباقى المعادلة اعتقد انه سهل وهو طرح التاريخ الكبير الموجود بالخلية B2- التاريخ الأصغر الموجود بالخلية A2 ثم بعد ذلك القسمة على 7 وهى عدد أيام الإسبوع واخيرا نطرح رقم 1

الاخ / شوقي ربيع اكيد العمل ممتاز كالعادة ولا تحتاج لتقييم نورت المنتدى بعد غياب

تفضل اخى الكريم يمكنك استخدام هذه المعادلة =SUM(INT((WEEKDAY(A2-{2,3,4,5,6})+B2-A2)/7))-1 1معادلة لطرح التاريخ والوقت معا مع عدم احتساب ايام الاجازات.xlsx

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

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