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

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

وعليكم السلام ورحمة الله وبركاته 1. هذا الكلام صحيح 2. وهذا كذلك ، ولكن عندي بديل: في النموذج mmm ، اعمل حدث بعد التحديث للحقلين d1 و d2: Private Sub d1_AfterUpdate() d_F = Me.d1 End Sub Private Sub d2_AfterUpdate() d_T = Me.d2 End Sub ثم نعمل الوحدة النمطية: Option Compare Database Public d_F As Date Public d_T As Date ' Function d_From() d_From = d_F End Function Function d_To() d_To = d_T End Function وعليه نجعل الاستعلام يأخذ القيم من الوحدة النمطية بدلا عن النموذج مباشرة (لاحظ ان لدينا وحدتين نمطيتين ، لذلك نأخذ القيم من الاثنين): وصلى الله وبارك جعفر 279.مثال استعلام.accdb.zip

السلام عليكم تفضل المرفق اولاً اختار نوع الاسرة التي تريد ثم شغل الفورم وضغط زر ترحيل البيانات تحياتي ترحيل أعمدة متفرقة_111.rar

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

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

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

هو دا الملف وبه الكود والموضوع نفسه ممكن تعمل ليه بحث علي المنتدي _____boom 4.rar

اليك هذا المثال Hid_row.zip كما يمكنكن الذهاب الى هذا العنوان لمزيد ام المعلومات http://www.officena.net/ib/topic/55455-%D8%AD%D8%B0%D9%81-%D8%A7%D9%84%D8%AE%D9%84%D8%A7%D9%8A%D8%A7-%D8%AF%D9%88%D9%86-%D8%A7%D9%84%D8%B5%D9%81%D9%88%D9%81/

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

تفضل اخر الكريم جرب البرنامج التالى لو عجبك ارسلك نسخه 2016 المستخدم الدعم الفنى الباسورد 123 ( يمكنك تغيير بنفسك ) تقبل تحياتى برنامج EMA 2015م.zip

برنامج المميز للشئون الإدارية تسعى دائما مجلة المحاسب العربي على تقديم كل ما هو مفيد للمحاسب العربي واليوم نقدم لكم برنامج المميز للشئون الادارية نسخة مجانية 100% خصائص البرنامج 1- لغة التصميم – البرنامج مصمم على الإكسيل 2- يتميز ببساطة واجهة المستخدم الرئيسية 3- يممكن إستخدام اللغة العربية أو الإنجليزية " حسب إعدادات المستخدم . 4- إمكانية الإستخدام حتى 967 موظف 5- إمكانية إنشاء صفحة لكل موظف بها البيانات الخاصة به من بيانات أساسية أو بيانات خاصة بالأجازة واتعاب نهاية الخدمة ... الخ 6- أمكانية تسجيل الإجازات المرضية في كشف مستقل . 7- أمكانية إحتساب رصيد الإجازات حسب قانون بلدك . 8- إمكانية إحتساب أتعاب نهاية الخدمة .... للتعديل حسب قانون بلدك يرجى مراجعة صاحب البرنامج . 9- إعداد كشف الرواتب الشهري للصرف بموجبه . 10- أمكانية إحتساب رصيد الإجازات واتعاب نهاية الخدمة في شكل تقرير للصرف بموجبة . لزيارة الموضوع الاصلي إضغط هنا http://www.aam-web.com/ar/news_detail/55 للتحميل من خلال الرابط إضغط هنا http://adf.ly/1TFJnF شرح كيفية التعامل مع البرنامج https://www.youtube.com/watch?v=w-TQffyprug

ههههههههههههههههههههههههههه بانتظار إخواننا خبراء المفرقعات وربنا يسترها ان شاء الله

السّلام عليكم و رحمة الله و بركاته أخي الفاضل " وائل الأسيوطي " .. كود بوووووووومْ هذا .. يلزمُهُ خبير متفجّرات سأتابع معك الموضوع باهتمام .. و إن شاء الله يكون الحل سريعًا فائق إحتراماتي

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

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

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

السلام عليكم تحيه الى كل الاعضاء والمشرفين والزوار والمتابعين لهذا المنتدى نكمل معكم احبتي سوف نقوم بالعمل على حواسيب العملاء للسيرفر وهذه الحواسيب يجب ان لا تحتوي على sql sever الاجراءات التي يجب عملها قبل عملية الاتصال 1 - اطفاء الجدار الناري 2- عمل اتصال مع السيرفر من خلال sql server mangmant stodiu وبعد اكمال عملية الاتصال يمكن حذف 3 - وعمل اتصال من خلال الاكسس من data source وتسمية باي اسم وبعد ذلك عمل ربط مع السيرفر والفديو يوضح العملية https://www.youtube.com/edit?o=U&show_mt=1&video_id=Y1Mv1lhzJeU بالتوفيق

