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

أخى الحبيب ( BGAD ) أولا- مرحبا بك أخا كريما بين أخوتك ثانيا - ياريت يتم تعديل أسم حضرتك إلى العربية حتى يسهل التواصل بينك وبين زملائك ثالثا - تفضل ماأردت رابعا - تم تعديل العنوان لتسهيل عملية البحث تقبل تحياتى تكرار قيمة.rar

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

الأخ الكريم/ نجم الدين ابراهيم السلام عليكم ورحمة الله وبركاته غير متاح وضع جدول في تذييل الصفحة عند الطباعة حسب علمي القاصر لكن بالحيلة كل شيء ممكن - تقبل تحياتي . footer.rar

الأخت الكريمة/نازك منير السلام عليكم ورحمة الله وبركاته هذة الرسالة تخص Excel Analysis ToolPack - الإضافة الخاصة بالتحليل ولها عدة أسباب منها عدم التثبيت بشكل سليم - ملفات معطوبة - حذف ملفات إلخ خطوات نحو الحل - إن لم تفلح أي منها - يصبح لا مفر من إعادة تثبيت خاصية التحليل من سي دي الإكسل : 1- التأكد من عدم حذف الملفين FUNCRES.XLAM و ATPVBAEN.XLAM ووجودهما في المسار الذي يظهر في رسالة الخطأ c:/program files (x86)/microsoft excel/office14/library/analysis 2- من لوحة التحكم في الويندوز Contorl Panel إضافة وإزالة البرامج - محاولة إصلاح تثبيت مايكروسوفت أوفيس والسلام عليكم ورحمة الله وبركاته

الشكرلله أخى الحبيب ياريت يتم تغيير أسم حضرتك إلى العربية لكى يسهل التواصل بينك وبين إخوتك تقبل : تحياتى

السلام عليكم ورحمة الله وبركاته فورم إضافة وبحث وتعديل مرن (الاصدار الثالث) بمعية فورم لادخال التاريخ الجديد في هذا الاصدار 1 - امكانية اضافة التاريخ في تاكست الادخال بوضع مؤشر الفارة على التاكست والضغط عل الزر Calendar 2 - اضافة زر اختيار للبحث للتبديل بين البحث العام والبحث من بداية الكلمة 3 - اضافة زر للذهاب الى السجل النشط شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" الشرح بداخل الملف للاستخدام يجب نقل الفورمين الى ملفك المرفق 2003 فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar ============================================ تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300 ============================================

السلام عليكم شاهد المرفق 2010 اسعار السيارات.rar

السلام عليكم الشكر واصل للاخت أم عبدالله اثراءا للموضوع شاهد المرفق 2010 صندوق1.rar

فى عمود الترتيب ضع هذه المعادلة وأسحبها لأسفل وضع العلامات التى تريدها فى عمود العلامات سيظهر لحضرتك الترتيب المطلوب =IF(AND(B2<>"";C2<>"");COUNTIF(C$2:C$200;">"&C2)+COUNTIF($C$2:C2;C2);"") تقبل تحيات : أخيك

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

أستاذى الرائع ( مجدى يونس ) شرف لى أستاذى مروركم وكلماتكم الجميلة بارك الله فيكم وجزاكم الجنة ورفع قدركم مثلما ترفعون من قدرى تقبل تحيات : تلميذكم

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

بعد إذن أختى الغالية وأستاذتنا الرائعة ( أم عبد الله ) المعادلة رائعة والحل ممتاز : وخاصا إنك بتقول أنك مقتبسة من العزيز الغالى أستاذنا ( جمل الفار ) ولكن هناك شئ بسيط جدا سيتم إضافتة لمعادلة الترتيب ( 1 ، 2 .............الخ ) سيتم إضافة (معادلة (value ) ) قبل معادلة ( IF ) وإلى حضرتك الحل تقبل تحيات أخيك والشكر موصول لأستاذتنا ( أم عبد الله ) أويمكن تكون المعادلة هكذا ولك مطلق الحرية فى إختيار ماتريد =--(IF(BD7="الاول";1;"")&IF(BD7="الثانى";2;"")&IF(BD7="الثالث";3;"") &IF(BD7="الرابع";4;"")&IF(BD7="الخامس";5;"")&IF(BD7="السادس";6;"") &IF(BD7="السابع";7;"")&IF(BD7="الثامن";8;"")&IF(BD7="التاسع";9;"")&IF(BD7="العاشر";10;"")&IF(BD7="الحادى عشر";11;"")&IF(BD7="الثانى عشر";12;"")&IF(BD7="الثالث عشر";13;"")&IF(BD7="الرابع عشر";14;"")&IF(BD7="الخامس عشر";15;"")&IF(BD7="السادس عشر";16;"")&IF(BD7="السابع عشر";17;"")&IF(BD7="الثامن عشر";18;"")&IF(BD7="التاسع عشر";19;"")&IF(BD7="العشرون";20;"")&IF(BD7="الواحد والعشرين";21;"")) على2.rar

