مختار حسين محمود

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

أخى السلام عليكم الموضوع فى غاية البساطة خلى بالك بداية متصفح الأكواد ده احنا بنقول عليه محرر الأكواد الأكواد منها ما نضعه فى حدث الورقة ( الشيت ) بنضرب على اسم الورقة دبل كليك تفتح ونضع الكود الأكواد منها ما نضعه فى حدث الووربوك( الملف كاملا) بنضرب على كلمة thisworkbook دبل كليك تفتح ونضع الكود الأكواد منها ما نضعه فى مديول عادى من محرر الأكواد هتلاقى قائمة insert اختر منها كلمة module يلا يفتح نضع الكود اذا كان عندك مديول أو كود وعايز تربطه بزر اعمل رايت كيك على الزر واختار assign macro ,اختر اسم المديول ثم ok هتلاقى الكود يشتغل حمامة تحياتى واللى تريد ه الأخوة هنا ما بيتأخرووووووووش

السلام عليكم أستاذى بن عليه حاجى كم أسعدنى أن أكون مع حضرتك فى موضوع واحد أخى feteh07 المرفق بتاعك يسهل علينا كتير لكن قد أفهم من كلامك أن تريد طباعة الأوراق المسجل بها بيانات فى شيت واحد فقط ان كان كذلك فاعمل تحديد لمنطقة الطباعة التى بها بيانات وتريد طباعتها ثم من تبويب page layout اختر print area ثم اختر set print area

جرب هذا قد ينفعك طباعة حسب الطلب.rar

برجاء ارفاق ملف للعمل عليه وهتلاقى باذن الله المساعدة . تحياتى

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

111 كلمة السر علم أستاذ عبدالبارى وجارى اختار الملف

أساتذتى يمكن اعادة الرفع على نفس الموقع مع دقة نسخ الرابط فهذه أول مرة يعملها هذا الموقع الرائع أو يمكن رفعه على موقع آخر او ضع الكود المستخدم بالضبط هنا فى مشاركة مع الشرح ان أمكن وأنا أكمل ولكم الشكر مقدماً

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

فيه طريقة بدون أكواد يدوية يعنى قد تكون أسهل الآن من قائمة review نختار protect workbook فلى المربع الحوارى ضعى كلمة السر ثم أكديها ثانية ً فى المربع الحوارى التالى عمل حفظ من save هذا يمنع النسخ والقص والاخفاء واعادة التسمية بالنسبة للشيتات أيضا يمكن عمل حماية أخرى للشيتات من من قائمة review نختار protect sheet من المربع الحوارى اكتبى كلمة سر واختارى من المربع الحوارى ماتريدينه ثم أكدى كلمة السر ثانية ً فى المربع الحوارى التالى ثم حفظ

أستاذى يوسف الرابط لا يعمل أرجو المراجعة Sorry We Can't Find The File !! أستاذى عبد البارى نفس المشكلة الرابط لايعمل هل العيب عندى أم ماذا ؟!!!!!!!

السلام عليكم عند وضع أكواد فى ملف ننتبه الى طريقة الحفظ عشان الأكواد تفضل معانا فى الملف فلا تحذف ونبقى ما عملناش حاجة بعد وضع الأكواد يجب الحفظ باسم معين و بصيغة معينة ( نختار من نوع الـ save as type الخيار enabled macro ) أعتقد ان هذا قد يكون سبب الخطأ تحياتى

أخى msaj بارك الله فيكم ارفعه الى أى موقع تختاره وضع الرابط هنا المتاح هنا رفع 1 ميجا فقط ولك جزيل الشكر والعرفان

