احمد حمور-ابوعبدالله

اخي الحبيب جمال تواصلك جميل بارك الله فيك

ولا يهمك على الرحب والسعه

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

اخي الكريم ارجوا ان يسمح لي اخي الحسامي ان ابين لك اين موضع العود f في الكود انظر الى الكود التالي If C.Offset(0, 1).Text = ComboBox1 Then الكود اعلاه هو الخاص بالعمود f حيث ان c هي للعمود e اما offset فهي لتحديد مقدار الازاحه اي offset(0,1) تعني بان الصفر للصف نفسه اما الواحد هو مقدار الازاحه للعمود الذي يلي العمود e ارجو ان تكون الفكره واضحه

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

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

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

والله يا ابواحمد اجابه ممتازه وعمل ممتاز احسنت صنعا

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

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

اخي الحبيب الحسامي وين هالغيبه زمان ما سمعنا عنك , شو قصتك يا رجل عساك ان شاء بخير اخوك المخلص ابوعبدالله ================================================== اما لالنسبه لاخي السائل لم تتوضح الصوره لي بعد ارجوا ارسال مثال توضيحي اكثر

ماشاء الله عمل جميل بارك الله فيك

طال غيابك اخي خالد اطلاله اعتز بها بارك الله فيك وكثر من امثالك

مشكور يا اخي الكريم تحيه لكل اعضاء المنتدى الافاضل

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

اخي الكريم الكود موجود في حدث الصفحه نفسها وليس ماكرو اي انه يعمل تلقائيا عند اي تغيير في الصفحه فهذا افضل من الماكرو لانه يعمل كما قلت اتوماتيكيا وان كان هذا ليس واضحا فارجوا منك ان تحدد ما تريده بالضبط وفي اي عمود وفي اي صفحه تريد الفورمات Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.NumberFormat = "DD/MM/YYYY" End If End Sub الكود اعلاه هو الموجود عندك بالملف

شكرا لك اخي ياسر

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

اخي الكريم اتمنى ان يكون هذا ماتطلبه جرب ان تدخل اي قيمه في عمود A من الصفحه الاولى وتلاحظ ان الكود يجبر الخليه بالتاريخ الذي تطلبه Book1.rar

اخي ابو احمد احسنت صنعا

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

اخي السائل الكريم تابع المواضيع الموجوده في توقيعي علها تفيدك لان بها ماتطلب وزياده والله الموفق

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

اخي الكريم بصراحه لا اعرف الاجابه وما خطرت في بالي لان الرقم كبير جدا ولم ولن احتاجه حياك الله

بارك الله فيك اخي ياسر