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

السلام عليكم بناءا على طلب بعض الاخوة اقدم لكم برنامج صغير لارشفة الصور برنامج ارشفه.accdb

يمكنك تجربة هذه الدالة المعرفة Function FILTER_AK(Where, Criteria, Optional If_Empty) As Variant Dim Data, Result Dim i As Long, j As Long, k As Long 'Create space for the output (same size as input cells) With Application.Caller i = .Rows.Count j = .Columns.Count End With 'Clear ReDim Result(1 To i, 1 To j) For i = 1 To UBound(Result) For j = 1 To UBound(Result, 2) Result(i, j) = "" Next Next 'Count the rows to show For i = 1 To UBound(Criteria) If Criteria(i, 1) Then j = j + 1 Next 'Empty? If j < 1 Then If IsMissing(If_Empty) Then Result(1, 1) = CVErr(xlErrNull) Else Result(1, 1) = If_Empty End If GoTo ExitPoint End If 'Get all data Data = Where.Value 'Copy the rows to show For i = 1 To UBound(Data) If Criteria(i, 1) Then k = k + 1 For j = 1 To UBound(Data, 2) Result(k, j) = Data(i, j) Next End If Next 'Return the result ExitPoint: FILTER_AK = Result End Function استخدامها مثل الدالة filter في اوفيس 365 مع فارق الضغط على Ctrl+shift+enter بالتوفيق

أخي الكريم طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل يمكنك استخدام هذه المعادلة =MAX(A2:C2) بالتوفيق

يمكنك وضع قائمة الشيتات في عمود وليكن P مثلا ثم استعمال هذه المعادلة للحصول على مجموع التأمينات في العمود K من جميع الشيتات المكتوبة في القائمة =SUMPRODUCT(SUMIFS(INDIRECT("'"&$P$1:$P$5&"'!"&"k5:k1000"),INDIRECT("'"&$P$1:$P$5&"'!"&"b5:b1000"),$D$2)) حيث أن اسماء الشيتات في النطاق P1:P5 واسم الموظف في D2 ويمكنك تطويع المعادلة للحصول على مجموع أي عمود مثل عمود التأمينات K بالتوفيق

إذا كان المطلوب أن يعمل الكود في حدث التغيير في جميع الشيتات فيجب وضع الكود في هذا المصنف thisworkbook وإذا كان المقصود بالأسطر الصفوف فيمكنك استعمال هذا الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [v1] = 28 Then Sh.Rows("1363:1387").Hidden = True Sh.Rows("1361:1362").Hidden = False Else Sh.Rows("1363:1387").Hidden = False Sh.Rows("1361:1362").Hidden = True End If End Sub ويمكن اختصاره إلى هذا Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Sh.Rows("1363:1387").Hidden = IIf([v1] = 28, True, False) Sh.Rows("1361:1362").Hidden = IIf([v1] = 28, False, True) End Sub بالتوفيق

جزاك الله كل خير استاذنا أ/ محمد صالح

تفضل بالتوفيق غير التنسيق زى ما حضرتك عاوز yyyymmdd.accdb

للاسف لم يتغير استاذي احتاج تغيير للي في الصورتين

تفضل بالتوفيق Sub ChangeSystemDateFormat() ' تحديد التنسيق الجديد الذي تريده Dim newDateFormat As String newDateFormat = "dd/MM/yyyy" ' يمكنك تغيير هذا الجزء حسب التنسيق الذي تريده ' تشغيل أمر PowerShell لتغيير تنسيق التاريخ Dim powerShellCommand As String powerShellCommand = "powershell -Command ""Set-Culture -CultureInfo en-US; Set-WinSystemLocale -SystemLocale en-US""" Shell powerShellCommand, vbNormalFocus ' رسالة تأكيد MsgBox "تم تغيير تنسيق التاريخ على الحاسوب بنجاح!" ' اعد النظام إلى التنسيق الأصلي (اختياري) ' يمكنك استخدام نفس الأمر مع التنسيق الأصلي الذي تريده ' Dim originalDateFormat As String ' originalDateFormat = "التنسيق الأصلي" ' powerShellCommand = "powershell -Command ""Set-Culture -CultureInfo en-US; Set-WinSystemLocale -SystemLocale en-US""" ' Shell powerShellCommand, vbNormalFocus End Sub

