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

تفضل أخي هذا كود الزر: Private Sub Command25_Click() 'On Error Resume Next ' DoCmd.GoToRecord , , acNewRec 'If Me.NewRecord And Me.CurrentRecord > 1 Then ' Me.NUM_ESAL = DLast("[num_esal]", "1") ' End If Num = InputBox("Please Enter the number") Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount DoCmd.GoToRecord , , acFirst For I = 1 To RC rst.Edit rst!NUM_ESAL = Num rst.Update rst.MoveNext Next I End Sub مافي داعي تكتب الرقم ، وطريقة العمل: 1. اختر التاريخ ، 2. اضغط على الزر ، 3. في نافذة تطلب منك الرقم ، ادخل الرقم واضغط ok والسلام جعفر

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ..................................................... ********************** نقدم اليوم درسا فى شرح كيفية استخدام conditional formatting فى البحث وتظليل الخليه التى تطابق نطاق البحث كما فى الصوره كما تشاهد فى الصوره اننا لدينا جدول بيانات به مجموعه من الاعمده وان الخليه D14 مظلله باللون الاصفر وذلك لانها كما يتضح فى الصوره تطابق الخليه C6 ولمعرفة كيفية تنفيذ ذلك تابع الشرح فى الصوره الاتيه قم بانشاء جدول بيانات كما فى الصوره الاولى ثم قم بتحديد الجدول بالكامل بداية من B8:E14 ثم اتبع الشرح الموجود فى الصوره =AND($C$6<>"",$C$6=B8) الان قم بتطبيق المثال على ملف من عندك وقم بتغير الاسم الموجود فى الخليه C6 الى اى اسم موجود داخل الجدول وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى. ........................................... الدرس القادم. كيفية استخدام conditional formatting فى البحث وتظليل السطر الخاص بالخليه التى تطابق نطاق البحث

ربما. . . اقول ربما يتخيل احدهم اني إتكالي او اني انبطح كتمساح فاتح فاه ليدخله طعام. . . كلا. . لست ذلك قارنت بين هذا الفورم وغيره وغطست في الاكواﺩ محاولا الفهم كعصامي . . بيد انها اكواد تكشط تلافيف عقلي وارقتني ليال طوال . . . لكني اعلن هزيمتي وذلك ليس ضعفا انما هي قلة حيلة . . واني وجدتني ارد على نفسي. . . . وسيظل صبري يصاحبني رغم ان عدم اكتراثك استاذي يسهدني. . يؤرقني. . . يثير في قلبي الم يعصرني. . . او ان هذا سر لا يجب على من مثلي فك طلاسمه. . . . رغم كل شئ تظل استاذي وابقى ﻣﻤﺘﻦ

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

اخى جعفر دائما سباق الى الخير لا حرمنا الله منكم

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

طب سؤال يا خى الكريم هو الرقم واحد دا ثابت ولا متغير

اليك هذا الملف ممكن ان يساعدك انه يعمل بواسطةا المعادلا و بواسطة الكود اختر ما تريد فقط اضف الاسماء و النتيجة و سوف يذهب كل شيء الى مكانه ناجح راسب salim 1 2003.rar

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

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

الله ينور عليك هو ده المطلوب حبيبي

محمد القصود من كلامى هنا الاتى اولا هناك اكواد تقوم بتغيير حجم النموزج حسب مقاس الشاشه وهناك اكواد تقوم بتوسيط النموزد تلقائيا

شكراً استاذ ياسر الحمد لله تمام

أخي محمد الخازمي جبر التالي عله يكون المطلوب ....... Private Sub CommandButton1_Click() Range("D10:D13").Interior.Color = xlNone If ActiveCell.Address <> "$D$10" And ActiveCell.Address <> "$D$11" And ActiveCell.Address <> "$D$12" Then With Range("D10") .Select: .Interior.Color = RGB(128, 128, 128) End With ElseIf ActiveCell.Address = "$D$10" Then With Range("D11") .Select: .Interior.Color = RGB(128, 128, 128) End With ElseIf ActiveCell.Address = "$D$11" Then With Range("D12") .Select: .Interior.Color = RGB(128, 128, 128) End With ElseIf ActiveCell.Address = "$D$12" Then With Range("D13") .Select: .Interior.Color = RGB(128, 128, 128) End With End If End Sub تقبل تحياتي

