اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. محمد طاهر عرفه

    محمد طاهر عرفه

    إدارة الموقع


    • نقاط

      8

    • Posts

      8,486


  2. عبد اللطيف سلوم

    عبد اللطيف سلوم

    06 عضو ماسي


    • نقاط

      3

    • Posts

      1,861


  3. سيمو العازف

    سيمو العازف

    عضو جديد 01


    • نقاط

      2

    • Posts

      40


  4. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      2

    • Posts

      3,490


Popular Content

Showing content with the highest reputation on 14 نوف, 2017 in all areas

  1. لا كلام بعد كلام الاستاذ ابو احمد لكن كـ مُداخلة بسيطة، انا عن نفسي اميل دائماً لاستخدام WINDOWS API'S لانها الاسرع تنفيذا بالذاكرة. يمكنك استخدام دالة ( GetAsyncKeyState ) Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long Const VK_LEFT As Long = &H25 Const VK_RIGHT As Long = &H27 Const VK_DOWN As Long = &H28 Const VK_UP As Long = &H26 Const VK_SPACE As Long = &H20 الاستدعاء: Do If GetAsyncKeyState(VK_LEFT) <> 0 Then MsgBox "Hello!" Exit Do End If Loop اذا اردت المزيد من الازرار يمكنك الاطلع على ستركشرات الدالة: Const VK_LBUTTON = &H1 Const VK_RBUTTON = &H2 Const VK_CANCEL = &H3 Const VK_MBUTTON = &H4 Const VK_BACK = &H8 Const VK_TAB = &H9 Const VK_CLEAR = &HC Const VK_RETURN = &HD Const VK_SHIFT = &H10 Const VK_CONTROL = &H11 Const VK_MENU = &H12 Const VK_PAUSE = &H13 Const VK_CAPITAL = &H14 Const VK_ESCAPE = &H1B Const VK_SPACE = &H20 Const VK_PRIOR = &H21 Const VK_NEXT = &H22 Const VK_END = &H23 Const VK_HOME = &H24 Const VK_LEFT = &H25 Const VK_UP = &H26 Const VK_RIGHT = &H27 Const VK_DOWN = &H28 Const VK_SELECT = &H29 Const VK_PRINT = &H2A Const VK_EXECUTE = &H2B Const VK_SNAPSHOT = &H2C Const VK_INSERT = &H2D Const VK_DELETE = &H2E Const VK_HELP = &H2F
    2 points
  2. نظرا لمعاناة الكثيريين من الزملاء فى جلب الصورة عن طريق المعادلة رغم محاولة تبسيطها من قبلى إلا أننى لاحظت أن الكثيرين لازالوا يعانون من جلب الصورة عن طريق المعادلة ونظرا لحاجة الكثيرين لهذا الأمر فى مجالات عدة رأيت محاولة تبسيطها أكثر لتكون أكثر أستخداما وأسهل فى التعامل وبنائا على طلب أحد الزملاء أقدم هذه الطريقة حيث لم يتم إستخدام معادلات إلا معادلتان فقط أحدهما لجلب الصورة وهى دالة ( indirect ) وتستخدم بشكل مباشر دون تعقيد ودالة ( index ) وذلك لربط أسم الصورة بالرقم ( حتى يتسنى للكثيرين تغييرها بنائا على رقم أوكود كطلب الكثيريين ) والأن إلى المرفق الذى أتمنى أن يكون على قدر قيمة هذه الصرح ( أوفيسنا ) وأن يحقق طلب إخوتى فيه جلب الصور بطريقة بسيطة.rar
    1 point
  3. يرجى تسمية الأقسام الجديدة التي ترون انه من المفيد أضافتها للموقع هذه بعض المقترحات التي وردتنا سابقا ، برجاء ابداء الراي : ملاحظة ليس بالضرورة اضافة كل ما سيرد ، و ليكن سيتم بحث الأمر باذن الله و اختيار ما يناسب الموقع فى الوقت الحالي مع تلبية الرغبات الواردة قدر المستطاع قسم للبحث العلمي و به الأقسام التالية: - مناهج البحث العلمي - علم الاحصاء - SPSS - R & ORange قسم للغات البرمجة .net العام - VB.net - C#.net - C++.net - Python - Delphi - VB6 تطبيقات الويب - PHP - Java Script - My SQL دعم منديات الاي بي قسم للدعم الفني للشبكات و انظمة التشغيل - أنظمة الويندوز - اللينكس - الشبكات الأمن و الجماية قسم للرسوميات و الوسائط المتعدد - ادوب فوتوشوب - ادوب ديزياين - ادوب اليستراتور - أتوكاد 3 دي ماكس
    1 point
  4. السلام عليكم طلب مني مدير مدرستي برنامج للغياب للزملاء المعلمين من باب العلم لا يحتكر اقدم لكم هذا البرنامج هدية وتستطيعون التعديل عليه بما يتناسب معكم اذا موظفين شركة عدل الرقم الوزاري برقم تلقائي teacher20171.rar
    1 point
  5. شكرا لك ضبطت معي الان فعلا منقوطة
    1 point
  6. تم عمل ھذا فانكشن Public Function Sh(NuKind As Integer, Ser As Integer, Trav As Integer, HousValDult As Currency, HospValDult As Currency, _ BusTicValDult As Currency, VisaVal As Currency, SpecialDisc As Double, FligTicValDult As Currency, _ HousValChlid As Currency, HospValChlid As Currency, BusTicValChlid As Currency, FligTicValChlid As Currency, _ HousValBaby As Currency, HospValBaby As Currency, BusTicValBaby As Currency, FligTicValBaby As Currency) If Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValDult, 0) + Nz(BusTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Sh = Nz(BusTicValDult, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Sh = Nz(FligTicValDult, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Sh = (Nz(BusTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Sh = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 Then Sh = (Nz(HousValDult, 0) + Nz(HospValDult, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 8 Then Sh = Nz(HousValDult, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValChlid, 0) + Nz(BusTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Sh = Nz(BusTicValChlid, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Sh = Nz(FligTicValChlid, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Sh = (Nz(BusTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Sh = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 Then Sh = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 8 Then Sh = Nz(HousValChlid, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then Sh = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then Sh = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then Sh = Nz(BusTicValBaby, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then Sh = Nz(FligTicValBaby, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then Sh = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then Sh = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 6 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 7 Then Sh = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) = 3 And Nz(Ser, 0) = 8 Then Sh = Nz(HousValBaby, 0) - Nz(SpecialDisc, 0) ElseIf Nz(NuKind, 0) Then Sh = 0 Else Sh = "" End If End Function وتم استدعائه في الاستعلام هكذا Expr1: sh(Nz([Num_kind];0);Nz([service];0);Nz([Travel];0);Nz([housing_Valueadult];0);Nz([hospitality_Valueadult];0);Nz([Bus_ticket_valueadult];0);Nz([Visa_value];0);Nz([SpecialDiscount];0);Nz([Flight_ticket_valueadult];0);Nz([housing_Valuechild];0);Nz([hospitality_Valuechild];0);Nz([Bus_ticket_valuechlid];0);Nz([Flight_ticket_valuechild];0);Nz([housing_Valuebaby];0);Nz([hospitality_Valuebaby];0);Nz([Bus_ticket_valuebaby];0);Nz([Flight_ticket_valuebaby];0)) لكن هناك ملاحظة اذا ماكان على الخطأ ايجب ان نعمل ضرب الناتج في حقل ديسكونت لان حقل ديسكونت هو نسبة مئوية لكن انت عملت عملية ناقص اتفضل مع القاعدة test.rar
    1 point
  7. اخي العزيز حاول وضع صورة اخرى او من مكان اخر ستعمل معك و يجب ان تكون امتداد jpg الفورم.rar
    1 point
  8. السلام عليكم اهداء لهذا المنتدى الرائع سبحان الله متحركة الكود المستخدم ....... عند عداد الوقت 1500 ...... If Me.NewRecord Then DoCmd.GoToRecord , , acFirst Else DoCmd.GoToRecord , , acNext End If سبحان الله1.rar
    1 point
  9. اخي سلوم يبدوا ان الخطأ يظهر حين تغادر التفاصيل بدون ادراج بيانات او بعد الحذف والخروج ، وهذه امور فنية وهي لا شك بحاجة الى وضع لتجاوز مثل هذه الرسائل والاخطاء اخي محمود هذا السطر هو المسؤول عن جلب الرصيد ويمكنك توظيفه في اي مكان : textRseed = Nz(DLookup("Rseed", "QryArsedh", "ID_fGnt=" & Me.ID_fGnt), 0) بشرط وجود رقم العميل في الفورم او التقرير وعلى فكرة .. يجب قبل اختبار المشروع ادراج بيانات وافية وكافية وصحيحة مثلا في المثال السابق اضطررت لتصحيح البيانات ، فانتم رفعتوا المثال وهو يحتوي على بيانات غير منطقية ، فكيف يتم بيع اجهزة لم يتم شراءها بعد ؟ طبعا مثل هذه الامور بحاجة الى ضبط مسبق لا يكون للمستخدم تدخل فيه بحيث لا يمكنه بيع سلعة غير موجودة على كل حال انتظر محاولاتكم في الاستفادة والتعديل والتطوير فانتم مبرمجين وكل من يمر من هنا معكم وما زلنا نتعلم
    1 point
  10. المطلوب على ما يبدو هو ايحاد المجموع لكل صنف سواء مع مراعاة معايير اخرى مثل اللون و الرسم و ذلك قدم الاكسيل حلول متعددة لعمل ما قد يفي بالمطلوب و تم ايراد امثلة كثير عليها ، يمكنك استخدام خاصية البحث للوصول اليها و هي دالة Sumif دالة Countifs Consolidation Pivote Tables
    1 point
  11. بالنسبة للحل بالمعادلات جرب الملف المرفق ( المعادلة لم تكن منسوخة لكافة الخلايا) جرب فى الصفوف الاولي Store-Monitor.rar
    1 point
  12. 1 point
  13. الخلية التي قمت باختيارها كمعيار يظهر بها January-2018 لأربعة قيم و لكنها فى الحقيقة قيمتان للأول من يناير و هما التي يتعرف عليها المعادلة اما الخامس و السادس فلا تحتسب لانها قيم مختلفة و ان ظهرت بنفس التنسيق احد الحلول هو حساب الشهر و السنة كما فى المرفق سجل أداء.zip
    1 point
  14. اولا ستحدد جزء التفصيل وبعدين في الخصائص ستغير اللون لخاصیة Alternate Back Color كما مبينة في الصورة اللون البديل.rar
    1 point
  15. اخواني الاكارم السلام عليكم ورحمة الله وبركاته يوجد لدي ملف به عدة اسماء مفروزه حسب الاسم، الاسماء بعضها مكرره وبجانبها المبلع. المطلوب بارك الله فيكم جميع هذه المبالغ لكل اسم مكرر على حدى، اي في نهاية كل اسم متشابهه يوضع المجموع في سطر مستقل. مع تحياتي جمع كل مبالغ اسم متشابهه على حدى في نهاية الاسم.rar
    1 point
  16. اخي ابوعمرة السلام عليكم ورحمة الله وبركاتة لقد قمت بعمل برنامج بسيط حول ماطلبتة يمكن عمل اضافات علية وتعديلات ارجوا ان تستفيد منة وتجد فية ماتبحث عنة Truck.zip
    1 point
  17. هذا كود بسيط لتوزيع القيمة أفقيا علي مجموعة من الخلايا بالتساوي اكتب رقم فى أي خلية شغل الماكرو سيسأل عن عدد الخلايا المطلوب التوزيع عليها نفذ مفيد لمن يقومون بالتدفقات النقدية المتساوية مع تحياتي DistributeEqual.rar
    1 point
  18. قم بوضع بيانات الطلبة فى ورقة عمل و قم بتصميم الشهادة فى الاخري ثم قم باستدعاء البيانات بناء علي رقم الطالب باستخدام الدالة vlookup و يوجد عليها فى قسم خلاصة المشاركات عدة أمثلة و مرفق مثال علي ما تريد و بصفة عامة فان الدالة تحوي 3 أجزاء أساسية و واحد خياري الاول للقيمة التي تبحث عنها و الثاني لمجال البحث و الثالث لرقم العمود المطلوب اعادته من مجال البحث و الرابع خياري و هو يعبر عن تصرف الدالة فى حالة عدم وجود القيمة التي نبحث عنها فى المجال ، هل تعيد البيانات المناظرة أقرب قيمة لها أم لا ، و هنا فى المثال سيكون المطلوب هو "لا" طبعا و لذلك وضعنا الجزء الرابع = False و القيمة الافتراضية لها هي True أي ما تعتبره الدالة عند عدم تسجيل الجزء الرابع فى المعادلة vlookup4.rar
    1 point
  19. السلام عليكم اسمحوا لي بالمشاركة معكم بإضافة فكرة أخرى لعمل الرصيد . تحياتي . Rased2.zip
    1 point
  20. مرفق مثال لدفتر البنك يقوم يالاتى :- 1- امساك دفتر لحركات البنك و اظهار الرصيد الدفترى 2- مراجعة المعملات على كشف الحساب المصدر من البنك 3- حصر الفروق بين المقيد بالدفتر و الوارد بكشف الحساب تمهيدا لاعداد مذكرة التسوية و ذلك من خلال استخدام الفلاتر و معدلات النطاق او المصفوفة bank.zip
    1 point
  21. فى المثال المرفق ثلاث طرق للتحكم فى البيانات المدخلة الأولي بالكود و هنا يتم التحقق من أن البيانات المدخلة فى الخلية d2 لابد أن تبدأ ب FGK Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Left(Range("d2").Value, 3)) <> "FGK" Then MsgBox "Not Accepted Entry, should start with FGK" Range("d2").Value = "FGK" Exit Sub End If End Sub و الثانية عن طريق معادلة if الشرطية و اظهار النتيجة فى الخلية المجاورة و الثالثة عن طريق أمر Validation من قائمة data و عليه يوجد 3 امثلة الاول للتحكم بان الرقم بين 10 و 100 و الثاني لأن النص لا يزيد عن 5 حروف و الاخير لان الرقم أقل من 1000 و فى الاخير تم استخدام خاصية الرسالة التي تظهر عند الوقوف فى الخلية و تغيير رسالة الخطأ و ذلك ايضا من امر validation من قائمة data Validation.zip
    1 point
  22. مرفق ملف به عدد 2 ماكرو الاول يسألك عن رقم اللون ، ثم يختار الخلايا التي بها اللون المناظر و الثاني يعرض لك الالوان و ارقامها بدءا من الخلية الفعالة Sub Find_By_foramt() reask: On Error GoTo errnumb Dim x As Byte x = InputBox("Enter the Color index", "enter color index", 4) errnumb: If Err.Number = 13 Then MsgBox "Type Mismatch, choose a number between 0 and 56" End If 'MsgBox Str(Err.Number) + " : " + Err.Description If IsNull(x) Or x > 56 Or Not IsNumeric(x) Then MsgBox " choose a number between 0 and 56" GoTo reask ' Exit Sub End If Dim Myrow As Long, MyCol As Long Myrow = Selection.Rows.Count MyCol = Selection.Columns.Count Mycells = Selection.Cells.Count Dim MyMatrix() As String, Myind As Long 'Dim myMultipleRange As Range, Mytemp As Range ReDim MyMatrix(Mycells) ' to overcome ubsidedown selection 'Dim myr As Range 'myr = ActiveSheet.Selection Selection.Cells(1, 1).Select Selection.Cells(1, 1).Activate 'myr.Select Myind = 0 For i = 0 To Myrow - 1 For j = 0 To MyCol - 1 If ActiveCell.Offset(i, j).Interior.ColorIndex = x Then Myind = Myind + 1 MyMatrix(Myind) = ActiveCell.Offset(i, j).Address End If Next j Next i If Myind = 0 Then Exit Sub Dim mm As String mm = MyMatrix(1) & "," For i = 2 To Myind - 1 mm = mm & MyMatrix(i) & "," Next If Myind > 0 Then mm = mm + MyMatrix(Myind) + "" Range(mm).Select End Sub Sub Listcolors() ActiveCell.Offset(0, 0).Value = "ColorIndex" ActiveCell.Offset(0, 1).Value = "Color" For i = 1 To 56 ' Selection.Cells.Count ActiveCell.Offset(i, 0).Value = i ActiveCell.Offset(i, 1).Interior.ColorIndex = i Next i End Sub SelectByCellColor.rar
    1 point
×
×
  • اضف...

Important Information