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

السلام عليكم و رحمة الله أخي أحمد جرب المعادلة التالية ضعها في الخلية B2 و ثم إسحبها لليمين و للأسفل و ستعطيك النتيجة المرجوة إن شاء الله =VLOOKUP($A1,INDIRECT("'" & COLUMN(A1) &"'!$A$1:$B$3"),2,0) دمتم في حفظ الله

السلام عليكم ورحمة الله وبركاته ظهر في الاونة الاخيرة تزايد الاستفسار عن الجمل الشرطية وكيفية استخدامها, ولما لها من الاهمية الكبيرة في الاستخدامات المتعددة والمتكررة حتى يكاد لا يخلو يرنامج من استخدام احدى الدوال الشرطية المتعددة ، وبالنسبة الي اجزم انها اهم جمل ودوال ال vba لذلك سابدا بعمل سلسلة لشرح هذه الدوال والجمل وهذا باب مفتوح لكل من يريد المساهمة في انهاء هذه السلسلة وسنقوم بتداولها بطرق سهلة حتى تتم الفائدة للكل ومهما كان مستوى المشارك . اما الجمل والدوال التي سنتاولها فهي : 1. جملة اذا المشروطة if ... then 2. جملة الانتقال الشرطية if .. then .. else 3.جملة الانتقال الشرطية if .. then .. else المتعددة والمتشابكة 4.جملة التفرغ المتعددة case 5.دالة التحويل switch 6.دالة الاختيار المرتب choose الموضوع ليس معقد واسهل مما تتوقعونه وستلاحظون الامكانات الهائلة لهذ الدوال والجمل وتعد من اهم دوال ال vba لكن يجب فهمها بالطريقة الصحيحة ومتابعتها والتطوير في استخدامها وسنبدأ اليوم بالموضوع الاسهل " جملة اذا المشروطة if ... then " واذن الغالبية لديهم الالمام فيه ولكن حتى تتم الفائدة يجب البداية من السهل وهنا مرفق يشرح القاعدة بطريقة سهلة وبسيطة واتمتى التوفيق للجميع أخوكم عماد الحسامي HOSAMI IF THEN.rar

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2015 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى ملاحظات هامة يمكن إختيار الفرنسى للمحافظات المطبق عليها الفرنسى أو اختيار بدون للمحافظات التى لا يطبق عليها الفرنسى ويمكن اختيار الانجليزى مستوى رفيع للمادرس التجريبية يصلح لأى قرار وزارى سواء 313 أو 460 تحية لمنتدانا الغالى ولأعضائه الكرام وعذرا لأى خطأ أوسهو أخوكم رجب جاويش بعض واجهات البرنامج كنترول الإعدادى رجب جاويش الإصدار 15.rar

هذا طلب من أحد الأعضاء وبصراحة كان طلب صعب وخاصا أنه يجب أن تكون معادلة واحدة لعمل الجدول بأكملة ولكن أستحرت الله فكانت هذه النتيجة والتى أرجو أن تكون بها الإفادة وخاصا ممن يجدون صعوبة فى عملها عن طريق الكود والأن إلى الحل حتى لاأطيل عليكم: دمج جدوليين بجدول واحد.rar

كل عام و انتم بخير

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

الاستاذ الفاضل الاستاذ حمدي شكرا جزيلا على الكلمات الطيبة التي كتبتها جزاك الله عني خيرا ورزقك حج بيته الحرام تم التعديل ( الاختلافات كانت في مسميات بعض الحقول ) مثلا رقم القيد اسميته حضرتك رقم قيد وغير ذلك انتبه على المسميات ونصيحة مني استعمل المسميات للحقول من بداية البرنامج باللغة الانجليزية حتى لا تحدث الاخطاء شئون طلاب الصف الاول الابتدائى - Copy.rar

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

يمكنك الرجوع للموضوع التالي http://www.officena.net/ib/index.php?showtopic=55928 نسيت تكتب اسفل اسماء الموظفين في المعيار لكل من الاستعلام رقم 5 ورقم 4 استعلام 5 [Forms]![نطاق اسم الموظف واجازاته]![bb] استعلام4 [Forms]![نطاق اسم الموظف وايفاداته]![bb] تم التعديل على الملف TEST.rar

استاذ احمد اليك الحل مصطفى 1.rar

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

الاستاذ الفاضل : أبو عبدالله الحلوانى أولا : كل عام انتم بخير إن شاء الله نعم يمكن ذلك وإليك مثال Hide column in report with condition.rar

خذ يا اخي هذا فديو لن يجعلك تسأل بل سيجعلك تعلم كي تستزيد علم

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

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