تفضل اخى الكريم طلبك وبرضو جرب وقولى شرح بسيط كدا جعلت نماذج ارسال المرسلات غير منضمة فقط اضغط على زر الحفظ وسيلحق السجلات بالجداول المطلوبة مراسلات 4.rar

تفضل 12345_New4.rar

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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحيه طيبه وبعد الحمد لله على كل شئ فقد انتهينا من هذه السلسله من الدروس المتواضعه اتمنى ان يكون قد وفقنى الله فى الشرح مرفق ملف به التطبيقات على الاكسيل ابراهيم محمد ابراهيم ابوليله Em_acc@hotmail.com Em_acc@yahoo.com Em_acc@skype.com Conditional-Formatting.rar

لو ممكن شرح حضرتك عملتها ازاى عشان عايز اطبقها فى كذا شرط ............ شكرااااااااااا

السلام عليكم أخي العزيز أنت لم توضح جيدا إن كنت تقصد آخر يوم عمل في نصف السنة المالية السابق وآخر يوم عمل في السنة المالية السابقة أنظر المرفق مرة أخري 12345_New2.rar

تفضل اخي الملف تم تجهيزه بالتنسيق الشرطي الجزء الاول من المطلوب fouad.rar

اخي الفاضل محمود فؤاد جزاك الله خيرا

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

السلام عليكم بعد إذن أخي الحبيب / ياسر أنا فهمت المقصود أخي الكريم / توكل يمكنك إضافة دالة التقريب لرقمين عشريين مثلا في ثلاث مواضع في الكود كالتالي Sub dataselect() T = Round([D21], 2) ' Target Number 1 [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1 Sm = Cells(r, 2) For j = r + 1 To LR Sm = Sm + Cells(j, 2) If Round(Sm, 2) > T Then GoTo 10 '2 If Round(Sm, 2) = T Then GoTo 20 '3 Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهي طبعا Round(X, 2) حيث X هو الرقم المراد تقريبه كما لاحظت المواضع الثلاثة هي: T = Round([D21], 2) ' Target Number 1 .. .. .. .. If Round(Sm, 2) > T Then GoTo 10 '2 If Round(Sm, 2) = T Then GoTo 20 '3

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

في الخلية C2 ضع المعادلة التالية علها تفي بالغرض =IF(B2="","",IF(B2<1,0,IF(AND(B2>1,B2<200),5,IF(AND(B2>200,B2<420),9,IF(AND(B2>420,B2<625),12,IF(B2>625,15)))))) تقبل تحياتي

