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

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

السلام عليكم بتوفيق رب العالمين توصلت الى شكل المعادلة التى من خلالها تستطيع ربط دالة MAX او دالة MIN مع دالة LOOKUP وذلك حتى نتمكن من الحصول على اكبر او اصغر قيمة بالرجوع الى البحث عن قيمة محددة داخل جدول بدون اطاله ... المرفق وافى الشرح اتمنى ان يكون مفيدا ان شاء الله فى انتظار الملاحظات شكرا max+lookup.rar

أخي الكريم بالنسبة لطلبك بدون الإطلاع على المرفق .. قم بوضع سطر قبل تنفيذ الكود بفك الحماية Activesheet.Unprotect 123 وفي نهاية الكود ضع سطر لتفعيل الحماية مرة أخرى Activesheet.Protect 123 أرجو أن يفي بالغرض

جرب التعديل التالي حيث أضفت سطر يعطل الحساب التلقائي إلى حين انتهاء عمل الكود ثم بعد انتهاء الكود يتم تفعيل الحساب التلقائي مرة أخرى .. جرب وأعلمني بالنتيجة Sub ConvertTextToNumber() Dim R As Range On Error Resume Next Application.ScreenUpdating = False Application.Calculation = xlManual For Each R In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(R) Then R.Value = Val(R.Value) Next R Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Done!", 64 End Sub تقبل تحياتي

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

انت قلت اضف هذا السطر Application.Calculate بعد السطر Sheets(ComboBox1.Value).Delete ليكون كود ال CommandButton1_Click كالتالي بعد الاضافه Private Sub CommandButton1_Click() Dim C As Range Dim Fir Application.DisplayAlerts = False If Sheets.Count > 1 And ComboBox1.Value <> "" Then On Error Resume Next With ActiveSheet.Columns(2) Set C = .Find(ComboBox1, LookIn:=xlValues) If Not C Is Nothing Then Fir = C.Address Do C.EntireRow.Delete Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> Fir End If End With Sheets(ComboBox1.Value).Delete Application.Calculate End If Application.DisplayAlerts = True UserForm_Initialize End Sub

السلام عليكم مبروك الأستاذ ياسر فتحي على الترقية المستحقة

استاذ مختار حسين ... فكرت ادخال دالة ال Hyperlink في الخلايا الموجودة مباشرة تحت الشكل (Shape) ... طبعا هذه الخلايا ينبغي أن تكون خالية و غير مستعملة ...بدأت في كتابة الكود و يبدو جيدا لو توصلت الى نتيجة محترمة سأتشر الكود هنا

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

طريقة التنسيق وتدوس علي كلمة تنسيق جمب اللون وتختار التنسيقات اللي انت عايزها والالوان

تفضل اخي سلمان رقم الصنف في tabl1 هو الباركود بالتوفيق برنامج المطاعم.rar

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

مرة اخرى اين الملف الاساسي ؟

سيدي الكريم غير حدث زر الطباعة الى: Private Sub أمر9_Click() 'the print cannot take place directly with the Filter, 'so we have to open the Report in Preview mode, but hidden so the user doesn't feel DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden 'unfortunately, the sorting Order in the Report needs a bit of time to organize PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'now print the Report DoCmd.PrintOut DoCmd.Close acReport, "مساعد كشف الارصده" End Sub جعفر

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

أصلي عندي الحاسة السابعة ..فقريت أفكارك وكتبتها قبلك .. بس متقلقش سايبلك موضوعات كتيرة في المنتدى تشتغل فيها براحتك لأني مش خبير فيها (موضوعات الفورم تحديداً) تقبل وافر تقديري واحترامي

الله ينور أخى الحبيب / ياسر العربى شعلة النشاط بالمنتدى جزاك الله خير

جزاك الله خيرا رائع أستاذ / سليم رائع جدا جدا ومتميز ربنا يبارك فى حضرتك

ابو عارف الله ينور عليك ياشيخ وعلى جميع الاخوان تمام التمام

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

السلام عليكم الاخ والاستاذ ياسر فتحي البنا الف الف مبروك على الترقيه والى مزيد من التقدم والرقى ان شاء الله تقبل مروري

جرب هذا الملف max+lookup salim.zip

