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

من باب الافاده مرفق الفروق بين FileFormat وامتداد الملف لاخ الكبير بن علية خاجى تلاحظ أن في كل نسخة من أكسيل كل امتداد في "الحفظ باسم" له خصوصيته في خاصية FileFormat... * في إكسيل 2003 : للحفظ باسم Ahmed.xls في المسار D:\ ActiveWorkbook.SaveAs Filename:="D:\Ahmed.xls", FileFormat:=xlNormal * في إكسيل 2010 : - للحفظ باسم Ahmed.xls في المسار D:\ ActiveWorkbook.SaveAs Filename:="D:\Ahmed.xls", FileFormat:=xlExcel8 - للحفظ باسم Ahmed.xlsx في المسار D:\ ActiveWorkbook.SaveAs Filename:="D:\Ahmed.xlsx", FileFormat:=xlOpenXMLWorkbook - للحفظ باسم Ahmed.xlsm في المسار D:\ ActiveWorkbook.SaveAs Filename:="D:\Ahmed.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled - للحفظ باسم Ahmed.xlsb في المسار D:\ ActiveWorkbook.SaveAs Filename:="D:\Ahmed.xlsb", FileFormat:=xlExcel12 تلاحظ أن في كل نسخة من أكسيل كل امتداد في "الحفظ باسم" له خصوصيته في خاصية FileFormat...

