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

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

تفضل يا سيدي: Private Sub cmdScan_Click() Dim Ret As Long, PictureFile As String PictureFile = mypathofdb() & "\PIC\" & "pic" & Me.ImageID & ".jpg" 'Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) Ret = TransferWithoutUI(300, RGB, 0, 0, 8.3, 11.7, PictureFile) If Ret = 0 Then Me.ImagePath = PictureFile Me![ImageFrame].Picture = Me![ImagePath] Else MsgBox "فشلت عملية المسح الضوئي", vbCritical, "تحذير" End If End Sub Private Sub cmdSelect_Click() 'TWAIN_SelectImageSource (Me.hwnd) PopupSelectSourceDialog End Sub . جعفر za-EMP.zip

استيدل الكود بهذا Sub copy_All_visible() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i, x As Integer Dim arrsh() As Integer k = Sheets.Count: m = 3: Set My_sh = Sheets(k): My_sh.Range("a3:m1000").ClearContents For i = 1 To k - 1 If Sheets(i).Visible = True Then t = t + 1: x = Sheets(i).Index ReDim Preserve arrsh(1 To t) arrsh(t) = Sheets(i).Index End If Next For y = 1 To UBound(arrsh) With Sheets(arrsh(y)) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(arrsh(y)).Cells(1, 2) .Cells(m, 2) = Sheets(arrsh(y)).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Erase arrsh Application.ScreenUpdating = True End Sub

شو الهدف؟ 1. بياناتك جداول ، 2. ثم تنقلها للورد!! هناك 3 طرق من تصدير التقرير والتي تحترم تنسيق التقرير ، acFormatHTML ,acFormatSNP, acFormatPDF : 1. acFormatHTML : صيغة HTML ، والتي يمكن للورد فتحها ، 2. acFormatSNP : وهي صورة ، ولا اعتقد ان الورد يستطيع فتحها ، 2. acFormatPDF : صيغة HTML ، والتي يمكن للورد 2013 فما فوق ان يفتحها ، هل ستقوم بتعديل البيانات بعد حفظها في الورد؟ جعفر

السلام عليكم هذا هو السطر المقصود .Range("A2:S2").AutoFilter Field:=4, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 تم تغير الجزء xlOr الى xlAnd

بارك الله فيك أخي الكريم الزباري اسمح لي بمشاركة بسيطة بالموضوع .. طالما أن كود الاستدعاء يمكن أن يستخدم أكثر من مرة فالأفضل وضعه في إجراء يمكن الاستدعاء منه ..اطلع على الكود وستعرف مقصدي Sub ImportAhmad() ReadString "ahmad", Sheet2 End Sub Sub ImportAli() ReadString "ali", Sheet3 End Sub Sub ImportYosuf() ReadString "yosuf", Sheet4 End Sub Sub ReadString(customer As String, sh As Worksheet) Dim sLine As String Dim sFName As String Dim intFNumber As Integer Dim lRow As Long Dim lColumn As Long Dim vDataValues As Variant Dim intCount As Integer sFName = ThisWorkbook.Path & "\Info\" & customer & ".txt" intFNumber = FreeFile On Error Resume Next Open sFName For Input As #intFNumber If Err.Number <> 0 Then MsgBox "Text File Not Found!", vbCritical, "Error!" Exit Sub End If On Error GoTo 0 sh.Cells.Clear lRow = 1 Do While Not EOF(intFNumber) Line Input #intFNumber, sLine vDataValues = Split(sLine, vbTab) With sh lColumn = 1 For intCount = LBound(vDataValues) To UBound(vDataValues) .Cells(lRow, lColumn) = vDataValues(intCount) lColumn = lColumn + 1 Next intCount .Cells.EntireColumn.AutoFit .Activate .Range("A1").Select End With lRow = lRow + 1 Loop Close #intFNumber MsgBox "Values From File '" & sFName & "' Were Imported To Sheet '" & sh.Name & "'!", vbInformation End Sub

