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

كيف حليتها يا بوعبدالله يبدوا انك ازلت حقول الربط مازالت المشكلة موجودة في الجدولين يجب اعادة ضبط الحقول والعلاقة بينها انظروا التعديل اجازات2.rar

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

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

اخى الكريم اضف هذه الوحدة النمطية Public Function defaultvalue () As String Dim strdefaultvalue As Integer strdefaultvalue = [Forms]![fbillcr]![acc_code] defaultvalue = strdefaultvalue End Function وفى ز ر فاتورة جديدة اضف هذا الكود Me.acc_code = defaultvalue()

بارك الله بك اخي الصقر

اخى الكريم والله انا بحاول فهم طلبك واخير فهمته بصعوبه وذالك لان الطلب غريب كيف يكون للطالب الواحد اكثر من درجه !!!! المهم بدون دخول فى تفاصيل جرب المرفق هل هو ما تريد تقبل تحياتى تحويل المعادلة الى كود.zip

بسم الله الرحمن الرحيم " وَذَا النُّونِ إِذ ذَّهَبَ مُغَاضِبًا فَظَنَّ أَن لَّن نَّقْدِرَ عَلَيْهِ فَنَادَىٰ فِي الظُّلُمَاتِ أَن لَّا إِلَٰهَ إِلَّا أَنتَ سُبْحَانَكَ إِنِّي كُنتُ مِنَ الظَّالِمِينَ (87) فَاسْتَجَبْنَا لَهُ وَنَجَّيْنَاهُ مِنَ الْغَمِّ ۚ وَكَذَٰلِكَ نُنجِي الْمُؤْمِنِينَ (88)" سورة الانبياء فإن لقول العبد: "لا إله إلا أنت سبحانك إني كنت من الظالمين" فضلًا عظيمًا وخيرًا كثيرًا؛ فقد قال رسول الله صلى الله عليه وسلم: دَعْوَةُ ذِي النُّونِ إِذْ دَعَا وَهُوَ فِي بَطْنِ الْحُوتِ لَا إِلَهَ إِلَّا أَنْتَ سُبْحَانَكَ، إِنِّي كُنْتُ مِنَ الظَّالِمِينَ، إِنَّهُ لَمْ يَدْعُ بِهَا مُسْلِمٌ فِي شَيْءٍ قَطُّ إِلَّا اسْتَجَابَ اللَّهُ لَهُ بِهَا. رواه أحمد في المسند, والحاكم في المستدرك وغيرهما, وصححه تفضل اخى الكريم الحل من خلال الفورم مباشرة تقبل تحياتى تحويل المعادلة الى كود.zip

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

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

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

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

استبدل Range("C5:l1000").ClearContents بـ Range("C5:D1000").ClearContents Range("F5:F1000").ClearContents Range("H5:l1000").ClearContents

الاول يقول اشتر بدرهم وفصّل بدرهمين انا ذكرت ان مربعات الخيار لا فائدة منها وفي النتيجة لا يظهر الحل الذي تم اختياره انظر كيف تم تعديل المثال : اربط جدول f باي برنامج تريد mathtest2.rar

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

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

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

=B1&CHAR(10)&B2&CHAR(10)&B3

تفضل تم التعديل أرجو أن يكون هو المطلوب تمنياتى بالتوفيق اجازات.rar

المرفق الأول به تنفيذ لهذه الفكرة بالمشاركة رقم 4 تقريبا ولكن سيكون لزاما انشاء جدول خاص ببيانات المسارات لجلب البيان المطوب منه

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

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

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

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

تم رفع المرفق هنا لعلي اجد الوقت لمساعدتك او يسبقني احد الاعضاء الكرام اجازات.rar

