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

ثانيا:-كيفية اضافه عناصر تحكم داخل الـ Frame اثناء عملية التصميم لأضافه عناصر تحكم داخل الـ Frame يوجد طريقتين الطريقه الاولى :- شاهد الصوره الطريقه الثانيه :- لو حضرتك قمت بتصميم عناصر على الفورم مثل الصوره دى ثم فكرة انك تجعلهم داخل فريم بعد ما صممت العناصر وظبت التنسيقات وكل شئ فما الحل ؟؟؟ شاهد الصور التاليه بعد ما تضغط على Paste ستجد العناصر داخل الفريم بنفس التنسيق شاهد الصوره التاليه وبكدا عرفنا اننا نقدر نضيف اى عنصر او عناصر تحكم داخل الفريم أما بأنشائها لاول مره او اننا بننسخها من الفورم ملحوظه مهمه جدا تقدر تنسخ بنفس الطريقه من فورم اخر وتعمل لصق على فورم جديد مفيش مشكله واحد هيقولى وايه الفايده لما تنسخ مثلا كمبوبوكس من فورم انت مصممه قبل كدا وتعمله لصق فى فورم جديد لانه بيوفر عليك الوقت والجهد من تظبيط التنسيقات للكمبوبوكس وبيتم لصقه بنفس الخصائص **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن التعرف على خصائص Frame من شاشة الخصائص اثناء عملية التصميم انتظرونا تقبلوا تحياتى

أخي الكريم أبو سليمان لطالما سألت عن هذا الأمر .. ولم تقتحم الأمر .. ولذا يختلف الأمر الفكرة في التعلم هي الجرأة ..نعم الجرأة ..أرى الكثير يخشى خوض التجربة ، ولما الخشية ولما الرهبة ولما كل هذا الخوف ؟؟!! إنني أتسائل وأتعجب ؟؟؟!! الجرأة هي الخطوة الأولى نحو التعلم .. والرغبة في التعلم هي الخطوة الثانية .. والخطوة الثالثة البدء في التطبيق العملي أولاً بأول إن الطفل الصغير عندما يتعلم المشي ، لابد أن يمتلك الجرأة أولاً لأنه حتماً سيقع ثم يحاول أن ينهض فيقع ، وتستمر المحاولات بلا يأس وبلا أدنى رهبة ، ويساعده من حوله ، ويشجعونه حتى ولو أخطأ (فالخطأ وارد لا محالة ) ، وهكذا يكون الأمر ويستمر حتى يفلح في نهاية المطاف للوصول لمبتغاه ابدأ ...هذه هي نصيحتي لك :: ووقت أن تبدأ من الطبيعي أن تقابل صعوبات ، لا عليك فنحن سنشد من أزرك بعون الله ، فكلنا هنا طلاب علم ولسنا أساتذة كما يظن الكثيرون ..نحن طلاب علم وسنطل ننهل من العلم ما شاء الله أن نحيا ، فبالعلم يحيا القلب والعقل معاً أعتذر عن الإطالة والإسهاب في الحديث .. تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله وبركاته أحبائى وأساتذتى ومعلمينى فى هذا الصرح العلمى الهائل تحية طيبة وبعد أقدم لكم اليوم مجموعة رائعة من الأيقونات زات الجودة العالية أرجوا من الله أن تنال إعجابكم http://www.mediafire.com/download/42x3exq2c119cvo/1.rar http://www.mediafire.com/download/97cazvonq76t7r5/2.rar#1 http://www.mediafire.com/download/3da8dafesiy96hc/3.rar http://www.mediafire.com/download/byhgi1eu2u9ou29/4.rar http://www.mediafire.com/download/31yspi92357332b/5.rar http://www.mediafire.com/download/mydc1fc09z1kbj7/6.rar http://www.mediafire.com/download/ewm23d4geccddex/7.rar تقبلوا خالص تحياتى وتقديرى

