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

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

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب (الجدول الصغير يتمدّد بمعادلاته حسب عدد الأسماء) ويبقى فقط "المجموع العام" في السطر الأخير (الذي يلي سطر "الإجمالي")... يمكن تعديل المعادلات في العمود J حيث تجد "المجموع العام" في الخلية أسفل الجدول من هذا العمود، لأنه بالمعادلات لا يمكن دمج الخلايا... وقد استعنت بعمود إضافي G لونته بالأخضر لعد عدد الأسماء المختلفة (ضروري لعمل المعادلات بصفة جيدة)... طبعا يمكن جدا عمل هذا الجدول كليا باستعمال الأكواد، أترك ذلك لمن يريد أن يشارك في الموضوع ويفيدنا ويفيد صاحبه بكود (وبه يتم دمج الخلايا للمجموع العام) يقوم مقام المعادلات... بن علية المرفق : test666.rar

أخي الحبيب تويوتا (سوق على مهلك سوق ..بكرة الدنيا تروق) أولا .. في الملف المرفق تم تسمية النطاق من A1 إلى آخر خلية بها بيانات ..أي أن النطاق غير ثابت (ديناميكي) ، تم تسمية النطاق MyNames =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1) تم استخدام الدالة Offset ، والدالة بها بارمترات : الاول بداية المرجع للنطاق و هو هنا A1 ، والثانيوالثالث خاص بعدد صفوف الإزاحة وعدد أعمدة الإزاحة وهنا القيمة 0 ، حيث أن العمل داخل النطاق ولن تتم عملية الإزاحة ، والرابع ارتفاع النطاق وهنا تم استخدام الدالة Counta لتقوم بعد كل الخلايا التي بها بيانات ، والخامس عرض النطاق وهو 1 لأنه في عمود واحد فقط .. وشرح الكود مرفق هنا Private Sub Worksheet_Change(ByVal Target As Range) 'تعريف المتغير Dim lReply As Long 'هذا السطر لتجنب وقوع خطأ ، إذا تم التعامل مع أكثر من خلية لا يتم تنفيذ الكود If Target.Cells.Count > 1 Then Exit Sub 'هنا التعامل مع هذه الخلية فقط والتي عنوانها D1 If Target.Address = "$D$1" Then 'إذا كانت الخلية الهدف فارغة لا يتم تنفيذ الكود ، ويتم الخروج من الإجراء الفرعي If IsEmpty(Target) Then Exit Sub 'في حالة إذا كان الاسم المدخل في الخلية الهدف جديد يتم تنفيذ التالي ، وهنا اعتمد على دالة العد لمعرفة وجود الاسم من عدمه If WorksheetFunction.CountIf(Range("MyNames"), Target) = 0 Then 'إذا كان الاسم غير موجود بالقائمة يتم ظهور رسالة تفيد بذلك ، وبها اختيار نعم أو لا lReply = MsgBox("Add " & Target & " to list", vbYesNo + vbQuestion) 'إذا كان الاختيار بنعم If lReply = vbYes Then 'يتم من خلال هذا السطر إضافة الاسم الجديد في آخر النطاق في العمود الأول Range("MyNames").Cells(Range("MyNames").Rows.Count + 1, 1) = Target End If End If End If End Sub

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