السلام عليكم ورحمة الله وبركاته حسب رؤية الاخ ياسر خليل أبو البراء ان كثرت الدوال المعرفة التي تقوم بعمليات التفقيط بأن نقوم بإنشاء دالة جديدة تجمع مزايا كل دوال التفقيط المختلفة ..كدالة الأخ هادي ولكن بمزيد من التفاصيل مع شرح لبارامترات الدالة .. وأن تكون الدالة جامعة لتفقيط اللغة العربية واللغة الإنجليزية وبها كل مميزات دوال التفقيط الأخرى بدلاً من التشتت فيما بين هذه الدوال فقد رأيت ان افضل سبيل لذلك وهو دمج دالة عربية قوية مع افضل دالة انجليزية وعلي اساس ذلك تم دمج دالتي تفقيط عربية وانجليزية معا لتصبح دالة واحدة تعمل باللغتين العربية والانجليزية الدالة العربية هي دالة الاستاذ / أبوهاني والدالة الانجليزية للمؤلف الانجليزي Andy Wiggins من منتدي Byg Software Limited وكانت النتيجة هي دالة تفقيط واحدة عربي انجليزي تعمل باللغة العربية او الانجليزية وارجو من الاخوه اللذين يجربون هذه الدالة تفضلا لا امرا ان يذكر نتيجة التجربة مع ذكر اصدار الويندوز ونسخة الاكسيل اللتين يعمل عليهما المرفقات تشمل 1- ملف اكسيل به الدالة مع الشرح المصور 2- موديل به الدالة لمن يريد استيرادها الي اي ملف 3- فلدر به صور طريقة اضافة الدالة الي ملف 4- فلدر به صور شرح استخدام الدالة المرفقات دالة تفقيط عربي انجليزي.rar نبد بشرح مصور ل طريقة اضافة الدالة الي اي ملف اكسيل والان مع شرح مصور ل بارميترات الدالة وطريقة الاستخدام مع تمنياتي بالتوفيق للجميع

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اليكم برنامج خبور المحاسبي المعدل الذي قمت فيه باجراء بعض التعديلات التي اثمرها لنا تجاوبكم معي في الاصدارين الاول والثاني وكانت الاراء تنصب اساسا في التالي : اولا- الدليل المحاسبي : عملته بالشكل التالي : جدول للدليل تضبط من خلالها السلسلة الرقمية لكل اختيار من الاسم في الدليل , مثلا لو اخترنا اصول ثابتة نضبط السلسلة الرقمية لها مثلا من الرقم 11 الى الرقم 99 والبرنامج بيتعامل مع هذه السلسلة في اضافة الحسابات لهذا الاسم للعلم ان لك حرية اختيار السلسلة الاسمية والرقمية فقط ان تكون في ترتيب متسلسل داخل جدول الدليل يعني ممكن تعمل اسمان لسلسلة واحدة مثلا اصول متحركة / صناديق من 1201 الى 1500 اصول متحركة / بنوك من 1501 الى 2000 واثناء اضافتك لاي حساب سيظهر لك قائمة الاسماء التي وضعتها في جدول الدليل لاختيار الصنف الذي تريده لترتيب حساباتك في ميزان المراجعة 2- نتيجة لهذه الاضافات حذفت قائمة العملاء والموردين الموجوده في الاصدارات السابقة واضافتهم ستكون في ميزان المراجعة (الذي اصبح مكون من 1000 سجل ) حسب التسلسل الذي ستضبطه في دليلك ممكن تعمل للعملاء سلسلة رقمية وللموردين سلسلة رقمية اخرى صفحة ميزان المراجعة: تعمل التالي : 1- هي المحتوى الكلي للحسابات تظهر من خلالة جميع الحسابات متسلسلة بالضابط الدليلي مجاميع وارصدة بالعملة الرئيسية وارصدة العملات الاخرى مع تعريف للحساب اذاكان مدين اودائن واسماء العملات المستخدمة لكل حساب ويظهر فيه فرق سعر العملات التلقائي قبل المجاميع الكلية 2- تتحول اثناء استخدامك للتصفية من عمود الدليل الى كشوفات تحليلية للحسابات حسب الصنف الدليلي المختار مثلا اذا اخترت اصول ثابتة تظهر لك الحسابات المشتملة على هذا الاسم مع المجاميع والارصدة الخاصة بها ويتحول الاسم من ميزان المراجعة الى كشف تحليلي لحساب الاصول الثابتة وهكذا بالنسبة لجميع الاصناف الدليلية 3- تتحول اثناء استخدامك للتصفية من عمود العملة الى كشف بحسابات العملة المختارة. ثانيا: بالنسبة للتعديلات وهي ملاحظة الاخ تويتي يمكنك تعديل القيد مثلا: اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق يمكنك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق والعكس وطبعا لديك صفحة القيود تتكون من 200 سجل يمكنك التعديل بدون اي مشاكل لعدد السجلات في اي قيد ممكن تعدل القيد المكون من 2 سجل الى 200 سجل والعكس وهو ياخذ الترتيب التلقائي حسب رقم القيد ويمكنك التأكد من ذلك بنسخ البيانات ( وهو زر جديد) لنسخ البيانات في ملف جديد ستلاحظ الترتيب التسلسلي لبياناتك حسب الترتيب التصاعدي للقيود اضافات جديدة : 1- لا يفتح البرنامج الا باسم المستخدم وكلمة المرور اسم المستخدم " خبور" كلمة المرور"بسم الله" يمكنك بعد ذلك تعديل اسم المستخدم وكلمة المرور من زر اسم المستخدم في صفحة الاعدادات ويمكنك تعديل كلمة المرور للتعديلات من نفس الزر كلمة المرور للتعديلات "بسم الله" 2- صفحة القيود هي الصفحة التي يتم فيها التعديل واصبحت صفحة دفتر الاستاذ صفحة للتنقل السهل من القوائم لجميع الحسابات في ميزان المراجعة واختيار تواريخ اختيارية من القوائم للكشوفات ارجو من الله تعالى ان ينال رضاكم فقط لا تنسونا من الدعاء ولا تنسونا من ملاحظاتكم اخوكم خبور __________________________.rar