حبيبى الغالى أ / محمد الريفى أشكرك على رأيك الرائع هامش الربح الموضح بالمرفق الغرض منه هو توضيح للتاجر ربحيته بطريقة إن سعر المنتج صافى عليه بعد الضريبة مثلا 2.5 جنيه وسعر المستهلك 3 جنيه فهامش الربح له يساوى سعر المستهلك ناقص الصافى بعد الضريبة ÷ سعر المستهلك فيعطى نسبة هامش الربح ولا أدرى هل هذا صحيح أم لا وبالنسبة للمعادلة المطلوبة عبارة عن السعر قبل الضريبة ناقص خصم نقدى ثابت 2% + ضريبة المبيعات وقد نفزتها بالفعل كما يلى D4-(D4*2%)+(F4-E4= باقى المعادلة محيرنى المطلوب إن لو قيمة الصنف وصلت إلى 100 جنيه أخصم كمان 5 % قبل الضريبة وبعدين أضيف الضريبة مش عارف أنا كدا موضح ولا لا تقبل تحياتى

وعليكم السلام أخي محمد الاكسس يأخذ هذه التضبيطات من الكمبيوتر ، فتأكد انك مستخدم Metric بدلا عن US في الخانة رقم 5 من الصورة جعفر

تفضل : ادراج صورة وحذفها ادراج وحذف الصور.rar

اخى الحبيب الغالى / عبد العزيز فى البداية أشكرك جدا لإهتمامك ومرورك الدائم الذى يسعدنى ويشرفنى دائما بالنسبة لخانة الخصم النقدى لا يوجد خانة فالخصم النقدى 2 % ثابت لكل الأصناف ويكتب يدوى بالمعادلة مثلا =B5*2% تقبل خالص تحياتى وتقديرى

يا رجال ، كنت احسبك بتطلب مني اعمل لك كبسة دجاج او لحم ، وكنت بخبصها , وخلها على الله غالي والطلب رخيص (بس مو كل مرة تسافر وتيجي بفكرة جديدة) الاستعلام صار: . نقول فيه: 1. اذا الوحدة النمطية حقّت الاسم F_Name فاضية ، 2. استعمل قيم الحقل name من الاستعلام ، 3. وإلا ، فاستعمل قيمة F_Name() من الوحدة النمطية. الكود: len(F_Name() & '')=0 في الاستعلام (واما اذا كان في الكود العادي للنماذج ، تغير ' وتخليه " : len(F_Name() & "")=0 بدل عمليتين ، وانا دائما استعمله في برامجي ، والعمليتين: if isnull(F_Name) والثانية if F_Name="" والكود في نموذج الاسم اصبح: Private Sub Form_Close() 'close name as nothing f_n = "" End Sub Private Sub Form_Load() 'initilize name as nothing f_n = "" End Sub Private Sub print_AfterUpdate() 'if selected, assign the name to f_n, otherwise don't 'so f_n will only have the last value selected, NO multiple selections If Me!print = -1 Then f_n = Me!name Else f_n = "" End If End Sub والوحدة النمطية: Option Compare Database Public d_F As Date Public d_T As Date Public f_n As String ' Function d_From() d_From = d_F End Function Function d_To() d_To = d_T End Function Function F_Name() F_Name = f_n End Function 279.1.مثال استعلام.accdb.zip

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

ارجو ان يكون الشرح وافى

السطر الذي يصادفك عليه خطاء حط عليه علامة ' التي هيا حرف الطاء شوف الزر الذي تريد حذفه روح خذ اسمه اولاً قبل حذفه وخش على واجهة الاكواد اتبع الشرح في المرفق كي تتضح الصورة اكثر شرح11.rar

السلام عليكم شاهد الشرح بالمرفق شرح.rar

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الخامس والعشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان أوراق العمل التفاعلية -أزرار التحكم الجزء الأول أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم لمشاهذة دروس دورة مهارات اكسيل 2013 يمكنكم فتح الرابط التالي دورة مهارات اكسيل 2013 دمتم بخير أخوكم م/نضال الشامي https://youtu.be/PWPdTTyE7bA

أهلا بك سيدي العزيز نتمنى لك الاستفادة التامة.

افعل ما يلي 1-افتح اي ملف اكسل 2-اضغط على File>>>>Option>>>>advanced 3-ثم انزل الى خيار display options for this worksheet 4- احذف علامة الصح من جانب show a zero in cells that have zero value 5- Ok

حياك الله وعلى راسي بس لو تعرف ، ترى القائمين على هذا الصرح والمنتدى العظيم ، هم اللي شرفوني بهذا الوسام وهذه التسمية ، بينما انا لا املك اي شهادة في الكمبيوتر ولا حتى شهادة الرخصة الدولية لقيادة الحاسب الآلي ICDL في الرابط التالي كان في سؤال شبيه ، ولكن لطباعة التقرير ، وتم حله بطريقة اخرى كذلك: http://www.officena.net/ib/topic/64830-مشكلة-طباعة-مع-النموذج-الفرعي/?do=findComment&comment=421820 جعفر

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " حسام عيسى " على الملف المميّز بارك الله فيك جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي

جرب هذا الملف تصريح دخول salim.zip

السلام عليكم ورحمة الله تفضل اخي عبدالرحمن يقوم بتعـديــــــــــــــــــــــــــل السعر بالكيلو وإضافة الكمية الجديدة إلي رصيد الصنف بالمخزن في صفحة المخزن ادارة المحلKHMB.rar

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

وعليكم السلام تفضل 1. 2. 3. 4. جعفر 278.mouwazaf11.accdb.zip

التعريف اعلاه متوافق مع نظام 32 بت وفي حال كان النظام 64 يلزم استبداله بالتعريف التالي علما اني لم اجربه Private Declare PtrSafe Function LoadKeyboardLayoutA Lib "user32" (ByVal pwszKLID As String, ByVal flags As Long) As LongPtr ولو اجريت البحث عبر google لوجدت مجالا اوسع ومعلومات اشمل

جرب هذا الكود Sub extract_data() Dim x, i, lr As Integer Dim My_sheet As Worksheet Dim Source_sheet As Worksheet Set Source_sheet = Sheets("البيانات") Set My_sheet = Sheets("ارقام الجلوس") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual My_sheet.Columns(2).ClearContents My_sheet.Columns(5).ClearContents lr = My_sheet.Cells(Rows.Count, 1).End(3).Row x = 1 For i = 2 To lr My_sheet.Range("b" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i).Resize(1, 5)) My_sheet.Range("b" & x + 4).NumberFormat = "m/d/yyyy" My_sheet.Range("e" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i + 1).Resize(1, 5)) My_sheet.Range("e" & x + 4).NumberFormat = "m/d/yyyy" i = i + 1 x = x + 6 Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

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