تهنئة للأخ حمادة عمر بالاشراف أهلا به فى فريق الموقع

الأخ الفاضل/ ريان أحمد السلام عليكم ورحمة الله وبركاته هذة الكلمة تظهر حين تقوم بتحديد أكثر من ورقة بإستخدام Ctrl+Click ناحية أسم الورقة Sheet Tab والإلغاء يتم إما بإختيار والضغط علي ورقة واحدة فقط - أو عن طريق قائمة الزر الأيمن للماوس الخيار الأخير بالأسفل Ungroup تقبل تحياتي

المرفق2003 الترحيل باوراق موجودة.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

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

مجموعة اكواد اعجبتنى الكود الاول : تحية منى لاساتذتى بالمنتدى الرائع Sub Elsiad() ' ' Elsiad ماكرو ' الماكرو مسجل ‎28/06/2013 بواسطة ‎Basim Magdy Range("j1").Select ActiveCell.FormulaR1C1 = "بسم الله الرحمن الرحيم" Range("j2").Select ActiveCell.FormulaR1C1 = "تحياتى لكل اساتذتى بمنتديات أوفيسنا" Range("j3").Select ActiveCell.FormulaR1C1 = "الاستاذ / عبد الله باقشير" Range("j4").Select ActiveCell.FormulaR1C1 = "الاستاذ / أحمد فضيلة" Range("j5").Select ActiveCell.FormulaR1C1 = "الاستاذ / رجب جاويش" Range("j6").Select ActiveCell.FormulaR1C1 = "الاستاذ / حماده عمر" Range("j7").Select ActiveCell.FormulaR1C1 = "الاستاذ / هانى عدلى " Range("j8").Select ActiveCell.FormulaR1C1 = "الاستاذ / جمال عبد السميع " Range("j9").Select ActiveCell.FormulaR1C1 = "الاستاذ / احمد عبد الناصر " Range("j10").Select ActiveCell.FormulaR1C1 = "الاستاذ / شوقى ربيع " Range("j11").Select ActiveCell.FormulaR1C1 = "الاستاذ / جمال دغيدى " Range("j12").Select ActiveCell.FormulaR1C1 = "الاستاذ / طارق محمود " Range("j13").Select ActiveCell.FormulaR1C1 = "الاستاذ / ضاحى الغريب " Range("j14").Select ActiveCell.FormulaR1C1 = "الاستاذ / عبد الله المجرب " Range("j15").Select ActiveCell.FormulaR1C1 = "الاستاذ / سعيد بيرم " Range("j16").Select End Sub الكود الثانى : دعاء وحصن جميل Sub Hellomsg() donkeyain: Msg = "[ حصن لوقاية الانسان من شياطين الانس والجان ] " Ans = MsgBox(Msg, vbYesNo) If Ans = vbNo Then MsgBox "هل تود الذهاب الى الدعاء" GoTo donkeyain Else MsgBox "تحصنت بذى العزة والجبروت واعتصمت برب الملكوت وتوكلت على الحى الذى لا يموت & اصرف عنا الأذي انك على كل شئ قدير " End If End Sub الكود الثالث : ترحيل بيانات Sub sRange_Move() Sheets("ورقة2").Range("A9:c12").ClearContents Sheets("ورقة2").Range("a9:c12").ClearContents Sheets("ورقة2").Range("a9:c12").Value = Sheets("ورقة1").Range("A9:c12").Value End Sub الكود الرابع : جمع رقمين او اكثر Sub AddEmUp() Sum = 50 + 170 + 30 MsgBox "النتيجة = " & Sum End Sub الكود الخامس : حفظ تلقائى للبيانات فى ملف اكسل دون الضغط على ايقونة الحفظ ويوضع الكود فى WorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub ومرفق ملف اكسل به تطبيقات لهذه المجموعة من الاكواد