وعليكم السلام طبعا ، اتبع الخطوات وغيُر الى اسم برنامجك جعفر

رجاء تجربه على بقية الاجهزة ، القديمة والجديدة ، واخبرنا عن النتيجة جعفر

حياك الله

وعليكم السلام واهلا وسهلا بك في المنتدى قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف المنتدى مليئ بمثل هذه المواضيع ، ويمكنك البحث وستجد الكثير منها ، وآخرها . مخالف - يُقفل. جعفر

استاذ / سليم حاصبيا جزاك الله خيراً وجعله الله فى ميزان حسناتك

جرب هذا الماكرو Sub Copy_To_Next_Row() Dim my_sh As Worksheet Dim LastRow As Integer Set my_sh = Sheets("test") If ActiveSheet.Name <> "test" Then Exit Sub LastRow = Cells(Rows.Count, 1).End(3).Row For i = 2 To LastRow +7 Step 3 If Not IsEmpty(Cells(i, 2)) Then Cells(i + 2, 2) = Cells(i + 1, 2) End If Next End Sub

إضافة إلى إجابة الأستاذ العزيز و القدير تشفان: يمكن إستعمال هذا السطر فقط لحدث عند التغيير للكمبوبكس Me.kesm = DLookup("[kesm]", "users", "deCode([UName],'User')= user") ليقوم بالعمل

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

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

السلام عليكم هذا البرنامج وحسب تجربتي السابقة ، لا يدعم اللغة العربية. جعفر

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

