عبدالله باقشير

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

السلام عليكم ورحمة الله وبركاته فورم إضافة وبحث وتعديل مرن (الاصدار الثالث) بمعية فورم لادخال التاريخ الجديد في هذا الاصدار 1 - امكانية اضافة التاريخ في تاكست الادخال بوضع مؤشر الفارة على التاكست والضغط عل الزر Calendar 2 - اضافة زر اختيار للبحث للتبديل بين البحث العام والبحث من بداية الكلمة 3 - اضافة زر للذهاب الى السجل النشط شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" الشرح بداخل الملف للاستخدام يجب نقل الفورمين الى ملفك المرفق 2003 فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar ============================================ تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300 ============================================

اضرب المعادلة في الكمية =INDEX(mydate;MATCH($D4;INDEX(mydate;0;4);0);MATCH($C4;INDEX(mydate;1;0);0))*B4 اما تكبير الخط في القائمة فلم اعمل اي شي سوى تكبير الزوم للورقة تحياتي

السلام عليكم شاهد المرفق 2010 اسعار السيارات.rar

المرفق2003 الترحيل باوراق موجودة.rar

السلام عليكم ضع هذا الكود في موديل الورقة Feuil1 Private Sub CommandButton1_Click() Range("F11:F60").Replace ",", "." End Sub تحياتي

السلام عليكم الشكر واصل للاخت أم عبدالله اثراءا للموضوع شاهد المرفق 2010 صندوق1.rar

اخي الحبيب جمال عبد السميع اخي الحبيب رجب جاويش

اختي الفاضلة أم عبدالله

اخي الحبيب جمال عبد السميع

السلام عليكم العنوان : سؤال لخبراء الاكسل فهل من مجيب ليس عنوانا مناسبا لموضوعك قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ×××××××× سيتم تعديل العنوان وارجوا عدم التكرار ×××××××× الإدارة

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

اخي الفاضل قنديل الصياد

السلام عليكم اخي الحبيب رجب ........حفظك الله ائراءا للموضوع هذا نفس كودكم بطريقة اخرى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub For i = 3 To 600 Step 10 If Not Intersect(Target, Cells(i, "H")) Is Nothing Then Cells(i, "H").Resize(10, 1).Value = Target Cells(i, "G").Resize(10, 1).Value = Range("B3:B12").Value End If Next End Sub تحياتي

السلام عليكم ضع المعادلة هذه في الخلية G3 =INDEX($B$3:$B$12;MOD(ROW()-3;10)+1) واسحبها الى اسفل رقم 3 في المعادلة هو رقم صف اول خلية تضع فيها المعادلة وهي الخلية G3 تحياتي

السلام عليكم تم استخدام النموذج الاخير الذي في الرابط التالي فورم ادخال و تعديل وبحث (باستخدام اسم نطاق للقائمة المنسدلة) وتم تنفيذ المقدور عليه من طلباتك شاهد المرفق 2010 فورم ادخال مرن.rar

اخي الحبيب حمادة باشا

اخي الحبيب رجب جاويش

اخي الفاضل عبدالحميد شقير

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

اخي الحبيب رجب جاويش

السلام عليكم جرب التالي Sub kh_Start() Dim M As Long On Error GoTo 1 M = WorksheetFunction.Match(ورقة1.[F4], ورقة2.Range("A2:A10000").Value, 0) With ورقة2.Cells(1, "A").End(xlUp).Offset(M, 0) .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9")) End With ورقة1.Range("F4:F9").ClearContents MsgBox " تم التعديل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله" 1: If Err Then MsgBox "استخدام خاطىء": Err.Clear End Sub تحياتي

السلام عليكم جرب الكود التالي Sub Macro1() With ورقة2.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) .Resize(1, 6).Value = WorksheetFunction.Transpose(ورقة1.Range("F4:F9")) End With ورقة1.Range("F4:F9").ClearContents MsgBox " تم الترحيل بنجاح ", vbMsgBoxRight + vbMsgBoxRtlReading, "الحمد لله" End Sub تحياتي

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