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

تحية طيبة برنامج حسابات بعد التعديل لن النسخة الاولى كان فيها بعض النواقص وتم اكمالها اسم المستخدم: المدير باسورد:123 محرر الاكواد:251869 الشيت: 251869 تحياتي محمد علي الطيب برنامج محاسبة.rar

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

رابط البرنامج http://www.mediafire.com/download/5wwti6tzj236g7z/eBook+Workshop.msi ودا شرح راجل محترم اللي بيشرح الصراحه وشكرا

السلام عليكم ورحمة الله وبركاته هل تعني أن يكون معرباً كما في المرفق يرجى أن يرضيكم New-Userform-.rar

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

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

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

عسى ان يكون المطلوب جرب هذا الكود Sub talween() For x = 1 To Sheets.Count With Sheets(x) ro = .Cells(Rows.Count, "O").End(3).Row .Range("a1:o" & ro).ClearFormats For Each cell In .Range("o1:O" & ro) If IsNumeric(cell) And cell.Value < 0 Then cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3 End If Next End With Next End Sub

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

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

جرب هذا الملف واضغط اعجبني Num_Of_Words.rar

تسلملي ياغالي ياعم عبد العزيز انت تقدر تعمل كتب بالفيجوال بيسك ابحث وانت تلاقي اما البرنامج دا يعتبر مصمم في حدود وبعدين غطس ايه يامعلم انا مبعرفشي اعوم تقبل فائق احترامي اخي الغالي احمد بارك الله فيك وجزاك كل الخير على دعائك الجميل تقبل خالص تحياتي ياخال الجردل مليان بس النفس ولو فاضي نملاه عشان خاطركم هو الجردل بيسرب شوية بس هنتدارك الموضوع دا ودا برنامج افضل شوية بيدعم ملفات الpdf والورد والفلاش وصور رابط البرنامج http://www.kvisoft.com/download/fbm/kvisoft-fbm-pro-trial.exe سيريال mmm@mail.com 6EDXAIA3AXCORAJR8KDG شرح بالفيديو بردو نفس الراجل المحترم بتاع الشرح اللي فات وشكرااااااااااا اهو دي طرطشة من الجردل

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

السّلام عليكم و رحمة الله و بركاته أبشرْ يا ياسر يا عربي أبشرْ بفضل من الله و رضوان إن شاء الله كل دروسك عبارة عن الغطس في أعماق المحيطات .. و يلزمك غوّاصة للخروج من ذلك ماذا أقول لك .. مادام غطسك فيه متعة و منفعة و فائدة ..إلاّ .. جزاك الله خيرًا و زادها بميزان حسناتك و أغطسكَ الله في أوسع جنّاته بإذن الله فائق إحتراماتي و إعجاباتي

السلام عليكم أخي الحبيب عبد العزيز جزاكم الله خيرا ...منذ مدة كانت هناك دروس لأخوتي الصقر وإبراهيم والياسران ... فهل نتوقع أن تكون هناك شروحات وأمثلة بدلا من أن تكون مرفقات فحسب... يرجى النظر بذلك لأنه أدعى للمتابعة والاهتمام والسلام عليكم.

لا تنسَ ايضاً حرف الياء المشترك بين الثلاثة (مرتين لكل واحد)

السّلام عليكم و رحمة الله و بركاته أخي الغالي و أستاذي الحبيب ياسر خليل أبو البراء مخلصًا من كل قلبي أبارك هذا الطّرح و الاستفسار ..موضوع فعلاً يستحق المتابعة مع سبق الاصرار و الترصّد أنا عن نفسي كم تمنيت تعلّم هكذا أعمال .. سأتابع معك إن شاء الله أدعو من الإخوة الأكارم فضلاً لا أمرًا من يمكنه المساعدة ألاَّ يبخل علينا بما علّمه الله إياه بارك الله في الجميع مقدّمًا فائق إحتراماتي

ربما يجب استبدال الكود بهذا (من الضروري تجربة الكود على ملف وهمي او نسخة احتياطية قبل ذلك) Sub talween1() For x = 1 To Sheets.Count With Sheets(x) ro = .Cells(Rows.Count, "O").End(3).Row For Each cell In .Range("o1:O" & ro) If IsNumeric(cell) And cell.Value < 0 Then cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = 3 Else cell.Offset(0, -14).Resize(1, 15).Interior.ColorIndex = vbBlack End If Next End With Next End Sub

أخي الكريم استبدل الجزء الأخير في الكود في الفورم المسمى Account بالكود عاليه

