نجوم المشاركات

السادة الزملاء تم تخديث الفيديوهات على اليوتيوب ورفعها على المنتدى كل فيديو فى مكانه أسئلة كثيرة تتردد على مسامعي منها على سبيل المثال : http://magdiyonis54.blogspot.com.eg/ كيفية تصميم شيت اكسل كيفية عمل جدول تنسيق الجدول كيفية إدخال البيانات إضافة الألوان وضبط النصوص دمج الخلايا أبجدة الأسماء التنسيق الشرطي الجمع ومستوى الطالب ( ممتاز جيد ......) وضع السري عمل التسلسل إظهار الصفوف وإخفائها هذه الأسئلة سأجيب عنها وبطريقة بسيطة وبعيد عن المعادلات للهواة أو لطالبى كيفية عمل شيت للامتحانات عنوان المنتدى http://magdiyonis1.forumegypt.net عنوان المدونة الخطوة الاولى.rar

بارك الله فيك اخي الحبيب / ابو عمرو جزاك الله خيرا

تفضل الحل salary2014.rar

انظر الاستعلام Query1_Crosstab وقم ببناء تقريرك عليه salary2013UP.rar

بعد اذن اخي الحبيب / حمادة عمر (روح المنتدي) تم نقل كود الأستاذ // حمادة عمر لملفك الجديد (اليومية الرئيسية) عمولة التحويلات المالية الرئيسية.zip

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

اخي الحبيب // حمادة عمر الله لا يحرمنا من روائعك اخي الخبيب ابوالقبطان بارك الله فيك

السلام عليكم الاخ الكريم / essa_alamre بارك الله فيك وجزيل شكري علي كلماتك الجميله والاهم انك توصلت لما تريد جزاك الله خيرا

السلام عليكم الاخ الكريم / essa_alamre بارك الله فيك بعد اذن الاخ الحبيب / ضاحي غريب .... جزاه الله خيرا وبعد اذن اخي الحبيب / ابو القبطان ... حسن علي ... جزاه الله خيرا ولاثراء الموضوع ... جرب استخدام الكود التالي ... قم بالتسجيل في العمود D وشاهد النتيجة ثم قم بتغيير التاريخ وستلاحظ الفرق ... ارجو ان يكون هذا هو طلبك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("d2:d20000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, -1).ClearContents Else With Target(1, -1) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub جزاك الله خيرا عمولة التحويلات المالية1.rar

اخي قد تجد اجابة سؤالك في الرابط المرفق http://www.officena.net/ib/index.php?showtopic=44406&hl=%2B%D8%AA%D8%BA%D9%8A%D8%B1+%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE#entry258729 بالتوفيق إن شاء الله

انا سوف احاول وان شاء الله نصل لطريقة بالكود

أخي الكريم اذا كنت تريد تثبيت التاريخ بطريقة سهلة عند أدخال تاريخ اليوم قم بالضغط Ctrl + ك بالترتيب كنترول قم مفتاح (ك) من لوحة المفاتيح سوف يقوم بادراج تاريخ اليوم أو عن طريق الكود السابق لتثبيت تاريخ ادخال اليوم باستخدام =Today() ر

اخي الكريم بالمرفقات جرب الملف لتثبيت تاريخ اليوم عمولة التحويلات الماليةB.rar

السلام عليكم أخي العزيز أرجو أن يكون المرفق هو ماتريد استخدمت به الأكواد التالية (ليس لها حاجة الآن ، فقط للتعلم) Sub Macro1() ' بعد نسخ جميع البطاقات ' هذا الكود لعمل فاصل صفحات بعد كل بطاقة For i = 1 To 150 Range("A" & i * 28 + 1).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell Next End Sub Sub Macro2() ' وهذا الكود لتغيير عنوان البطاقة لجميع الـ 150 صنف For i = 1 To 150 n = Sheet1.Cells(i, 12) Range("A" & i * 28 - 20).Value = "بطاقة صنف / للمعادن {" & n & "}" Next End Sub Sub Macro3() ' وهذا الكود يتم تشغيله من الورقة الأولي لعمل اللينكات كل خلية مع عنوان البطاقة التي بها الرقم For r = 4 To 162 Cells(r, 1).Select If IsEmpty(Selection) Then GoTo 10 x = "{" & ActiveCell.Value & "}" With Sheet2 a = .Cells.Find(What:=x, After:=[A1], LookIn:=xlFormulas, LookAt:=xlPart).Row End With lnk = "'" & Sheet2.Name & "'!A" & a ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=lnk 10 Next End Sub مبيعات ومخازن2013_2.rar

السلام عليكم استاذي الفاضل القدير / رجب جاويش بارك الله فيك وجزاك الله خيرا لقد اسعدني جدا مرورك وثناءك علي موضوعي ( ويعلم الله مدي سعادتي بذلك ) ولكن اسمح لي استاذي ان ذلك كله من فضلكم وعلمكم وهو رد للجميل والدين الموجود لدينا لكم انتم ولك بالاخص استاذي العزيز فقد تعلمت منك كثيرا استاذنا جزاك الله خيرا

الاخوة الزملاء كنت امل التفاعل مع شرح خطوات عمل شيت كنترول للوصول الى شكل يستفاد منه الجميع وعموما اليوم نتعرف على بداية عمل شهادة للطالب أو ممكن استعمالها فى الكشف على درجات طالب بداية سننفذ مربع تحرير وسرد اى بالضغط على الزر تظهر قائمة بارقام الجلوس نختار الرقم تظهر بيانات الطالب واليكم الشرح بالفيديو http://magdiyonis.forumegypt.net/ مربع تحرير وسرد.rar

الان الى مرحلة ادراج صف او ادراج عمود نقف يمين الصف وكليك يمين بالماوس تظهر لوحه منسدله نختار ادراج نقف شمال العمود وكليك يمين بالماوس تظهر لوحه منسدله نختار ادراج ******** عندما نكتب اسم طويل يختفى باقى الاسم فنريد التوسعه وذلك بطريقتين 1 اقف اعلى العمود وعندما تظهر العلامه نشد العمود للمسافة المطلوبة 2 نقف اعلى العمود ونعمل 2 دبل كليك بالماوس نفس الفيديو السابق ادراج صف وعمود.rar توسيع العمود.rar

الاخ عباس والاخ عبد الله والاخ ابو ردينه شكرا لكم وكل عام وانتم بخير الان كيفية تساوى ارتفاع الصفوف وادراج عواميد ارتفاع الصفوف.rar

الاخ/ mahmoud شكرا للتهنئة بالعيد الان كيفية تحويل الارقام من الانجليزية للعربية بالاكسل اكسل 2003 و 2010 تحويل الارقام للعربية.rar

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

شكرا ابو حنين وكل عام والاخوة بالمنتدى والعالم الاسلامى بخير

السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ \ بن عليه الخطوات كالتالي: 1\ تختار قائمة FILE 2\ ثم PAGE SETUP 3\ ثم من الخيارات العليا تختار SHEET 4\ ثم تضع المؤشر على ROWS TO REPEAT AT TOP 5\ ثم تختار الصفوف العليا التي تريد تكرارها في باقي الصفحات وسيكون نفس التنسيق أرجو أن يكون هو المطلوب