السلام عليكم ورحمة الله اخي عبدالرحمن بالنسبة للرسالة اعتقد انها من نوع إصدار الاكسل انا اعمل علي Office 2013 64 Bit ما ادري أي إصدار تعمل علية 2003 او عندك Office 2013 لكن بنظام 32 bit او غيرة تأكد بالنسبة لطلبك يعتبر هذا تعديل وليس إضافة والأفضل ان ييتم التسجيل في كل مرة لكي تعرف وتتابع السعر بعدة فترة طويلة تقدر تتتبع تغيير السعر وتواريخه وانا بحاول اعمل تغيير انه يعدل علي السعر القديم بس اعطني فرصه طال عمرك

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

ايه رأيك ياريس عملتلك الموضوع علي اول نطاق هو موضوع تحويل المعادلات دا كل لما يكون كتيرررر ومحتاج تحول هتلاقي قليل اللي وقته فاضي يقعد يبص وبيحلق في الملف فالافضل تعرض مثال بسيط لطريقة تحويل الدالة لكود وانت تقوم بالتطبيق علي المثال ولكن لو عجبتك فكرتي اكمل معاك عادي حبيبي كود لداله vlookup.rar

lab.part001.rar تعديلات لكل الاخوه الافاضل اللى عنده اضافه او تعديل يتفضل عسى ان نستفيد جميعا وياريت لو حد من الاخوه الاعضاء يعمل لنا نموزج من خلاله يمكننا اضافه راس التقيرير والتذذيل لجميع التقارير مره واحد lab.part002.rar lab.part003.rar انا اسف اضريت اقسم البرنامج لانى مش عارف ارفعه مره واحده lab.part004.rar lab.part005.rar lab.part006.rar lab.part007.rar lab.part008.rar lab.part009.rar lab.part010.rar lab.part011.rar lab.part012.rar lab.part013.rar lab.part014.rar lab.part015.rar lab.part016.rar lab.part017.rar lab.part018.rar lab.part019.rar lab.part020.rar