الحلقة الثانية عشر *************** السلام عليكم ورحمة الله وبركاته ... إخواني الكرام ..ها أنا قد عدت إليكم بعد طول عياب (والعود أحمد .. مش ياسر ولا حسام) نبدأ حلقة جديدة معكم من حلقات افتح الباب ، وهات لي معاك كيلو كباب (عشان لسه العشا مجهزش) نكمل في هذه الحلقة بإذن الله مشوار الدوال الخاصة بالتعامل مع النصوص - * - كنا اتكلمنا عن الدالة LCase الخاصة بتحويل أحرف اللغة الإنجليزية إلى حروف صغيرة ، والدالة UCase الخاصة بتحويل أحرف اللغة الإنجليزية إلى حروف كبيرة .. كلنا يعرف إن كتابة الأحرف باللغة الإنجليزية ليها تعامل خاص ..بمعنى آخر لو بنكتب اسم شخص ، مش مقبول إن يكون كل الحروف كبيرة ولا كل الحروف صغيرة ، إنما بيكون الحرف الأول في كل اسم حرف كبير والحروف المتبقية حروف صغيرة زي كدا Yasser Khalil طيب هل فيه دالة تكفي لهذا الغرض ؟ نعم .. روح لورقة العمل الأول واكتب اسمي (اسمي الأول جرب عليه وبعدين جرب على اسمك .. شايف حسام مش معبرني وبيكتب اسمه هو الأول !!) اكتب في الخلية A1 مثلاً yasser khalil كل الحروف Small أي حروف صغيرة ، وفي الخلية المجاورة B1 اكتب المعادلة التالية : =PROPER(A1) الناتج إن الحرف الأول في اسم Yasser والحرف الأول في اسم Khalil أصبحا كلاهما Capital - والحمد لله - نرجع لمحرر الأكواد .. ما هي الدالة البديلة لهذه الدالة في ورقة العمل ؟ هصدمك وأقولك مفيش .. وبعدين أفوقك من الصدمة وأقولك متقلقش فيه طريقة ..وطريقة ممتازة لاستخدام معظم الدوال وليس كلها في محرر الأكواد .. Sub ProperFunction() Dim strName As String strName = Range("A1").Value Range("B1").Value = Application.WorksheetFunction.Proper(strName) End Sub قمنا بالإعلان عن متغير نصي ، وقيمته هي قيمة الخلية A1 ، وفي السطر التالت .. عايزين قيمة الخلية B1 تساوي قيمة النص الموجود في A1 بس بشكل مختلف ، باستخدام الدالة Proper ، فنضع علامة يساوي (ومننساش اللي على الطرف الأيسر مجهول دائماً .. واللي على يمين علامة يساوي هو القيمة المراد وضعها للمجهول) استخدمنا هنا كلمة Application للإشارة إلى تطبيق الإكسيل .. ممكن الناس اللي مش أد كدا في الإنجليزي أقولها على خدعة بسيطة .. الخدعة إنك متحفظش الكلمة لو صعبة عليك ، اكتب بس أول كام حرف منها وليكن Appl واضغط Ctrl + مسطرة هتلاقي المحرر المحترم كمل لك الكلمة ، أو هتظهر لك قايمة تختار منها الكلمة اللي إنت عايزها .. بعد كلمة Application تم استخدام الخاصية WorksheetFunction وهذه الخاصية كأننا بنقول للمحرر إننا هنستعين بدوال الإكسيل المدمجة ، نستعين بها هنا في محرر الأكواد ، وبعديها نقطة وبعد النقطة وقفة (يعني قوم اقف واقعد تاني ..عشان تستعيد نشاطك) ، بعد النقطة هنكتب الدالة المراد الاستعانة بها ، وهي هنا الدالة Proper اللي فهمناها من شوية.. والدالة ليها بارامتر واحد بيتم استخدامه عن طريق فتح قوس (Shift + 9) ، وبين الأقواس بنكتب النص ، ومننساش إن الدالة بتتعامل مع النصوص !! ومننساش بردو قفلة القوس () ونكتفي بهذ القدر (فيه ناس رفعت ايديها وهللت خلصت الحلقة خلصت الحلقة ..متفرحوش أوي كدا ، إحنا لسه يدوب في بداية الحلقة .. انتهينا بس من الدالة Proper وكيفية استخدامها في محرر الأكواد) .. ****************************************************************************** ننتقل لدالة أخرى لذيذة جداً ومفيدة جداً ، ألا وهو الدالة Trim ودي دالة بسيطة جداً ، وظيفتها إزالة الفراغات الزائدة (بس خلاص .. انتهى الشرح) نروح لورقة العمل أولاً ونطبق الدالة ، اكتب في الخلية A3 مثلاً اسمي ، اضرب بالمسطرة 3 مرات لا خليهم 4 مرات ، واكتب Yasser وبعدين بالمسطرة اضرب 4 مرات وبعدين اكتب Khalil واضرب المسطرة 4 مرات (كفاية ضرب المسطرة اشتكت) .. في الخلية المجاورة B3 اكتب المعادلة بالشكل التالي : =TRIM(A3) هنلاقي الدالة قامت بالواجب وحذفت كل المسافات الزائدة ..وتركت مسافة واحدة بين الكلمتين فقط.. ننتقل لمحرر الأكواد .. نفس الاستخدام تقريباً ونفس الشكل : Sub TrimFunction() Dim strName As String strName = Range("A3").Value Range("B3").Value = Trim(strName) End Sub ننفذ الكود ، نلاقي الناتج في الخلية B3 يصدم (لم تؤدي الدالة عملها كما أدته في ورقة العمل) ، الدالة حذفت المسافات الزائدة في بداية النص وفي نهايته ، أما المسافات الزائدة بين الكلمتين فلم يتم حذفهم (مش عارف دا عيب في محرر الأكواد ، ولا بيل جيتس متعمدها ..عموماً هبقا أسأله في النقطة دي لما يطلبني في الاجتماع القادم يوم 30 فبراير القادم ) نفهم من كدا إن الدالة Trim في محرر الأكواد مختلفة عن الدالة Trim في ورقة العمل ..طيب ما الحل ؟ أشيروا علي إخواني الكرام ، الحل أبسط مما تتخيلوا (اللي فهم الدالة السابقة هيفهم إزاي هنحلها هنا ..) Sub TrimFunction() Dim strName As String strName = Range("A3").Value Range("B3").Value = Application.WorksheetFunction.Trim(strName) End Sub تم حل المشكلة بحمد الله وعونه وتوفيقه .. ****************************************************************************** ننتقل لدالة جديدة ، ألا وهي الدالة Space (المسطرة) ..وظيفة الدالة دي ، إننا نريح المسطرة من كتر الضرب عليها ، حيث أن شكوتها قد وصلت للأمم المتحدة ، فقررت الأمم المتحدة النظر في شكوى المسطرة الضعيفة التي اشتكت من كثرة الضاربين عليها ، وتوصلت الأمم المتحدة لاتفاق مع بيل جيتس بإدراج دالة تحل محل المسطرة في محرر الأكواد (وأغلقت القضية) .. في الخلية A1 اكتب Yasser Khalil وروح للمحرر واكتب الكود التالي : Sub SpaceFunction() Dim strName As String strName = Range("A1").Value Range("B1").Value = Space(4) & strName & Space(4) Range("C1").Value = Len(Range("A1")) & ":" & Len(Range("B1")) End Sub لاحظ إننا استخدمنا الدالة وبين قوسين كتبنا 4 ، والرقم دا عدد المسافات ، واستخدمنا الدالة مرتين ، مرة قبل النص ومرة بعد النص ، وفي كل مرة 4 مرات بالمسطرة ، يعني مجموع المسافات = 8 ، يعني إحنا ريحنا المسطرة من إننا نضربها 8 مرات ، وفي الخلية C1 استخدمنا الدالة Len (واللي ميعرفهاش يترك الحلقة دي ويرجع للحلقة اللي فاتت ..مش ناقصة وجع قلب ، وكتر كلام ع الفاضي) ، عشان نحسب طول النص في الخلية A1 وطول النص في الخلية B1 ، هنلاقي الفرق بينهم 8 (انتهى الحديث عن قضية المسطرة التي تشتكي). *************************************************************************** ننتقل إلى دالة ذات أهمية كبيرة ..الدالة Replace والكل يعرفها جيداً ، وربما الكل يستخدمها كثيراً ، وهي دالة الاستبدال (أي استبدال نص مش عاجبك بنص يعجبك ويدخل دماغك) تقوم الدالة باستبدال النص القديم بآخر جديد ... ناخد مثال يا أستاذ جمال : نفترض إني ادلعت شوية وأنا بكتب اسمي وكتبته في الخلية A1 بهذا الشكل Y a s s e r (من حق التلميذ يدلع ..مش الكبير لأ !!) .. المهم أنا من النوع الكسول ، أنا تركت مسافة بين كل حرف وحرف ، يا ترى هتعب نفسي وأشيل كل مسافة بين كل حرف وحرف (طبعاً مش هيحصل !! ولو حصل يبقا أنا مفيش ورايا شغل وقاعد بلعب) المهم دلوقتي نخلي بالنا ونسأل ايه هو اللي مش عاجبنا (الإجابة المسافة بين كل حرف وحرف) ، طيب ونسأل سؤال تاني (ما هو لازم تمشي بمنطق السؤال والإجابة) نسأل ايه المطلوب ؟ (الإجابة إننا نحذف المسافة أو ممكن نقول الطلب بشكل تاني عشان نقدر نوصل للحل :: المطلوب إننا نستبدل المسافة " " بـ "" (ايه ده ؟ هي دي الإجابة ؟؟ أقولك أيون أيون هي دي الإجابة) .. نشوف المثال يا أستاذ عبد العال .. الأول قبل المثال نشوف البديل ليها في ورقة العمل ، ضع المعادلة التالية في الخلية B1 : =SUBSTITUTE(A1," ","") الدالة تقوم باستبدال النص القديم بالنص الجديد (زي الفل ..نفس الكلام مع الدالة Replace في محرر الأكواد) Sub ReplaceFunction() Dim strName As String strName = Range("A1").Value Range("B1").Value = Replace(strName, " ", "") End Sub البارامتر الأول للدالة عبارة عن النص المراد البحث فيه المراد البحث داخله .. والبارامتر الثاني النص المراد استبداله أي النص القديم .. والبارامتر الثالث النص الجديد (اللي عاجبنا وبيحب أكل الجبنه) .. كدا انتهى الحديث عن الدالة Replace ..! *************************************************************************** الآن مع دالتين جديدتان (أعتذر قديمتان) الدالة Right والدالة Left .. كلنا نعرف استخدام هاتين الدالتين في ورقة العمل .. ناخد مثال في ورقة العمل أولاً لنفهم عمل الدالتين .. في الخلية A1 نكتب الإيميل yakh777@yahoo.com وفي الخلية B1 نكتب المعادلة بالشكل التالي : =RIGHT(A1,9) الناتج هو yahoo.com وهو العدد الذي حددناه في المعادلة .. وتم استخراج النص من ناحية اليمين (اللهم اجعلنا من أهل اليمين .. أنا والأعضاء في المنتدى أجمعين) في الخلية C1 اكتب المعادلة التالية : =LEFT(A1,7) فيكون الناتج النص من ناحية اليسار ، وهو yakh777 ,وحددنا عدد الأحرف 7 أحرف .. لو قمنا بتغيير الإيميل بأي إيميل آخر .. أكيد النتائج ستختلف .. إذاً لابد من حل لتكون المعادلة أكثر مرونة (الحل هو الاعتماد - يا أستاذ عماد - هنا على علامة @ ) .. دعونا نفكر بصوت عالي ..نفكر الأول ونشوف هنعمل ايه ؟؟؟ نبدأ بالدالة Right .. الأول في خلية نكتب المعادلة: =LEN(A1) هنلاقي عدد حروف النص 17 ... تمام !! قول تمام يا أستاذ هشام - ونكتب المعادلة التالية في خلية أخرى (أي خلية) =FIND("@",A1) ودي بنحدد من خلالها موقع علامة @ داخل النص .. هنلاقي الناتج 8 (أي أن موقع هذه العلامة رقم 8 . لو عدينا من الشمال هنلاقي رقمها 8) طيب نجرب نطرح طول النص بالكامل - موقع علامة @ هنلاقي الناتج 9 (تسعى في الخير يا كبير) هو دا المطلوب ... واحد رفع ايده وقالي : مش فاااااهم (هقوله مش هكرر تاني .. إنت خدها قاعدة لو مش هتقدر تفهمها .. لو حبيت تستخرج النص من جهة اليمين ، يبقى تحفظ الشكل ده : طول النص بالكامل - موقع العلامة @) يبقا ممكن نكتب المعادلة التالية في الخلية B1 : =RIGHT(A1,LEN(A1)-FIND("@",A1)) جرب تكتب أحرف زيادة على يمين العلامة أو على يسارها ، وشوف النتائج بنفسك !! (هنلاقي النتائج دايماً صحيحة سواء كتبت أحرف زيادة في اليمين أو في اليسار) .. طيب الدالة Left دي أسهل .. لأننا هنعتمد على موقع علامة @ وبس .. لو موقع علامة @ رقم 8 زي مثالنا ، يبقى المعادلة هتكون بهذا الشكل : =LEFT(A1,FIND("@",A1)) هنلاحظ الناتج فيه علامة @ للتخلص منها (هات أستيكة وامسحها) أو قم بطرح موقع العلامة @ - 1 ليصبح الناتج صحيح .. =LEFT(A1,FIND("@",A1)-1) نسينا شغل الأكواد ، واندمجنا في دوال الإكسيل . أعتذر ، لكن لابد من فهم المعادلة بشكل جيد ، حتى نتمكن من فهم العمل بالأكواد ... نروح للمحرر ::: Sub RightLeftFunction() Dim strEmail As String strEmail = Range("A1").Value Range("B1").Value = Right(strEmail, Len(strEmail) - InStr(strEmail, "@")) Range("C1").Value = Left(strEmail, InStr(strEmail, "@") - 1) End Sub أعتقد الموضوع أصبح واضح وضوح الشمس في نهار ملبد بالغيوم .. نفس الدالة اللي استخدمتها في ورقة العمل أخدتها نسخ ولصقتها في محرر الأكواد .. وبدلت شوية حاجات بسيطة : شلت المرجع A1 ووضعت مكانه المتغير strEmail ، وشلت Find ووضعت مكانها الدالة InStr (بس اللي مركز هياخد باله إن الدالة InStr بتبحث عن كومة القش وتشوف الإبرة -- لكن الدالة Find بتبحث عن الإبرة في كومة القش .. بمعنى آخر النص الفرعي المراد البحث عنه يختلف مكانه بالنسبة للدالة Find في ورقة العمل ، والدالة InStr في محرر الأكواد # انتهى الحديث عن الدالتين Right و Left ) ************************************************************************* ننتقل لآخر دالة (عشان أنا تعبت لكم صراحة ..) الدالة Mid ، وبردو فيه ناس تعرف الدالة كويس جداً من خلال ورقة العمل ... في الخلية A1 اكتب الإيميل yakh777@yahoo.com في محرر الأكواد اكتب الكود التالي : Sub MidFunction() Dim strEmail As String strEmail = Range("A1").Value Range("B1").Value = Mid(strEmail, 1, InStr(strEmail, "@") - 1) End Sub أنا بدأت بالمثال قبل الشرح .. الدالة ليها 3 بارمترات الأول هو النص المراد البحث داخله (كومة القش) ، والبارامتر الثاني هو بداية عملية التنقيب أو البحث وبيكون قيمة رقمية أكيد ، والبارامتر الثالث هو عدد الحروف المراد استخراجها .. في المثال النص هو المتغير strEmail وبداية عملية البحث 1 ، ولاستخراج عدد الحروف ولأنها غير معلومة أو أننا نريد استخراج الجزء الأول من النص قبل علامة @ قمنا باستخدام الدالة InStr لتحديد موقع علامة @ وطرحها من 1 لنحصل على عدد الأحرف على يسار العلامة (أظن مفهومة يا أخ سلومة).. واستخدامها في ورقة العمل مشابه تماماً لمحرر الأكواد .. المعادلة التي يمكن استخدامها في ورقة العمل : =MID(A1,1,FIND("@",A1)-1) الدالة ببساطة تقوم باستخراج النصوص التي ترغب ، ولكن استناداً إلى نصوص أخرى ... بهذا نكون قد انتهينا من دوال التعامل مع النصوص ... أرجو أن تكونوا قد وفقتم في فهم الحلقة على أكمل وجه .. الواجب المطلوب : في الخلية E5 قم بكتابة النص Yasser Khalil ، وفي الخلية المجاورة لها ، قم بعمل الكود اللازم لجعل النص يبدو بهذا الشكل Khalil, Yasser (لتسيهل الحل قم باستخدام دوال التعامل مع النص لاستخراج الاسم الأول ، والاسم الثاني ...مفتاح الحل) وإلى لقاء متجدد مع حلقات افتح الباب .. كان معكم أخوكم أبو البراء من مصمت أوفيسنا دمتم في رعاية الله

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

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

الأستاذ ياسر خليل (ولكل الزملاء ) المرفق به الملفات الثلاثة التى أرفقتها فى مشاركتى فى موضوعك وزيادة الزيادة هى الثلاث خطوط المرفقه . ملفات الورد الثلاث زى ما قلنا فى المسار اياه programfiles ثم microsoftoffice ثم Office14 ثم STARTUP أما الخطوط الثلاثة توضع فى المسار التالى windows ثم fonts ونقص الثلاث خطوط دى أدى الى حدوث الخطأ اللى قلت عليه فأنا حملت الخطوط ديه وجربت لقيت الموضوع ظبط معايا فشكرا لحضرتك أولا لأنك لفت نظرى لنقطة الخط . جرب حضرتك وشوف تحياتى للجميع xxxxxxxxxxxxx.rar

وفيك بارك الله أستــاذي القديـــــــــــــر ياســر ، أشكرك على المتابعة وتصحيح الأخطاء ومن الخطأ نتعلم وبفضل الله ثم بفضل نصائحك وتوجيهاتك ا لقيمة أعتقد أن الكود يمكن أن يكون كالتـــالي: Sub RightLeftFunction() Dim strName As String, Str2 As String Dim Line As Byte, LineMax As Byte With Sheets(1) LineMax = 10 For Line = 1 To LineMax strName = .Cells(Line, 1).Value Str2 = Right(strName, Len(strName) - InStr(strName, " ")) .Cells(Line, 2) = Str2 & "," & " " & Left(strName, Len(strName) _ - Len(Str2)) Next Line End With End Sub Exam12 Solution.zip

أين الكود أخي الفاضل؟ الملف محفوظ بصيغة لا تحتوي على أية أكواد .........

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

جرب هذا اكتب الاسم فقط الذي تريد بالتكرار الذي تريد و المعطيات ثم اضغط على تجديد الاسماء يظهر لك الجدول تلقائيا دون تكرار الاسم مع الجمع الصحيح ان شاء الله فيه اعمدة مساعدة a b c test6.rar

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

إضافة رائعة لعمل مخطط بياني بشكل جذاب.. تنفع لعمل المسابقات.. الشرح بعد الرد. magic chart.rar

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

اليك الحل الجدول يعمل حتى 100 اسم و يمكنك الاضافة بتعديل بسيط test666 SALIM.rar

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

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

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

اولا : في تنسيق خصائص الحقل ff اجعل القيمة: مرئي=لا ثم الصق الجملة التالية في حدث بعد التحديث للحقل tt If tt.Value = "شيك" Or tt.Value = "مرتجع" Then ff.Visible = True Else ff.Visible = False End If

6 _ كود تلوين عمود و سطر الخلية النشطة المختارة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer Cells.Interior.ColorIndex = 0 rowNumberValue = ActiveCell.row columnNumberValue = ActiveCell.column For i = 1 To rowNumberValue Cells(i, columnNumberValue).Interior.ColorIndex = 37 Next i For j = 1 To columnNumberValue Cells(rowNumberValue, j).Interior.ColorIndex = 40 Next j End Sub ورقة تنفيذ الكود sheet1 _ الكود يقوم بتظليل عمود و سطر الخلية المختارة _يمكن تغيير لون التظليل بتغيير لون خلفية ورقة العمل من لون 0 الى لون اخر _ يمكن تغيير لون التظليل بتغيير لون السطر من لون 37 الى لون اخر _يمكن تغيير لون التظليل بتغيير لون العمود من لون 40 الى لون اخر مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود تلوين عمود و سطر_الخلية المختارة_G_adham.rar

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

انا شاكر جدا لسرعة الرد و سوف اقوم بالمحاولة و ارد على حضرتك

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

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

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

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

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

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

يمكنك عمل موقع مجانى باستخدام هذا الرابط https://sites.google.com إضغط على كلمة إنشاء

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

فهمت قصدك ساقوم بالتعديل

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

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

أين أنت يا ( كن ذا تصل الى ) من المغربيه وانا فى حاله من والآن أشعر بـ لدرجة أنى عايز اوعى حضرتك تكون ألف مليون عايز أعرف بتاع اللغز ونقولك

اما فيما يخص كود الحذف , يوجد هنالك طريقتين . الاولى للحذف النهائي وهو هذا :- والثاني اعتقد انه موجود في المنتدى كمثال عن كيفيه حذف سجل او قيد لكن هذا القيد عند حذفه يتم نقله لجدول اخر اسمه الارشيف اي انه يتم ارشفة هذا السجل لكن يحذف من الجدول الاساسي . Private Sub Command410_Click() On Error GoTo Command410_Click_Err On Error Resume Next DoCmd.GoToControl Screen.PreviousControl.Name Err.Clear If (Not Form.NewRecord) Then DoCmd.RunCommand acCmdDeleteRecord End If If (Form.NewRecord And Not Form.Dirty) Then Beep End If If (Form.NewRecord And Form.Dirty) Then DoCmd.RunCommand acCmdUndo End If If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command410_Click_Exit: Exit Sub Command410_Click_Err: MsgBox Error$ Resume Command410_Click_Exit End Sub

مرحبا بك اخي في المنتدى هذا الكود هو لطباعة السجل الظاهر لك في النموذج . وسوف اشرحه لك بالتفصيل . Private Sub Command10_Click() Dim strReportName As String Dim strCriteria As String If NewRecord Then MsgBox "لايوجد قيد او سجل لغرض طباعته , الرجاء اختر سجل معين", vbInformation, "طباعة" Exit Sub Else strReportName = "هنا تكتب اسم التقرير" strCriteria = "[ID]= " & Me![id] DoCmd.OpenReport strReportName, acViewPreview, , strCriteria End If End Sub لاحظ ان الكود يوضع في حدث عند النقر على الزر Command10 وان الرساله تظهر لك في حالة النموذج لا توجد به بيانات اي انه فارغ , كما ارجوا منك الانتباه الى اسم التقرير وحقل الــ ID في جدولك , بمعنى المفتاح الاساسي للسجل في الجدول . كما يجب ملاحظة السطر من الكود DoCmd.OpenReport strReportName, acViewPreview, , strCriteria والذي فيه عبارة acViewPreview وهي عرض التقرير في المعاينة قبل الطباعة .

سلام عليكم و رحمة الله وبركاته اخى الكريم اليك ملف مرفق به ما تريد واكثر فاتورة مبيعات ومشتريات من تعديل الااخ احمد زمان نموزج فاتورة+بحث3.rar

اخى الكريم ليه متشتغلش على الملف ده ونعدل عليه زى ما تحب طيقا لظروف شغلك شوف انتى عايز ايه ونعدل عليه

أخى فى الله الأستاذ الكريم// خالد العنانى يمكن ذلك فقط اجعل الكود هكذا Sub Printing() ActiveSheet.Unprotect Password:="12345" Rows([Row] & ":300").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:300").EntireRow.Hidden = False ActiveSheet.Protect Password:="12345" End Sub واليكم الملف بعد اضافة الكود وتقبلوا منى وافر الاحترام والتقدير قيود بكشف حساب 11.rar

الاستا الفاضل // sayed&h 1 ) مرحبا بك أخ فاضل بيننا في أول مشاركة لك 2 ) اعلم رحمك الله ان كنت ترى ان الشيت به كرسة فنحن ننظر لهذا الرجل العملاق علما وخلقاُ ( رجب جاويش ) بكل فخر واحترام ويكفيه شرف المحاولة وليس اي احد معصوم من الخطا او النسيان عزيزي الفاضل بل يكفي اننا تعلمنا من هذا الرجل الشامخ الاسلوب الراقي في الحوار وفن معاملة الاخرين وعدم احراجهم فيما لا فائدة فيه بل تعلمنا منه كيف ينصح الاخرين باسلوب راقي عن طريق الرسائل الخاصة 3 ) تشرفنا بمروركم الكريم في أول مشاركة لك ونتمنى تواجدك بيننا دائما كاخ ناصح امين محب للاخرين 4 ) بل نتمنى مشاركتك معنا واصلاح ما غفل عنه استاذنا ليكون عونا لاخوانك السائلين عنه !!!

نسخة معدلة بعد اضافة اكواد الاستاذ / حسام عيسي وعمل الازرار اللازمة Sample 22Linked v3.rar

وإياك اخي الحبيب في وحدة نمطية عامة نلصق الجملة البرمجية التالية : Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(FullName, " ")(i) End Function لاحظ اننا انشأنا دالة جديدة بناء على الدالة الاصلية وجعلنا لها اسما قريبا من الدالة الاصلية حتى يتم التعرف عليها وعلى عملها من اول نظرة ولاحظ ايضا ما حدث لوسائط الدالة الاصلية وترتيبها حيث سيتم توظيف الدالة الجديدة داخل الاستعلام على النحو التالي : name1 : qsplit(FullName; 0) name2 : qsplit(FullName; 1) name3 : qsplit(FullName; 2) name4 : qsplit(FullName; 3) وفي المثال تطبيق للشرح والمقال : تجزئة النص.rar

اخى الفاضل طلبك فى الرابط ده برنامج المتابع

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

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

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

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