عبدالله باقشير

السلام عليكم الشكر واصل لجميع المشاركين حفظكم الله اخي الفاضل/ المالكي ---حفظك الله ملاحظتك مفهومة عندي مسبقا ولكن حاليا: ليس بالامكان احسن مما كان ووجود المعلومة احسن من عدمها وعموماً ====== اي موضوع اضعه انا او غيري قد يكون مفهوم عند البعض وغير مفهوم عند غيرهم ولكن مع الوقت والاستمرار في التعلم يرتقي الغير فاهم الى مستوى الفاهم رويدا رويدا خذ دي مني لا تستعجل على فهم كل شي ولكن حين تريده ستحاول ان تفهمه وفي الاخير انا متيقن انك ستفهمه الله ينورك بالعلم النافع تقبل تحياتي وشكري

الاخ الحبيب/ كيماس__________حفظه الله هذا من فضل الله ثم بفضلك جزاك الله خيرا الاخ الحبيب/ نادر__________حفظه الله الله يديم عليك السعادة دنيا وآخرة الاخ الحبيب/ محمدي __________حفظه الله جزاك الله خيرا الاخ الحبيب/ حسن__________حفظه الله جزاك الله خيرا الاخ الحبيب/ ولد المجرب__________حفظه الله جزاك الله خيرا اكرمكم الله على حسن التشجيع وبارك الله فيكم خبور خير

السلام عليكم الشكر واصل للاخ الحبيب/ يحي مارايك لو يمسح النتائج احسن من الرسالة تعديل بسيط في كود اخي يحي المرفق اكسل 2003 السلف1.rar

======================== الاخ الحبيب/ كيماس ========================

السلام عليكم الشكر واصل للاخ الحبيب طارق ولاثراء الموضوع لو نعمل المعادلات التي نريدها في صف معين ثم نخفي هذا الصف اما الكود ليس له علاقة بتغيير هذه المعادلات انما يقوم بنقلها الى الصفوف التي نريدها ثم يظهر قيم المعادلات فقط . نعمل الاعدادات بداية الكود: ======================================== ' النطاق المخفي الذي يحوي المعادلات Const MyRng As String = "A2:R2" ' اول صف للبيانات Const iRow As Integer = 5 ' آخر صف للبيانات Const LastRow As Long = 10004 ======================================== ممكن استخدام هذا الكود لنفس الغرض بشكل عام مع تغيير الاعدادات بداية الكود ======================================== المرفق اكسل 2003 معادلات الى اكواد.rar