بارك الله فيك أخي الحبيب سليم جرب الكود التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$13" Then Application.Goto Reference:="R10C4" End If End Sub تقبل تحياتي

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد .................................................... ومازلنا مع conditional formatting ......................... اليوم سوف نقدم درسا جديدا فى كيفية المقارنه بين نطاقين وذلك عن طريق تلوين الخلايا المختلفه ........................................................ وذلك كما يظهر فى الصوره الاتيه وكما يتضح من الصوره ان محتوى الخلايا التى يتم تلوينها باللون الاصفر فى العمود B لا توجد ضمن العمود A ........................... ان محتوى الخلايا التى يتم تلوينها باللون الازرق فى العمود A لا توجد ضمن العمود B ................... ولمعرفة كيفية عمل ذلك ..................... قم بتحديد النطاق من a2:a14 ثم اتبع الشرح الاتى =COUNTIF($B$2:$B$14,A2)=0 ثم قم بتحديد النطاق من b2:b14 ثم اتبع الشرح الاتى =COUNTIF($A$2:$A$14,B2)=0 والان قم بتطبيق المثال على ملف من عندك ستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى.

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد .................................................... ومازلنا مع conditional formatting ......................... اليوم سوف نقدم درسا جديدا فى كيفية تلوين الخلايا على حسب الارقام المدخله بها ......................................... وذلك كما يظهر فى الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من a1:a10 ثم اتبع الشرح الاتى والان قم بتطبيق المثال على ملف من عندك ستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى.

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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد .................................................... ومازلنا مع conditional formatting ......................... اليوم سوف نقدم درسا جديدا فى كيفية استخراج الاسماء التى تتكرر فى نطاق معين وذلك بتلوينها ......................................... الطريقه الرابعه تلوين الاسماء التى تتكرر فى نطاق محدد (عدم تلوين الاسم الاول) ............................... وذلك كما يظهر فى الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من B3:B12 ثم اتبع الشرح الاتى =IF(COUNTIF($B$3:$B$12,B3)=1,FALSE,NOT(COUNTIF($B$3:B3,B3)=1)) الطريقه الخامسه تلوين اخر اسم يتكرر فى نطاق محدد ............................... وذلك كما يظهر فى الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من C3:C12 ثم اتبع الشرح الاتى =IF(COUNTIF($C$3:$C$12,C3)=1,TRUE,COUNTIF($C$3:C3,C3)=COUNTIF($C$3:$C$12,C3)) الطريقه السادسه والاخيره تلوين الاسم الغير متكرر فى نطاق محدد ............................... وذلك كما يظهر فى الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من D3:D12 ثم اتبع الشرح الاتى والان قم بتطبيق المثال على ملف من عندك ستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى.

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد .................................................... ومازلنا مع conditional formatting ......................... اليوم سوف نقدم درسا جديدا فى كيفية استخراج الاسماء التى تتكرر فى نطاق معين وذلك بتلوينها ......................................... الطريقه الثالثه تلوين الاسم الاول فقط والذى يتكرر فى نطاق محدد ............................... وذلك كما يظهر فى الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من A3:A12 ثم اتبع الشرح الاتى =IF(COUNTIF($A$3:$A$12,A3)=1,FALSE,IF(COUNTIF($A$3:A3,A3)=1,TRUE,FALSE)) والان قم بتطبيق المثال على ملف من عندك ستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى.

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد .................................................... ومازلنا مع conditional formatting ......................... اليوم سوف نقدم درسا جديدا فى كيفية استخراج الاسماء التى تتكرر فى نطاق معين وذلك بتلوينها ......................................... فى هذا الدرس سوف نقدم طريقتين الطريقه الاولى تلوين كل الاسماء التى تتكرر فى نطاق محدد ................................... كما يتضح من الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من A8:C12 ثم اتبع الشرح الاتى =COUNTIF($A$8:$C$12,A8)>1 الطريقه الثانيه تلوين الاسماء التى تتكرر فى نطاق محدد بناء على تحديد شرط عدد مرات التكرار فى الخليه E2 ................................... كما يتضح من الصوره الاتيه ولمعرفة كيفية عمل ذلك قم بتحديد النطاق من A1:C5 ثم اتبع الشرح الاتى =COUNTIF($A$1:$C$7,A1)=$E$1 الان قم بتطبيق المثال على ملف من عندك وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى.

يمكنك ذلك من خلال علامة التبويب بحث وتغير الخيارات لتشمل كالم الملف وليس الصفحة راجع الفيديو

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

وعليكم السلام اتبع هذه الخطوات (يختلف مكان الازرار حسب نسختك من الاكسس) ، عند النقر على 5 ، فان الاكسس سيفحص جميع مكونات برنامجك ، وسيقترح عليك ما يجب ان تفعله ، فإبدأ العمل على المقترحات ، وخصوصا على اقتراحات الفهرسة indexing وبس جعفر

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

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

السلام عليكم الاخ الكريم / إبراهيم ابوليله بارك الله فيك وهذا اخي الكريم ما تعلمناه جميعا من اساتذة وخبراء هذا الصرح وهو رد لجميلهم علينا جزاك الله خيرا

السلام عليكم الاخ الكريم / abdoullah بارك الله فيك وان شاء سيتم عمل ذلك في حينه في الموضوعات القادمة ( باذن الله ) جزاك الله خيرا