الصـقر

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

الف مليون مبروك

تم رفع المرفق مره اخرى بعد التحميل يجب فك الضغط اولا بالضغط على EXtract قائمه منسدله.zip

اخى الكريم ادخل على الموديول 2 واستبدل الكود الموجود بالتالى وعلمنى بالنتائج تقبل تحياتى ولا تنسانى من صالح دعائك Sub iPageSetup() Application.ScreenUpdating = False Dim sh As Worksheet, Lr As Integer, Last As Integer Set sh = Sheets(2) With sh Last = .Range("A" & Rows.Count).End(xlUp).Row + 1 .PageSetup.PrintArea = "" .Range("A8:g" & Last).Borders.Value = 0 '----------------------------------------------------- .Range("A8:g" & Last).ClearContents .Range("A8:g" & Last).Borders.Value = 0 .PageSetup.LeftMargin = Application.InchesToPoints(0.7) .PageSetup.RightMargin = Application.InchesToPoints(0.7) .PageSetup.TopMargin = Application.InchesToPoints(0.7) .PageSetup.BottomMargin = Application.InchesToPoints(0.7) .Columns("A:A").ColumnWidth = 5: .Columns("B:B").ColumnWidth = 15 .Columns("C:C").ColumnWidth = 20: .Columns("D:D").ColumnWidth = 10 .Columns("E:E").ColumnWidth = 5: .Cells.Font.Size = 10 .Columns("f:f").ColumnWidth = 5: .Cells.Font.Size = 10 End With Dim i, a As Integer a = 8 For i = 0 To UserForm1.ListFind.ListCount - 1 sh.Cells(a, 1) = UserForm1.ListFind.List(i, 0) sh.Cells(a, 2) = UserForm1.ListFind.List(i, 3) sh.Cells(a, 3) = UserForm1.ListFind.List(i, 4) sh.Cells(a, 4) = UserForm1.ListFind.List(i, 6) sh.Cells(a, 5) = UserForm1.ListFind.List(i, 8) sh.Cells(a, 6) = UserForm1.ListFind.List(i, 9) sh.Cells(a, 7) = UserForm1.ListFind.List(i, 10) a = a + 1 Next i Lr = sh.Range("A" & Rows.Count).End(xlUp).Row sh.PageSetup.PrintArea = "A1:g" & Lr sh.Range("A8:g" & Lr).Borders.Value = 1 Application.ScreenUpdating = True End Sub

اخى الكريم ابوالقاسم ادخل محرر الاكواد نشط الفورم ثم اضغط على زر البحث سيدخلك الى الكود الخاص بالضغط على زر البحث المهم فى اخر سطر من الكود اللى هو ده If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0 استبدله بالسطر التالى If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ColumnWidths = "70;0;0;60;60;0;60;0;60;60;60": Me.ListFind.ListIndex = 0 الشرح ما تم اضافته هو هذه الجزئيه Me.ListFind.ColumnWidths = "70;0;0;60;60;0;60;0;60;60;60" وهى الخاصيه المسئوله عن تحديد عرض الاعمده بالليست بوكس لو قمت باحصاء الارقام ستجدها 11 لان عدد الاعمده فى الشيت 11 ( من العمود A الى العمود K ) فأنا عملت عرض للــ 11 عمود ولكن العمود اللى انا مش عايزه يظهر كتبت عرضه 0 وبكدا مش هيكون ظاهر بأمكان أخفاء اى عمود أو أظهار من خلال التحكم فى عرض العمود على سبيل المثال اول رقم من على اليسار 70 طبعا ده العمود بتاع الكود اللى هو عمود A لو انت مش عايز تظهره مثلا تستبدل 70 بــ 0 وبكدا عمود الكود اللى هو A مش هيظهر ارجوا ان تكون وضحت الفكره تقبل منى وافر الاحترام والتقدير

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

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

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

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

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

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

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

اخى الحبيب ابوالبراء الموضوع ممكن يكون بدون اكواد من شريط القوائم اختر Pagelayout ثم اختر Print titles هتظهر لك قائمه اختر اخر شئ وهو sheet ثم من الجزء الخاص بـ Print ضع علامه صح بجوار Black and white تقبل تحياتى

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

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

اخى الكريم جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal x As Range) ActiveSheet.Cells.Interior.ColorIndex = 0 x.EntireRow.Interior.ColorIndex = 4 End Sub شاهد المرفق تقبل تحياتى تلوين الصف.zip

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

اخى الكريم استبدل السطرين الخاصين بالتكست بوكس 3 و 4 بهذين السطرين TextBox3.Value = Format([b9], "dddd") TextBox4.Value = Format([c9], "yyyy/mm/dd") تقبل تحياتى

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

استاذ عطا بعد اذن حضرتك ارفع الملف بعد التعديل انا مش فاهم يعنى ايه معرفتش اكرر الطريقه لباقى الفصول اى فصول تقصد ؟؟ المفروض حضرتك بتختار الفصل من القائمه المنسدله فى E2 استفسار اخر ما فائده تكرار الجدولين الموجود ين بالنطاق من العمود A الى العمود L انا شايفهم مكررين الى العمود Ay ما الداعى لتكرار التصميم ؟ تقبل تحياتى

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

اخى الكريم على حسب ما فهمت من طلبك شاهد المرفق الرقم السرى هو 111 ويمكنك تغييره تقبل تحياتى لا يسمح بدخول البيانات إلا عن طريق الفورم.zip

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

بعد اذن استاذى سليم اخى الكريم الاستاذ عطا جرب الملف المرفق على حسب ما فهمت تم عمل كود للقائمه المنسدله فى الخليه E2 فقط عند الاختيار منها يتم جلب الاسماء والمجموع طبقا للفصل المختار وتم تعديل فى الشيت 1 & 2 الاسماء فى العمود b تكون الى رقم 32 اسم فقط والباقى فى العمود K يبدأ السريل من 33 الى 64 السبب فى ذالك هو التصميم اللى موجود بالشيت يوسف 2015 اللى هو مطلوب جلب البيانات فيه طبعا انا عملت الكلام ده فى شيت 1 & 2 فقط وعليك انت بقى تظبط باقى الشيتات من 3 الى 20 بنفس الطريقه اذا حبيت تجرب الكود جرب فقط اختيار الفصل 1/1 أو 2/1 اللى هما تم ظبت التنسيق بهما جرب وعلمنى بالنتجية تقبل تحياتى دفتر أعمال السنة تعديل.zip

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