الاسم / محمد علي عبد الكريم ( أبو البراء ) السن / 29 سنة الميلاد / 1 / 6 / 1985 م البلد / مصر _ اسيوط _ ديروط المهنة/ معلم دراسات اجتماعية اعدادي التعليم / ليسانس اداب وتربية دراسات اجتماعية شعبة جغرافيا اسيوط 2007 الحالة الاجتماعية / متزوج ووهبني الله بطفلين البراء وفاطمة التعامل مع الحاسب/ حاصل على دورة الــ icdl + بعض الدورات المنفردة في الاكسيل + احب بعض برامج التصميم كالفوتوشوب والعمل على برنامج الكلك لتصميم الكلمات بجميع انواع الخط العربي + تصميم المدونات بلغة الــ html ولغة css3 الهواية / القراءة + لعب الكرة + الحاسب الالي

السلام عليكم ورحمة الله وبركاته هذا العمل للاستاذ هشام شلبي قمت اضافة الاشهر و كلمة الاقساط علية بدل الارقام فبارك الله فيه الاستاذ هشام دالة تحويل الارقام الى اشهر و عدد اقساط.rar

وهذا التطبيق لمن يريد اضافة المكتبات وتسجيلها فقط ملحوظة : يجب ان تكون ملفات المكتبات بجانب البرنامج في مجلد واحد tsjeel2.rar

وهذه هي الصيغة النهائية للعمل : Dim objWShell, objReead ' On Error Resume Next Set objWShell = CreateObject("WScript.Shell") objReead = objWShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA") If objReead = "0" And Me.tmp = "0" Then Call tsjeelMktbat Set objWShell = Nothing MsgBox "تم التنصيب واضافة ملفات النظام بنجاح" Exit Sub ElseIf objReead = "1" And Me.tmp = "0" Then objWShell.RegWrite "HKLM\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", 0, "REG_DWORD" Me.tmp = "1" objWShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce\tsj", "D:\tsjeel.mdb", "REG_SZ" objWShell.Run "shutdown /r /t 10 /f /d P:4:2" 'visit: http://pcsupport.about.com/od/commandlinereference/p/shutdown-command.htm Set objWShell = Nothing Exit Sub Else Call tsjeelMktbat objWShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "1", "REG_DWORD" MsgBox "تم التنصيب واضافة ملفات النظام بنجاح" 'If MsgBox("سيتم إعادة تشغيل النظام" & vbCrLf & _ ' " هل تريد المتابعة؟", _ ' vbQuestion + vbYesNo, _ ' "اعادة تشغيل النظام") = vbNo Then ' Exit Sub 'Else 'objWShell.Run "shutdown /r /t 10 /f /d P:4:2" Set objWShell = Nothing 'End If End If وهذا هو التطبيق tsjeel.rar

السلام عليكم قوائم مخصصة على الفورم باستخدام CommandBars المرفق 2003-2007 قوائم مخصصة على الفورم باستخدام كومندبار.rar هذا الموضوع الاحدث http://www.officena.net/ib/index.php?showtopic=47195

الاخوه الكرام في بعض الاحيان نقوم بتصميم برامج على الاكسيل ولا نحتاج الى تصفح الملف لان العمل ينفذ بالكامل من خلال الفورم ولا ننسى ان المنظر الجمالي للبرنامج يكون بشكل ارقى بكثير حينما يظهر الفورم فقط المرفق المرسل هو ملف دليل الهاتف الذي ارسلته منذ عشرة ايام تقريبا ولكني فضلت ان يكون في موضوع منفصل حتي يتيح للجميع التعرف على كيفية اخفاء الملف بالكامل * في حال انك رغبت في اظهار الملف ،ستجد في اسفل الفورم من الجهه اليسرى زر امر بدون عنوان ارجوا المعذره ان كانت الفكره قديمه او مطروحه من قبل ، لكنني شخصيا لم اعلمها الا اليوم PHONE BOOK.rar

السلام عليكم ورحمة الله وبركاته ارفق لكم برنامج ذمم ينقسم الى 48 صفحة رئيسيه للذمم الرئيسي وصفحة خاصة بذمم المتفرقات وقد استخدمت بالصفحات مبدأ الداتا لست بالاضافة الى بعض الاكواد البسيطه جدا اتمنى ان يعجبكم وادعوا لي ان يتقبل الله عمرتي في 11_4_2010 واسلام عليكم ورحمة الله وبركاته ذمم المحل.rar

الدالة : 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

السلام عليكم ورحمة الله وبركاته الاسم : عبدالله علي أحمد باقشير الميلاد : 04/ 12 / 1967 الجنسية : يمني المؤهل : ثانوية عامة العمل : قطاع خاص( محاسب) الهوايه : الاكسل تحياتي