حسونة حسين

يمكنك الاستفاده من هذا الموضوع

بعد اذن الاستاذ @محي الدين ابو البشر اخى @فوزى فوزى عدل السطر For i = 1 To UBound(d, 2): d(1, i) = 1 * Split(d(1, i), "/")(0): Next الى For i = 1 To UBound(d, 2): d(1, i) = 1 * Split(d(1, i), "/")(1): Next وايضا السطر x = Application.Match(1 * Split(ws.Range("E7"), "/")(0), d, 0) الى x = Application.Match(1 * Split(ws.Range("E7"), "/")(1), d, 0) عسي ان يكون طلبك ان شاء الله

اخى @Abu Rafatما هي شكل النتائج المطلوبه

عند تحميل الملف تظهر هذه الرساله عذرًا، هذا الملف مصاب بفيروس. يُسمَح للمالك فقط بتنزيل الملفات التي تضم فيروسات. كما يمكنك كتابه رقم الواتس في تعليق جديد وسوف نقوم بتعديل الرقم الجديد ان شاء الله

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

بعد اذن الأستاذ ابراهيم اضف هذا السطر قبل end sub ws.Range("C" & L2 + 1).Resize(x) = Me.TextBox2.Value

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

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

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

وعليكم السلام ورحمة الله وبركاته هذه الخطوات ان شاء الله تحل المشكله 1 انقر فوق قائمة ابدأ 2- نسخ اختصار Microsoft Excel الي سطح المكتب الخاص بك 3-انقر بزر الماوس الأيمن فوقه واختر خصائص (Properties)ثم انقر فوق علامة تبويب التوافق(compatibility Tab) 4- set check on run this program in compatibility mode for 5-Apply then OK

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

الملف يعمل على ويندوز ١٠ سواء اوفيس ٢٠١٠ او اوفيس ٢٠٢١ انا جربت لك علي ويندوز ٧ ٦٤ بت اوفيس ٢٠١٠ ظهر الخطأ الذي تتحدث عنه ان شاء الله غدا هجرب لك على ويندوز ٧ اوفيس ٢٠١٦

اخى @فوزى فوزى ما هو نوع الويندوز ما هو نوع الاوفيس وهل الاوفيس ٣٢ بت ام ٦٤ بت

عند وضع الفولدر temp وبه الملف names في ال c الطبيعي ان الملف يفتح معك عادى مثل اي ملف اكسل معني انه تظهر لك هذه الصورة انك لم تضع الفولدر وبه الملف في الC ضع صورة لملف names وهو في الC

وعليكم السلام ورحمة الله وبركاته ماذا يظهر لك عند فتح الملف

هذا الموضوع الاصلي للبرنامج للاستفاده من طريقه عمل البرنامج هنا

وعليكم السلام ورحمة الله وبركاته ضع الفولدر المسمي temp في بارتشن c وسوف يعمل معك الملف

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

وعليكم السلام ورحمة الله وبركاته هذا الكود كله يوضع في ال userform

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

وعليكم السلام ورحمة الله وبركاته يمكنك الاستفادة من هذا الموضوع

وعليكم السلام ورحمة الله وبركاته يمكنك ذلك عن طريق خاصيه EnterFieldBehavior تحتاج فقط إلى ضبطها على fmEnterFieldBehaviorSelectAll هذه هي القيمة الافتراضية لهذه الخاصية ، لذا لن تحتاج إلى فعل أي شيء ما لم تقم بتغيير قيمة الخاصية بمجرد الضغط على الزر tab في الكيبورد كما يمكنك الاستفادة من هذا الموضوع ويمكنك ايضا عن طريق هذا الكود Dim boolEnter As Boolean Private Sub TextBox1_Enter() boolEnter = True End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) If boolEnter = True Then With TextBox1 .SelStart = 0 .SelLength = Len(.Text) End With boolEnter = False End If End Sub

السلام عليكم ورحمة الله وبركاته المشكله ليست في الملف المشكله في لغه الجهاز حل مشكله اللغه العربيه

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

اخى الكريم @احمد غانم ارفق ملف ليري الاخوة اين المشكله في جهازك ام في الملف