هاي ما انتبهت لها جعفر

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

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

تفضل اخي الغالي برنامج ديوان محافظة.rar برنامج ديوان محافظة.rar

رائـــــــــــــــــــــــــــــــــــــــــــــــــع جداااااااااااااااااااااااااااا بارك الله فيك

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

تفضل الظاهر انك ما شفت الرابط اللي وضعته لك التقرير لا يحترم فرز الاستعلام ،والطريقة لعمل الفرز هي: . والنتيجة جعفر 257.الرصيد.accdb.zip

تفضل Public Sub A_Add() Dim Sh As Worksheet, Sht As Worksheet Dim R As Range Set Sht = Sheets("Sheet2") Set Sh = Sheets("Sheet1") i = 1 Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Row For Each R In Sh.Range("A1:J" & Lr).Rows A = Join(Application.Index(R.Value, 0), ",") A = Formt(A, Split(A, ",")(4)): A = Formt(A, Split(A, ",")(5)) B = Replace(A, "ES", "MR") B = Mid(B, 1, InStr(1, B, Split(B, ",")(3)) - 1) & Adm("0.00,", 3) & Split(B, ",")(7) & "." & String(2, "0") & Adm(",0.00", 2) A = A & String(3, "0") ii = Sht.Cells(Rows.Count, 1).End(xlUp).Row + 1 Sht.Cells(ii, 1) = Choose(1, A, B) Sht.Cells(ii + 1, 1) = Choose(2, A, B) i = i + 1: ii = ii + 1 Next End Sub Private Function Formt(R, Nm) Formt = Replace(R, Nm, Format(Nm, "yyyy-mm-dd")) End Function Private Function Adm(Strn$, Ln&) Adm = Application.Rept(Strn, Ln) End Function

السلام عليكم

الف مبروك الترقية تستحقها عن جدارة واستحقاق الى الامام دائما موفق ان شاء الله

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

الف مبروك اخي الغالي ياسر ودائما من تقدم لتقدم وفقك الله وزادك من علمه

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

سلمت يمينك الأستاذ والمعلم القدير / nedal_shami أسلوبك فى توصيل المعلومة رائع جزاك الله خير وزادك الله من العلم الكثير والكثير

سلمت يمينك الأستاذ والمعلم القدير / nedal_shami أسلوبك فى توصيل المعلومة رائع جزاك الله خير وزادك الله من العلم الكثير والكثير

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

انت كدا جيت في ملعبي تفضل الموضوع دا لو عرفت تطبقه كان بها معرفتش هحاول اظبطه ليك وارفقه http://www.officena.net/ib/topic/64269-لمسة-جمالية-لبرنامجك-ايا-كان-هو-عرض-صور-بطريقة-جميلة/

