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

أليك أخى ماطلبت تقبل : تحياتى دالة بحث وفلترة.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 ================================================= رابط مباشر للملف

السلام عليكم ورحمة الله وبركاته أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم كنترول الإبتدائى رجب جاويش للترمين والدور الثانى 2013 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى تحية لمنتدانا الغالى ولأعضائه الكرام وعذرا لأى خطأ أوسهو أخوكم رجب جاويش ونبدأ أولا كنترول الإبتدائى أعمال فقط http://www.mediafire.com/?qocl83f8o5u2cgp ثانيا كنترول الإبتدائى أعمال ونصف ترم http://www.mediafire.com/?v5nd54smkm5m8fd

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

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

‏السبت‏ 25‏/2‏/1435هـ الموافق ‏28‏/12‏/2013م السلام عليكم و رحمة الله بناء على طلب احد الإخوة على الرابط http://www.officena.net/ib/index.php?showtopic=50707 تم اقتباس الأفكار من موضوع الرابط http://www.officena.net/ib/index.php?showtopic=26167 السلام عليكم و رحمة الله وبركاته الفكرة العامة: يقوم الملف بانشاء كشوف حسابات حسب طلب المستخدم منه وله مع قائمة بالحسابات موضح بها اجمالي حركات الحساب و الرصيد لسهولة الوصول لتفاصيل كل حساب مع امكانية استخدام الملف دون تمكين وحدات الماكرو في معظم الأحيان. و يمكن استخدام التاريخ الهجري او الميلادي للإدخال في خانة التاريخ حسب الحاجة. اضافة حساب جديد: عند الضغط على اضافة حساب يظهر لك مربع حوار لإضافة اسم الحساب بعد اضافة اسم الحساب يقوم الملف بتصحيح الإسم المدخل وذلك بازالة الفراغات الزائدة وكذلك ازالة المد الزائد "ــ" الغير مرغوب فية ثم يتأكد من عدم وجود الإسم بعد التصحيح في القائمة الموجودة بأسماء الحسابات. اذا كان الحساب موجود سابقا – تظهر لك رسالة بوجود الحساب سابقا ويتم الغاء عملية الإضافة اذا كان الحساب غير موجود تتم اضافة ورقة جديدة وتسميتها بالإسم المدخل – مع اضافة ارتباط شعبي لها مع نفس الإسم في قائمة الحسابات. تتم اضافة نوعين من الإرتباط الشعبي – 1= ارتباط شعبي بالكود في خانة الإسم – 2= ارتباط شعبي بالدوال في خانة مجمل منه البحث: تم اضافة خاصية البحث في كل حساب بحيث يمكنك البحث خلال فترة محددة = من تاريخ + الى تاريخ او يمكنك البحث عن أي معلومة اخرى موجودة في الإيضاحات المدخلة في الكشف الحالي للحساب او البحث بالتاريخ و المعلومة معا بالضغط على زر البحث تظهر لك خانات البحث التي يمكنك الإدخال بها لشروط البحث المطلوبة – وبمجرد ادخال أي شرط يعمل البحث في الورقة فورا بالضغط مرة اخرى على خانة البحث يتم اخفاء خانات البحث من الكشف الحالي. قائمة الحسابات: هذا الزر مخصص للعودة الى قائمة الحسابات ويتم فرزها بالترتيب الأبجدي حسب اسماء الحسابات. في قائمة الحسابات يمكنك البحث عن أي اسم حساب باستخدام أي جزء من اسم الحساب في خانة البحث الموجودة اعلى الورقة. اذهب Go To : هذا الزر موجود في كل كشف حساب ليسهل التنقل من حساب لآخر فورا دون العودة الى قائمة الحسابات. معلومات عامة: لتصغير حجم الملف في كل مرة يتم الدخول الى أي كشف حساب يتم زيادة عدد صفوف الحساب حسب الحاجة لذلك . حيث عند فتح كشف جديد سوف تجدة يحتوي على 9 صفوف فقط – بعد ادخال 4 او 5 صفوف بيانات في الحساب و الخروج منه و العودة الى الحساب تجد ان الملف تلقائيا قام بزيادة عدد الصفوف حسب بعدد الإدخالات التي تمت سابقا, مع فرز البيانات المدخله حسب التاريخ الموجود في خانة التاريخ سواء كان التاريخ هجري او ميلادي. كشوف حسابات ارتباط شعبي.rar

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

