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

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

روعة أخي الحبيب سليم لا حرمنا الله منك .. وجزاك الله خير الجزاء يوجد بمكتبة الصررح دالة تقوم بعمل الدالتين (يعني 2 * 1 زي برت بلس) Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String With CreateObject("VBScript.RegExp") .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?") .Global = True AlphaNum = .Replace(txt, "") End With End Function وهذا ملف مرفق به تطبيق الدالة جانباً إلى جنب مع دالتيك الرائعتين حروف و أرقام.rar

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي 11222.rar

لعله المطلوب اوفسينا22 salim.rar

إضافة رائعة أخي الغالي أبو تراب تسلم الأيادي يا غالي

ماشاء الله لا قوة الا بالله ...اكواد جميلة من الاستاذ سليم و الاستاذ ياسر هذه اضافة عن طريق Like بدون استخدام محرك Regular Expression ارجوا ان تنال اعجايكم Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String Dim i As Long Dim Pattern As String If numOnly Then Pattern = "[0-9]" Else Pattern = "[!0-9]" End If For i = 1 To Len(txt) If Mid(txt, i, 1) Like Pattern Then AlphaNum = AlphaNum & Mid(txt, i, 1) Next i End Function

إضافة أخرى تشبه طريقه الأستاذ / ياسر خليل لكن بكود مغاير الملف_3.rar

الى اساتذة المنتدى أتمنى يارب تكونوا بافضل صحه وعافيه

بعد إذن الاستاذ القدير/ ياسر خليل والأخ altag إثراء للموضوع تفضل المرفق التالي الملف_3.rar

أخي الحبيب أهلا بك في المنتدى ونورت بين إخوانك أولا قم بتحديد النطاق وليكن A1:F10 مثلاً .. ثانيا من التبويب Home اختر Conditional Formatting ثم اختر الأمر New Rule ثم اختار ثاني اختيار المسمى Format only cells that contain ومن القائمة المنسدلة الأولى اختر Cell .Value ستجدها هي الاختيار الافتراضي ، ومن القائمة المنسدلة الثانية اختر Equal To ثم اكتب المعادلة التالية في الحقل الأخير بهذا الشكل =MIN($A$1:$F$10) اضغط على كلمة Format ثم التبويب Fill واختر اللون الذي ترغبه ثم أوك ثلاثة مرات ...

تفضل أخى المطلوب تقبل تحياتى كتابة التاريخ بشكل تلقائى.rar

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

وعد الحر دين عليه .. لقد ألزمت نفسك ..فلا تنسى وعدك

أخي الحبيب أحمد مرجان تفضل المرفق التالي بدون أزرار ... في الخلية G1 يوجد قائمة منسدلة تستطيع من خلالها اختيار الشهر ليظهر لك الشهر الذي تريده فقط ويختفي بقية الشهور Unhide Specific Rows.rar

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

تفضل أخي الفاضل تغيير الكود للصفحة الحالية.rar