تفضل أخى zz.rar

أخى الفاضل / فراسكو جرب المرفق اكتب كلمة من الكلمات المقصودة فى العمود E ليتم المطلوب هذا كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Set sh = Sheets("ورقة2") LR = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Not Intersect(Target, Range("E:E")) Is Nothing Then If Not IsEmpty(Target) And Target.Text = "صادر" Or Target.Text = "فوق" Or Target.Text = "وارد" Or Target.Text = "اسفل" Then x = Target.Row Target.Offset(0, -4).Resize(1, 5).Copy sh.Range("A" & LR).PasteSpecial xlPasteValues Rows(x).EntireRow.Delete shift:=xlUp sh.Cells(LR, 1).Value = sh.Cells(LR, 1).Row - 1 LR1 = Cells(Rows.Count, 1).End(xlUp).Row Application.EnableEvents = False For i = 2 To LR1 Cells(i, 1) = Cells(i, 1).Row - 1 Next Application.EnableEvents = True End If End If Application.CutCopyMode = False Application.ScreenUpdating = True Set sh = Nothing End Sub New Microsoft Excel Worksheet1.rar

أخي العزيز / ذيب اليمن ما رأيك في فكرة علامتنا القدير الأستاذ / عبد الله باقشير حفظه الله بهذا الكود الذي طبقته بعد تسجيل ماكرو من أجل جلب معادلاتك إلى الكود ومن ثم يتم تحويلها إلى قيم من خلال هذا السطر .Value = .Value والكود كالتالي Sub kh_value_value() LR = Range("C10000").End(xlUp).Row With Range("C9:C" & LR).Offset(0, 34) .ClearContents .FormulaR1C1 = _ "=30-(30-(COUNTIF(RC[-31]:RC[-1],""A"")+COUNTIF(RC[-31]:RC[-1],""L"")+(COUNTIF(RC[-31]:RC[-1],""W"")*2)+(COUNTIF(RC[-31]:RC[-1],""T"")+(COUNTIF(RC[-31]:RC[-1],""C"")+(COUNTIF(RC[-31]:RC[-1],""N""))))))" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 35) .ClearContents .FormulaR1C1 = _ "=IF(SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2])>2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2]))" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 36) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C35,""F"",RC[-33]:RC[-4])" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 37) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C35,""H"",RC[-34]:RC[-5])" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 38) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C36,""N"",RC[-35]:RC[-5])-RC[-3]" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 39) .ClearContents .FormulaR1C1 = _ "=RC[-1]+RC[-2]+RC[-3]+RC[-4]" .Value = .Value End With End Sub وهذا الملف بعد تطبيق الكود عليه Book1.rar

الاخوة الكرام بسم الله ماشاء الله بارك الله فيكم جميعا ... التنافس في فعل الخير سمة هذا المنتدي الرائع بارك الله فيكم اخي رجب واخي ابو البراء

اخي الكريم هل هذا ما تريد احصاء.rar

تفضل أخي الكريم لعله ما تريد احصاء.rar

أو طريقة أخرى من داخل المعادلة احصاء2.rar

تفضل أخى المعادلة تكتب بشكل عادى ويكون تنسيق الخلية ( نسبة مئوية ) احصاء.rar

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

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

أختى الفاضلة الأستاذة ( أم عبد الله ) شكرا أختى الفاضلة على هذه التهنئة وعقبالك بإذن الله تقبل الله منا ومنكم صالح الأعمال

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

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

الاخ / تركى1 لاحظ معى اتجاه قراءه المعادله لما تبحث عنه وما الذى ترجعه ايضا لاحظ اتجاه الشيت حتى لا يختلط عليك الامر بمعنى هو يبحث عن القميه المراد البحث عنها اولا من ناحيه الشمال فى حالتك يعنى يبحث عن رقم 2 فى عمود الاسماء فلم يجده فكان الاحرى بك ان تضع الارقام فى العمود الاول من ناحيه الشمال وتأخذ فى الاعتبار عرض الشيت من الشمال الى اليمين او العكس وارجو ان ترى المرفق انت صح ولكن بعد استبدال الارقام مكان الاسماء ومرفق ايضا شيت 2 به اضافه معادله IFERROR لتجنبك علامه الخطأ N/A# وشيت 3 به تم اضافه المعادله IF بشرط فراغ h6 حتى تتجنب علامه الخطأ N/A# Vlookup1 بشروط اخرى .rar

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