بسم الله الرحمن الرحيم اليوم بمشيئة الله سنتكلم عن شروحات الفريم ( Frame ) تستخدم هذه الاداه فى احتواء بعض ادوات التحكم مثل ( الليبل او التكست بوكس او الكمبوبوكس وغير ها من العناصر) داخل الفريم بقصد اعطاء شكل جمالى أن شاء الله هيتم تناول الموضوع على ست مراحل 1- كيفية انشاء Frame على الفورم اثناء عملية التصميم 2- كيفية اضافه عناصر تحكم داخل Frame اثناء عملية التصميم 3- التعرف على خصائص Frame من شاشة الخصائص اثناء عملية التصميم 4-التعامل مع خصائص الـ Frame فى لغة البرمجه 5-كيفية اضافه عناصر تحكم داخل الـ Frame والتحكم فى الاسكرول بار للــ Frame عند فتح الفورم او اثناء العمل على الفورم وهو نشط 6-التحكم فى العناصر الموجوده داخل الـ Frame بطرق احترافيه نبدأ بسم الله أولا :- كيفية انشاء Frame على الفورم اثناء عملية التصميم لأضافه Frame جديد على الفورم يوجد طريقتين الطريقه الاولى :- الطريقه الثانيه :- نسخ فريم موجود على الفورم وعمل فريم اخر منه ملحوظه لو كان Frame1 يوجد به عناصر تحكم وليكن به comboBox1 وقمت بنسخ Frame1 لعمل فريم اخر منه ستجد داخل الفريم الجديد Frame2 بداخله comboBox2 وله نفس خصائص comboBox1 الخلاصه انه عند نسخ فريم يتم نسخه مع ما يحتويه من عناصر تحكم ايضا ويكون الفريم الجديد وما يحتويه من عناصر له نفس الخصائص اللى موجوده بالفريم الاول **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية اضافه عناصر تحكم داخل الـ Frame اثناء عملية التصميم انتظرونا تقبلوا تحياتى

السلام عليكم سأعتبر أن الأمر موجهاً لنا كلنا وأن المساعدة سنستفيد منها جميعاً...وخصوصاً لدينا عظماء قد حنوا جباههم لعظمة العلم الذي أمر الله به(وقل رب زدني علماً) ولنا في موسى عليه الصلاة والسلام القدوة الحسنة عندما قال :( أو أمضي حقباً) فطلب العلم يقترن بالحياة ...هذا رأيي.. وقد رأيت في الآونة الأخيرة تلك الرغبة الجامحة على الاستزادة منه ...فإن تحقق لي الوقت الكافي سأجعل منه -إن شاء الله تعالى - مسخراً لطلب العلم حتى لو بلغت من الكبرعتياً.والسلام عليكم.

السّلام عليكم و رحمة الله و بركاته سادتي الأفاضل .. جميع أعضاء و منتسبي جامعة " أوفيسنا " التعليمية عملية البحث بأول حرف من الاسم داخل الفورم لا و لن تنتهي .. كتابة الحرف من الاسم المقصود البحث عنه داخل التاكست بوكس .. و استعمال زر الأمر ليحرك العملية و يتم استعراض النتيجة بهذا الملف نوع آخر من البحث بأول حرف من الأسماء داخل الفورم .. صحيح لا يغيّر من الأمر شيئًا .. لا يضيف و لا ينقص من عملية البحث .. لكنّها كما ذكرت مجرّد إثراء منّي للمواضيع و تنويع في استعمالات الاكسل الكثيرة.. سأخرج قليلاً من جلباب التاكست بوكس و أتمركز بعباءة لوحة الحروف فائق إحتراماتي أخوكم / عبد العزيز البسكري البحث بلوحة الحروف.rar

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا مرفق لينك كتاب تعليم إكسيل 2007 شرح ثلث http://www.mediafire.com/download/bxy5adt0nu5xznc/EXCEL_2007.pdf منقول للفائدة تقبلوا منى خالص تحياتى وتقديرى

السّلام عليكم و رحمة الله و بركاته أنت بنطاق حياتي و ليس فقط بنطاق تفكيري أستاذنا القدير "محمّد حسن المحمّد" .. الله وحده يعلم مدى احترامي لشخصك الكريم "رُبَّ أخ لمْ تلدْهُ أُمَّك" أمّا بالنسبة للخطأ .. أستاذي العزيز و الله لم أفهمْ أين الخلل بالضبط .. جرّبت إضافة حرف من الحروف "ا" الذي هو طبعًا زر أمر .. مع تغيير الرقم 29 الذي هو عدد أزرار أمر الحروف إلى 30 .. و تغيير اسم زر الأمر الذي أضفته إلى B_30 ليتناسب مع سلسلة أسماء أزرار الأمر الأخرى .. واشتغل الملف بطريقة عادية .. بهذا الملف قمت سيّدي القدير بمسح جميع الأكواد "الاضافة و التعديل و الحذف و التحديث" لعلّ و عسى تنجح العملية ..أخبرني بذلك لو تكرّمت وهذه صورة من الملف الجديد و البحث كان باسم الأخ الغالي " الصّقر" فائق إحتراماتي لشخصك القدير البحث بلوحة الحروف 2.rar

