محمد الزريعي

Range("e1").Select ActiveSheet.Paste السلام عليكم ورحمة الله وبركاته .. الاخوة الاعزاء الكرام .. مساكم الله بالخير والعافية .. كي لا اطيل عليكم لقد وضعت كود في محرر الاكواد vba من ضمنه امر لصق .. وتم البرنامج شغال 100% البرنامج يقوم بالنسخ والصق كما هو معروف للجميع ولكن . يبقى زر اللصق فعال ( نشط ) بعد الانتهاء من الكود .. أي يمكنني ان الصق ما تم نسخة سابقا مرة اخرى .. المطلوب لا يمكن تكرار عملية الصق مرة اخرى الا بتكرار الكود بالكامل ،، أي بعد الانتهاء من تنفيذ الكود وتم اللصق .. يكون زر اللصق غير فعال أي غير نشط .

Book1.rar

تم الحل وسوف اعرضه بعد قليل انشاء الله . في ملف اخر .

كل عام وانتم بخير الشرح في المرفق Book1.rar

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

هذا يقوم بحذف الشيتات وأيضاً الفورم والمديول ماعدا مديول التي فيها الكود .. الكود مكتوب تمام .. لكن في التنفيذ لا يقوم بحفظ ما تم حذفة . نرجوا المراجعة .. لو تكرمتم _____boom 4.rar

استاذي القدير / ياسر .. لم اعرف استخدم هذه الدالة على طريقة الاكواد .. فهي تختلف تماماً على طريقة المعادلات .. ولكني بحثت عليها في النت ووجتها بالإنجليزية .. وترجمتها وأيضا غير مفهومة لي .. وفي الاسفل شكل الترجمة اتمنى شرحها بشكل مبسط .. لكي اعرف استخدمها لاحقاً .. حالياً ليس لدي كود . الاسم Rمطلوب / Oأختياري نوع البيانات Description التفاصيل What Required Variant البيانات التي نبحث عنها ( يمكن أن تكون حرف أو سلسلة من البيانات ) After Optional Variant (مختلف ) الخلية التي تريد بداء البحث فيها وهي الخلية النشطة التي تتوافق عندما يتم البحث من واجهة المستخدم . ، ولابد أن تكون خلية واحد في نطاق معين . وتذكر أن البحث يبداء من بعد هذه الخلية ، ولا يتم البحث في نفس الخلية المحددة حتى يعود الي الخلية المحددة أذا لم يجد أي من البيانات ، ويبداء البحث في الزاوية العلوية اليسرى من النطاق . LookIn Optional Variant نوع من أنواع المعلومات LookAt Optional Variant يمكن أن تكون واحدة من ثوابت التالية للبحث في اكسل : ( كلية - او - جزئية ) ( xlWhole or xlPart ) SearchOrder Optional Variant يمكن أن تكون واحدة من ثوابت الترتيب التالية ( اما حسب الصف - أو حسب العمود ) ( xlByRows or xlByColumns ) SearchDirection Optional XlSearchDirection (البحث بإتجاة ) أتجاه البحث MatchCase Optional Variant لها قيمتان وهي : True والتي تجعل حالة البحث قيمة صحيحية ومتطابقه تاماً --- او ---- القيمة الافتراضية هي false . MatchByte Optional Variant تستخدم فقط أذا قمت بتحديد أو تثبيت الدعم اللغوي بالبايت الثنائي ، وتطابق الاحرف الصحيحة الثنائية بالعدد الصحيح فقط . وأذا كانت لا تطابق الاحرف ثنائية البايت . فهو يعتبرها بايت واحد . SearchFormat Optional Variant تستخم لتنسيق البحث

تشكر وما قصرت اخي سليم .. بارك الله فيك .. هي بالفعل افضل اجابة .

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

ماذا تعني هذه الكلمات في الدالة find Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate انا اريد استخدم الدالة في شي اخر .