أستاذى ياسر أنا متوصى بيك النهردة أهــــه كود بحث عن طالب باستخدام رقمه السرى ( يوضع فى حدث الـــورقة ) Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ' هنا نحدد رقم الصف الرقم السرى If Target.Column <> 6 Then Exit Sub ' هنا نحدد عنوان الخلية التى سنضع بها الرقم السرى للطالب الذى سنبحث عنه If Not Range("f6") = "" Then Range("f6").Select Range(Selection, Selection.End(xlDown)).Select ' عند الكتابة فى الخلية تحدث عملية فلترة وظهور الاسم الذى تبحث عنه فقط فى شيتك Selection.AutoFilter Field:=1, Criteria1:=[f6], Operator:=xlOr Application.ScreenUpdating = True ' رسالة حمد بعد ظهور الاسم MsgBox "بحمد الله تعالى تم اظهار الاسم ", vbInformation + vbMsgBoxLEFT, " مع تحيات / مختار حسين محمود " End If Application.ScreenUpdating = True ' ملحوظه : لإعادة اظهار جميع الأسماء امسح الرقم السرى من الخلية عندها ستظهر كل الاسماء End Sub

كود انتهاء صلاحية ملف فى تاريخ محدد مع فتح الملف بكلمة سر الحمد لله ( يوضع فى حدث الـــ workbook ) Private Sub Workbook_Open() 'تحديد انتهاء صلاحية ملف اعتبارا من تاريخ محدد والفتح بكلمة الحمد لله If Date > DateValue("1/1/2015") Then If InputBox ("من فضلك أدخل كلمة السر ") <> "الحمد لله" Then ' رسالة لو كلمة المرور خاطئة MsgBox "كلمة مرور خاطئة " ' وغلق الملف لو كلمة المرور خاطئة ThisWorkbook.Close Else ' اذا كانت كلمة المرور صحيحة ترى الرسالة التالية MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub

كود ترفيهى مع الاكسل ( اختفاء الملف ثم الظهور بعد مدة زمنية محددة ) Public Sub HideExcelMakeExcelInvisible() ' اخفاء ملف الاكسل من أمامك Application.Visible = False ' المدة الزمنية التى يظهر بعدها ملف الاكسل Application.Wait Now + TimeValue("00:00:10") ' أمر ظهور الملف Application.Visible = True End Sub ================================================== أيها الاصدقاء المشاركون فى هذا العمل اعملوا أنه صدقة جارية لكم سيستفيد منه الجميع من شارك ولو بكود ومن لم يشارك ****************************************************************** كل سنة وأنتم أقرب الى الله

اخوانى وأحبابى بالمنتدى السلام عليكم معى ملف كنترول شيت مساحته 2 ميجا على هذا الرابط http://www.mediafire.com/download/2ck6w1w8wzq6ftv/test.rar المطلوب : وضع الدوائر الحمراء فى الشهادات الثلاث توضع الدوائر على صف الدرجات وصف التقديرات إن أمكن ( وهو الأفضل ) وإلا فعلى صف التقديرات فقط الدوائر توضع أيضاً على الطلاب الغائبين أيضاً ( غـ ) علماً بأن الشهادات 3 فى كل ورقة والطباعة آلية لكل الشهادات ( يعنى أزرار وضع الدوائر وازالتها لا يجدى ) أرجوا منكم التعاون بأى فكرة مهما كانت حتى لوكانت بأزرار اضافة / حذف الدوائر حتى تعم الفائدة كل سنة وأنت أقرب الى الله

السلام عليكم ورحمة الله وبركاته التالى كود لدق أرقام سرية أو عمل ترقيم تلقائى Sub AutoNumbering() ActiveCell = ActiveCelltiveCell NS: A = Application.InputBox("أدخل أول رقم فى السلسلة التى تريد إنشاؤها", " ") B = Application.InputBox("أدخل آخر رقم فى السلسلة التى تريد إنشاؤها", " ") If A = False Or B = False Then Exit Sub ElseIf A = "" Or B = "" Then MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ" Else If [IV65536] = 1 Then ActiveCell = A Else: Columns(ActiveCell.Column).Rows(65536).End(xlUp).Select If ActiveCell = "" Then ActiveCell = A Else: ActiveCell.Offset(1, 0).Select Selection = A End If End If ActiveCell.DataSeries xlColumns, , , 1, B End If If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then ActiveCell.ClearContents Beep If MsgBox("أول رقم فى السلسلة أكبر من آخر رقم ... هل تود إعادة المحاولة ؟", vbQuestion + vbYesNo, " إدخال خاطئ") = vbNo Then Exit Sub Else: GoTo NS End If End If Beep If MsgBox("هل تود إنشاء سلسلة رقمية أخرى ؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then Exit Sub Else: GoTo NS End If End Sub تحياتى للجميع