بسم الله الرحمن الرحيم اليوم اقدم لكم بحث متقدم للبحث عن الاسم بالحرف او الكلمة او الجملة وعرض النتائج في كمبوبوكس والليست بوكس وايضا تم اضافة امكانية تحديد الاسم من الليست بوكس وعمل شيت بنفس الاسم المحدد داخل اللسيت كما يمكنك ايضا من الذهاب الى شيت الاسم المحدد داخل الليست بوكس الكود المستخدم داخل الملف كود البحث Private Sub ComboBox1_Change() Dim a() Dim b, c, d, e Dim Ws As Worksheet: Set Ws = Sheets("Sheet1") Dim l As MSForms.ComboBox: Set l = Me.ComboBox1 Dim i As Long: i = 0 e = Ws.Range("a40000").End(xlUp).Row a = Ws.Range("A2:a" & e).Value With Me.ComboBox1 .List = a .ListRows = 20 .MatchEntry = fmMatchEntryNone .TextAlign = fmTextAlignCenter End With Set b = CreateObject("Scripting.Dictionary") d = "*" & UCase(Me.ComboBox1) & "*" For Each c In a If UCase(c) Like d Then b(c) = "" Next c Me.ComboBox1.List = b.keys While i < l.ListCount If "" = Trim$(l.List(i, 0)) Then: l.RemoveItem (i): Else i = 1 + i Wend ListBox1.AddItem ListBox1.List = ComboBox1.List End Sub كود اضافة شيت بالاسم المختار من الليست بوكس Private Sub CommandButton1_Click() Dim Ws As Worksheet Application.ScreenUpdating = False Application.EnableEvents = False On Error Resume Next Set Ws = Worksheets(CStr(ListBox1.Text)) On Error GoTo 0 If Ws Is Nothing Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = CStr(ListBox1.Text) Sheet1.Activate Set Ws = Nothing End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub كود الذهاب الى شيت الاسم المختار Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim Ws As Worksheet On Error Resume Next Set Ws = Worksheets(CStr(ListBox1.Value)) Ws.Activate Set Ws = Nothing End Sub لتحمل البرنامج اضغط هنا تقبلو تحياتي ياسر العربي

السلام عليكم اخي العزيز لقد حلت المشكلة اذ انني قمت باستدعاء الدالة في زر فاتورة جديدة وفي الدالة showdata1() بارك الله فيك يا اخي العزيز وحفظك الله واطال الله في عمرك مع الشكرالجزيل

مثالك اطلعت عليه من جهاز آخر فاعذرني وليش ما يضبط ؟ طابعة باركود تستخدم رولة مقاس عرض 80ملم او 58 ملم صحيح ؟ اضبط تقريرك مثل ما بينت لك بالضبط حاول تفتح اعداد الصفحة وتشوف الهوامش والاطوال يجب وضروري تكون طابعة الباركود هي الافتراضية عند تصميم التقرير

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

لا اله الا انت سبحانك انى كنت من الظالمين

تفضل Book1.rar

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

حل آخر بشكل مباشر بدون الاستعانة بخلية مساعدة لجمع الأسهم .. المعادلة الأولى لحساب عدد الأسهم =MOD(SUM($E$6:$E$9),24) المعادلة الثانية حساب عدد القراريط =MOD(SUM($F$6:$F$9,INT(MOD(SUM($E$6:$E$9)/24,24))),24) المعادلة الثالثة لحساب الأفدنة =SUM($G$6:$G$9,INT(SUM($F$6:$F$9,INT(MOD(SUM($E$6:$E$9)/24,24)))/24),INT(SUM($E$6:$E$9)/576))

السلام عليكم إخواني سليم وعبد السلام جزيتم خيراً على الحلول المتميزة ولكن لاحظت اختلاف في النتائج فقمت بحساب العملية بشكل يدوي للتأكد من صحة المعادلات المقدمة عدد الأسهم = 39 سهم ( بطرح 24 نحصل على 15 سهم متبقي .. ولا خلاف في النتائج المقدمة من الطرفين) عدد القراريط = 47 قيراط (وبإضافة القيراط الذي حصلنا عليه من الأسهم يكون الإجمالي 48 قيراط) .. وفي هذه الحالة يتم تحويل 48 قيراط إلى عدد 2 فدان (مما يعني أن عدد القراريط سيكون صفر وليس 24 أو 23) عدد الأفدنة = 103 فدان + عدد 2 حصلنا عليه من النقطة السابقة مما يعني 105 فدان ، وليس 104 بناءً على ما سبق ... فضلت أن أقوم بتحويل كل عمود من الأرقام إلى أسهم (ومن خلال إجمالي الأسهم يمكن بناء المعادلات ببساطة) في أي خلية ضع المعادلة التالية والتي ستقوم بحساب وجمع إجمالي الأسهم لكل عمود ، حيث يتم ضرب الأسهم * 1 ، والقيراط * 24 ، والفدان * 576 ( 24 سهم * 24 قيراط) =SUM(($E$6:$E$9*1),($F$6:$F$9*24),($G$6:$G$9*576)) والمعادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter ******************** ننتقل لآخر جزئية وهي المعادلات التي تقوم بحساب عدد الأسهم =INT(MOD($E$3,24)) باعتبار أن الخلية E3 هي الخلية التي وضعت فيها إجمالي الأسهم للثلاثة أعمدة ----------------------------- والمعادلة التالية للحصول على عدد القراريط =INT(MOD($E$3/24,24)) ----------------------------- والمعادلة التالية للحصول على عدد الأفدنة =INT($E$3/576) أرجو أن يكون الناتج صحيحاً إن شاء الله