السلام عليكم ورحمة الله وبركاته الدرس الثاني عشر 12-Window Events وسوف نتناول فى هذه الدرس الاتى تغيير التسمية التوضيحية لإسم نافذة المصنف النشط تنشيط نافذة معينه مفتوحه إخفاء أو إظهار نافذة مصنف مفتوح إغلاق نافذة مصنف فتح نافذه جديد لمصنف معين تكبير أو تصغبر أو الوضع العادى لنافذة مصنف عمل زووم لنافذة معينه إخفاء علامات التبويب لأوراق العمل فى مصنف معين إخفاء رؤوس الأعمدة والصفوف فى مصنف معين إخفاء شريط التمرير الأفقي فى مصنف معين إخفاء شريط التمرير العمودي فى مصنف معين عرض جميع صيغ المعدلات فى مصنف معين إخفاء خطوط الشبكة فى مصنف معين تلوين خطوط الشبكة فى مصنف معين عمل معاينة لفواصل الصفحات فى مصنف معين إخفاء القيم الصفرية فى مصنف معين اظهار اسم الورقة النشطه في رساله اظهار عنوان الخلية النشطة فى مصنف معين في رساله اظهار عنوان مدى محدد في رساله تجميد الألواح داخل فى مصنف معين عمل انقسام فى مصنف معين ................................................................................................................................................................................. تغيير التسمية التوضيحية لإسم نافذة المصنف النشط لاحظ هنا ان اسم المصنف المفتوح امامك هو LEARN--VBA.xlsb طب لو احنا عايزين نغيره ونخليه مثلا مش مهم تكون محترفvbaالمهم تكون عندك معلومات عنvba.xlsb سيكون شكل الكود Sub A_Window_Caption() ActiveWindow.Caption = "مش مهم تكون محترفvbaالمهم تكون عندك معلومات عنvba.xlsb" End Sub تنشيط نافذة معينه مفتوحه كما يتضح من الصوره ان هناك اكثر من نافذة اكسيل مفتوحه ولكن المصنف النشط هو 9-sky201.xlsb فلو افترضنا اننا نريد اننا عايزين نخلى المصنف النشط هو LEARN--VBA.xlsb ليصبح هكذا سيكون شكل الكود Sub Windows_Activate() Windows("LEARN--VBA.xlsb").Activate End Sub إخفاء أو إظهار إطار نافذة مصنف مفتوح كما يتضح من الصوره اننا لدينا اكثر من مصنف مفتوح فلو اردنا اخفاء نافذه المصنف 9-sky201.xlsb سيكون شكل الكود Sub Windows_Visible() ' اخفاء Windows("9-sky201.xlsb").Visible = False ' اظهار 'Windows("9-sky201.xlsb").Visible = True End Sub إغلاق نافذة مصنف فلو اردنا اغلاق نافذة المصنف 9-sky201.xlsb سيكون الكود كالاتى Sub Windows_CLOSE() Windows("9-sky201.xlsb").Close = True End Sub فتح نافذه جديد لمصنف معين فى الصوره يتضح ان المصنف LEARN--VBA.xlsb مفتوح مره واحده ولفتحه مرتين هكذا لاحظ فى الصوره انه تم اضاف شيت جديد باسم افتراضى LEARN--VBA.xlsb:2 وتم تميز المصنف الاول باسم LEARN--VBA.xlsb:1 وعند غلق اى من المصنفين يتم اعادة اسم المصنف كما كان LEARN--VBA.xlsb سيكون الكود كالاتى Sub NewWindow_() Windows("LEARN--VBA.xlsb").NewWindow End Sub تكبير أو تصغبر أو الوضع العادى لنافذة مصنف سيكون الكود كالاتى Sub WindowState_() 'الوضع العادى Windows("LEARN--VBA.xlsb").WindowState = xlNormal 'تكبير 'Windows("LEARN--VBA.xlsb").WindowState = xlMaximized ' تصغير 'Windows("LEARN--VBA.xlsb").WindowState = xlMinimized End Sub عمل زووم لنافذة معينه سيكون الكود كالاتى Sub WindowZOOM_() Windows("LEARN--VBA.xlsb").Zoom = 80 End Sub إخفاء علامات التبويب لأوراق العمل فى مصنف معين لاحظ اختفاء اسماء الشيتات بعد تنفيذ الكود سيكون الكود كالاتى Sub DisplayWorkbookTabs_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayWorkbookTabs = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayWorkbookTabs = True End Sub إخفاء رؤوس الأعمدة والصفوف بمصنف معين سيكون الكود كالاتى Sub DisplayHeadings_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayHeadings = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayHeadings = True End Sub إخفاء شريط التمرير الأفقي فى مصنف معين سيكون الكود كالاتى Sub DisplayHorizontalScrollBar_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayHorizontalScrollBar = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayHorizontalScrollBar = True End Sub إخفاء شريط التمرير العمودي فى مصنف معين سيكون الكود كالاتى Sub DisplayVerticalScrollBar_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayVerticalScrollBar = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayVerticalScrollBar = True End Sub عرض جميع صيغ المعدلات فى مصنف معين سيكون الكود كالاتى Sub DisplayFormulas_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayFormulas = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayFormulas = True End Sub إخفاء خطوط الشبكة فى مصنف معين سيكون الكود كالاتى Sub DisplayGridlines_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayGridlines = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayGridlines = True End Sub تلوين خطوط الشبكة فى مصنف معين سيكون الكود كالاتى Sub DisplayGridlines_() Windows("LEARN--VBA.xlsb").GridlineColorIndex = 5 End Sub عمل معاينة لفواصل الصفحات فى مصنف معين سيكون الكود كالاتى Sub WindowView_() Windows("LEARN--VBA.xlsb").View = xlNormalView End Sub إخفاء القيم الصفرية فى مصنف معين سيكون الكود كالاتى Sub DisplayZeros_() ' اخفاء Windows("LEARN--VBA.xlsb").DisplayZeros = False ' اظهار 'Windows("LEARN--VBA.xlsb").DisplayZeros = True End Sub اظهار اسم الورقة النشطه في رساله سيكون الكود كالاتى Sub MsgBoxActiveSheet_() MsgBox Windows(1).ActiveSheet.Name End Sub اظهار اسم الخليه النشطه محدد في رساله Sub MsgBoxActiveSheet_() MsgBox Windows("LEARN--VBA.xlsb").ActiveCell.Address End Sub اظهار عنوان مدى محدد في رساله Sub MsgBoxRangeSelection_() MsgBox Windows("LEARN--VBA.xlsb").RangeSelection.Address End Sub تجميد الألواح داخل فى مصنف معين Sub MsgBoxActiveSheet_() Windows("LEARN--VBA.xlsb").FreezePanes = True 'Windows("LEARN--VBA.xlsb").FreezePanes = false End Sub عمل انقسام فى مصنف معين Sub Split_() Windows("LEARN--VBA.xlsb").Split = True 'Windows("LEARN--VBA.xlsb").Split = false End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى

اكرر استفساري مجددا آملا من الله أن يوفقنى لحسن السؤال بعد تنفيذ هذه الاجراءات كاملة اعطتنى رسالة خطأ بعد التنفيذ مفادها عدم وجود user32.dll ارجو المساعدة فى توضيح سبب الخطأ وكيفية المعالجة وادامكم الله لنا نبراسا للخير ونشر العلم

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

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

يوجد لدي هذا البرنامج المربوط مع جهاز البصمة وأرغب في إستخراج بيانات حضور وإنصراف الموظفين منه على النحو التالي : جدول CHECKINOUT ويوجد به سجل حركات الموظفين ويحتوي على : USERID رقم الموظف CHECKTIME حركة الدخول والخروج CHECKTYPE نوع حركة الدخول والخروج ( I ) دخول ( O ) خروج وهذه هي الأشياء التي تهمني في هذا الجدول . وأرغب في إستخراج الحركات ووضعها في إستعلام وتقرير بحيث أضع في خانة الدخول للموظفين جميع الحركات التي تكون نوعها ( I ) وأضع في خانة الخروج للموظفين جميع الحركات التي تكون نوعها ( O ) حتى أتمكن من إستخراج التقارير المطلوبة وهل هناك معادلة أستطيع من خلالها إستخراج بيانات الخروج أو الدخول في التقرير أرجو أن أكون قد قمت بالشرح الوافي لطلبي ، وتقبلوا مني خالص الشكر والتقدير Ine-Out-3.rar

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