نفس النسخه الموجوده بالموقع العمل كالتالي 1- حدد مسار (القاعده ) المراد نسخها 2- حدد مكان مجلد النسخ 3- حدد نوع الصيغه 4- اضغط على زر (نسخة احتياطية لقاعدة بيانات المرتبطة بدون ضغط و إصلاح) 5- تحدد خيار كل ساعه 5- حفظ الاعدادات 6- الذهاب الى نموج TestForm والضغط على زر النسخ راح - تلاحظ كل دقيقه يتم الضغط فيها يتم نسخ مره واحده ولا يكرر النسخ في نفس الدقيقه وسلامتك

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

من تجربة شخصية يحولة ل pdf ثم يستخدم برنامج Wondershare PDF Converter Pro ممتاز مع الاحرف العربية يحول لعدة صيغ

بسم الله ما شاء الله أخي العزيز محمد أبو صهيب موضوعاتك في قمة الجمال والروعة .. بارك الله فيك وجزاك الله كل خير

ارجو المساعدة

السلام عليكم هل تقصد هكذا بحث بين تاريخين.rar

ايش رايك بطريقة غير تقليدية ، وعصفورين بحجر واحد جعفر

نعيد برمجة ملف ابراهيم بطريقة أبوالبراء ابراهيم.rar

وعليكم السلام بدل ان نعمل الالوان في الكود ، استبدلت مربع النص ، بأحد كائنات الاكسس التي بها الوان ، ولكني تحكمت بالالوان: الجدول اصبح ، ولاحظ اني استعملت الموقف رقم 1 و 11: . النموذج ، والكائن الجديد ، وطريقة اختيار الالوان: . والنتيجة: . جعفر 532.MAP PARING.accdb.zip

بارك الله فيك أخي العزيز الزباري على هذا الموضوع المتميز .. تقبل وافر تقديري واحترامي

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

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

اخى جرب هذه الطريقه افتح الملف ادخل الى محرر الاكواد ثم اضغط مرتين على ThisWorkbook سيفتح لك محرر الاكواد ضع هذ الكود فى محرر الاكود Private Sub Workbook_Open() Application.Calculation = xlAutomatic End Sub ثم قف بالماوس فى وسط الكود ثم اضغط F5 لتفعيل الكود ثم جرب عمل المعادله ستجدها تعمل ان شاء الله تقبل تحياتى

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

السلام عليكم اخواني الكرام في الملف المرفق مجموعة من الصيدليات تصل الى اكثر من 500 صيدلية مع اسم المنطقة واسم المندوب وهنا لدي فواتير مبيعات ما مطلوب هو عندما اكتب اسم الصيدلية في العمود الأول يدرج في العمومد الثاني والثالث اسم المنطقة واسم المندوب وجربت دالة lookup ولكن عندما اضيف اسم صيدلية جديدة لا يستجيب ويعطي معلومات خطا . ما اتمنى منكم مساعدتي بأي دالة في سبيل الوصول الى هدفي وهو عندما اكتب اسم الصيدلية احصل على اسم المنطقة واسم المندوب تلقائي اتمنى او اكون وصلت الفكرة وبارك الله في فيكم اخوكم ابو شرف حسابات تجارية.rar

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

شكرا ياشباب ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. حتى نعرف ان الطريقة تشتغل على كل اصدارات الاكسس جعفر