وفقك الله لما يحب ويرضى أخي العزيز عماد غازي

جمع مساحات.rar

لعله المطلوب جمع مساحات SALIM.rar

أخي الكريم بومتعب إليك الملف التالي عله يفي بالغرض إن شاء الله اضغط Alt + F8 من لوحة المفاتيح ، واختر الإجراء الفرعي المسمى Collect_Data ثم انقر على Run لتنفيذ الكود حمل الملف من هنا

السلام عليكم أخي الغالي والعزيز سيف الدين أبو باسم الطريقة التي تكلمت عنها هي صحيحة وليس فيها اي شك كلام أخي وحبيبي ياسر خليل صحيح لكن الحماية المتكاملة لملف أكسيل لاتكون فقط في معرفة الرقم التسلسلي للوحة الام وإنما في ثلاث حلول مجمعة مع بعض 1- حماية الملف بالرقم التسلسلي 2-تحويل ملف اكسل الى ملف تنفيذي بصيغة exe 3-اخفاء واجهة اكسل التطبيقة وظهور واجهة فورم بدل عنها 4-ربط ملف الاكسل بواجهة مبرمجة على الفيجوال بيسك وهذا الاخير يعتبر اختياري الطريقة الاولى والثانية والثالثة تكفي لأن يكون برنامجك محمي بشكل قوي للمستخدم المبتدئ والمتوسط وحتى المتقدم أتمنى أن تكون الفكرة وصلت لكي تشاهد الحماية الذي ذكرتها لك يمكنك مشاهدة هذا الموضوع برنامج شؤون الموظفين والمرتبات بحلته وشكله الجديد والسلام عليكم

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

استبدال v = v + Val(Cel) بـ v = v + 1

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

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

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

أخي العزيز محمد علي سالم شرفتنا بتواجدك معنا في الموضوع سأقوم بشرح بسيط لكود الأستاذ سليم علها تكون البداية لك Sub xx() Columns.Hidden = True Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False End Sub السطر الأول يبدأ بكلمة Sub يليها اسم الإجراء واسم الإجراء أنت حر فيه سمه بما تريد وأفضل أن تكون التسمية معبرة عن الهدف من الكود مثلاً UnhideSpecificColumns .. وفي آخر سطر قفلة الكود بالجملة End Sub ما بين السطرين البداية والنهاية هذا هو لب الكود (ودا ملوش علاقة بالسوداني .. ولا المصري !!) السطر الأول في الكود يقوم بإخفاء الأعمدة كلها ...أينعم حيث أن الخاصية المستخدمة هي الخاصية Hidden وتعني مخفي .. إذاً ترجمة السطر الأعمدة. مخفي =صح يعني إخفاء كل الأعمدة لو غيرنا القيمة True إلى False تفتكر ايه اللي ممكن يحصل ؟؟ معروف إن True عكسها False ..إذاً سيقوم السطر في هذه الحالة بإظهار كل الأعمدة السطر الأول إذاً يقوم بإخفاء كل الأعمدة مرة واحدة (دفعة واحدة وفي نفس واحد) ثم السطر الثاني يأتي ليحدد اعمدة يعينها للتعامل معها وإظهارها .. وهنا أخونا الغالي سليم استخدم أول خلية في كل عمود من الأعمدة المراد إظهارها ، فالخلية a1 تمثل العمود الأول .. المهم جمع الخلايا في نطاق واحد كما هو مشار في الكود بهذا الشكل Range("a1,c1,e1,j1,o1,z1") ثم استخدم الخاصية EntireColumn والتي تتعامل مع العمود بالكامل ثم الخاصية Hidden والتي تحدثنا عنها ، وهنا إشارة لكل الأعمدة المطلوبة وفي النهاية تم وضع القيمة False لها لإظهارها دون سواها أرجو أن أكون وفقت في توصيل المعلومة تقبل تحياتي

اخواني في المنتدى لماذا لا تدعون المستخدم يختار عدد الصفوف و الاعمدة المطلوبة ابتذاءً من الخلية المحددة (بدل ان يدخل الى الكود و يقوم بهذا الشيء) عبر هذا الكود Sub CopyRowActiveCell() Dim WS As Worksheet, SH As Worksheet, LR As Long Set WS = Sheets("Sheet1"): Set SH = Sheets("Sheet2") LR = SH.Cells(Rows.Count, 1).End(xlUp).Row myrow = Application.InputBox("حدد عدد الصفوف", Default:=1) mycol = Application.InputBox("حدد عدد الاعمدة", Default:=1) ActiveCell.Resize(myrow, mycol).Copy SH.Cells(LR + 1, 1).PasteSpecial (xlValues) Application.CutCopyMode = False End Sub