اخي الغالي احفظ هذا الموضوع اولا http://www.officena.net/ib/topic/64472-بداية-الطريق-لإنقاذ-الغريق/ وفي كتب كتيرررررررر وشروحات اكتر داخل هذا المنتدى العظيم بس انت حاول تبحث كويس ثم اطرح ما الذي تود ان تقوم بعمله ونحن نبدأ معاك خطوة خطوة

تفضل اخي الغالي الحل واخفاء ملف الاكسيل لحين تسجيل الدخول ويتم اظهاره مرة اخرى اضافة محرك بحث.rar

دالة Vlookup بشكل جديد تعمل من اليسار الى اليمين في حال كان اتجاه الصفحة للغة العربية و من اليمين لليسار اذا كان العكس advanced_vlookup.zip

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم جميعًا أساتذتي الأفاضل لما تقدّمونه من جهود في سبيل إنارة درب المبتدئين أمثالنا .. جزاكم الله خيرًا و زادها بميزان حسناتكم وددت أن أشارككم دروسكم القيّمة هذه بمحاولة بسيطة منّي .. لإثراء الموضوع .. أخي الكريم " أبو سليمان " كلّنا مبتدئون .. و ثق بالعبارة " إنَّ الأزمة تلدُ الهِمَّة " .. سأقوم معك بتنفيذ ماكرو حذف بسيط لنطاق معيّن من شيت الاكسل .. اسم النّطاق الذي سنقوم بحذف بياناته بالماكرو هو :G6:K15 الخطوة الأولى :قم بالتّأشير بواسطة الماوس على أوّل خليّة بهذا النّطاق .. مثلما هو مشار إليه بالسّهم الأحمر بالصورة أعلاه .. مباشرة بعد التأشير على هذه الخليّة .. قم بالضغط هنا ليبدأ الماكرو بالتّسجيل : الخطوة الثالثة : قم بالتأشير أو بتظليل كل النّطاق المقصود حذف بياناته و الذي هو G6:K15 بالماوس .. الخطوة الرابعة : و هذه هي الخطوة التي أعتبرها مهمّة لأنّ بها ستحدّد بها مصير أمم من الحروف .. هل ستنسخهم .. هل ستلصقهم .. أم ستحذفهم و تمسحهم في مثالنا هذا سنمسح هذه البيانات .. إذا ما عليك فعله هو فقط : إضغط بلوحة المفاتيح من أمامك على الزّر : DELETE الخطوة الخامسة : قم بإيقاف عملية تسجيل الماكرو ..من نفس المكان الذي قمت بتشغيله في الخطوة الأولى أخيرًا تم بحمد الله تسجيل الماكرو لديك .. و ستجده قد سبقك نائمًا بموديل داخل محرّر الأكواد بهذا الشّكل : لا ينقصك الآن سوى إنشاء زر أمر مرتبط بهذا الماكرو ليقوم عند الضغط عليه بتنفيذ ما أُمِرَ به .. قم بإنشائه من هنا : إتّبع مثلما هو موضّح بالصّور المرفقة أدناه بالتّرتيب : ليصبح لديك زر أمر بهذا الشكل : و أخيرًا أتمنّى و أرجو من الله أنّي قد وُفّقت بتيسير و لو الجزء البسيط من هذا المفهوم .. و إن كانت هناك أخطاء فأتمنى من الأساتذة الأعزّاء تصحيحها لأنّي أوّلاً و أخيرًا أبقى تلميذًا بهذا الصّرح التعليمي الكبير إليك ملف مرفق تطبيقي .. فائق إحتراماتي عبد العزيز البسكري الماكرو.rar