بسم الله الرحمن الرحيم يَا أَيُّهَا النَّاسُ إِنَّا خَلَقْنَاكُم مِّن ذَكَرٍ وَأُنثَى وَجَعَلْنَاكُمْ شُعُوباً وَقَبَائِلَ لِتَعَارَفُوا إِنَّ أَكْرَمَكُمْ عِندَ اللَّهِ أَتْقَاكُمْ إِنَّ اللَّهَ عَلِيمٌ خَبيرٌ صدق الله العظيم أخوتي الكرام هذا الموضوع مخصص للتعارف بين أعضاء المنتدي و نأمل أن يزيدنا قربا و محبة و تعارف و أرجو أن تكون بداية المواضيع بنفس نسق المشاركة التالية قدر الامكان مع تحياتي

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته اليكم طريقة شرح تنفيذ الرسم البيانى بالأكواد (( نقلا )) عن ما توصلت اليه فى هذا الأمر وأخص بالذكر المهندس / سامح محمد وبعض المواقع الأجنبيه واليكم الشرح تطبيق 1: افترض أنك تريد أن تستعرض بيانات المبيعات والمصاريف الشهرية -كالتي بالجدول أدناه – على صورة رسم بياني يربط بين متغير واحد من هذه المتغيرات مع الزمن (الشهور). يمكننا أن نرسم العديد من الرسومات البيانية عن طريق إكسل ولكن هذا يجعل شكل الصفحة غير مريح ويجعل التنقل بين الرسومات أمرا عسيرا يمكننا استخدام أدوات التحكم مع برنامج فيجوال بيسك صغير للقيام بنفس المهمة بشكل جميل ويسير. ابدأ برسم العلاقة بين الشهور ومبيعات المنتج الأول طبعا لا ننسى عمل الدالات المرتبطه بالرسم من خلال تحديد النطاقات التى سيبنى عليها الرسم البيانى ابدأ بتسجيل ماكرو ثم قم بتغييرمصدر البيانات Source Data للرسم البياني بحيث تكون العلاقة بين الشهور ومبيعات المنتج الثاني. أوقف تسجيل الماكرو ثم تصفح هذا الماكرو في محرر فيجوال بيسك VBE فتجده الآتي Sub Macro1() ActiveSheet.ChartObjects(“Chart 1″).Activate ActiveChart.PlotArea.Select ActiveChart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,E4:E16″), _ PlotBy:=xlColumns End Sub عن طريق تسحيل هذا الماكرو نستطيع التعرف على الأوامر اللازمة في فيجوال بيسك لتغيير المتغيرات في الرسم البياني. وهذا ما سوف نحتاجه في خطوة لاحقة. لنبدأ في استخدام أدوات التحكم وفيجوال بيسك لكي نستطيع استعراض العلاقة بين أي متغير والشهور حسب رغبتنا تأكد أنك في حالة التصميم Design Mode ثم افتح قائمة أدوات التحكم كما فعلنا في المقالة السابقة اختر زر اختيارات Option Button ثم قم بوضعه في صفحة إكسل بنفس الطريقة المستخدمة في رسم الأشكال قم بنسخ هذا الزر وقم بعمل أربع نسخ منه بحيث يكون لديك خمس زر اختيارات Option Buttons قف على أول زر اختيارات واضغط على الفأرة يمينا ثم اختر خواص Properties. ابحث عن خاصية Caption أي اسم الزر وقم بتغيير اسم الزر إلى مُسمى المتغيرات في الجدول أعلاه بحيث تبدأ بـ Sales of Product A وتنتهي بـ Cost لاحظ أن الخلفية الحمراء التي في الشكل أعلاه هي لون خلايا إكسل. يمكنك تغييرها للون غير اللون الأبيض لكي يكون الشكل واضحا إن أردت نريد الآن أن نقوم بكتابة ماكرو يقوم بتغيير المتغير في الرسم البياني عند اختيار كل زر من هذه الأزرار. قم بالضغط مرتين على زر الاختيارات Double Click -وأنت في حالة التصميم- فيظهر لك محرر فيجوال بيسك VBE هذا الماكرو يتم تنفيذه عند اختيار هذا الزر Click كما هو واضح من عنوانه. نود الآن كتابة جملة مشابهة لتلك التي حصلنا عليها عندما قمنا بتسجيل ماكرو – في أعلى الصفحة. ولكن سوف نقوم باختصاره وتعديلها كالتالي (ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,c4:c16″ سوف نقوم بكتابة نفس الجملة لكل زر اختيارات Option Button ولكن مع تغيير مصدر المعلومات في كل حالة حسب العمود الذي نرغب في إظهاره عند اختيار كل زر فنحصل على البرنامج التالي Private Sub OptionButton1_Click() ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,c4:c16″) End Sub Private Sub OptionButton2_Click() ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,d4:d16″) End Sub Private Sub OptionButton3_Click() ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,e4:e16″) End Sub Private Sub OptionButton4_Click() ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,f4:f16″) End Sub Private Sub OptionButton5_Click() ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(“B4:B16,g4:g16″) End Sub يُمكننا الآن تجربة عمل هذه الأزرار والتي سوف تتسبب في تغير محتويات الرسم البياني حسب الاختيار فعندما تختار زر التكلفة Cost تجد أن الرسم البياني يرسم العلاقة بين التكلفة والشهور وعندما تختار المنتج الثاني تجد أن الرسم البياني يرسم العلاقة بين مبيعات المنتج الثاني والشهور. يمكنك تصور عِظم فائدة هذا البرنامج عندما يكون لديك الكثير من المتغيرات والتي تريد تحليلها عن طريق الرسم البياني. لاحظ أنك تستطيع بسهولة استخدام نفس البرنامج مع أي ملف آخر بإجراء بعض التعديلات البسيطة. هذا المثال أوضح لنا كيفية برمجة أدوات التحكم وذلك بكتابة ماكرو مصاحب لبعض الأحداث التي تحدث على هذه الأدوات. في هذا المثال اكتفينا بماكرو يعمل عند الضغط Click على الزر Option Button. وهناك الكثير من الأحداث الأخرى التي قد نحتاج في أمثلة أخرى أن نبني لها ماكرو مصاحب لحدوثها. تطبيق 2: لو افترضنا في المثال السابق أن عدد المتغيرات كبير جدا – أكثر من 10 على سبيل المثال- فإن أزرار الاختيار Option Buttons تصبح كثيرة جدا بشكل مزعج. دعنا نُجرب استخدام الصندوق المتدلي في هذه الحالة. افتح قائمة أدوات التحكم واختر الصندوق المتدلي Combobox وقم برسمه كالمعتاد. اضغط على الفأرة يمينا واختر خواص Properties. سنقوم بتحديد مصدر معلومات الصندوق المتدلي عن طريق خاصية ListFillRange. ولكن يجب أن يكون مصدر المعلومات عمودا وليس صفا لأن هذه الخاصية ListFillRange لا تقبل أن تكون صفا. لذلك سنقوم بنسخ وإعادة لصق الخلايا C4:G4 في أي عمود وليكن العمود Z عن طريق Copy…Pate /Transpose كما تعلم فإن Transpose تقوم بنسخ الصف في عمود وبالتالي يكون لدينا نفس المعلومات في عمود. نفترض أننا وضعنا الخلايا المنسوخة في العمود Z فقم بتغييرخاصية ListFillRange إلى Z1:Z5. عند الخروج من حالة التصميم يكون شكل الصندوق المتدلي عند فتحه كالتالي علينا أن نكتب ماكرو يَقوم بتغيير الرسم البياني بناء على الاختيار في الصندوق المتدلي. لابد أن نتعرف أولا على رقم الاختيار بمعنى أنه الاختيار الأول أو الثاني أو الثالث….من القائمة وبالتالي يمكننا تحديد رقم العمود المناظر لهذا الاختيار. بعد ذلك يتم تغيير مصدر المعلومات كما في المثال السابق Private Sub ComboBox1_Change() j = 3 + ComboBox1.ListIndex myrange = Sheets(“Sheet1″).Range(Cells(4, j), Cells(16, j)).Address ChartObjects(“Chart 1″).Chart.SetSourceData Source:=Sheets(“Sheet1″).Range(myrange) End Sub المتغير J يتم حسابه بإضافة ثاثة لرقم الاختيار من الصندوق المتدلي. رقم الاختيار يتم تحديده عن طريق Combobox1.ListIndex والذي يبدأ من الصفر ثم واحد وهكذا أي أنه عند اختيار مبيعات المنتج الأول تكون قيمة الاختيار هي صفر وبالتالي قيمة المتغير J هي 3. يتم إضافة ثلاثة لأن الاختيار الاول مناظر للعمود الثالث في صفحة إكسل وهكذا. بهذه الطريقة أمكننا استخدام الصندوق المتدلي Combobox بدلا من أزرار الاختيارات Option Buttons وكما ترى فكلا منهما له مزاياه. تطبيق 3: لنفترض أننا نريد – في المثال السابق- أن يكون لدينا وسيلة لإظهار وإخفاء الرسم البياني اضغط على أيقونة حالة التصميم Design Mode افتح قائمة أدوات التحكم أضف زر أوامر Command Button ثم أضف واحد آخر فيكون لدينا اثنان Command Button قف على أحدهما واضغط يمينا على الفأرة ثم اختر خواص Properties قم بتغيير مسمى الزر Caption الأول إلى View ثم اختر الزر الثاني وغيِّر المسمى إلى Hide اضغط مرتين Double Clickعلى الزر الأول لكي تكتب الماكرو المصاحب للضغط عليه ثم اكتب السطر التالي داخل الماكرو فيكون الماكرو كالتالي Private Sub CommandButton1_Click() ChartObjects(“Chart 1″).Visible = -1 End Sub السطر الأوسط يعني أن الرسم البياني ظاهرا. الآن قم بعمل نفس الشيء مع الزر الآخر ولكن الماكرو سيكون كالتالي Private Sub CommandButton1_Click() ChartObjects(“Chart 1″).Visible = 0 End Sub القيمة 0 تعني أن الرسم البياني غير ظاهر اخرج من حالة التصميم بالضغط على أيقونة Exit design Mode قم بتجربة عمل الزرين وينبغي أن تجد أن View تُظهر الرسم بينما Hide تُخفي الرسم تطبيق 4: حاول تنفيذ عملية إظهار وإخفاء الرسم البياني عن طريق صندوق اختيار Check box بدلا من زر الأوامر Command Button تحول إلى حالة التصميم بالنقر على الأيقونة الخاصة بحالة التصميم ثم افتح قائمة أدوات التحكم أضف صندوق اختيار إلى صفحة إكسل قم بتغيير مسمى الصندوق Caption من Checkbox1 إلى View / Hide اضغط مرتين لكتابة الماكرو المصاحب لاختيار وعدم اختيار صندوق الاختيار وهو كالتالي Private Sub CheckBox1_Click() m = CheckBox1.Value If m = True Then ChartObjects(“Chart 1″).Visible = -1 Else ChartObjects(“Chart 1″).Visible = 0 End If End Sub ومرفق ملف به تنفيذ عملى لما سبق وتقبلوا منى وافر الإحترام والتقدير الرسم البيانى.rar