ممكن أحد يشرح لي صيغة الدالة find في الكود لم افهم المصطلحات هذه Set rFound = .Columns(2).Find(What:="5", After:=.Cells(i, 2), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

اشكركم على مشاركاتكم الطيبة : وانا سعيد جداً لاني وجدت الكود المطلوب بحث علية في الصفحات الانجليزية لين جمعت الكلمات حتى طلع ليا كود مكتمل .. ومن نبهني الي هذا الكود هو الاستاذ بن علية حاجي .. خلاني أبحث عن objects الاشكال .. اقول لك شكراً اخي ومعلمي على هذا التنبية . واخص بالشكر ايضاً استاذي القدير الغني عن التعريف الاستاذ ياسر خليل على مشاركته القيمة . والان أترك لكم الكود ولمن اراد ان ينسخه مرة أخرى . ActiveSheet.Buttons.Copy On Error Resume Next ActiveSheet.DrawingObjects.Visible = True ActiveSheet.DrawingObjects.Delete On Error GoTo 0 Range("e1").Select ActiveSheet.Paste Range("b2").Select وشرحة كالتالي : قمت بنسخ الزر كي لا يتم حذفة ثم وضعت كود حذف الاشكال ليتم حذف جميع الاشكال في داخل الشيت النشط ثم قمت بتحديد العمود E1 ليتم لصق الزر في نفس المكان ثم امر لصق ما تم نسخة وهو ( الزر ) ولكي الغي التحديد على الزر .. قمت بتحديد الخلية B2 وهي علامة للعمود المهم . انتهى شكراً لكم

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

الاخوة الاعزاء . السلام عليكم ورحمة الله وبركاته .. عندي العملاء يقوموا بتسجيل بياناتهم عبر الانترنت .. من ضمن البيانات رقم الهاتف ومنهم من يسجل رقم هاتفة بالطريقة التالية وهي ( 0561212135 ، ومنهم من يسجل رقم هاتفة بطريقة اخرى مثل 00966561212147 ) .. هذا ليس مهم . المهم هو عملي = انني اقوم بنسخ مجموعة من الارقام من الانترنت ( الموقع الإلكتروني ) ثم ألصقهم في داخل ملف اكسل المرفق وأضيفهم الي العملاء السابقين حوالي من سنة .. اكرر العملية عدة مرات حتى تنتهي الصفحات من الانترنت ، ربما يكون للموظف الواحد أكثر من 20 ألف رقم .. المشكلة هي : عند لصق الارقام الجديدة .. يتم لصق الرابط التشعبي ضمن الرقم وأحتاج الي إزالة الرابط التشعبي من كل رقم موجود في الخلايا . --------------------------------------------------------------- المطلوب : 1- كود يقوم بحذف الرابط التشعبي من الارقام .. 2- طريقة تسريع الملف المرفق بحيث يتم بالعمل 20 الف رقم بسرعة .. ولا يكون بطئ بهذا الشكل .. انا ارفقت الملف جاهز بالاكواد السابقة . حذف الرابط التشعبي.rar

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

لكن حصلت مشكلة في الكود عندما جيت أنقله ,, وهي المتغيرات .. حيث أن العمود d .. ليس له مدى محدد .. حيث يبداء من قيمة متغير وينتهي الي قيمة متغير .. ومثلة العمود e كذالك القيمة التي هي criteria = أيضاً متغير كما هو بالكود التالي . ooo = Worksheets("seen").Evaluate("=MAX(IF(("d" & LR3, "d" & LR4)=xx3,("e" & LR3, "e" & LR4))") اقصد البداية من المتغير LR3 وينتهي في LR4 ووضعت هذه المتغيرات بدل أرقام الصفوف . حسب القيمة التي هي في المتغير xx3 والتي انت مسميها b11 >>> ووضعت هذا المتغير بدل المتغير الثابت .

الله يجزيك الف خير أخي خالد نعم هذا الكود المطلوب ..

في هذا المرفق هي عبارة عن معادلات لم تكن موجودة مع دوال اكسل . ولكن هل بالإمكان ان حولها الي كود بسيط في اكسل .. اريد كود نفس الكود التالي مع العلم أن الكود التالي هو لـ sumifs XX = Application.WorksheetFunction.SumIfs(sh.Range("f11:f" & LR2), sh.Range("c11:c" & LR2), YY) وشرحة كالتالي : xx = متغير يتم تخزين القيمة الناتجة فية f11: f = هو العمود الذي سوف نجمعه وهو الارقام يبتدى من f11 وحتى نهاية f وهو ( sum_range ) >>> lr2 : هو متغير يقوم بأخذ قيمة اخر صف موجود فية البيانات من الاسفل وله الكود التالي ( LR2 = Cells(Rows.Count, 2).End(xlUp).Row .. c11: c هو العمود الذي راح نبحث فية عن تطابق الكلمة وهو ( criteria _range ) >> YY = وهو متغير يرمز للكلمة أو الرقم الذي نبحث عنه .. في العمود سي .. واسم هذا المتغير ( criteria ) >> دالة MAXIF -MINIF.rar

الله يجزيك الف خير أستاذي أبو عبيد . وترليون جوجل شكر لك .. ولمن لا يعرف كلمة جوجل .. هي الرقم 1 يسبقة 100 صفر .. تسمى جوجل .

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

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

النقطة الثانية هي : انه يوجد لدينا في الشيت (h) شرائح الحوافز والمكافئات للموظفين (المسوقين) والمشرفين وهي كالتالي المبيعات حافز/ المبيعات / الاسبوعي / لرفع الطلبات عدد الطلبات الحافز مكافئة المركز الاول 1 0 0 2 200 0 3 300 200 4 450 200 5 600 200 6 150 زيادة على السابق لكل طلب 150 المشرفين حافز/ مشرف المبيعات / الاسبوعي / لرفع الطلبات عدد الطلبات الحافز ملاحظات 5 500 6 600 7 750 9 1,000 >9 100 أضافة على السابق اريد توزيعها تلقائيا حسب الموظفين الذين يستحقونها في شيت ( الحوافز ) في الخلايا الفارغة وهي كالتالي . م اسم المسوق عدد الطلبات الحافز العمولة المكافأة الاجمالي 1 عبدالله 7 2 سعيد 12 3 احمد 11 4 رجب 1 5 المشرف 31 ----------------------------------------------------------------------------------------------- يفترض النتيجة تطلع معي على النحو التالي : م اسم المسوق عدد الطلبات الحافز العمولة المكافأة الاجمالي 1 عبدالله 7 900 900 2 سعيد 12 1,650 200 1,850 3 احمد 11 1,500 1,500 4 رجب 1 0 0 5 المشرف 31 3,200 3,200 واذا تساوت عدد الطلبات للمسوقين فإن كل واحد يأخذ 200 ريال مكافأة . أما أذا كان هناك فرق في العدد فالأكبر هو الذي يأخذ المكافئة . ولقد قمت بأرفاق الملف لكم ترحيل البيانات وتنسيق المرحل وحساب العدد للارسال.rar علما انني اقصد ( الموظفين ) هم ( المبيعات ) هم ( المسوقين ) والمشرفين هم المشرفين

لعلي وجت الحل في المشكلة الاولى وهي أيجاد أول يوم في الاسبوع الحالي .. وهو يوم الاحد . a = DateAdd("d", 0, "11/8/2015") b = Weekday(a) For b = b To 2 Step -1 If b = 1 Then GoTo nasa End If a = a - 1 Next b nasa: لقد وضعت الدالة dataeadd بدل date لكي اجرب عليها ان الكود شغال صح او لا .. ولو وضعت بدل الصفر 1 أي زوت يوم وهكذا كنت ازود عليها عشان اتأكد أن الكود ماشي صح .. ويبقى التقييم منكم .. أذا كان صحيح أم عندي خطاء ههههه وأذا كان هناك مختصر نتمنى طرحة .. في المشكلة الاولى .

ثانياً : الاخطاء التي واجهتني في هذه الاكواد هي كالتالي : Sheets("المبيعات").Activate lR = Cells(Rows.Count, 1).End(xlUp).Row a = Date b = Weekday(Date) For c = 1 To 7 a = a - 1 b = b - 1 If b = 1 Then GoTo nasa End If Next c لقد وضعت هذا الكود ليتم أيجاد او يوم في هذا الاسبوع وهو يوم الاحد وما يقابله من تاريخ .. والخطاء في الكود هو : أذا كان اليوم سبت او احد .. ننقص منه 7 . يعطينا النتيجة حق الاسبوع الماضي .. وهذا لا نرغب فية .

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