m.hindawi

Private Sub Worksheet_Change(ByVal Target As Range) test1 = Range("a1").Value test2 = Range("b1").Value test3 = Range("c1").Value If test1 = 1 And test2 = 1 And test3 = 1 Then Sheets("1").Select If test1 = 1 And test2 = 1 And test3 = 2 Then Sheets("2").Select If test1 = 2 And test2 = 1 And test3 = 1 Then Sheets("3").Select End Sub اضغط على زر alt+f11 تظهر نافذة الفيجوال اختر الصفحة المراد وضع الكود فيها من القائمة على يسارك ستجد اسماء الصفحات موجود على اليسار اضغط بالماوس مرتين فتفتح لك نافذة لوضع الكود فيها انسخ الكود ثم الصقه لا تنس ان تغير اسماء الاوراق حسب المسميات الموجودة في ملفك

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

بسم الله الرحمن الرحيم جرب الملف التالي mh.zip

بسم الله الرحمن الرحيم عذرا لم افهم الموضوع جرب الكود التالي For A = 1 To 1000 TEST = Sheets("1").Cells(A, 1) If (TEST) = "" Then Rows(A).Hidden = True End If Next طبعا هذا الكود يقم بفحص 1000 سطر اذا اردت اكثر او اقل عليك تعديل الحد الاعلى للمتغير A ملاحظة اسم الورقة في المثال هو 1 غير اسم الورقة حسب اسم الورقة الموجودة عندك

بسم الله الرحمن الرحيم جرب الكود التالي Rows("1:4").Select Selection.EntireRow.Hidden = True طبعا هذا الكود يخفي الصفوف من رقم 1 الى رقم 4

بسم الله الرحمن الرحيم نعم يمكن ذلك عن طريق الكود التالي Sheets("sheetname").PrintOut Copies:=1 طبعا sheetname هو اسم الورقة المراد طباعتها

بسم الله الرحمن الرحيم الملف جاهز اخي الكريم ولكن عليك ان تقوم بتنسيق البيانات في الورقة الاولى من الخلية c3 حتى k10 على شكل نص ولا فان الكود قد لا يعمل على كل الملف جاهز net.zip

السلام عليكم ورحمة الله وبركاته هذا الملف جاهز عدلت فيه عنوان العمود ولك الخيار ان يبدا الطرح من السطر رقم 2 او رقم 1 اذا اردت الطرح ان يبدا من رقم 1 ماعليك الا تعريف التالي FOR A=1 TO ENDROW بدلا من FOR A=2 TO ENDROW calc.zip

السلام عليكم ورحمة الله وبركاته هذا المثال عبارة عن دليل هاتف مبسط ويمكن تطوير الفكرة ولكم الشكر ___________.rar

بسم الله الرحمن الرحيم تفتح ملف الاكسل الذي تريد وضع الاجراء فيه اضغط على زر ALT +F11 تظهر لك شاشة محرر فيجوال بيسك من القائمة INSERT تختار MODULE ستظهر نافذة فارغة تكتب فيها الاجراء او تلصقه فيها الان اقفل محرر فيجوال بيسك اصبحت الان الوظيفة جاهزة ستجدها في الدوال عين اية خلية ثم اختار ادراج دالة ستظهرنافذة فيها الدوال الموجودة في اكسل اختار معرفة بوااسطة المستخدم ستجد دالتك تحت اسم GETGRADE3

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

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

السلام عليكم النسبة هل هي المئوية ام غيرها على كل يكفي ان تضعي هذه المعادلة في الخلية a2 وسيظهر التاتج في الخلية a2 نسبة 25 % من الخلية a 1 =25%*A1 اما اذا كان المقصود بالنسبة هو نسبة رقم الى رقم اخر فعليك ان تقسمي الرقم الاول على الرقم الثاني ثم نضرب التاتج ب 100 فينتج عنه نسبة مئوية مثال 25 100 نسبة الاول الى الثاني = 25 /100 التاتج يكون 25 بالمئة اذا لم يكن هذا قصدك الرجاء التوضيح

السلام عليكم ورحمة الله وبركاته هذه بسيطة تضيف السطر التالي في اول الكود وهو يقوم بمسح الاسطر من رقم 3 الى رقم 100 في كل ضغطة تضغط على الرز اذا اردت ان يمسح اكثر من 100 سطر غير الرقم 100 بعد حرف f واذا اردت ان يمسح اكثر من 6 اعمدة او اقل غير الحرف f Sheets("الغائبين").Range("A3:f100").ClearContents

