klma7lwa

السلام عليكم ورحمة الله وبركاته كان لى طلب ان شاء الله يكون بسيط هو كالتالى عندما يكون لدى كالتالى 693.2.326 واريده ان يصبح كذالك 6930020326 اى يكون عشرة ارقام بعد ازالة " . " امثلة اخرى 362.23.32 تصبح كالتالى 3620230032 564.952.59 تصبح كالتالى 5649520059 487.354.2365 تصبح كالتالى 4873542365 210.6.50 تصبح كالتالى 2100060050 للتوضيح لاحظ ان اللون الازرق يجب ان يكون ثلاثة ارقام ، واللون الاحمر يجب ان يكون ثلاثة ارقام بحيث اذا قل عن ثلاثة ارقام يتم زيادة الاصفار من الشمال ، واللون الاخضر يجب ان يكون 4 ارقام بحيث اذا كان هناك رقمان يتم اضافة صفرين من الشمال وذا كان هناك ثلاثة ارقام يتم زيادة صفر من الشمال وهكذا وانا كنت استخدم هذه المعادلة ولكنها طويلة جدا وهى كانت =LEFT(A2;3)&IF(MID(A2;6;1)=".";"00"&MID(A2;5;1);IF(MID(A2;7;1)=".";"0"&MID(A2;5;2);IF(MID(A2;8;1)=".";MID(A2;5;3);)))&IF(MID(RIGHT(A2;2);1;1)=".";"000"&RIGHT(A2;1);IF(MID(RIGHT(A2;3);1;1)=".";"00"&RIGHT(A2;2);IF(MID(RIGHT(A2;4);1;1)=".";"0"&RIGHT(A2;3);IF(MID(RIGHT(A2;5);1;1)=".";RIGHT(A2;8);"رقم غير صحيح")))) واريد ان يكون كود بمحرر الاكواد مرتبط على Textbox ملحوظة : تم استخدام الالوان للتوضيح وليس اكتر

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

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

السلام عليكم اخى الكريم mahmoud-lee اسعدنى ردك للغاية ويكفى ردك على الموضوع لتزيل كل الصعاب انا اعلم ان الموضوع ليس بالصعب ولدى حلول لها ولكن تاخد وقت طويل نوعا ما ولكن فضلت ان ائتى الى هذا الصرح الكبير لعلا اجد طرق اسرع بالاضافة الى انى اتعامل مع اكثر من 5000 بيان والمرفق به مثال واحد وليس كل البيانات بالنسبة لحلك الرائع انا استفدت منه ومن افكاره ادام الله عليك العلم وزادك من لديه علما لكن من المواضح انى لم استطيع توضيح طلبى بالشكل الكافى حيث انى حيث انا لدى تقرير واقوم بتحويله الى XPS وهذا النوع من الملفات يحول الصور او ملفات الماسح الضوئى الى نصوص ولا يمكن حفظ الملف باى صيغة اخرى بالتالى ما يمكننى فعله هو عمل نسخه من البيانات من ملف XPs ووضعها فى ملف الاكسل وتكون مثل الشكل فى Sheet2 وانا اريد ان تكون البيانات منظمة مثل Sheet1 واسهل الحلول التى لدى عن طريق بيانات > نص الى عمود Data > Text to column

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

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

اخوانى waaly و عبدالله المجرب حياكم الله يمكن انت تحفظها بصيغة Excel 97 - 2003 Workbook(*.xls)l عند الحفظ وهو الامتداد xls سواء كنت تستخدم Office 2007 or 2010 or 2013

تفضل اخى الكريم هذا الكود للاستاذ القدير عبدالله باقشير Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Const dFT As String = "dd/mm/yyyy" If Not IsDate(Me.TextBox6) Then If IsNumeric(Me.TextBox6) Then Me.TextBox6 = Format(DateSerial(Year(Date), Month(Date), Val(Me.TextBox6)), dFT) Else Me.TextBox6 = Format(Date, dFT) End If Else: Me.TextBox6 = Format(CDate(Me.TextBox6), dFT) End If End Sub ورابط الموضوع من هنا >> إضغط هنا <<

الاخ الكريم تفضل هذه الخدعة وهى تعمل بشكل جيد وفكرتها بسيطه Private Sub txt_Change() If txt.Value < 0 Or txt.Value >= 1E+21 Then txt.Value = "" End Sub

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

السلام عليكم ورحمة الله وبركاته الاخواة اعضاء ومشرفى وادارة الموقع الكرام يارب يكون الجميع بخير وصحة وسعاده طلبى باختصار 1- عند اخال كود للفرع من اليوزر فورم فى حالة تكرارة تظهر رسالة تفيد ان هذا الكود مستخدم مسبقاً ويظهر بجانب التعليق اسم الفرع وكذالك عند تكرار اسم الفرع تظهر رسالة تفيد ان هذا الاسم موجود مسبقا ويظهر بجانبه كود الفرع . 2- هذا الطلب قد طلبته من قبل ولكنى اطرحه لعلى اجد له حل وهو عندما يكون هناك ملف ولنفرض انه اسمه اكس 1 مفتوح تدخل به بيانات او تطلع عليه وتفتح ملف اكس2 الذى يعمل عليه فورم فقط دون عرض الملف والمطلوب هو انى يبقى ملف اكس1 مفتوح وظاهر كما هو واكس2 الذى يعرض فورم فقط دون ظهور الملف ويمكنك فتح ملف اكس 3 به بيانات عاديه . فى انتظار المشاركات لعلى اجد ضلتى فى هذا المنتدى الذى تعلمته فيه معنى ال VBA وعلى ايدى اساتذته خطوت بيدى حروفى الاولى فى VBA وتعلمت منهم الابداع بمحرر الاكواد فورم 11.rar

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

للرفع مرة اخرى يمكن يكون هناك حل

السلام عليكم ورحمة الله وبركاته بعد اذن اخى عباد تفضل اخى حل اخر ويعمل على فى كلا الحالتين مع العلم انى مبتدا والباسورد 123 New Form.rar

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

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

تفضل اخى الكريم طلبك Book1.rar

For ..................UP

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

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

اخى الكريم اللى فهمته من سؤالك هو اذا كانت G5اصغر من 399.99 اضرب K5 فى 10% ولو G5 اكبر من 399.99 اضرب فى صفر وبالتالى تصبح المعادله كالتالى =IF(G5<399.99;(K5*0.1);0) ولكن بعد رد الاخ ابو حنين وانت لم توضح لماذا تريد ان تضيف = استنتجت انك تريد ان تكون اذا كانت G5اصغر من اويساوى 399.99 اضرب K5 فى 10% ولو G5 اكبر من 399.99 اضرب فى صفر وبالتالى تصبح المعادله =IF(G5<=399.99;(K5*0.1);0) للعلم الصفر الاخير فى المعادله تم واضعه لان اى قيمه مضروبه فى صفر تساوى صفر بالتالى تم وضعه من الاساس لكن لو حبيت تغير قيمة الصفر لكى يصبح طلبك مثلاً اذا كانت G5اصغر من اويساوى 399.99 اضرب K5 فى 10% ولو G5 اكبر من 399.99 اضرب فى 3% تصبح المعادله كالتالى =IF(G5<=399.99;(K5*0.1);(K5*0.03))

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

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

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