أبو إيمان

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

وعليكم السلام ورحمة الله وبركاته المطلوب الاول : يمكن وضع الكود التالي في حدث الورقة التي بها القائمة المنسدلة ( يقوم بتكبيير ورقة العمل بالكامل وتصغيرها مره اخرى ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Target.Validation.Type <> xlValidateList Then ActiveWindow.Zoom = 80 Else ActiveWindow.Zoom = 150 150 نسبة التكبيير عند الضغط على القائمة المنسدلة End If End Sub المطلوب الثاني Dim kn As String kn = Range("c17").Value Sheets(kn).Select

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

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False يمكنك استخدام الكود السابق حيث from اول صفحة يتم طباعتها و To اخر صفحة يتم طباعتها

اذا كنت ترغب في الحفظ كملف بي دي أف يمكنك استخدام الكود التالي ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & يتم وضع الاسم المراد الحفظ به أو الاشارة الى خلية وسوف يتم تسمية الملف بمحتوى الخلية, Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False أو اذا كنت ترغب بالحفظ العادي يمكنك استخدام this workbook.save

على اي تاريخ سوف تعتمد وهل تعتمد يوم ما في الشهر أم كل بيانات الشهر

السلام عليكم الاخ محمد هذا عمل بسيط مع وضع بعض التعديلات لتسهيل العمل حيث يعتمد على وضع التقييمات لجميع الاشهر داخل نفس ورقة العمل نتمنى من الله أن ينال اعجابك وربما احد الافاضل عنده فكره أفضل لأوراق العمل المتفرقة New Evaluation 001.xlsx

السلام عليكم بعد إذن MN20 وردة النرجس إليك/ي هذه الروابط يمكن تفيد https://www.officena.net/ib/topic/110923-مساعدة-في-قائمة-منسدلة-فرعية-من-قائمة-اخرى-ببيانات-من-شيت-أخر/#comment-669058 https://www.officena.net/ib/topic/112717-عمل-قائمة-منسدلة-مرتبطة-بقائمة-اخرى/#comment-678595

تحياتي ابو عمار وإثراء للموضوع تم الحل باستخدام دالة vlookup وحيث تم تسمية من i9:l27 باسم اللجان حيث سوف يتم استدعاء البيانات منه تغيير بداية اللجنة مع تغيير رقم اللجنة.xlsx

عمل جميل ما شاء الله جعله الله في ميزان حسناتك وكل من ساهم فيه

علاقة الارقام ببعضها غير واضحة

الضغط ضغطتين متتاليتبن على المربع الصغير الخاص بالتعبئة التلقائية ( السحب )

يمكن بأبسط الطرق استخدام خاصية البحث والاستبدال

اخي الفاضل موجود بملفك تنسيق شرطي لما حددت تلوين الخلايا التي تحتوي الرقم 1 ( فما المطلوب اذا ) عذرا إن لم اتمكن من الفهم يمكنك اضافة تنسيق شرطي اضاقي للتاريخ بدون حذف التكرار بحيث اذا تم كتابة اليوم مكرر يتم تلوينة

بالتوفيق إن شاء الله

إذا كنت تريد عدم الطباعة يمكن كتابة احد الصيغ التالية وبجوار End sub نكتب 30 On Error Resume Next ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True أو If Range("a1") = 0 Then GoTo 30 ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If واذا كنت تريد طباعة نسخة على الاقل يمكنك كتابة التالي If Range("a1") = 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=True Else ActiveWindow.SelectedSheets.PrintOut Copies:=Range("a1"), Collate:=True, _ IgnorePrintAreas:=True End If

في الخلية B1 قم بكتابة المعادلة التالية =IF(OR(A1="غائب";A1="راسب");0;IF(A1="ناجح";10;"")) أو المعادلة التالية =IF(A1="غائب";0;IF(A1="راسب";0;IF(A1="ناجح";10;"")))

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

جميل ماشاء الله

وعليكم السلام يمكن الاطلاع على الرابط التالي

وعليكم السلام ورحمة الله وبركاته يمكن ذلك من خلال أداة التحكم ( التي تقوم بالضغط عليها لاظهار ملصقات اخر ) بالضغط على الأداة بزر الفأرة الأيمن ثم اختر Format control ثم من تبويب control أمام incremental change اكتب الرقم 14 ولا تنسى حذف الملصقات الزائدة من اسفل

بعد إذن الأستاذ محمد يوسف ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & [d5], Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False d5 الخلية الموجود بها أسم العميل اقتراح للاستاذ سيد يمكن في الخلية H7 وضع رقم للفاتورة ويتم حفظ الفاتورة باسم الشخص والرقم والله الموفق

وعليكم السلام ورحمة الله وبركاته أخي الفاضل يمكن الاطلاع على الموضيع التالية يمكن أن تفيد ز فقد تم طرح موضوع الترحيل العديد من المرات https://www.officena.net/ib/topic/114303-ترحيل-بيانات-على-حسب-رقم-السيارة/#comment-688950

اقتراح بعد إذن الاساتذة أن تقوم باستخدام الكود الذي يحفظ شهادتين مع عمل حلقة تكرارية بحيث يحفظ لك 5 ملفات كل ملف يحتوي شهادتين وتقوم بدمج ال5 ملفات بعد ذلك ليصبح ملف واح به 10 شهادات بصيغة PDF

Private Sub Workbook_Open() Dim ws As Worksheet Sheet"الرئيسية".Visible = xlSheetVisible Sheet"الرئيسية".Select Range("a1").Select For Each ws In ThisWorkbook.Worksheets If Not ws.Name = "الرئيسية" Then ws.Visible = xlSheetVeryHidden Next ws Application.ScreenUpdating = true End Sub