سؤال للمتخصصين والمحترفين من اخوكم المبتدىء في دالة vlookup

[اوفيس 2003]

الملف موضح فيه ما اريد برجاء المساعدة وعمل ما طلبته منكم وجزاكم الله كل خيـــــــــــــــــــر

vlookup_____.rar

[عادل حنفي]

السلام عليكم

اخي لقد قمت بتغير الداله الvlook2ALL

وهي من اعمال الاخ الحبيب ابو تامر

و هي اشمل وقمت باخفاء الصفحة التي بها البيانات

اضافه الي عمل باسورد للخليه التي ستظهر النتيجه

و الباسورد هو 11

تحياتي

vlook2ALL.rar

تم تعديل أغسطس 17, 2008 بواسطه aah_aah2008

[اوفيس 2003]

مشكور اخي الغالي واكثر من رائع ولكن لي طلب لو تكرمت

ممكن شرح اكثر للدالة لأستخدمها بصورة اكبر واوسع

حيث وجدت ان الدالة هي

=VLOOK2ALL(DATA;E6;1;2)

هل هي مكتوبة بكود فيجوال ام دالة عادية

ياليت لو تشرح لي الدالة اكثر اي محتوياتها يعني مثلا ماهي التي تقصد بها
DATA


وسؤالي الأهم وهو

اريد ان اعمل العكس يعني ادخل القديم يعطيك الجديد انت سويت ادخل الجديد يعطيك القديم

وجزاك الله كل خير

تم تعديل أغسطس 18, 2008 بواسطه office 2003

[عادل حنفي]

السلام عليكم

اخي العزيز

بالنسب لــ Data فهو مدي تحدده انت و تسميه اي تسميه مثل Data

وذلك بتحديد عدد من الخلايا و الذهاب الي insert ثم Name ثم Define

ستجد ان الخلايا التي حددتها مكتوبه في الفورم الذي ظهر لك في الخانه السفليه

اما في الخانه العلويه اكتب الاسم الذي تريده و اضغط ok وبهذا قد قمت بعمل مدي يمكنك استدعاؤه في اي مكان

اما بالنسبه لشرح VLOOK2ALL فلا شرح بعد شرح استاذنا ابو تامر وهذا يوصلك له

دوال مستحدثه

تم تعديل أغسطس 18, 2008 بواسطه aah_aah2008

[اوفيس 2003]

جزاك الله كل خير اخي الغالي

وبارك الله فيك انتي واخي ابو تامر

ولو تكرمت اخي الغالي ايضا لم تجاوبني على نقطة لو اردت ان اعمل العكس كيف لي ان اقوم بذلك

وسؤالي الأهم الأن كيف لي ان اثبت الدالة هذه على الإكسل على طوول 2003 حيث اني عندما استدعيها تكون مرتبطة بالملف اللي ارسلته حيث انني اقوم بتنفيذها على ملف اخر جديد وعندما ادخل ابحث عن الدالة هذه اجدها واسمها يكون مرتبط بالملف اللي ارسلته وبالتالي لو اغلقت هذا الملف تلغى الدالة كيف لي ان اثبت الدالة على اي ملف وفي اي مكان الله يبارك فيك

تم تعديل أغسطس 21, 2008 بواسطه office 2003

[عادل حنفي]

السلام عليكم

اخي العزيز

لم تجاوبني على نقطة لو اردت ان اعمل العكس كيف لي ان اقوم بذلك

ارسلت لك ملف باجراء العكس ارجو ان يكون المطلوب

كيف لي ان اثبت الدالة هذه على الإكسل على طوول 2003

ارسلت لك ملف اخر

فك ضغطه في اي مكان تريد و قم بفتح ملف اكسل حتي لو جديد و من شريط الادوات

اختر Tools و منها اختار Add-in و اضغط علي زر Browse وحدد الملف الذي قمت بفك ضغطه علي الهارد

ثم اضغط OK بهذا عندما تفتح اي ملف اكسل ستجد الداله مرفقه به ان شاء الله

تحياتي