اهلا بك ابو عبدالله عايزك تفهم ان موضوعك موضوع مفتوح نوعا ما ! او للاجابة يحتاج وقت وشرح ولابد من التطرق للاساسيات علشان نكمل ! وبرضه يا اشرح شي بشكل علمي لانه سيكون مرجع لكل من يمر هنا ! لذلك مثل هذه الاشياء خذها من مصادرها الصحيحة والموثوقة افضل مثل : كتب - موقع ميكروسوفت ! انصحك ان تاخذ كتاب في الاساسيات وبتسلسل المواضيع بدون القفز من فصل لاخر ! الشي الذي ممكن اضيفه هنا هو : عايزك تتخيل ان هذا البريمج (الاكسس) به قاعدة بيانات مصغرة - اداة تصميم وتطوير - بيئة لكتابة اكواد ! كلها هذا ونحن نعرف ان كل منها موجود كمنتج مستقل من شركات اخرى ! بينما هذه كلها موجودة في ملف واحد ! وملف ايه ؟ ملف بيانات ! بل كل وحدة عبارة عن كائن داخل هذا الملف ! بمعنى انتي الوحدة النمطية اللي نكتب فيك الاكواد ماخذه شكل مصغر من عمل ادوات التطوير المستقلة مثل الترجمة وتتبع الاخطاء وغيرها وتحويل الكود الى لغة الكمبيوتر ! وهية مع هذا كله مازالت كائن في ملف الاكسس ! فمش عارف هل ننظر للموضوع استخفاف بعقولنا ام انه ابداع في هذا المنتج ؟!!!!! وهنا انا حجيبك على استفساراتك ولكن اتمنى ان لاتكون حلقة مفتوحة باستفسار عن جواب لاستفسار سابق وهكذا ! وصدقني ابداية مع كتاب وبتسلسل منطقي افضل بكثير من المواضيع التي تكتب بالانترنت وذلك لاسباب عدة منها انت لاتعرف مستوى كاتب الموضوع او صحة مايكتب عكس الموجود بالكتب والمعتمدة ! ** كلمة private تحدد مدى حياة المتغيرscope ! فبها يكون حي فقط في المكان الذي ولد به اي عرف به ! فمثلا ولد في وحدة نمطية عامة فانه يعرف وحي في تلك الوحدة فقط ! ولدة في وحدة فئة نموذج فانه حي ويعرف هنا فقط ! بمعنى لو ناديته منكا اخر ستجده ميت ولا يستجيب ! عكس public ** byval و byref تستخدم لتحديد نوع او اسلوب تمرير المتغيرات للاجراءت والدوال ! بالعربي : بالقيمة او المرجع ! فاذا مررت قيمة متغير من نوع قيمة فانه للرغبة او عدم الاستطاعة في تغيير قيمة المتغير الاساسية عكس بالمرجع التي يمكن تغيير قيمة المتغير من خلال الاجراء او الدالة ! كما ان الموضوع يطول حول مسالة تعريف المتغيرات نفسها بانها من نوع قيمة ام مرجع ! فهل ممكن امرر قيمة متغير معرف انه مرجع لدالة تستقبل بالقيمة ؟ !! ** رابط لل api : https://msdn.microsoft.com/en-us/library/windows/desktop/ff818516(v=vs.85).aspx http://allapi.mentalis.org/apilist/apilist.php طبعا تاكد من توافق الدالة مع اصدار الويندوز! هذا متمنيا ان حصل لو جزء من ما تريد ! كما انبه على ان الشرح لا بد ان ياتي من استاذ فهو علم بحد ذاته فليس المقصود بالاستاذ بقدر مايملك من معلومة ولكن بقدر رضا تلاميذه في ايصال المعلومة ! تحياتي