أخي الكريم أبو خالد يرجى تغيير اسم الظهور للغة العربية إليك حل بالأكواد إثراءً للموضوع Sub Test() Dim I As Long, FirstName As String, FatherName As String, Str As String For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row FirstName = Kh_Names(Cells(I, 1), 1) FatherName = Cells(I, 2) Str = Mid(Cells(I, 1), Len(FirstName) + 1) Cells(I, 4).Value = FirstName & " " & FatherName & Str Next I End Sub Function Kh_Names(FullName As String, ParamArray iNdex1()) As String Dim I As Integer Dim Kh_Split, MyArray, Ar Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray RE = Replace(Ar, " ", "^") SN = Replace(SN, Ar, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & Kh_Split(iNdex1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function تقبل تحياتي

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

السلام عليكم أخى الفاضل / محمد على بارك الله فيك أخى الفاضل ولكن لى ملاحظة واحدة على المعادلة المستخدمة =IF(OR(B4="غ";C4="غ";D4="غ";E4="غ");"غ";SUM(B4;C4;D4;E4)) حضرتك استخدمت دالة OR لاختبار شرط الغياب وهى تعنى أنه غاب الطالب ولو فى مادة واحدة فقط يعتبر غائب فى المجموع وهذا غير منطقى حيث من المفروض استخدام دالة AND لكى يعتبر الطالب غائب فى المجموع اذا غاب فى جميع المواد وليس مادة واحدة

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

برامجك اخي الغالي محمد على الطيب لها طابع ومظهر رائع وقوائم جميلة جزاك الله خيرا ودائما في تقدم وباذن الله نجرب البرنامج تقبل تحياتي

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

السلام عليكم استخدم أخى هذه المعادلة =IF(AND(B4="غ";C4="غ");"غ";SUM(B4:C4)) Book1.rar

السلام عليكم ورحمة الله وبركاته دعوة للتمعن بآيات الله إخوتي الكرام آيتين كريمتين الأولى: أَفَحَسِبْتُمْ أَنَّمَا خَلَقْنَاكُمْ عَبَثًا وَأَنَّكُمْ إِلَيْنَا لَا تُرْجَعُونَ (115) سورة المؤمنون: قوله تعالى : أفحسبتم أنما خلقناكم عبثا وأنكم إلينا لا ترجعون قوله تعالى : أفحسبتم أنما خلقناكم عبثا أي مهملين كما خلقت البهائم لا ثواب لها ولا عقاب عليها ؛ مثل قوله تعالى : أيحسب الإنسان أن يترك سدى يريد كالبهائم مهملا لغير فائدة . قال الترمذي الحكيم أبو عبد الله محمد بن علي : إن الله تعالى خلق الخلق عبيدا ليعبدوه ، فيثيبهم على العبادة ويعاقبهم على تركها ، فإن عبدوه فهم اليوم له عبيد أحرار كرام من رق الدنيا ، ملوك في دار الإسلام ؛ وإن رفضوا العبودية فهم اليوم عبيد أباق سقاط لئام ، وغدا أعداء في السجون بين أطباق النيران . و ( عبثا ) نصب على الحال عند سيبويه وقطرب . وقال أبو عبيدة : هو نصب على المصدر أو لأنه مفعول له . وأنكم إلينا لا ترجعون فتجازون بأعمالكم . قرأ حمزة ، والكسائي ترجعون بفتح التاء وكسر الجيم من الرجوع . الثانية: أَيَحْسَبُ الْإِنسَانُ أَن يُتْرَكَ سُدًى (36)سورة القيامة: قوله تعالى : أيحسب الإنسان أي يظن ابن آدم أن يترك سدى أي أن يخلى مهملا ، فلا يؤمر ولا ينهى ; قاله ابن زيد ومجاهد ، ومنه إبل سدى : ترعى بلا راع . وقيل : أيحسب أن يترك في قبره كذلك أبدا لا يبعث . وقال الشاعر : فأقسم بالله جهد اليمين ما ترك الله شيئا سدى أخوكم أبو يوسف عن موقع(مشروع المصحف الإلكتروني)...

أخي الكريم حمادة جرب التعديل في الجزء الخاص ببدء تشغيل الفورم Private Sub UserForm_Initialize() Dim C As Integer For C = 1 To ContColmn With ورقة1 Me.Controls("xx" & C).Caption = .Cells(1, C).Value End With Next With ورقة1 Me.ComboBox2.AddItem .Cells(1, 1).Value Me.ComboBox2.AddItem .Cells(1, 2).Value Me.ComboBox2.AddItem .Cells(1, 33).Value End With Me.ComboBox2.Style = 2 End Sub تقبل تحياتي

أخي الكريم محمود جرب الكود التالي عله يكون المطلوب ... Private Sub CommandButton1_Click() Dim Coll As New Collection, arrData, arrOut, arrStrSheet, strSheet, arrBlank, arrTemp Dim I As Long, J As Long, K As Long, strKey As String arrStrSheet = Array("المشتروات", "المبيعات") ReDim arrBlank(0 To 4) For K = LBound(arrStrSheet) To UBound(arrStrSheet) With Sheets(arrStrSheet(K)) arrData = .Range("C6:E" & Application.Max(.Cells(.Rows.Count, "C").End(xlUp).Row, .Range("C6").Row)).Value On Error Resume Next For I = 1 To UBound(arrData, 1) strKey = Trim$(arrData(I, 1) & Chr$(2) & arrData(I, 2)) arrTemp = arrBlank arrTemp = Coll(strKey) arrTemp(0) = arrData(I, 1) arrTemp(1) = arrData(I, 2) arrTemp(K + 2) = arrTemp(K + 2) + arrData(I, 3) Coll.Remove strKey Coll.Add Key:=strKey, Item:=arrTemp Next I On Error GoTo 0 End With Next K ReDim arrOut(1 To Coll.Count, 1 To 5) I = 0 For Each arrTemp In Coll I = I + 1 For J = 0 To 3 arrOut(I, J + 1) = arrTemp(J) Next J arrOut(I, 5) = arrOut(I, 3) - arrOut(I, 4) Next arrTemp With Sheets("جرد البضاعة").Range("B5") .CurrentRegion.Offset(1, 1).ClearContents If Coll.Count Then With .Offset(1, 1).Resize(UBound(arrOut, 1), UBound(arrOut, 2)) .Value = arrOut .Sort Key1:=.Columns(1), Order1:=xlAscending, Key2:=.Columns(2), Order2:=xlAscending, Header:=xlNo End With End If End With End Sub وإليك الملف المرفق فيه تطبيق الكود تقبل تحياتي Transfer Purchases & Sales Using Arrays.rar

أساتذتى الكبار أخوتى وأخواتى فى منتدى أوفيسنا أنا فخور انى أحد أعضاء المنتدى الكريم ده دائما ما نجد ضالتنا فيه لقيت الملف ده على موقع أجنبى وبصراحه عجبنى وحبيت أشارك بيه أحلى طاقم عمل فى المنتدى الى أن يتم شرحه وتفكيكه من عباقرة المنتدى مرفق ومنتظر اراءكم يارب يعجبكم New-Userform-.rar

معاك ياريس بقا فى الحته دى بالذات ههههههههههههههههههههههههههههههههههه

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

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

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

الصق الخرم بلبانه سماره هههههههههههههههههههههه

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

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

جزاك الله كل خير على دعائك الطيب اخى حماده بالتوفيق اخى

ههههههههههههههه لا وانت الصادق كل ملفاتك جميلة ويستفاد منها ومستحيل تترمي في المجاري دمك زي العسل دائما المبدعين يكون دمهم زي العسل وانت مبدع استاذي ياسر خليل ابو البراء وانا مبتدأ في الاكسل ( مبتدأ جداً كمان ) وحابب اتعلم منك ومن الاساتذة الكرام الكثير والكثير تقبل تحياتي (دي سرقتها منك ) الكتكوت ده عنده 21 سنه

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

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

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

أخي الكريم اسخدم كلمة ClearContents بدلاً من ClearFormats

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

هل أقوم بحذف الموضوع كي لا يتوه الأعضاء ويركزون في نسخة واحدة فقط من البرنامج ؟

وعليكم السلام اعمل حقل في الجدول بإسم Bal ، اذا كان برنامجك على الاكسس 2007 فما فوق ، ففي الجدول حقل من نوع "حقل محسوب" ، تجعل فيه المعادلة التي تريد للحقل Bal ، وهو يحسبها تلقائيا اما الطريقة الاخرى ، ففي النموذج ، وعلى حدث "بعد التحديث" للحقل العدد المطلوب بيعة ، اعمل المعادلة: me.Bal= me.الرصيد - me.العدد والقيمة تلقائيا ستدخل النموذج والجدول جعفر

استاذ عبد الرحمن كما طلبت حضرتك تم تحوبله للعربى أتمنى أن أكون قد وفقت فى عملى هذا لعله ما تطلب وشكرا New-Userform-Arabic.rar نتشارك كلنا بمساعدتكم معنا . شكرا لمرور حضرتك الاستاذ / أبو أنس الحمد لله أنه نال اعجاب حضرتك ان شاء الله واحيانا هدور تانى ولو لقيت حاجه تانية ان شاء الله هرفعها للمنتدى أسعدنى وشرفنى مرورك الكريم

أنا بستخدم أوفيس 2013 وليست موجودة فيه