vlookup_____.rar

vlook2ALL.rar

تم تعديل أغسطس 22, 2008 بواسطه aah_aah2008

[اوفيس 2003]

جزاك الله كل خير اخي الغالي على تعبك معي والله عمل اكثر من رائع

ولي طلبات اخرى ليكتمل ما اريد في الملف

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

* اريد طريقة لأجعل الصفحة الأولى هي البداية دائما

* ما يهمني هو اخفاء شريط المعادلات تماما عن الظهور والرؤية والنسخ واللصق

* هل هناك برنامج او طريقة لعمل كل ما طلبته بتحويل الملف الى صيغة اخرى او ما شابه ذلك

* هل هناك طريقة لعمل حقوق البرنامج او النسخ محفوظة بحيث لا تفتح الا بواسطه صانع البرنامج

اشكرك واسف على ازعاجك اخي الغالي

[اوفيس 2003]

في انتظارك اخي الغالي ولي طلب اخي


انا اريد ان اعرف ازاي اثبت هذه الدالة على الملف اللي عملته انا الأن نقلتها في العمل بعد ان ظبطت الملف ولكن فوجئت في العمل بعدم عمل الدالة Vlook2all
لأنها غير موجودة في البرنامج

انا اريد اي احد انقل اليه الملف تعمل لديه الدالة على طول وكأنها دالة موجودة في البرنامج

[عادل حنفي]

السلام عليكم

اخي العزيز

بالنسبة لاخفاء شريط المعادلات فهذا الكود لاخفاؤه

Application.DisplayFormulaBar = False

وهذا كود اظهاره

Application.DisplayFormulaBar = True

و بالبحث في الموقع ستجد الكثير عن حماية الملف حاول و اخبرني بالنتيجة بالنسبة لكي يعمل الملف معك في اي مكان يجب اتباع اي من الطريقتين..... الطريقة الاولي افتح الملف التي تريد نقل الداله اليه في بيئة عمل فاجوال باسيك اعمل insert mdoule وانقر عليه مرتين لفتح محرر الكود الخاص به و الصق هذا الكود

Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)
For x = 1 To جدول_البيانات.Rows.Count
    If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then
        Counter = Counter + 1
        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For
    End If
Next
End Function

الطريقة الثانية

قم بنقل الملف (عن طريق فلاشه مثلا) الذي ارسلته لك سابقا الي العمل في المشاركه رقم 6 و يتم اتباع نفس الطريقة المشروحة فيها

تم تعديل أغسطس 26, 2008 بواسطه aah_aah2008

[اوفيس 2003]

جزاك الله كل خيـــــــــر

لو تكرمت اين اضع الأكواد اللي وضعتها خاصة بالإخفاء ياليت تشرحلي مفصلاً

ولقد بحثت في المنتدى لم اجد ما اريد ياليت لو تعرف تدلني او تشرح لي انت الله يبارك فيك

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

على فكرة اخي انت اول ما ارسلت لي ملفك به الدالة لم اقوم بأي من الطريقتين وعلى ذلك الدالة كانت مطبقة

كيف تم هذا

اعذرني لكثرة الأسئلة ولكني اريد ان افهم هذه النقطة لأن هذه الدالة مريحة لي في عملي

[عادل حنفي]

السلام عليكم

اخي

لو تكرمت اين اضع الأكواد اللي وضعتها خاصة بالإخفاء ياليت تشرحلي مفصلاً

ارسلت لك ملف يشرح ذلك

بالنسبه لعمل الداله

يجب ان تختار بداية باي من الطريقتين تعمل

و اقترح تصميم البرنامج من البدايه في المكان الذي ستعمل علية من البدايه

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

على فكرة اخي انت اول ما ارسلت لي ملفك به الدالة لم اقوم بأي من الطريقتين وعلى ذلك الدالة كانت مطبقة

طبعا ستكون مطبقه لان الداله مرفقه مع الملف

تحياتي

Hide_formula.rar

[sayied99f]

شرح جميل ورائع اخى فى الله ونرجوا المزيد