الاخوة الكرام اقدم لكم بقية لدرس الترحيل كيفية وضع شروط تجبر المستخدم على ادخال بيانات مما لا شك فيه ان سند القبض اللى بصورة التالية لابد من ادخال جميع البيانات اللى بالسند وهى المظلله باللون الاصفر رقم الايصال بالخلية [G7] تاريخ السند بالخلية [D8] الجهه التى تم القبض منها بالخلية [D10] المبلغ المقبوض بالخلية [D11] ان شاء الله اليوم بنتعرف كيف يمكن اجبار المستخدم على ادخال البيانات قبل ترحيلها فلا يعقل مثلا ان يقوم المستخدم بعدم كتابه تاريخ للسند ويترك الخلية فارغه بدون تاريخ ثم يقوم بالترحيل لازم اجبره على ادخال التاريخ اولا: اجبار المستخدم على ادخال رقم الايصال بالخلية [G7] هنستخدم السطر التالى بالكود If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر يتم اضافتة بعد هذا السطرمن الكود Application.ScreenUpdating = False ليصبح هكذا Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub تعالى بقى نشرح معنى هذا السطر If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub هذا السطر من الكود معناه ببساطه كدا ان لو الخلية [g7] فارغه اكتب رساله تظهر للمستخدم تنبهه بان الخلية فارغه ويجب ادخالها و اخرج من الكود ومتكملش الشىئ الذى تريد تنفيذه then الشرط المطلوب التحقق من وجوده if استخدمنا هنا IF وذالك لعمل شرط قبل عملية الترحيل وهى كما نعرف جميعا ان iF معناها لو then معناها تنفيذ الشرط الذى نريده كما اتفقنا من قبل هو عدم ترك الخلية [g7] فارغه اللى بيسجل بها رقم الايصال الكود هيقوم باختبار الشرط التالى "" = [if [g7 "" العلامه هذا بالكود تعنى فارغ ( فلو [g7] تساوى فارغ نفذ كذا كذا ) نفذ دى فى الكود هى Then وسيكون لونها بالكود ازرق هينفذ ايه بقى انا عايزة يظهر رساله وهى " الرجاء ادخال رقم الايصال" ونلاحظ انها مكتوبه بين علمتى تنصيص ( تكتب من خلال شيفت + حرف ط بالكيبور) وهينفذ ايه تانى غير الرساله هينفذ خروج من الكود ميكملش يعنى ودى بتكون exit sub : وبعدها كتابتها ستجد ان لونها اصبح ازرق لمتابعه شرح عن كتابة الرسائل فى لغة البرمجه يرجى مراجعه الرابط التالى ستجد شرح باستفاضه http://www.officena.net/ib/index.php?showtopic=57199&hl= ) ثانيا : عايزين نجبر المستخدم على ادخال التاريخ If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub هو نفس السطر السابق بس بنختبر الخليه [d8] فيها تاريخ ام لا ثالثا : اجبار المستخدم على ادخال الجهه التى تم الاستلام منها If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub رابعا: اجبار المستخدم على ادخال المبلغ المقبوض If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub وهيكون الكود فى شكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Then MsgBox "الرجاء ادخال رقم الايصال": Exit Sub If [d8] = "" Then MsgBox "الرجاء ادخال تاريخ لسند القبض": Exit Sub If [d10] = "" Then MsgBox "الرجاء ادخال اسم الشخص الذى تم الاستلام منه": Exit Sub If [d11] = "" Then MsgBox "الرجاء ادخال المبلغ المقبوض": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub يعنى الكود قبل الترحيل هيعمل اربع اختبارات الاول هيمسك اول سطر بتاع رقم الايصال لو موجود ينتقل للسطر اللى بعده ولو مش موجود هبخرج من الكود ومش هيكمل وهكذا ما باقى الاسطر الين يتحقق من وجود بينات بالاربع خلايا ثم يقوم بعمليه الترحيل خامسا : هل يمكن عمليه الاختبار بسطر واحد بدلا من اربع اسطر نعم يمكن ذالك من خلال السطر التالى If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub هنا تم استخدام داله OR وهى تعنى أو لو الخلية اللى بها رقم الايصال فارغه أو الخلية اللى بها التاريخ فارغه او الخلية اللى بها الجهه التى تم استلام المبلغ منها أو الخلية اللى بها المبلغ فارغه نفذ رساله ثم اخرج من الكود ومتكملش ويكون الكود بشكله النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [g7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [g7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub وفى النهاية ارجوا ان اكون وفقت بالشرح واتمنى ان يستفيد منه الجميع تقبلوا منى وافر الاحترام والتقدير

بسم الله الرحمن الرحيم ممكن لوسمحتوا طاب كود او معادلة (ربط )خلية فيها بيانات مثلا a1 من شيت 1 الى a1 شيت2 وسؤال اخر عند ارسال ملف اكسيل الى شخص عبر الايميل يكون عندي الخيار حق تأمين الماكرو والوحدات النمطية مفعل __كيف ارسلها لة وتفعل في جهازه بدون مايقوم هو بتفعيل تامين الماكرو او الوحدات النمطية؟ - ممكن شرح عمل combobox في الفورم بحيث يكون في عمود الشيت بيانات تظهر في الكومبوبكس داخل الفورم ..؟ شكرا لكم جزيلا شكرا لكم

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

السلام عليكم Colors_in_Excel.rar

أعتقد أن الكود التالي أكثر كفاءة: Private Sub Worksheet_Change(ByVal Target As Range) TR = Target.Row TC = Target.Column If TR > 2 And (TC = 3 Or TC = 4) And Cells(TR, 5) < 1 Then MsgBox "!مبلغ صافي الراتب أقل من أو يساوي صفر", vbExclamation, "تنبيه" End If End Sub شاهد المرفق، _________________________________________.rar

بسم الله الرحمن الرحيم ارفقت كتاب عن VBA و باللغه العربيه للورد و الاكسيل بسيط و مفيد جدا , و لكن بصراحه لا اذكر من اين حملته اتمنى ان يكون مناسبا السلام عليكم WrdExl.rar

بسم الله الرحمن الرحيم تم تعديل رابط المشاركه رقم 8 كتاب Excel VBA هنــــــا السلام عليكم

استخدام ماكرو الماكرو هو عبارة عن سلسلة من أوامر Excel التي تستخدمها بشكل متسلسل ومتكرر حيث يمكنك استخدام الماكرو لتجميعها في أمر واحد، مما يسهل المهام الروتينية اليومية. ويمكنك إضافة زر ماكرو لشريط الأدوات بحيث يصبح استعمال الماكرو كاستعمال أي أمر من أوامر Excel. او بمعنى آخر الماكرو هو مجموعة من الأوامر يمكنك حفظها لكي يتم تنفيذها دفعةً واحدة في أي وقت تريد دون الحاجه الى تنفيذ كل تلك الأوامر في كل مرة تريدها... ويتم ذلك بإحدى طريقتين: الأولى .. اما بالضغط على مفتاح معين من لوحة المفاتيح الثانية .. عمل كليك فوق اداه معينه من سطور الأدوات هناك العديد من الماكروات التي تم اعدادها بشكل جاهر من قبل مايكروسوفت الشركة المصنعه للاكسيل..... على سبيل المثال عنما تريد ان تقوم بحفظ العمل فيمكنك عمل ذلك بالضغط على Ctrl + S بدل من الذهاب الى قائمة File --- Save فبالضغط على هذين المفتاحين Ctrl + S فيتم استدعاء الماكرو المختص بالحفظ .. وعلى سبيل مثال آخر لاضافة ملاحظات بخليه معينه يمكنك عمل ذلك بشكل سريع عن طريق الضغط على Shift + F2 بدل من الذهاب الى قائمة Insert --- Comment وهنا ايضاً بالضغط على هذهين المفتاحين Shift + F2 فإنه يتم استدعاء الماكرو الخاص بإضافة التعليق بالخليه .... وهناك ايضاً العديد من الماكروات التي تم اعدادها بشكل جاهز من قبل مايكروسوفت ومعروفه لدينا باسم (مفاتيح الاختزال) ----------------------------------------------- تسجيل ماكرو سنقوم بتسجيل ماكرو لفتح ملف "حسابات البنوك" المخزن في المجلد Chapter 13، وذلك لاختصار الوصول إلى هذا الملف إذا كنت تستخدمه بشكل متكرر. خطوات تسجيل ماكرو إختر الأمر "ماكرو" من قائمة "أدوات" ومن ثم اختر الأمر "تسجيل ماكرو جديد". في مربع حوار "تسجيل الماكرو" غير الاسم الافتراضي ماكرو 1 باسم فتح_حسابات_بنوك، لتتذكر الهدف من هذا الماكرو لاحقاً. تأكد من عدم ترك فراغات في خانة اسم الماكرو باستخدام (_) بين كلمات جملة الاسم. يمكنك تخصيص اختصار لتشغيل الماكرو إذا أردت استخدم خانة "مفتاح اختصار". حدد من القائمة المنسدلة مكان تخزين الماكرو وهو مصنف الماكرو الشخصي. إضغط على المفتاح "موافق". سيوفر لك Excel أزرار إيقاف تسجيل ماكرو والتي ستستخدمها عند الانتهاء من تسجيل أوامر ماكرو فتح ملف حسابات البنوك. لاحظ على شريط المعلومات حالة "تسجيل" وهنا فإن أي أمر ستقوم به سيسجل من قبل الماكرو. قم بفتح الملف حسابات البنوك كما كنت تفعل سابقاً. اضغط على زر إيقاف التسجيل. عند الخروج من Excel تأكد من حفظ التغييرات للماكرو لتكون متوفرة عند تشغيل Excel في المرة القادمة. تنفيذ الماكرو عند تشغيل Excel سنستخدم الماكرو "فتح_حسابات_بنوك" لفتح الملف السابق. خطوات تنفيذ ماكرو اختر الأمر "ماكرو" من قائمة "أدوات" ومن ثم اختر الأمر "وحدات ماكرو". في مربع حوار "وحدات ماكرو" حدد اسم الماكرو "فتح_حسابات_بنوك". اضغط على مفتاح تشغيل. سيقوم الماكرو بفتح الملف مختصرا الخطوات الروتينية المعتادة.