أختى الغالية ( أم عبد الله ) أولا - كل سنة وحضرتك والأسرة الكريمة بألف خير ثانيا - ملحوظة فى منتهى الذكاء وهذا ليس بغريب على حضرتك لأن المعادلة يمكن أن تكون كذلك =SUBSTITUTE(A2;" ";"")&TEXT(SUBSTITUTE(B2;" ";"");"0000") فلماذا هذه المعادلة ( char ) هى معادلة تتراوح عدد أرقامها من ( 255:1 ) وكل رقم يعطى حرف فعلا ورقم (160 ) مع هذه المعادلة يعطى (" " ) فراغ إذن السؤال لمهذا إستخدمتها ولم أستخدم الفراغ كما فى المعادلة السابقة لأن من شأنها أن تكون مفيدة خاصة إذا كان هناك أحرف غير رقمية أخرى أيضا. وكذلك هو حرف من أحرف ( الأسكى ) أى الغير قابلة للطباعة أتمنى أن أكون وفقت فى الشرح تقبلى : تحياتى

الأخ الكريم/ MR.EXCEL السلام عليكم ورحمة الله وبركاته بداية أقدم التحية وأستأذن أخي وأستاذي/ حمادة عمر جزاه الله كل خير أحاول الرد علي حضرتكم في نقاط : 1- يمكن إستدعاء نافذة Go To بالكود ولا يمكن الغلق عن طريق الكود ...... لماذا ؟ 2- نوافذ ال Dialog ( أو العنيدة ) بما فيها Go To والرسائل وفتح ملف وأخري كثيرة ذات صفة Modal وتعني أنها تنتظر إدخال المستخدم ويتوقف تنفيذ الكود لحين إستجابة المستخدم سواء بإدخال بيانات أو الإلغاء Esc 3- الحالة لديك - لا أدري لماذا يجب أن تكون النافذة ظاهرة طوال الوقت - فبجانب عدم الحفظ - لن تستطيع الدخول علي الخلايا إبتداء عفوا للإستطراد - تقبل تحياتي

يجب التقيد بقوانين المشاركة اختيار عنوان مناسب يصف الموضوع

مشكور

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

اخى العزيز انظر المرفق (تفقيط باللغة العربية ) Book1.rar

عفوا الملف المرفق هنا tafkeet.rar

ربط إكسل مع وورد

ربط صفيفين

أخي ( office 2003 ) إليك ماطلبت تم تعديل الرابط بسبب شرط المعادلة =AND(COUNTIF($B$2:$B28;$B3)=1;LEN(B3)<=7;ISNUMBER(B3)) حيث تم تغيير شرط (LEN(B3)<=7 )بدل (LEN(B3)=7 ) حيث يقوم بقبول القيم الأقل من عدد الأحرف الأقل من ال7 أحرف أما عن شرح المعادلة: تشمل المعادلة ( 3 ) شروط هي : 1- (COUNTIF($B$2:$B28;$B3)=1 ) وبالطبع هذه المعادلة قتلت بحثا وسبق وزملائي الأعزاء بشرحها وهي خاصة بعدم تكرار الرقم 2- ( LEN(B3)<=7 ) وهي دالة تقوم بالموافقة علي القيم التي لايزيد عدد أحرفها عن سبع أرقام 3- ( ISNUMBER(B3 ) وهي الأهم حيث تحدد هذه الدالة أن القيم الموجودة في الخلية والغير مكررة وعددها لايزيد عن ( 7 ) أرقام لابد وأن تكون رقم وليست نص أي أن الخلية لاتقبل ( إلا الأعداد وليس النصوص ولاتكرر وليزيد عدد أرقامها عن ( 7 ) أرقام . وبالطبع نستطيع تغيير شرط الرقم لتقبل أعداد عدد حروفها أكبر ، ونجعلها تقبل النصوص أيضا وهكذا منع تكرار رقم في العمود4.rar

هل هذا التنسيق للخلية يكفي للتنبية إنظر عزيزي إلي المرفق فرق بين تاريخيين 2.rar

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

هل هذه المعادلة ماتقصدها أستاذي التأكد من تواجد الأسماء_2.rar

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

ممكن المعادلة تكون كده بس التساؤل لو الشهور=6 سيتم تقريبها لأسفل أم لأعلي لوكانت لأعلي سيتم إضافة (=) بجوار (>=) حتي تضاف ألي السنة هي الأخري أما لو أضيفت للأقل ستظل المعادلة كما هي مكتوبة =IF(DATEDIF($B$2;$A$2;"ym")>6;DATEDIF($B$2;$A$2;"y")+1;DATEDIF($B$2;$A$2;"y")) فرق بين تاريخيين 2.rar

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

رائع أستاذي (جمال الفار) بارك الله فيك جميل بجد

ماشاء الله عليك رائع أستاذي بجد حل ولا أروع

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