الساده / أعضاء المنتدى المحترمين سلام الله عليكم جميعا ورحمته وبركاته قمت بعمل تجميع لعديد من النماذج الخاصة بالكنترول المدرسى كل ما له علاقة بالكنترول المدرسى سواء ابتدائى او إعدادى أو ثانوى أو تعليم فنى وقد قمت بتجميعها من خلال البحث فى المنتدى فسامحونى إن كنت نسيت نموذج لأحد الأساتذه الأعضاء نتمنى من الله عز وجل أن ينتفع بها الجميع تلك النماذج القيمه هى مجهود للساده الأعضاء بارك الله فيهم وزادهم الله من فضله وجزاهم رب العالمين عنا خير الجزاء ونماذج قاموا بتنفيذها بناء على طلبات من الساده الأعضاء وتقبلوا منى وافر الإحترام والتقدير أخيكم فى الله محمود الشريف وإليكم النماذج رابط شرح ونماذج للأستاذ / محمدى عبد السميع عن أعمال الأستاذ العلامه / عبد الله باقشير http://www.officena.net/ib/?showtopic=41579 رابط للأستاذ / قنديل الصياد http://www.officena.net/ib/index.php?showtopic=49517 نموذج للأستاذ / نادر http://www.officena.net/ib/index.php?showtopic=39833#entry222551 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346#entry266631 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346#entry266812 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346#entry266982 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346#entry267205 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346#entry267374 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346&page=2#entry267643 نموذج للأستاذ/ جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346&page=2#entry268201 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=45346&page=3#entry268410 نموذج للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46424#entry277109 نموذج للاستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46424#entry277110 نموذج للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46424#entry277111 روابط اخرى لأعمال الأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46424#entry277226 نماذج أخرى للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46424&page=2#entry277869 نموذج للأستاذ / cat101 http://www.officena.net/ib/index.php?showtopic=37005#entry197143 نموذج للأستاذ / مصطفى الفيومى http://www.officena.net/ib/index.php?showtopic=33609#entry174838 نموذجين للاستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46493#entry277927 نموذجين للاستاذ / محمدى عبد السميع http://www.officena.net/ib/index.php?showtopic=46493#entry278219 نموذج للأستاذ / عبد الحميد شقير http://www.officena.net/ib/index.php?showtopic=49425#entry300875 نموذج للاستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=40515#entry227260 نموذج للاستاذ / ara6367 http://www.officena.net/ib/index.php?showtopic=43702#entry253299 نموذج للاستاذ /مجدى يونس http://www.officena.net/ib/index.php?showtopic=43702#entry253628 نموذج للأستاذ/ أيسم ابراهيم http://www.officena.net/ib/index.php?showtopic=31511#entry160579 نموذج للاستاذ / نادر http://www.officena.net/ib/index.php?showtopic=38714#entry211369 نموذجين للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46485#entry277867 نموذجين للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=46485#entry278497 نموذج للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=44606#entry260354 نموذج للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=44606#entry260357 نموذج للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=44606#entry260359 نموذج للأستاذ / سليمان جاد http://www.officena.net/ib/index.php?showtopic=34972#entry183917 نماذج للأستاذ / سليمان جاد http://www.officena.net/ib/index.php?showtopic=32273#entry165475 نموذج للأستاذ / أحمد البحيرى http://www.officena.net/ib/index.php?showtopic=50696#entry315966 نموذج للأستاذ / قصى http://www.officena.net/ib/index.php?showtopic=34525#entry181064 نموذج للأستاذ / قنديل الصياد وقم بحل المشكله التى به الأستاذ /أبو محمد عباس http://www.officena.net/ib/index.php?showtopic=44636#entry260688 نموذج للأستاذ / قنديل الصياد http://www.officena.net/ib/index.php?showtopic=50431#entry309621 نموذج للأستاذ / قنديل الصياد http://www.officena.net/ib/index.php?showtopic=50431#entry309769 نموذج للأستاذ / قنديل الصياد http://www.officena.net/ib/index.php?showtopic=50610#entry311718 نموذج للأستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=32265#entry165430 نموذج للأستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=32265#entry165637 نموذج للأستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=32265#entry165646 نموذج للاستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=32265#entry165717 نموذج للاستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=50622#entry311215 نموذج للأستاذ / رجب جاويش http://www.officena.net/ib/index.php?showtopic=50622#entry311217 نموذج للأستاذ / خير الإيمان http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=48870 نموذج للاستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=39974#entry223846 نموذج للأستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=39974#entry224058 نموذج للأستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=39974#entry224065 نموذج للاستاذ / جلال محمد http://www.officena.net/ib/index.php?showtopic=39974#entry224072 نموذج للاستاذ / أيمن http://www.officena.net/ib/index.php?showtopic=48096#entry290886 نموذج للأستاذ / محمد 28 http://www.officena.net/ib/index.php?showtopic=51081#entry315249 نموذج للأستاذ / قنديل الصياد http://www.officena.net/ib/index.php?showtopic=51081#entry315936 نموذج للأستاذ / هشام شلبى http://www.officena.net/ib/index.php?showtopic=32777#entry168972 نموذج للأستاذ / strok http://www.officena.net/ib/index.php?showtopic=32298#entry165631 نموذج للأستاذ / أبو آلاء http://www.officena.net/ib/index.php?showtopic=44909#entry263325 نموذج للاستاذ/ رجب جاويش http://www.officena.net/ib/index.php?showtopic=40515#entry227260 نموذج للأستاذ / أيسم ابراهيم http://www.officena.net/ib/index.php?showtopic=33148#entry171449 نموذج للأستاذ / هيثم مقبول http://www.officena.net/ib/index.php?showtopic=42953#entry247333 نموذج للأستاذ / جمال عبد السميع http://www.officena.net/ib/index.php?showtopic=42953#entry247339 نموذج للأستاذ / دغيدى http://www.officena.net/ib/index.php?showtopic=42953#entry247371 نموذج للأستاذ / دغيدى http://www.officena.net/ib/index.php?showtopic=42953#entry247379 نموذج للأستاذ / محمد عبيد http://www.officena.net/ib/index.php?showtopic=39630#entry221154 نموذج للأستاذ / دغيدى http://www.officena.net/ib/index.php?showtopic=35691#entry188495 نموذج للأستاذ / عبد الله المجرب http://www.officena.net/ib/index.php?showtopic=35691#entry188496 نموذج للأستاذ / سليمان جاد http://www.officena.net/ib/index.php?showtopic=30593#entry153521 نموذج للأستاذ / عمر أبو صهيب http://www.officena.net/ib/index.php?showtopic=45772#entry270954 صححه الأستاذ /أبو محمد أشرف http://www.officena.net/ib/index.php?showtopic=45772#entry273244 نموذج للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=40767#entry229380

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