ههههههههه الف سلامة يابو براء متخفشي الشعب المصري كله بيعاني من المشكلة دي

سلامتك يا أ / ياسر ربنا يعطيك الصحة والعافية ويديمها عليك تقبل تحياتى

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

السلام عليكم استاذى /ياسر العربى .. الملف لا توجد به معادلة ..يرجى مراجعه الامر اخى الكريم يمكن الحل باكثر من طريقة منها =IFERROR(INDEX(A1:A16;MATCH(1;(F1:F16=$H$4)+(E1:E16=$H$4)+(D1:D16=$H$4)+(C1:C16=$H$4)+(B1:B16=$H$4);0));"") طريقة اخرى اكثر اختصاراً =IFERROR(INDEX($A$1:$A$16;SMALL(IF(B1:F16=$H$4;ROW(B1:F16)-ROW(B1)+1);1));"") لا تنسى تلك المعادلات -معادلات صفيف -بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER -- بإفتراض -- عدم تكرار البيانات تقبلوا خالص تحياتى

وعليكم السلام هناك طريقة افضل لحفظ سجلاتك في الجدول ، فطريقتك مأخوذة من الاكسل مثلا ، وليست صحيحة لقواعد البيانات . عملت لك جدول جديد ، وجلبت لك البيانات اليه: . والبيانات: . وعليه ، عملت عدد 2 استعلام جدولي ، واحد شامل لكل السنوات: . ونتائجه: . واستعلام سنوي (يعني استخدم خاصية التصفية) ، لكل سنة على حدة: . والنتيجة: . جعفر 262.salary2015+2014.accdb.zip

اللهم لا تحرمنا و لا تحرم أستاذنا القدير "محمّد حسن المحمّد" وكل المؤمنين و المؤمنات من كلمة لا إله إلاّ الله محمد رسول الله ..

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

أخي الكريم هاني الحمد لله أن نال الملف إعجابك .. بالنسبة لزيادة عدد الشيتات يرجى وضع شكل الملف الأصلي بالضبط لمعرفة عدد الشيتات الموجودة بالكامل .. وهل أوراق العمل التي سيتم زيادتها ستكون كلها تبدأ بكلمة مصلحة أم أن الأمر مختلف..؟؟ يمكنك التعديل في الكود في سطر واحد لتحصل على النتيجة المطلوبة من خلال هذا السطر SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") هذا السطر من خلاله يمكنك وضع أوراق العمل المطلوب العمل عليها بنفس الشكل .. Sub CreateOneSheet() Dim SheetsArr, SH As Worksheet, WS As Worksheet Dim I As Long, LR As Long, Count As Long Dim strSheet As String Set WS = Sheets("اذون الصرف") strSheet = WS.Range("K7").Value Application.DisplayAlerts = False Application.ScreenUpdating = False If Not Evaluate("ISREF('Temp'!A1)") Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Temp" Sheets("Temp").Cells.Clear If strSheet = "كل المصالح" Then SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") For I = 0 To UBound(SheetsArr) For Each SH In Sheets If SH.Name = SheetsArr(I) Then With SH LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If Next SH Next I Else With Sheets(strSheet) LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If With Sheets("Temp") For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2 WS.Range("G4") = .Cells(I, "E") WS.Range("D6") = .Cells(I, "F"): WS.Range("D14") = .Cells(I, "F") WS.Range("C7") = .Cells(I, "C") WS.Range("B11") = .Cells(I, "D"): WS.Range("B14") = .Cells(I, "D") WS.Range("D12") = .Cells(I, "B") WS.Range("G24") = .Cells(I + 1, "E") WS.Range("D26") = .Cells(I + 1, "F"): WS.Range("D34") = .Cells(I + 1, "F") WS.Range("C27") = .Cells(I + 1, "C") WS.Range("B31") = .Cells(I + 1, "D"): WS.Range("B34") = .Cells(I + 1, "D") WS.Range("D32") = .Cells(I + 1, "B") WS.PrintPreview Next I .Delete End With MsgBox "Done", 64 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أخي الكريم هاني تم إنشاء قائمة منسدلة في الخلية K7 ومصدرها في العمود N وعملت إخفاء للعمود يمكنك الآن اختيار أي مصلحة أو كل المصالح كما ترغب Create One Sheet YasserKhalil V2.rar

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

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