أخي الكريم ، يسعدني أن أشاركك ملف للأستاذ @Moosak فيه تستطيع استيراد وتصدير ملفات المكتبات لأي مشروع Reference Management.accdb

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

وفقنا الله جميعا لكل خير

تمام تمت المعادلة و النتيجة رائعة شكرا جزيلاً استاذ محمد

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

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

تفضل أخي المرفق بعد التعديل ووافني بالرد . واذا كان هذ طلبك لا تنسى الضغط على أفضل اجابة . basev-2.accdb

تفضل أخي @mahmoud78 محاولتي . واليك المرفق. الحقول الغير متطابقة.rar

تفضل هذه الفكرة فكرة قوائم.zip

مشكور يا استاذ محمد حسن اجابة شافيه ووافيه

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

السلام عليكم ورحمة الله أخوتى الكرام هذا بالتفصيل ما قمت به وقد تم تعديل اللغة : 1 - تم تغير نسخة الويندوز إلى ويندوز 10 pro مع العلم أنها نفس النسخة السابقة . 2- لم أقم ببتعديل اعدادت اللغة أو إضافة أى لغة انما الاعدادات العادية للغة الانجليزية . 3 بعد الانتهاء من نسخة الويندز اضفت اللغة العربية . 4 - اضافة فوت خطوط عربية للخطوط 5- تثبيت نفس نسخة الاوفيس 2010 . وهذه هى النتيجة والحمد لله . . وشكرا على مجهودكم الكريم وزادكم الله من فضله وشكرا لمنتدنا واعضاء الكرام.

تفضل أخي @m.r محاولتي ووافني بالرد . DD425.accdb

ازاى لابد من التأكد قبل طرح المشاركة -فالملف موجود بالمشاركة الرئيسية ,شوف بنفسك Charts Form.rar

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

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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب سبق أن قمنا بكسر حماية محرر الأكواد بدون برامج .. الآن مع كسر حماية أوراق العمل بالاستعانة ببرنامج صغير الحجم اسمه XML Marker وهو برنامج للتعديل على ملفات الـ XML وهو مرفق في الموضوع ... أترككم مع الفيديو ..عسى أن تستفيدوا منه إن شاء الله (ومتنسوش اللايكات !!) تقبلوا تحيات أخوكم أبو البراء xmlmarker_2_2_setup.rar

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء .. أقدم لكم بعون الله كل ما هو جديد ومفيد في عالم الإكسيل .. الموضوع اليوم عن النطاقات المعرفة Defined Names .. نبدأ بكيفية عمل نطاق معرف .. نقوم بتحديد الخلايا ثم في صندوق الاسم على يسار شريط المعادلات ننقر بالماوس نقرة واحدة ونكتب اسم للنطاق الذي تم تحديده .. وللإطلاع على النطاقات المسماة يمكن الدخول إلى التبويب Formulas ثم انقر على Name Manager لتطلع على النطاقات المسماة بالفعل ، ويمكنك تعديل النطاق من خلال Name Manager .. كما يمكنك حذف أي نطاق مسمى (الحذف يكون لاسم النطاق وليس للنطاق نفسه) الجديد: هو كيفية إخفاء أسماء هذه النطاقات (واللي يحضر عفريت يعرف يصرفه) ، وبالتالي يوجد أيضاً إظهار النطاقات المسماة في الملف المرفق. بالملف المرفق تم تسمية نطاقين بأسماء MyData و MyRange .. قم بالإطلاع على Name Manager قبل أن تضغط زر الأمر Hide Defined Names ثم بعد النقر على الإخفاء قم بالإطلاع على النطاقات المسماة ، لن تجدها في Name Manager (واحد عنده أمل إنها تكون موجودة ففتح صندوق الاسم Name Box اللي على شمال شريط المعادلات ..انسى انسى يا عمرو) اختفت النطاقات المسماة وانتهى أمر وجودها .. لإرجاع النطاقات المسماة يتم النقر على زر الأمر Unhide Defined Names فيعود كل شيء لطبيعته .. أعتقد أن الموضوع قد يكون جيد لحماية المصنف من المتطفلين من الإطلاع على النطاقات المسماة أرجو أن يفيدكم الموضوع ، تقبلوا تحياتي Hide Unhide Defined Names.rar

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