ياأخى المعادلات السابقة لاتأتى بالتكرار لأنها تقوم على مقارنة الصفوف لو أردت ذلك كل المعادلا ت السابقة بلا إستثناء لاتقوم بذلك

الأستاذ / أحمد السلام عليكم ورحمة الله وبركاته إذا كانت السنة متكررة اكثر من مرة الملفات السابقة تفي بالغرض وجرب هذا تم تغيير الستة فقط. Book3.rar Book4.rar

حل أخر بعد هذا الحل الجميل للأخت الغالية " أم عبد الله" أو أستخدم هذه المعادلة فى "B2 " ، واسحبها لأسفل الصيغة صيغة " صفيف " أى لابد من الضغط على " CTRL+SHIFT+ENTER" وليس "ENTER " =IF(ISERR(SMALL(ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A)));ROWS(B$2:B2)));"";SMALL(ROW(INDIRECT(MIN(A:A)&":"&MAX(A:A)));ROWS(B$2:B2))) هل تريد المزيد أخى أم هذا يحقق ماتريد تقبلوا تحياتى جلب السنوات المفقودة.rar

- السلام عليكم فكرة رائعة - الاسم : عبد الموجود علي بدر - تاريخ الميلاد 15 / 7 / 1958 - المؤهل : بكالوريوس علوم وتربية 1984 دبلوم معلمين 1980 - العمل : معلم خبير رياضيات - بلد المولد : ايتاي البارود . مصر - بلد الاقامة : ايتاي البارود. مصر - الهواية : ممارسة الرياضة . والقراءة - متزوج ووهبني الله بأربع أبناء - للتواصل : hlhh_8a@yahoo.com