قل من بيده ملكوت كل شيء وهو يجير ولا يجار عليه إن كنتم تعلمون ( 88 ) سيقولون لله قل فأنى تسحرون ( 89 ) ) من سورة ص

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا القدير " ياسر فتحي البنّا " على الكتاب الرائع .. مهما يكن مستور معلوماتنا فنحن دائما بحاجة ماسّة إلى مثل هكذا كتب و مصادر تعليمية.. " وما أوتيتم من العلم إلاّ قليلا " بارك الله فيك جزاك الله خيرا و زادها بميزان حسناتك فائق إحتراماتي

بسم الله الرحمن الرحيم وجدت وانا ابحث عن بعض الاكواد والامثلة هذا الكود الذي يعمل تأثيرات حركية علي shape & picture دا كان مشوار لموقع اجنبي حلفوا منا ماشي غير بالمثال دا اتفضلو علي فكرة صورة البنت الامورة دي انا اللي رسمها بالقص واللصق وحشه صح shape move.rar

ههههههههههههه حبيبي الغالي ابو يوسف تم وضع المرفق احيانا تحدث مشاكل اثناء رفع الملف ولا يتم رفعه لكم مني كل الشكر والتقدير

أين الحل أخي ياسر هل كتبته بالحبرالسري...تقبل تحياتي..

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

هل دة اللي انت عاوزة 1.rar

أخي الكريم عبد الرحمن تفضل الكود Sub Clear() With Worksheets("Sheet1") .Unprotect 1 .Range("date,time,results,tester").SpecialCells(xlCellTypeConstants).ClearContents .Protect 1 End With With Worksheets("Sheet2") .Unprotect 1 .Range("date1,time1,results1,tester1").SpecialCells(xlCellTypeConstants).ClearContents .Protect 1 End With End Sub

بالضبط كما بينت لك data.amr هي قاعدة بياناتك وقد زادك ايضاحا الاستاذ ابو محمد ان هذا من باب الحماية النتيجة : ان قاعدة البيانات تالفة وهذه بعض اسباب مجربة لحدوث مثل ذلك: 1- انقطاع الكهرباء وقاعدة البيانات تعمل 2- تفعيل خاصية الضغط والاصلاح الآلي عند الاغلاق احيانا في مثل هذه الحال يمكن تدارك هذه المشكلة واستخراج الجداول او بعضها واحيانا اخرى تذهب البيانات ادراج الرياح . وهنا تظهر فوائد اخذ نسخة احتياطية دوريا وانما سميت احتياطية : احتياطا عند حصول مشكلة ما

والملفين دول لا خويا عبد العزيز :) Flight_Simulator_1.rar XLCalibre-Slide-Puzzle.rar وكمان خلية يتكلم speak.rar

السّلام عليكم و رحمة الله و بركاته الشّكر موصول لصاحب الموضوع .. الأستاذ الفاضل " ياسر العربي " بارك الله فيكم جميعًا على الملفات المذهلة .. و التي بصراحة أول مرّة أشاهد هذا النّوع من الدوّامات و المتاهات الاكسيلية فائق إحتراماتي

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

السّلام عليكم و رحمة الله و بركاته أخي الكريم أبو عبد الرحمن البغدادي ..ها قد جاءك الفرج ..من حيث لا تحتسبْ بارك الله في أستاذنا القدير " ياسر العربي " على الحل الأكثر من الرائع جزاه الله خيرا و زادها بميزان حسناته