الاخوه الكرام السلام عليكم في المثال المرفق اريد جمع عدد الخلايا اللتى تقع بين عددين فقط ( مثلا عدد الخلايا بين (رقم 25 و 30 ) وذلك الاستخراج نسب الطلاب الحاصلين علي معدل درجات مثلا الحاصلن علي درجات تقع بين رقمى ( 50 و 45 ) او ( بين 45 و40 ) وغيرها ولكم جزيل الشكر Book1.rar

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

السلام عليكم =========== اخى وحبيبى بن عليه بارك الله فيك فهمت قصدك واعتقد ان صاحب المشاركة يقصد مقصودك الثانى اخى بن عليه " ربما تجمعنا اقدارنا ذات يوم بعد ان عز اللقاء " وان شاء الله يكون فى حرم سيدنا النبى الى اللقاء اخى

السلام عليكم =========== اخى galal_mk اليك الحل بطريقة سهلة ودالة مباشرة ولا تحرمنا من الدعاء واعزرنى على السرعة فى طريقة الشرح عدد الخلايا بين قيمتين.rar

السلام عليكم ورحمة الله أهلا أخي وحبيبي هشام، من المفروض أن عملية الحساب والمطلوب هو كل القيم من المجال [25 ، 30[، أي هي القيم الأكبر من أو تساوي 25 والأصغر تماما من 30... (من العادة نعمل بهذه الطريقة بحكم عملي) وفي هذه الحالة كلتا الصيغتين صحيحتين، بالنسبة للأولى لم نختلف فيها إلا في حالة "=" وإذا كان الأخ يقصد القيم الأكبر تماما من 25 والأصغر تماما من 30 فإجابته هي ما قمت بتصحيحه في ردك (نحذف رمز "=" من العلاقة)... بالنسبة للصيغة الثانية : =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<25") والتي هي أيضا صحيحة إلا إذا كانت القيم المطلوبة هي من الجال ]25 ، 30[ فيجب كتابة الصيغة على الشكل التالي: =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<=25") وعمل هذه الصيغ (الأولى مثلا) يقوم بحساب الفرق بين عدد القيم الأصغر تماما من 30 وعدد القيم الأصغر تماما من 25، فيبقى، بالتالي، عدد القيم التي تنتمي إلى المجال [25 ، 30[ وهو المطلوب.. والله أعلم

السلام عليكم =========== اخى بن عليه بارك الله فيك طبعا الفكرة رائعة رائعة هناك ملحوظة اذا كان من فضلك يجب استبدال الدالة =SUMPRODUCT(($F$1:$F$10<30)*($F$1:$F$10>=25))[/code بالدالة او بمعنى ادق ازالة = ليكون الناتج صحيح [code]=SUMPRODUCT(($F$1:$F$10<30)*($F$1:$F$10>25)) اما هنا اخى =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<25") اعتقد ان الصيغة للدالة اصلا غير صحيحة لان الشرطان عندما المدى المستهدف اصغر من 25 واصغر من 30 وهذا مخالف لواقع المطلوب هذا والله اعلم ( وهذا ما علمتنا انت اياه ) تقبل احترامى وتقدير لشخصكم الكريم بن عليه.rar

السلام عليكم ورحمة الله أخي الكريم جلال أقدم لك في الملف المرفق صيغتين (حلين) أحدهما باستعمال COUNTIF والآخر باستعمال SUMPRODUCT وهناك حلول أخرى.. أخوك بن علية Book1.rar

بسم الله الرحمن الرحيم برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 11 ( 2003 ) المرفقات عبارة عن ::: 1 - ملف البرنامج وبه شرح لطريقة عمله 2 - ملف فيديو لطريقة عمل البرنامج أتمنى صالح الدعاء Omar.rar برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 12 ( 2007 ) تم استبدال الايقونات بأزار فقط يرجى الاطلاع على تعليمات التشغيل لآكسيل 12 بداخل الملف المرفق _______________________________________________12__.rar

السلام عليكم ارسل لكم اليوم برنامج محاسبي بسيط يحتوي على ادوات تحكم بالماكرو ارجوا ان ينال اعجابكم لا تبخلو علينا بالردود _____________.xls.rar

السلام عليكم ورحمة الله وبركاته عملت برنامج حسابي علي اكسل مكون من 50 ورقه اريد عندما افتح الاكسل يظهر لي الصفحه الرئيسيه ولنفرض انها ورقه رقم 11 ولا اريده ان يظهر اخر ورقه تم فيها التعديل شاكر ومقدر

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

بسم الله الرحمن الرحيم المكرم الاخ / خالد نور حفظه الله من كل مكروه السلام عليكم ورحمة الله وبركاته اشكرك اخي خالد ونور الله قلبك بعلم الدنيا لتنفع اخوانك و علم الآخرة لتكون مع السفرة الكرام البررة في جنة الفردوس مع النبيين والصدقين والشهداء والصالحين اخوك/ خبور

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

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