الأستاذ / أحمد السلام عليكم ورحمة الله وبركاته بعد إذن أستاذنا العبقري ملك المعادلات / جمال عبد السميع جزاه الله خيراً على جميع أعماله وإبداعاته في المنتدى جعلها الله في ميزان حسناته وزاده فضلاً وعلماً . إليك ملف كتنسيق رقمي للخلايا مثل ملف حضرتك والآخر حولته إلى تنسيق تاريخ لعله المطلوب. Book1.rar Book2.rar

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

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // احمد حسن2014 1) مرحبا بك في اول مشاركة معنا أخي الفاضل في منتداك ومنتدى كل العرب.. 2 ) ارسل ملف بما تريد _و بإذن الله _ لن يخيب ظنك فيما تطلبه والسلام عليكم ورحمة الله وبركاته..

أخى الحبيب المعروف أن دالة "round" هى دالة تقوم بالتقريب لعدد معين بعد العلامة العشرية وصيغتها هى : =ROUND(NUMBRR;NUM_DIGITES) حيث أن: NUMBER : العدد المطلوب تقريبة NUM_DIGITES: عدد الأرقام بعد العلامة العشرية التى نريد إقتطاعها والمعادلة أعلاه هى تطبيق لذلك حيث قمت بقسمة الرقم الأساسى "133.13" المراد تقريبة على "5 " فكان الناتج "26.626 " فقمنا بتقريب بالمعادلة المشروحة سابقا =ROUND(A2/5;2) فكان الناتج "26.63" ولاحظ هنا أن أصل هذا الرقم هو "26.626 " وهنا يأتى دور الدالة حيث أقتطعت الرقم الثالث "6" وقربت الرقم ".62 " إلى ".63 " أى قربتة لأعلى وقمت بضربة فى "5" فكانت النتيجة المطلوبة أرجو أن يكون الشرح وافيا تقبل تحيات : أخيك

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

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

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