Sub CreateOneSheet() Dim SheetsArr, SH As Worksheet, WS As Worksheet Dim I As Long, LR As Long, Count As Long Set WS = Sheets("اذون الصرف") Application.DisplayAlerts = False Application.ScreenUpdating = False If Not Evaluate("ISREF('Temp'!A1)") Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Temp" Sheets("Temp").Cells.Clear SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") For I = 0 To UBound(SheetsArr) For Each SH In Sheets If SH.Name = SheetsArr(I) Then With SH LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If Next SH Next I With Sheets("Temp") For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2 WS.Range("G4") = .Cells(I, "E") WS.Range("D6") = .Cells(I, "F"): WS.Range("D14") = .Cells(I, "F") WS.Range("C7") = .Cells(I, "C") WS.Range("B11") = .Cells(I, "D"): WS.Range("B14") = .Cells(I, "D") WS.Range("D12") = .Cells(I, "B") WS.Range("G24") = .Cells(I + 1, "E") WS.Range("D26") = .Cells(I + 1, "F"): WS.Range("D34") = .Cells(I + 1, "F") WS.Range("C27") = .Cells(I + 1, "C") WS.Range("B31") = .Cells(I + 1, "D"): WS.Range("B34") = .Cells(I + 1, "D") WS.Range("D32") = .Cells(I + 1, "B") WS.PrintPreview Next I .Delete End With MsgBox "Done", 64 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أخي الكريم هاني حرحش .. قمت بعمل الكود بفكرة تجميع أوراق العمل في ورقة واحدة يتم تجميع البيانات بها وتفقيط المبالغ بها ووضع اسم المصلحة لكل عميل في ورقة عمل باسم Temp والتي يتم حذفها بانتهاء عمل الكود .. في السطر التالي قرب نهاية الكود WS.PrintPreview ستقوم باستبدال كلمة PrintPreview بكلمة Printout للطباعة (عملت معاينة فقط في الكود ..) يمكنك تغييرها لتقوم بالطباعة بشكل مباشر إليك الكود المستخدم ... برجاء الانتباه ..أعتقد أنه لن تقوم بعمل معاينة لكل العملاء .. ولذلك لكي توقف عمل الكود اضغط Ctrl + Pause Break للخروج من الإجراء أتمنى أن يكون المطلوب إن شاء الله تقبل وافر تقديري واحترامي Create One Sheet YasserKhalil.rar

تفضل اخي الغالي كنت ناوي اعملها لسه شرح وانزله في الموضوع بتاعي بس متغلاش عليك اضافة محرك بحث.rar

السلام عليكم اخى الكريم جرب المرفق جيدا وابدى ملاحظاتك الرشيدى _ إحصاء.rar

ودة من موقع اوفيسنا لاستاذ ربيع تحريك الاشكال داخل الاكسل.rar

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

السلام عليكم اخى الكريم جرب المرفق وابدى ملاحظاتك لا تنسى :- CTRL+SHIFT+ENTER Book1 khaled_4.rar

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

راجع هذا الرابط عله يفيدك http://www.officena.net/ib/index.php?showtopic=60289&hl=

السلام عليكم ابحث حضرتك في اعمال الاخ ياسر خليل ستجد الحل ان شاء الله

اليكم المرفق ارجو ان ارى تجاوب من الخبراء 3amala5.rar

مرتبط بنتائج الموضوع على الرابط ........http://www.officena.net/ib/index.php?showtopic=19812 ......................... جزى الله خيراً القائمين على هذا العمل ولكن لي سؤال هل بالإمكان جعل هذا الاستعلام الحاوي على أعلى 20 درجة أن يظهر على شكل شريط إخباري , ثم من هذا الشريط اجراء ماكرو عند النقر المزدوج على أي قيمة في هذا الشريط يفتح الاستعلام أو النموذج المرتبط به على السجل المتعلق بهذ القيمة فقط . وإذا كان بالإمكان فهل تمنون علينا بمرفق ولكم جزيل الشكر .

السلام عليكم أعضاء المنتدى عندي مشكلة في طريقة الترقيم بالنسبة للصادر والوارد اذا حبيت اعمل في الترقيم حروف هكذا مثلاً 0004/م ش / 2007 ارغب ان يكون ( م ش / 2007 ) ثابت ويتغير الترقيم في البداية اتمنى منكم المساعدة تحياتي بدر العنزي

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

اخواني الرجو المساعدة لحل هذا الاشكال لدي نمودج لادخال تاريخ بداية و نهاية اجازة موظف المشكل اريد من البرنامج ان يمنع ادخال الفترة لمرة ثانية او حتي ادخال فترة تندرج ضمن فترة سبق ادخاله ( مثالا اذا سبق واخال من 10-03-2010 الى غاية 18-03-2010 فالمطلوب ان يمنع ادخال من 12 -03-2010 الى 14-03-2010 لانه سبق تغطيتها في الفترة السابقة) ارجو ان يتضح المطلوب امام الاخوة الكرام المثال بالمرفق base.rar