السلام عليكم بارك الله فيكم جميعا راجعوا الرابط التالى لزيادة الفائدة http://www.officena.net/ib/index.php?showtopic=57286

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

اخوانى وأحبابى السلام عليكم اليوم أقدم لكم كيفية عمل صورة من مدى معين تحدده مع حفظ الصورة فى مسار تحدده أيضاً الكود المستخدم فى الموضوع مديول عادى : Sub make_jpeg() Dim i As Integer Dim intCount As Integer Dim objPic As Shape Dim objChart As Chart 'نسخ المدى كصوره Call Sheet1.Range("A1:f13").CopyPicture(xlScreen, xlPicture) 'مسح أى أشكال من شيت 2 intCount = Sheet2.Shapes.Count For i = 1 To intCount Sheet2.Shapes.Item(1).Delete Next i 'عمل جدول فى شيت 2 Sheet2.Shapes.AddChart 'تنشيط شيت 2 Sheet2.Activate 'تحديد الجدول الذى يوجد فى شيت 2 Sheet2.Shapes.Item(1).Select Set objChart = ActiveChart 'لصق المدى اللى نسخناه فى هذا الجدول Sheet2.Shapes.Item(1).Width = Range("A1:f13").Width Sheet2.Shapes.Item(1).Height = Range("A1:f13").Height objChart.Paste 'حفظ الجدول كصورة فى المسار التالى objChart.Export ("D:\photo\mokhtar.Jpeg") End Sub وتفضلوا المرفق واعلموا أن لا أريد كلمات المدح أو الثناء ولكن كل ما أريده من حضراتكم دعوة بسيطة بظهر الغيب للمرحوم أبى . كل سنة وأنتم أقرب الى اللـــــه عز وجل range 2 jpeg by mohtar.rar

أخى ياسر لا أدرى ما السبب عندك والملف شغال معاى 10 / 10 وكمان عند الزملاء لان ما فى حد اشتكى جرب اعادة تحميل الملف على فكرة أنا شغال على 2010

أستاذى الفاضل أبوحنين وجعلها عليك وعلى كل ذويك جمعة مباركة أستاذى ياسر الفكرة بسيطة زى ما حضرتك قلت فى الإغلاق بدون حفظ بس نضيف على كده اعادة فتح الملف مع رسالة تأكيد عودة البيانات ومش كده وبس فى ثنايا الموضوع بتعلم حاجة تانى غير التراجع ألا وهى ( كيفية تشغيل ماكرو عن طريق ماكرو آخر ) يعنى الموضوع موضوعين 1*2

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

أستاذى الفاضل أبو محمد عباس تقبل الله دعاءك ومتعكم بالصحة والعافية أستاذى الفاضل محمد يوسف آمين آمين أمين أنتم ونحن إن شاء الله رب العالمين . الأستاذ محمد راجع هذا الرابط فيه جاجة ليك سبتها لك ولا أدرى إذاكنت قد اطلعت عليها أم لا http://www.officena.net/ib/index.php?showtopic=57755#entry368632 أستاذى العزيز ياسر خليل بوركت ولا أدرى ما السبب عندك ( احتمال يكون الزر مش مربوط بالكود CloseMe ) أستاذى KHMB بارك الله فيك وتقبل الله دعاءك ولك مثله إن شاء الله رب العالمين