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

تحية طيبة برنامج حسابات بعد التعديل لن النسخة الاولى كان فيها بعض النواقص وتم اكمالها اسم المستخدم: المدير باسورد: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

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

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

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

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

شكرا ..... و لكن اعتقد نحن المغاربة نستطيع الاستفادة منه ...حيث اللغة بالفرنسية و حتى خصائص الاكسل تظهر بالفرنسية.. و لكن سيصعب الامر مع الاخوة المشارقة ... .....

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

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

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

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

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

أخي الكريم كاسر الأمواج استبدل الأسطر التي يظهر بها الخطأ باللون الأحمر بهذه الأسطر #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function BringWindowToTop Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As LongPtr) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetActiveWindow Lib "user32.dll" () As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function BringWindowToTop Lib "user32.dll" (ByVal hwnd As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "User32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long #End If ستجد الأسطر في أكثر من فورم ..لا تنزعج وأنت تعدل ..قم بحذف الأسطر باللون الأحمر وضع الكود عاليه مكانها وإن شاء الله يعمل معك تقبل تحياتي

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

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

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

السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بكل خير اللهم أنت ربي لا إله إلا أنت، خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت، أعوذ بك من شر ما صنعت، أبوء لك بنعمتك علي وأبوء بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت رَبَّنَا إِنَّنَا آمَنَّا فَاغْفِرْ لَنَا ذُنُوبَنَا وَقِنَا عَذَابَ النَّارِ

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

اهلا بك أستاذ أبا خليل على فكرة : في الاكسس 2010 واتوقع 2007 عند الضغط على مؤشر فلترة العمود من نوع تاريخ يأتي ضمن الخيارات الخاصة بخيار فلترة التواريخ " الأسبوع الحالي " ولكنه يعمل على رقم الأسبوع خلال الشهر والسنة ! بمعنى الاكسس نفسه لا يجلب أيام دخلت في سنة جديدة !! فهنا برجوعنا الى مشاركتي رقم 9 وتعريف معنى هذا الأسبوع : هل هو هذا الأسبوع من هذا الشهر ؟ ام هذا الأسبوع من هذه السنة ؟ فالحل الذي وضعته هو : هذا الأسبوع بغض النظر عن شهر وسنته ! وهنا شرح المعيار : ببساطة : اكبر من او يساوي الاحد السابق واقل من الاحد القادم ! طبعا اقل من بدون مساواة لعدم ادخال الاحد القادم وإدخال السبت القادم فقط ! فالجزء الأول يعيد الاحد السابق : استخدمت دالة إضافة عدد أيام الى التاريخ ! ف weekday تعيد رقم اليوم فاذا كان 1 ستكون الإضافة صفر أي صادف الاحد واذا كان اكبر ستضيف عدد أيام والناتج بالسالب مما يجعل التاريخ يعود للوراء بعدد أيام السالب . طبعا اكيد فهم الجزء الثاني والخاص بإعادة الاحد القادم ! تحياتي

والله يا اخي مجهود رائع وجمييييييييييييييييييييييييييييييييييييل جدا بارك الله بيك وجعله في ميزان حسناتك . اخي الكريم ابو تامر في سؤال سأل في هذا الموضوع ولم يجد اجابة وهو سؤال يهمني جدا كيف ازيل هذه الادوات من الاكسل في حالة تعارضها مع دالات اخرى ؟؟ نكون لك من الشاكرين

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