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

إبداع كالعادة سلمت يداك وبارك الله في علمك وأعطاك علما من عنده

دائماً متألق كما عهدنا عنك استاذ ياسر بارك الله فيك ، وكل عام وانتم بخـــير

أخي الكريم أيمن الحمد لله أن تم المطلوب على خير .. يمكن استخدام السطر التالي بدلاً من الكود بالمشاركة رقم 2 Sub TypeX() Range("A3:E32").Value = Evaluate("IF(I3:M32=1, ""X"", """")") End Sub أقترح عليك تبديل أفضل إجابة حيث أنه يجب أن تسعى دائماً للأفضل

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله كل عام وأنتم بخير والأمة الإسلامية بخير ************** أقدم لكم موضوع خفيف .. الموضوع ببساطة كالتالي نفترض أن لديك بيانات في الصف الأول وتريد تقسيم البيانات بشكلٍ ما إلى عدة أعمدة ، وفي كل عمود عدد معين من البيانات بالمثال يتضح المقال في الصف الأول ضع أرقام من 1 إلى 40 في الأعمدة من A إلى AN (ركز في الصف الأول وليس في العمود الأول) في الخلية A3 سنقوم بوضع معادلة تؤدي مهمة التقسيم .. المعادلة بهذا الشكل =INDEX($1:$1,,1+MOD(ROWS($A$3:A3)-1,8)+8*(COLUMNS($A$3:A$3)-1)) كيفية استخدام المعادلة : المعادلة وضعت في الخلية A3 ومن ثم عندما تريد التعديل في المعادلة بما يتناسب مع ملفك قم بالتغيير في المعادلة في الأجزاء التالية ROWS($A$3:A3) COLUMNS($A$3:A$3) أي أن خلية البداية سيتم الإشارة إليها في المعادلة أما الجزء الأول خاص برقم الصف الذي يحوي البيانات المراد تقسيمها $1:$1 آخر جزئية في المعادلة هو الرقم 8 (لما الرقم 8 مكتوب مرتين في المعادلة) ... بما أننا نريد تقسيم الـ 40 بيان إلى أعمدة وفي كل عمود 8 بيانات على سبيل المثال إذاً سيتم التعامل مع ( 40 / 8 = 5 ) أي 5 أعمدة بعد وضع المعادلة في الخلية A3 يتم سحب المعادلة بمقدار 8 صفوف إلى أسفل و 5 أعمدة باتجاه السحب إليكم الملف المرفق فيه تطبيق للفكرة علها تفيدكم وتنال إعجابكم بالنسبة لشرح المعادلة أتركها للأخ الحبيب المتمكن خالد الرشيدي (بما لديه من ملكة - بفتح اللام يا أخ علاء رسلان وليس بكسرها - وموهبة فذة في شرح المعادلات) حمل الملف من هنا تقبل الله منا ومنكم صالح الأعمال

السلام عليكم . بعد اذن استاذى الحبيب ياسر خليل لجعل الارقام السالبه بين قوسين افتح تنسيق الخليه رقم ثم مخصص ثم انسخ هذا التنسيق وضعه فى النوع #,##0_);[أحمر](#,##0) وبالنسبة لموضوع التفقيط فراجع هذا الرابط وطبق مافيه http://www.officena.net/ib/index.php?showtopic=40562 تحياتى

أخي الكريم جرب الكود بهذا الشكل Sub FilterData() Dim LR As Long, SH As Worksheet Application.ScreenUpdating = False For Each SH In ActiveWorkbook.Sheets If SH.Name <> "الرئيسية" Then With Sheets("الرئيسية") .Rows(3).AutoFilter .Rows(1).AutoFilter 8, "=" & SH.Name LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then Union(.Range("B2:B" & LR), .Range("E2:E" & LR), .Range("H2:H" & LR)).Copy SH.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues End If .Rows(1).AutoFilter End With End If Next SH Application.ScreenUpdating = True End Sub تم التعديل على الكود الأصلي ليقوم بعمل نسخ للقيم فقط بدون نسخ التنسيقات

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

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

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

أخي الفاضل أكرم جلال ننتظر منك الرد على المشاركة رقم 5 كما ننتظر منك تحديد أفضل إجابة طالما أن الموضوع قد انتهي وتمت الإجابة عليه تقبل تحياتي

أستاذنا/ ياسر خليل أسأل الله أن يحصنك بالقرآن ويبعد عنك الشيطان وييسر لك من الأعمال ما يقربك فيها إلى عليين كود ممتاز وعمل رائع ومفيش أحسن من كده

أخي يوسف السلام عليكم ورحمة الله وبركاته إجابة موفقة من الأخ طلعت المحترم جزاه الله خيراً.. أما إن كنت ترغب في تحديد صف أو عمود كاملين فيمكنك تنزيل الملف التالي للأستاذ ياسر خليل المحترم إن أذن لي الأستاذ طلعت المحترم http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=86018 وفقكم الله والسلام عليكم..

السلام عليكم احسنت - جزيت خيرا - المسألة اصبحت كاملة - زادك الله علما وتوفيقاً السلام عليكم

المطلوب بالمرفق برنامج بطاقة الموظف الشهري والسنوي.rar

أخي الكريم أيمن إبراهيم عوداً حميداً .. كل عام وأنت بخير جرب الكود التالي Sub TestRun() Range("A3:E1000").ClearContents With Range("A3:E32") .FormulaR1C1 = "=IF(RC[8]=1,R1C6,"""")" .Value = .Value End With End Sub تقبل تحياتي

دا انشاء جدول بالحقول الخاصة به create table.rar

السلام عليكم اخي الكريم شاهد المرفق لعلة يكون هو المطلوب. تلوين الخلية النشطة.rar

الأخ الفاضل بكار لن أزيد في الكود شيء فقط عدل بداية الحلقة التكرارية ونهايتها بهذا الشكل For I = 12 To 30 Step 2 باقي أسطر الكود كما هي أرجو أن يفي بالغرض

اخى ابوالبراء ياسر خليل كل عام وانت بخير هذا هو المطلوب اشكركككككككككككككككككككككككككككككككك جزاك الله خيرا اكرمكم الله اعزكم الله

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

أخى الحبيب / محمد الريفى

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

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

نعم ... اسف جدا جدا لنسياني كلمة السر ( للمستخدم : admin ... كلمة السر 1234 ) اما المستخدم الثاني ( khalid فكلمة السر 1837 ) يمكنك الدخول بالمستخدم admin يعني مسؤول واضافة وتعديل المستخدمين فللمسؤول كافة الصلاحيات ... اما المستخدم الثاني فصلاحياته محدودة .... وللعلم فان البرنامج غير محمي ويمكنك الدخول الى القاعدة وتعديل كلمات السر وما الى غير ذلك بالضغط على الزر شيفت اثناء تحميل البرنامج كما هو معروف ومن ثم التعديل على الجداول والفورمز ....... اتمنى لك الاستفادة الكاملة .......... ونحن في خدمة منتدانا ورواده ان شاء الله