أخى الحبيب ( ضاحى الغريب ) شكرا على تهنئتكم ومروركم الكريم جعله الله فى ميزان حسناتكم ، وأتمنى من كل قلبى أن أكون عند حسن الظن بى شكرا ، تقبل تحياتى

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

أخى الحبيب الغالى ( عباس ) دائما وأبدا سباق لما هو طيب وجميل ، شكرا أخى الحبيب على جميل مشاعرك وجعلها اللهم فى ميزان حسناتك تقبل شكر أخيك

أستاذى وعميد منتدانا الرائع ( دغيدى ) دائما سباق لما هو طيب وجميل شكرا أستاذى على مرورك وتهنئتك وبارك الله لنا فيك

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

الأخ الكريم/ ابراهيم23 السلام عليكم ورحمة الله وبركاته تم التعديل بوضع البيانات الأحدث في الأعلي تليها الأقدم - حسب الطلب كما يمكنك فعل ذلك عن طريق خيار الفرز - Sort - القائمة الرئيسية للبرنامج تحت البيانات - Data سيقوم بترتيب التاريخ تصاعديا أو تنازليا حسب الرغبة . تقبل تحياتي 11111-Update Stock Data-2.rar

الأخ الكريم/ مهند الزيدي السلام عليكم ورحمة الله وبركاته تفضل المطلوب بالمرفق - مع ملاحظة التالي : 1- لا يمكنك تشغيل كافة الماكرو الموجودة لأن بعضها يعمل بالفعل في الخلفية - مثال الكود الخاص بالقائمة ومحاولة التشغيل مرة ثانية سيولد خطأ - لذا لابد من التفرقة بينها في التسمية بغرض التمييز وتنفيذ المطلوب فقط . 2- كل نوع ماكرو له طريقة نداء حسب موقعه في المصنف - فماكرو الورقة يختلف عن نظيره داخل الموديول والمثال سيوضح الفكرة - تقبل تحياتي Book1-List All Macros.rar

أخى الحبيب ( جلال )

أستاذى ( مجدى يونس) شكرا لحضرتك على مروركم الكريم وبارك الله فيك

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

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

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

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

السلام عليكم بإقتراح من عميد منتدانا الاستاذ الفاضل جمال دغيدي نضع هذا الموضوع ليكون محفظة تجميعية لجميع المواضيع المتعلقة بالتحقق من الصحة وفي النهاية نتمنى من أخونا العزيز الاستاذ جمال الفار بأن يجمع الخلاصة في ملف اكسل (كما عودنا) وقواعد المشاركة في هذا الموضوع كالتالي: وضع روابط لمشاركات قيمة تتعلق بالموضوع فقط. مع شكرنا وتقديرنا للجميع نرجو بعدم وضع مشاركات الشكر (سيتم حذفها) وذلك للأستفادة من الموضوع. * الموضوع وضع للاستفادة في ما يخص موضوع التحقق من الصحة فاجعل مشاركتك فيه ذات معنى وقيمة *وهذا طلب للجميع ليدلو الكل بدلوه حتى نشكل الرافد الذي يستفيد منه اعضاء المنتدى. والله من وراء القصد ****************************************** وابداء انا الروابط 1. هذا رابط للمقارنة بين التنسيق الشرطي والتحقق من الصحة الرابط من هنا ****************************************** 2. شرح انشاء قاعدة تحقق من الصحة الرابط من هنا ****************************************** 3-التحقق من الصحة لعدة جداول data validastion http://www.officena.net/ib/index.php?showtopic=38347 ****************************************** 4. التحقق من الصحة http://www.officena.net/ib/index.php?showtopic=4344 ****************************************** 5. التحقق من الصحة http://www.officena.net/ib/index.php?showtopic=36963 ****************************************** 6-سؤال في قاعدة التحقق من الصحة Validation http://www.officena.net/ib/index.php?showtopic=37059 ****************************************** سيتم تثبيت الموضوع لفترة محدودة

قائمة منسدلة متغيرة بزر اختيار قائمة منسدلة متغيرة .rar

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