أخى الحبيب لكى نقوم بشرح الدالة السابقة دعنا نشرح أولا الدالة الأساسية فى هذا الموضوع ، وننسى مؤقتا الدالة المطلوب شرحها. السؤال كان من قبل حضرتك أنك تريد تسلسل لأيام الأسبوع وفقا ليوم يتم وضعة فى الخلية "A1 " لتقوم المعادلة المطلوبة بأخذ هذا الشرط والتكملة للزصول لباقى أيا الأسبوع فى باقى خلايا العمود وبالطبع لو أردنا تنسيق رقم للوصول لمسمى اليوم فأما نستخدم تنسيق الأوفيس " بتحويل الرقم من "1:7" وهما أيام الأسبوع إلى نص لذلك هذا يجعل دالة " TEXT " أولى الدوال التى تتبادر إلى الذهن لعمل ذلك وشروطها كالأتى " - =TEXT(VALUE,FORMAT_TEXT) معنى مكون الدالة السابقة أنها دالة تقوم بتنسيق رقم وتحويلة إلى نص " لذلك نجدها ضمن دوال النصوص " نطبق الدالة السابقة على طلبك سنجد أننا سوف نضع القيمة المقابلة لليوم المطلوب وليكن يوم" السبت " ، سنجد أن الدالة ستكون كالأتى " =TEXT(,"DDDD") بتطبيق الدالة السابقة سنجد أنها سترجع "يوم السبت " وبالتالى لوقمنا بتغيير هذا الرقم وهو " الصفر " والذى تركت موضعة خالى فى المعادلة السابقة ، برقم "1" سنجد أنها سترجع "يوم الأحد" وبالتالى سيكون صعب تغيير الرقم يدويا داخل المعادلة للحصول على أيام الأسبوع لذلك كان لابد من البحث عن دالة تقوم بذلك فكان التفكير فى الدالة " ROW " وهى دالة من دوال البحث والمرجع وليس لها شروط وشكلها كالتالى " - =ROW([REFRENCE]) لنضعها الأن مع المعادلة " TEXT " لتقوم بجلب الرقم المطلوب بشكل تلقائى وفقا للصف الواقعة فية ، ليكون شكل المعادلة كالتالى " =TEXT(ROW(A1)-1,"DDDD") وبسحبها لأسفل سنجد أنها تقوم بجلب أسم اليوم وفقا لتنسيق الرقم التى تقوم بجلبة الدالة " ROW " وسنجد أن هذه الدالة بوضعها الحالى لاتحقق طلبك وهو جلب أيام الأسبوع وفقا لشرط يتم وضعة فى الخلية " A1" مثلا لتكمل المعادلة الأيام التى تلى اليوم الذى يتم وضعة فى هذه الخلية وبشكل مسلسل - وبالتالى سنقوم بالبحث عن دالة بها مواصفات دالة "ROW " ويمكن وضع شرط بها لنجد أن أفضلهم دالة " MATCH " وشروطها كالتالى : - =MATCH( LOOKUP_VALUE,LOOKUP_ARRAY,[MATCH_TYPE]) 1- نجد أن الشرط الأول الموجود فى المعادلة وهو " LOOKUP_VALUE " ويمكن وضع الشرط المطلوب به 2- " LOOKUP_ARRAY " وتم وضع مصفوفة الأيام وتم وضع دالة " TEXT " وذلك لتنسيقها كنص 3- والشرط الأخير فيها وهو " [MATCH_TYPE] " ثم تم تكملة المعادلة البسيطة السابقة بباقى عناصرها وهى تنسيق ناتج الدالة " MATCH " كنص فكانت النتيجة الدالة موضع السؤال : =TEXT(MATCH(A1,TEXT({1,2,3,4,5,6,7},"dddd"),0)+1,"dddd") أرجو أن يكون الشرح قد أوصل فكرة المعادلة وأن المعادلة حققت المطلوب منها تقبل تحياتى

جرب هذا لعله يفي بالغرض الملف.rar

يارب احفظ علماء المنتدى وبارك فيهم واسمعنا عنهم خيرا

نعم أخي الحبيب يمكن الاستغناء عن اسم الشيت بهذا الشكل ActiveSheet. حيث كلمة ActiveSheet تعني ورقة العمل الحالية .. فيمكنك مثلاً تحديد الخلية A1 بهذا الشكل مع ورقة العمل النشطة ActiveSheet.Range("A1").Select ولكن إذا كان هناك تعامل في الكود مع أكثر من ورقة عمل أو أنك سوف تتعامل مع أكثر من مصنف فأحبذ أن تكون تقليدي كما في الأكواد المرفقة في مشاركتك ThisWorkbook.Sheets("Sheet1").Range("A1").Select

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

أخي الكريم جرب الملف التالي .. ومتنساش تدعي لي Transpose Data.rar

طيب ما تستغني عن أزار الأمر هذه واستخد زر الأمر Form Button أعتقد مفيهوش مشاكل ممكن المشكلة تكون الـ ActiveX Controls بتختلف من نسخة أوفيس لأخرى أو من 64بت إلى 32 بت والله أعلم للتغلب على مشكلتك أقترح استخدام الأزرار الأخرى المسماة Form Button وضع الأكواد في موديول وليس في حدث الورقة ..

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح .. Codes Library v1.9.6.rar

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

لابأس ، وان احتجت مساعدة لاتتردد في السؤال

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

اليكم فيديو شرح لطريقة التشغيل

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

1- برنامج اكسيل يساعدني في ادارة معمل تحاليل طبيه وتسجيل الحالات : ويحتوى على _ التسلسل-اسم المريض-اسم التحليل-المبلغ(دفع/باق/سفريات) - اسم الدكتور المعالج - اليومية ولكم مني جزيل الشكر وفقكم الله للخير اخوكم في الله احمديونس/ مصر

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