مرفق نموذج لعمل الكود طباعة فورم.rar

إخوانى فى الله أساتذتى الكرام بعد إذنكم .. سوف أضيف كود بستخدمه لتحديد عدد النسخ المراد طباعتها للفورم نفسه وهو كود للأستاذ العلامه / عبد الله باقشير وتقبلوا منى وافر الإحترام والتقدير Private Sub CommandButton3_Click() On Error Resume Next Dim Kh_Count As Integer Dim Kh_Comm As Integer If MsgBox("هل تريد طباعة السند رقم " & Combo_NO.Value, vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد طباعة ") = vbYes Then Kh_Count = InputBox("فضلاً أدخل عدد نسخ الاوراق الذي تريدها " & Chr(13) & Chr(13) & "الافتراضي نسخة واحدة", "عدد النسخ", "1") '================================== 'اخفاء الزرارات من السند اثناء الطباعة For Kh_Comm = 1 To 3 Me.Controls("CommandButton" & Kh_Comm).Visible = False Next Kh_Comm '================================== Me.Hide '================================== 'عدد النسخ المطلوبة Do Until Kh_Count = 0 Me.PrintForm Kh_Count = Kh_Count - 1 Loop '================================== End If End On Error GoTo 0 End Sub

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

ما شاء الله عليكم إخوانى فى الله الأستاذ الكبير / الشهابى الأستاذة القديرة / أم عبد الله أعمال فى منتهى الروعه وبعد إذن أساتذتى الكرام إرفقت نموذج لإثراء الموضوع أكثر لأنى على ما أعتقد ان الأستاذ / KALL يرغب فى إظهار قائمة الموديلات كاملة عندما يختار اسم الشركه المنتجه لذا قمت بنموذج بسيط لعله يفى بالغرض وكنت أعد لنموذج آخر ولكنى أكتفيت لعلى أفهم أكثر ما يريده الأستاذ / KALL تجد أخى الكريم فى شيت ورقة3 ما قمت به للجميع تقبلوا منى وافر الإحترام والتقدير الموديلات.rar

بعد إذن أستاذى ومن تعلمت منه الكثير القدير / أبو حنين تفضل اخى الكريم نموذج لما طلبتم حتى تتلاشى عملية التكرار ثانيا عندما تريد تغيير السعر ادخل على محرر الأكواد وقم بتغيير السعر كما تحب بالضغط على alt+f11 تظهر لك صفحة على يسارك توجد كلمه Modul1 قم بالضغط عليها كليك مرتين يظهر لك الكود سأرفق لك جزئية تغير السعر لأبين لك الطريقة S.Range("B" & P).PasteSpecial xlPasteValues S.Range("A" & P) = P - 1 If S.Range("E" & P) = "بصره" Then S.Range("M" & P) = S.Range("J" & P) * 30 If S.Range("E" & P) = "بيجي" Then S.Range("M" & P) = S.Range("J" & P) * 16 S.Range("N" & P) = S.Range("K" & P) * 750 غير الأرقام كما تحب ( 30 أو 16 أو 750) ثالثا إذا اردت أن تضيف جهة تحميل جديده سجلها بالعمود s رابعا إذا اردت تسجيل اسم ناقل جديد سجله بالعمود T وقم بإختيارها من القائمة المنسدله وتقبلوا منى وافر الإحترام والتقدير تصفية وجبة 1.rar

وهذا رابط فيديو شرح مبسط لكيفية الطباعة http://www.youtube.com/watch?feature=player_detailpage&v=pCFTF8gdr3E

أخى الكريم سلام الله عليكم ورحمته وبركلته مرحبا بك عضوا فى هذا السرح الجميل بل فى بيتك الجديد بدايه ان كنت ترغب فى نماذج جاهزة فإليك عده روابط http://www.officena.net/ib/index.php?showtopic=33881#entry176887 http://www.officena.net/ib/index.php?showtopic=46463#entry277636 http://www.officena.net/ib/index.php?showtopic=42044#entry240043 http://www.officena.net/ib/index.php?showtopic=32063#entry163966 نسأل الله عز وجل لكل من ساهم فى إخراج تلك النماذج أن يجزيه خير الجزاء ولى دعوة لكم على هذا الرابط http://www.officena.net/ib/index.php?showtopic=41520&hl= ولى رجاء منكم أن تقوم بعمليه البحث فى المنتدى وستجد إن شاء الله ما تريده وتقبل منى وافر الإحترام والتقدير

السلام عليكم ورحمه الله وبركاته الأسم : محمود زكى الشريف الشهره : محمود الشريف تاريخ الميلاد هجرى : 28/3/1400 تاريخ الميلاد ميلادى : 14/2/1980 الحاله الإجتماعية : متزوج ولى ثلاثة أطفال الجنسية : مصرى من صعيد مصر المهنه : أساسا محاسب عام المهنه الحاليه : مدير موارد بشرية التعليم : بكالوريوس تجارة شعبه العلوم السياسية دبلومه فى المحاسبة دورات خاصة دبلومه أوراكل المحاسبى دبلومه أوراكل الموارد البشرية أجيد بإحترافيه الـ Analysis التحليل المعلوماتى عن أى برنامج أو منظومه فى بدايتها كى ترقى لتصميمها عضوية عضو بنقابه الأشراف بجمهورية مصر العربية مؤسس صفحة الساده الأشراف بمحافظة المنيا فيس بوك مؤسس صفحة ( مناجاه لله رب العالمين ) فيس بوك عضو بفريق عمل موقع الأجر للقرآن الكريم عضو بموقع اوفيسنا عضو بعده مواقع ومنتديات أخرى الإهتمامات فى عالم الكمبيوتر برامج الأوفيس عامه وبشكل خاص الأكسيل والوورد والباور بوينت الإهتمامات الأخرى لعبه الشطرنج ، القراءة

الاسم : محمد طاهر سنة الميلاد : 1968 م المهنة : مهندس مدني و أعمل فى مجال إدارة المشاريع الهندسية التعليم : بكارولويس هندسة مدنية 1991 - هندسة القاهرة ماجيستير إدارة مشروعات 1998 - هندسة القاهرة PMP 2008 RMP 2012 MVP 2010-2013 الحالة الاجتماعية : متزوج و رزقني الله ب 4 أطفال بلد الجنسية / بلد الاقامة : مصر / الامارات أقسام الاهتمام فى المنتدي : كل الأقسام - و بالذات الأكسيس و الإكسيل معلومات أخري : أحب الأكسس و أنشأت تطبيقات مختلفة له ، و أيضا أحب جدا الاكسيل و استخدام ال vba به . تتركز خبرتي فى مجال ادارة المشاريع عموما و مشاريع التشييد بصفة خاصة، و لدى خبرة عملية فى هذا المجال من حيث التطبيق و التدريب. أجيد إستخدام برامج ادارة المشروعات بالاضافة الي بعض البرامج الهندسبة و أستخدم بعض برامج الرسم و الجرافيك بصورة متوسطة. و لدي دراية بسيطة بتصميم الويب و لغاته . خبرتي فى المنتديات : عضو شرف و مشرف قسمي الأكسس و الأوفيس ( سابقا ) و مراقب سابق فى الفريق العربي للبرمجة و إفتتحت هذا الموقع رسميا فى فى الثاني من جمادي الأولي 1424 هـ الموافق أول يوليو 2003 مـ