تحياتي للأستاذ ياسر ، صاحب الاعمال المتميزة الرائعة ( سلسلة الانفجارات ) فكرة الاستاذ سليم ، وهي تنفيذ الكود من خلال القائمة المنسدلة ..( لعناوين الاعمدة ). فكرة عملية جداً وقد تناولها الاستاذ : عبد الله باقشير ، وزاد عليها زر .. خذف اوراق الفلترة انقلها ليستفاد منها All-Items.rar

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

السلام عليكم إخواني الأحباب تفضلوا الملف المرفق به شرح كيفية معرفة الصف الأخير في عمود أو صف ، وبه أيضا كيفية إنشاء نطاق ديناميكي باستخدام الأكود Last Row and Dynamic Named Ranges.rar

السلام عليكم اسعد الله صباحكم بعد اذن استاذي ياسر الزر في sheet1 بيشغل الامر ده LastRow1 = Columns("A").Find("الفصل الأول", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row فبيعيد برمجة FIND بانها تبحث عن الكلمة كلها و فقط (LookAt:=xlWhole) يعني تبحث عن محمد لازم يكون الاسم محمد فقط مش محمد محسن مثلا . فممكن يتعدل الجزء ده في البحث التابع للفورم , السطر ده Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(M, LookAt:=xlPart) فيعيد البرمجة بتاعت FIND تاني بحيث تبحث بمعلومية جزء من الكلمة (LookAt:=xlPart) تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. بناءً على طلب الأخ الحبيب إبراهيم أبو ليلة أقدم لكم هذا الملف والذي يحتوي على دالتين معرفتين UDFs ، تقوم كلتا الدالتين بإرجاع القيمة True إذا كنت متصلاً بالانترنت ، وإرجاع القيمة False إذا كنت غير متصل بالانترنت . كما يوجد داخل المرفق كود يظهر رسالة تفيد إتصالك بالانترنت من عدمه ... لتحديث الدالة يرجى الضغط على Ctrl + ALT + F9 في حالة أردت تجربة الدوال .. تقبلوا تحيات أخوكم أبو البراء :fff: Check Internet Connection.rar

اخى ياسر اشكرك على الاهتمام بارك الله فيك بقالى فتره ابحث على الانترنت ولكن بالفعل اليوم حصلت على كودين وليس كود واحد كما كنت اطمع اليك الكود الذى حصلت عليه Private Declare Function InternetGetConnectedState _ Lib "wininet.dll" (ByRef dwflags As Long, _ ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Function IsInternetConnected() As Boolean Dim L As Long Dim R As Long R = InternetGetConnectedState(L, 0&) If R = 0 Then IsInternetConnected = False Else If R <= 4 Then IsInternetConnected = True Else IsInternetConnected = False End If End If End Function 'You would call this in your code with something like Sub AAA() If IsInternetConnected() = False Then MsgBox "PC DOES NOT connect TO INTERNET " ' connected End If If IsInternetConnected() = True Then MsgBox "PC HAS connect TO INTERNET" ' no connected End If End Sub تقبل تحياتى

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

تفضل استاذى الفاضل الملف المرفق فى شيت search قم بالضغط دبل كليك على عمود A سيظهر معك فور بحث يعمل تمام فى عملية البحث ثم انتقل الى شيت sheet1 وقم بالضغط على زر الكود بتاع حضرتك ثم قم بالعوده الى شيت search ودبل كليك بالعمود A لاظهار الفورم ستجد البحث لا يعمل قم بالخروج من الملف والعوده ستجد الفورم يعمل تمام فما المشكله تقبل منى الاحترام والتقدير Search.zip

الأخ حسام عيسى فكرة جميلة الطلب الذي طلبته تفضل المرفق التالي فيه ثلاثة فصول يتم عمل نطاق لكل فصل على حدة باستخدام الأكواد Last Row Specific Value.rar