السلام عليكم اخي الكريم اعتقد انه يمكن تنفيذ العملية عن طريق معادلة لكنها ستكون معقدة اكثر من الكود اما بالنسبة للكود فشرحه كالتالي السطر الاول والثاني يقوم بحساب عدد الصفوف المتلئة في الورقة الاولى والثانية من الملف الورقة كشف الحضور و الورقة كشف الغياب ثم يضع هذا الرقم في متغير endrow و endrow7 السطر الثالث نقوم بانشاء حلقة تكرارية تبدا من 3 حتى عدد الصفوف الممتلئة في الورقة كشف الحضور السطر الرابع يقوم بانشاء معامل الفحص ونسميهtes وهو متغير حسب رقم الصف كما تلاحظ حيث انه يوقم بفحص القيم في العمود الخامس من الورق الاولى ابتداء من الصف رقم 3 الى اخر صف به قيمة السطر الذي يليه ............... حيث اننا نتعامل مع قيمة نصية متغير نعم او لا اضفت هذا السطر لتحويل قيمة الفحص الى متغير حرفي يقو بتحويل tes الى متغير حرفي السطر الذي يليه نقوم ببدا عملية الفحص السطر الذي يليه نعد لعملية نسخ البيانات الى الورقة كشف الغياب حيث حددنا حلقة تكرارية من 1 الى5حسب عدد الاعمدة المراد نسخها اما هذا السطر Sheets("الغائبين").Cells(ENDROW7 + 1, b).Value = Sheets("كشف الحضور").Cells(a, b).Value يقوم بعملية النسخ طبعا ضمن الشرط الذي حددناه في المتغير tes الامر next معروف من اجل عملية نسخ العمود اللاحق اما المعادلة ENDROW7 = ENDROW7 + 1 فهي كي لا يقوم الكود بنسخ السطر في نفس المكان فهو يقوم باضافة 1 الى المتغير endrow7 من اجل ان يتم نسخ السطر اللاحق في سطر جديد بدون هذا الامر سيتم نسخ الاسطر فوق بعضها البعض ولن يظهر الا اخر سطر امل ان اكون وفقت في الشرح شكرا

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

السلام عليكم ورحمة الله لقد حملت الملف اكثر من مرة الملف من النوع المضغوط يجب ان يكون لديك برنامج WINRAR لفك الضغط

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

السلام عليكم هذا الملف قد يؤدي الغرض اذا كان هناك اي ملاحظة الرجاء المراجعة الملف على الرابط التالي http://www.officena.net/ib/index.php?act=A...pe=post&id=1759

اخي الكريم الملف جاهز اذا كان هناك اي شيء اخر ارجو التوضيح BOKK11.zip

شكرا لك اخ خضر وسلمت يداك

السلام عليكم ورحمة الله وبركاته لقد انشات استعلام من شانه ان يعدل ملف MDB دون استيراد الملف الى الاكسل ولكنه لا يعمل به خطأ وحاولت كثيرا ان اعرف الخطا لكن دون جدوى ارجو المساعدة والسلام عليكم ورحمة الله وبركاته الملف موجود على الرابط التالي http://www.officena.net/ib/index.php?act=A...pe=post&id=1687

السلام عليكم ورحمة الله وبركاته اخي خضر واخي محمد اشكر لكما جهودكما في هذا الموضوع لقد حملت الملف المرفق وهو تماما كما اردته اسف على شرحي الغير وافي لما هو مطلوب الموضوع جديد بالنسبة لربط الاكسل بملفات ال DBF وانا لم اتمكن من ربطها لمدة عشرون يوما وانا احاول على هذا الملف وكانت النتيجة ممتازة على يديكما الكود رائع جدا وهو يسهل عملية استيراد سطر واحد دون الحاجة الى استيراد الملف كاملا مما يعطي سرعة في التعامل مع ال DBF خصوصا اذا علمت ان حجم الملف حوالي 6 ميجا بايت قبل استيراده الى الاكسل وبعد استيراده يصبح حجم ملف الاكسل 13 ميجا بيات لا حظ اني ارفقت جزء بسيط من الملف لاتمكن من تحميله الى الموقع سلمت يداكما وجزاكما الله عني كل الخير M.HINDAWI

http://www.officena.net/ib/index.php?showtopic=5950 لقد ارفقت ملف لتوضيح الامر وهو على الرابط اعلاه وشكرا لكم

السلام عليكم ورحمة الله وبركاته لمزيد من التفصيل سارفق ملف لتوضيح ما هو مطلوب عمله لدينا ملف اكسس باسم mh1 يختوي على جدول pm3 وهو في الاصل ملف dbf قمت بتحويله الى صيغة mdb عن طريق استيراد جدول الطلوب ان ادخل رقم الصنف pno عن طريق استعلام بالاكسل فيعطيني معلومات الصنف الموجدة بالاعمدة المقابلة ل pno الصنف الاول مثلا رقمه AJ1090A005 بياناته كاتالي PNO SC BPRICE RPRICE AJ1090A005 1 2586.96 3593 انا لا اريد استيراد الملف كاملا الى الاكسل لانه ضخم جدا وسوف يستهلك الذاكرة ولكم الشكر عفوا لم استط تحميل الملف الى الموقع لم اعرف الطريقة ساحاول لاحقا