معلومات عن : أحرف البدل يمكن استخدام أحرف البدل التالية كمعايير (معايير: هي شروط تقوم بتحديدها لتقييد السجلات التي سيتم تضمينها في مجموعة نتائج لاستعلام أو لعامل تصفية. مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. استخدم للبحث عن ؟ (علامة استفهام) أي حرف مفرد على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير. * (علامة نجمية) أي عدد من الأحرف على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ~ (تيلدا) متبوعة بـ ؟، أو *، أو ~ علامة استفهام، أو علامة نجمية، أو تيلدا على سبيل المثال، يتم العثور على "حر91؟" عند كتابة حر91~؟

الدالة : RIGHT ينطبق أيضاً على: RIGHTB تقوم RIGHT بإرجاع الحرف أو الأحرف الأخيرة في سلسلة نصية، استناداً إلى عدد الأحرف التي تقوم بتحديدها. تقوم RIGHTB بإرجاع الحرف أو الأحرف الأخيرة في سلسلة نصية، استناداً إلى عدد البايت الذي تقوم بتعيينه. تُستخدم هذه الدالة مع الأحرف مزدوجة البايت. بناء الجملة RIGHT(text,num_chars) RIGHTB(text,num_bytes) Text (النص) هو السلسلة النصية التي تحتوي على الأحرف التي تريد استخراجها. Num_chars تحدد عدد الأحرف التي تريد من RIGHT استخراجها. Num_bytes (عدد البايت) يحدد عدد الأحرف التي تريد RIGHTB استخراجها.بالاستناد إلى عدد البايت. ملاحظات Num_chars يجب أن تكون أكبر من أو تساوي صفر. إذا كانت num_chars أكبر من طول النص، تُرجع RIGHT كافة النص. إذا تم تجاهل num_chars، يفترض أن تكون 0.1. RIGHT.rar

الدالة : LEFT ينطبق أيضاً على: LEFTB تقوم LEFT بإرجاع الحرف الأول أو الأحرف الأولى في سلسلة نصية، استناداً إلى عدد الأحرف التي تقوم بتعيينها. تقوم LEFTB بإرجاع الحرف أو الأحرف الأولى في سلسلة نصية، استناداً إلى عدد البايت الذي تقوم بتعيينه. تُستخدم هذه الدالة مع الأحرف مزدوجة البايت. بناء الجملة (LEFT(text,num_chars LEFTB(text,num_bytes) Text هو السلسلة النصية التي تحتوي على الأحرف التي تريد استخراجها. Num_chars (عدد الأحرف) تعيين عدد الأحرف التي تريد من LEFT استخراجها. Num_chars يجب أن تكون أكبر من أو تساوي صفر. إذا كانت num_chars أكبر من طول النص، تقوم LEFT بإرجاع كافة النص. إذا تم تجاهل num_chars، يفترض أن تكون 0.1. Num_bytes (عدد البايت) يحدد عدد الأحرف التي تريد LEFTB استخراجها.بالاستناد إلى عدد البايت. LEFT.rar

الدالة : MID ينطبق أيضاً على: MIDB تقوم MID بإرجاع عدد معين من الأحرف من سلسلة نصية، بدايةً من الموقع الذي تحدده، استناداً إلى عدد الأحرف الذي تحدده. تقوم MIDB بإرجاع عدد معين من الأحرف من سلسلة نصية، بدايةً من الموقع الذي تحدده، استناداً إلى عدد البايت الذي تحدده. تُستخدم هذه الدالة مع الأحرف مزدوجة البايت. بناء الجملة MID(text,start_num,num_chars) MIDB(text,start_num,num_bytes) Text (النص) هو السلسلة النصية التي تحتوي على الأحرف التي تريد استخراجها. Start_num هو موضع الحرف الأول الذي تريد استخراجه من النص. يحتوي الحرف الأول في النص على start_num 1، وهكذا. Num_chars تحديد عدد الأحرف التي تريد MID أن تقوم بإرجاعها من النص. Num_bytes تحديد عدد الأحرف التي تريد MIDB أن تقوم بإرجاعها من النص بالبايت. ملاحظات إذا كانت start_num أكبر من طول النص، تقوم MID بإرجاع "" (نص فارغ). إذا كانت start_num أقل من طول النص، لكن start_num بالإضافة إلى num_chars يتعديان طول النص، تقوم MID بإرجاع الأحرف حتى نهاية النص. إذا كانت start_num أقل من 0، تقوم MID بإرجاع قيمة الخطأ !VALUE#. إذا كانت num_chars سالبة، تقوم MID بإرجاع قيمة الخطأ !VALUE#. إذا كان num_bytes سالباً، ترجع MIDB قيمة الخطأ #VALUE!. MID.rar

الدالة : FIND ينطبق أيضاً على: FINDB تقوم FIND بالبحث عن سلسلة نصية واحدة (find_text) داخل سلسلة نصية أخرى (within_text)، وإرجاع رقم موضع البدء لـ find_text، من الحرف الأول لـ within_text. يمكنك أيضاً استخدام SEARCH للبحث عن سلسلة نصية واحدة داخل سلسلة أخرى، ولكن بخلاف SEARCH، تكون FIND حساسة لحالة الأحرف ولا تسمح بأحرف بدل. تقوم FINDB بالبحث عن سلسلة نصية واحدة (find_text) داخل سلسلة نصية أخرى (within_text)، وإرجاع رقم موضع البدء لـ find_text، بالاعتماد على عدد وحدات البايت التي يستخدمها كل حرف، من الحرف الأول لـ within_text. تستخدم هذه الدالة مع الأحرف مزدوجة البايت. يمكنك أيضاً استخدام SEARCHB للبحث عن سلسلة نصية واحدة ضمن سلسلة أخرى. بناء الجملة FIND(find_text,within_text,start_num) FINDB(find_text,within_text,start_num) Find_text (بحث عن نص) النص الذي تريد البحث عنه. Within_text (داخل نص) هو النص الذي يحتوي على النص الذي تريد البحث عنه. Start_num يقوم بتعيين الحرف الذي به بدء البحث. والحرف الأول في داخل_نص هو عبارة عن حرف رقم ‍1. فإذا تجاهلت رقم_البدء، سيفترض أنه 1. تلميح استخدم start_ num لتخطي عدد معين من الحروف. على سبيل المثال، إذا فُرض أنك تعمل مع السلسلة النصية "AYF0093.YoungMensApparel". للبحث عن رقم أول "Y" في الجزء الوصفي في السلسلة النصية، قم بتعيين start_ num مساوياً لـ 8 حتى لا يتم البحث في جزء الرقم المتسلسل للنص. وتبدأ FIND مع الحرف 8، للعثور على find_ text في الحرف التالي، وإرجاع الرقم 9. ودائماً ترجع FIND عدد الأحرف من بدء within_text، وتحسب الأحرف التي تتخطاها إذا كانت start_ num أكبر من 1. ملاحظات إذا كانت find_text (بحث عن النص)" " (نص فارغ)، فإن FIND تطابق الحرف الأول في السلسلة النصية (بمعنى، الحرف المرقم start _num أو 1). لا يمكن أن تحتوي Find_text (بحث عن النص) على أي أحرف بدل. إذا لم تظهر find_text في within_text، تقوم FIND وFINDB بإرجاع قيمة الخطأ !VALUE#. إذا لم تكن start_ num أكبر من الصفر، تقوم FIND وFINDB بإرجاع قيمة الخطأ !VALUE#. إذا لم تكن start_ num أكبر من طول within_text، تقوم FIND وFINDB بإرجاع قيمة الخطأ !VALUE#. FIND.rar

الدالة : SEARCH ينطبق أيضاً على: SEARCHB تُرجع SEARCH عدد الأحرف التي عثر عندها على حرف معين أو سلسلة نصية، بداية بـ start_num. استخدم SEARCH لتحديد موقع الحرف أو السلسلة النصية داخل سلسلة نصية أخرى بحيث يمكنك استخدام الدالات MID أو REPLACE لتغيير النص. تقوم SEARCHB أيضاً بالبحث عن سلسلة نصية واحدة (find_text) داخل سلسلة نصية أخرى (within_text)، وإرجاع رقم موضع البدء لـ find_text. يعتمد الناتج على عدد وحدات البايت التي يستخدمها كل حرف، بداية الحرف الأول لـ within_text. تستخدم هذه الدالة مع الأحرف مزدوجة البايت. يمكنك أيضاً استخدام SEARCHB للبحث عن سلسلة نصية واحدة ضمن سلسلة أخرى. بناء الجملة SEARCH(find_text,within_text,start_num) FINDB(find_text,within_text,start_num) Find_text هو النص الذي تريد العثور عليه. يمكنك استخدام أحرف البدل— مثل علامة الاستفهام (?) والعلامة النجمية (*) في find_text. تطابق علامة الاستفهام أي حرف مفرد، وتطابق العلامة النجمية أي مجموعة أحرف متتابعة..إذا أردت العثور على علامة استفهام أو علامة نجمية حقيقية، اكتب التلدة (~) قبل الحرف. Within_text هو النص حيث تريد البحث عن find_text. Start_num هي عدد الحرف في within_text حيث تريد بدء البحث. تلميح استخدم start_num لتخطي عدد أحرف معين. على سبيل المثال، افترض أنك تعمل بالسلسلة "AYF0093.YoungMensApparel". للعثور على عدد "Y" الأول في الجزء الوصفي للسلسلة النصية، حدد start_num التي تساوي 8 حيث لا يتم بحث جزء الرقم المسلسل للنص. تبدأ SEARCH بالحرف 8، وتعثر على find_text عند الحرف التالي، وتُرجع العدد 9. دائماً تُرجع. SEARCH عدد الأحرف من بداية within_text، وتحسب الأحرف التي تتخطاها إذا كانت start_num أكبر من 1. ملاحظات لا تفرق SEARCH بين الأحرف الكبيرة والصغيرة عند بحث النص. تشبه SEARCH و SEARCHB كلاً من FIND و FINDB، إلا أن FIND و FINDB يتسمان بالحساسية لحالة الأحرف. إذا لم يتم العثور على find_text، تُرجع قيمة الخطأ #VALUE!. إذا تم تجاهل start_num، يفترض أن تكون 0.1. إذا لم تكن start_num أكبر من 0 (صفر) أو أنها أكبر من طول within_text، يتم إرجاع القيمة الخطأ !VALUE#.

الدالة: INDIRECT إرجاع المرجع المحدد بواسطة سلسلة نصية. يتم تقييم المراجع مباشرةً لعرض محتوياتها. استخدم INDIRECT عندما تريد تغيير مرجع إلى خلية داخل صيغة دون تغيير الصيغة نفسها. بناء الجملة INDIRECT(ref_text,a1) Ref_text (مرجع النص) هو مرجع لخلية تحتوي على مرجع نمط A1 أو مرجع نمط R1C1 أو اسم معرّف كمرجع أو مرجع لخلية كسلسلة نصية. إذا لم تكن ref_text مرجع خلية صالح، تقوم INDIRECT بإرجاع قيمة الخطأ #REF!. إذا أشارت ref_text لمصنف آخر (مرجع خارجي)، يجب أن يكون المصنف الآخر مفتوحاً. إذا لم يكن المصنف المصدر مفتوحاً، تقوم INDIRECT بإرجاع قيمة الخطأ #REF!. A1 هو قيمة منطقية تُحدد نوع المرجع الذى تحتويه الخلية ref_text. إذا كانت a1 تساوي TRUE أو تم حذفها، يتم تفسير ref_text كمرجع نمط A1. إذا كانت a1 تساوي FALSE، يتم تفسير ref_text كمرجع نمط R1C1. عندما تنشئ صيغة تشير إلى خلية، يتم تحديث مرجع الخلية في حالة: (1) نقل الخلية باستخدام الأمر قص لحذف الخلية أو (2) نقل الخلية بسبب إدراج صفوف أو أعمدة أو حذفها. إذا أردت أن تشير دائماً الصيغة إلى الخلية نفسها بغض النظر عن حذف الصف الموجود بأعلى الخلية أو نقل الخلية، استخدم دالة ورقة العمل INDIRECT. مثلاً، إذا أردت أن تشير إلى الخلية A10 دائماً، استخدم بناء الجملة التالية: =INDIRECT("A10") ================================ المرفقات اكسل 2003 شرح مبسط لدالة INDIRECT.rar تنسيق شرطي.rar

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

السلام عليكم الله يبارك فيك اخي محمدي الاخ الفاضل / برنس حفظه الله اسم الورقة في المعادلة يؤخذ من الخلية B4 وعلشان نسمي ورقة بشكل صحيح قبل الاسم شرطة "'" وبعد الاسم شرطة وعلامة التعجب "'!" ومرجع الخلايا "H9:H15" وعلشان نشير الى المرجع كتبناه نصا باستخدام الدالة CONCATENATE والتي تستخدم لوصل سلاسل نصية متعددة في سلسلة نصية واحدة. CONCATENATE("'";VALUE(B4);"'!";"H9:H15") وعلشان نحول النص الى مرجع استخدمنا الدالة INDIRECT وهذا شرح للدالة من تعليمات الاكسل ================================ =INDIRECT("A10") ================================ والله اعلم ودمتم في حفظ الله INDIRECT إرجاع المرجع المحدد بواسطة سلسلة نصية. يتم تقييم المراجع مباشرةً لعرض محتوياتها. استخدم INDIRECT عندما تريد تغيير مرجع إلى خلية داخل صيغة دون تغيير الصيغة نفسها. بناء الجملة INDIRECT(ref_text,a1) Ref_text (مرجع النص) هو مرجع لخلية تحتوي على مرجع نمط A1 أو مرجع نمط R1C1 أو اسم معرّف كمرجع أو مرجع لخلية كسلسلة نصية. إذا لم تكن ref_text مرجع خلية صالح، تقوم INDIRECT بإرجاع قيمة الخطأ #REF!. إذا أشارت ref_text لمصنف آخر (مرجع خارجي)، يجب أن يكون المصنف الآخر مفتوحاً. إذا لم يكن المصنف المصدر مفتوحاً، تقوم INDIRECT بإرجاع قيمة الخطأ #REF!. A1 هو قيمة منطقية تُحدد نوع المرجع الذى تحتويه الخلية ref_text. إذا كانت a1 تساوي TRUE أو تم حذفها، يتم تفسير ref_text كمرجع نمط A1. إذا كانت a1 تساوي FALSE، يتم تفسير ref_text كمرجع نمط R1C1. عندما تنشئ صيغة تشير إلى خلية، يتم تحديث مرجع الخلية في حالة: (1) نقل الخلية باستخدام الأمر قص لحذف الخلية أو (2) نقل الخلية بسبب إدراج صفوف أو أعمدة أو حذفها. إذا أردت أن تشير دائماً الصيغة إلى الخلية نفسها بغض النظر عن حذف الصف الموجود بأعلى الخلية أو نقل الخلية، استخدم دالة ورقة العمل INDIRECT. مثلاً، إذا أردت أن تشير إلى الخلية A10 دائماً، استخدم بناء الجملة التالية:

السلام عليكم استخدمنا المعادلة التالية في الخلية B1 =COUNTIF(INDIRECT(CONCATENATE("'";VALUE(B4);"'!";"H9:H15"));"<="&TODAY()-60)>0 شاهد المرفق اكسل2003 تنسيق شرطي - خبور.rar

السلام عليكم اخي الفاضل / برنس ---جفظه الله استخدم المعادلة التالية للتنسيق الشرطي في الخلية C4 =COUNTIF(H9:H15;">="&TODAY())>0 شاهد المرفق اكسل 2003 تنسيق شرطي نوفل11.rar

السلام عليكم اخي دغيدي لقد اظهرت التواريخ وعدد مرات الفتح في العمودين الاول والثاني في هذا المرفق بشكل متتالي: لترى بنفسك آلية عمل الكود السابق واضقت زرا ليعمل لترى النتائج بطريقة سريعة بدلا من الفتح والاغلاق وايضا يعمل اثناء الفتح الان اريد اعرف اي تاريخ من هذه التواريخ الظاهرة التي تريده حتى اعرف قصدك من الطلب ثم سانفذ في الكود السابق ========================== أخى الفاضل / qhq مثل ما اخبرك الاخ دغيدي لك حرية المشاركة حتى ارفقت حلا ولو يكن المطلوب ما عليك باس مادامت النية مساعدة الاخرين وخذ هذا مني كلما اعطيت ستزداد علما ومعرفة المرفق اكسل 2003 عدد مرات فتح الملف1.rar

السلام عليكم ما يقوم به الكود هو عند الفتح يعطيك تاريخ المرة السابقة للفتح ويحفظ التاريخ الحالي وهو ما فهمت من طلبك !!!!

السلام عليكم بارك الله فيك اخي محمدي اخي خالد جزاك الله خيرا اذا كنت تريد القيم الاصغر من الصفر بشكل دائم غير السطر التالي من الكود: If CDbl(Me.Cells(R, 4)) = CDbl(Me.Range("F2")) Then بالسطرالتالي: If CDbl(Me.Cells(R, 4)) < 0 Then

السلام عليكم اولا : تم تعديل العنوان لانه مخالف لقواعد المشاركة ثانيا:لم نفهم المطلوب بشكل واضح تقبل تحياتي وشكري

السلام عليكم الاخ : خالد حسب ما فهمت من طلبك المرفق اكسل2003 Posting.rar

الاخ الفاضل/ only__________حفظه الله الاخ الفاضل/ قصي__________حفظه الله الاخ الفاضل/ sando__________حفظه الله الاخ الفاضل/ محمدي __________حفظه الله الاخ الفاضل/ ابوالاء__________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري خبور خير

السلام عليكم تعديل اسماء المجلدات التي تكون برفقة ملف الاكسل "تجربة تغيير اسماء المجلدات" ويمكن نقل او نسخ ملف الاكسل في اي مجلد يحتوي عدة مجلدات تريد تغيير اسماءها كتجربة وضعت عدة مجلدات فاضية لتجرب تعديل اسماءها من خلال ملف الاكسل المذكور اعلاه في ملف الاكسل شرح الاستخدام ملف الاكسل المرفق 2003 myfill.rar

السلام عليكم انظر التعديلات في الفورم الاول وقارن بين الفورم الاول والفورم الثاني الجديد شاهد المرفق اكسل 2003 DATA.rar

السلام عليكم حسب ما فهمت من طلبك هذا الكود موجود في موديل الورقة المواد Option Explicit '========================================= ' تعيين النطاق الذي تريد الترحيل منه ' يتكون من عمود واحد وعدة صفوف Private Const MyRang As String = "C3:C100" '========================================= ' اسم الورقة التي تريد الترحيل لها Private Const MyShName As String = "ورقة الترحيل" ' اسم الخلية الاولى في النطاق المرحل له Private Const MyColmn As String = "B3" '========================================= Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range(MyRang)) Is Nothing Then If Target <> "" Then Cancel = True kh_RangeCopy Target End If End If End Sub '========================================= Private Function kh_RangeCopy(Rng As Range) Rng.Copy With Worksheets(MyShName) .Select With .Range(MyColmn) .Select .Insert Shift:=xlDown End With End With Application.CutCopyMode = False End Function يمكنك التغيير حسب معطياتك في بداية الكود المرفق اكسل 2003 نسخ خلية بالنقر عليها الى ورقة بترتيب تنازلي.rar