ارجو المساعده بمعادله او كود لتحويل الصفوف الى اعمده

[إبراهيم ابوليله]

الاخوه الكرام

تحيه طيبه وبعد

اريد تحويل الصفوف الى اعمده

دفتر نقل.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال....

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

أخوك بن علية

دفتر النقل.rar

[رجب جاويش]

كل الشكر والتحية للأستاذ / بن عليه

ولإثراء الموضوع

هذا كود آخر فى حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [B8:B14]) Is Nothing Then

[B1:V1].ClearContents

Dim cl As Range

ReDim Arr(1 To 21) As String

T = 1

For Each cl In [B8:B14,C8:C14,D8:D14]

    If cl.Value <> "" Then

	    Arr(T) = cl & Cells(7, cl.Column)

	    T = T + 1

    End If

Next

ii = 2

For Each c In Arr

    If c <> "" Then

	    Cells(1, ii) = c

	    ii = ii + 1

    End If

Next

End If

End Sub

دفتر نقل2.rar

[جمال عبد السميع]

بعد إدن أساتذتي العظام هذا حل بدالة ( vlookup )

أتمني أن يثري الموضوع

دفتر النقل 2.rar

دفتر النقل 3.rar

[اوفيس 2003]

ممكن شرح مبسط للفرق بين دالة Vlookup ودالة lookup وكل العائلة الخاصة بها

[إبراهيم ابوليله]

الاخ بن علية

الاخ رجب

الاخ محمود

بارك الله فيكم جميعا حلول رائعه جدا

[إبراهيم ابوليله]

الاخ بن عليه

الاخ رجب

ارجو المعزره على الاطاله

ولكنى لم اريد ايضا

استخراج المبالغ الموجوده بدايه من الخليه G18 الى K

فى الخلايا من B2الى الاخر

اى فى السطر الملون باللون الازرق

ولقد حاولت ان اقوم بذلك بنفسى فلم استطع

بارك الله فيكم

دفتر النقل.rar

[جمال عبد السميع]

أخي أهم الفروق بين دوال ( hlookup-vlookup-lookup ) هي ببساطة كالآتي:

hlookup:

البحث في الصف العلوي للصفيف وإرجاع قيمة الخلية المشار إليها إستخدم hlookup أما

VLOOKUP عندما تكون قيم المقارنة موجودة في عمود إلى يسار البيانات التي تريد البحث عنها

أما الدالة ( lookup ):

البحث عن قيم في إتجاه أو صفيف يوجد للدالة LOOKUP نموذجان لبناء الجملة متجه أو صفيف يبحث نموذج المتجه لـ LOOKUP في نطاق من صف واحد أو نطاق عمود واحد (يعرف بالمتجه) لقيمة وإرجاع قيمة من نفس الموقع في نطاق من صف واحد أو نطاق من عمود واحد يبحث نموذج الصفيف LOOKUP في الصف أو العامود الأول عن القيمة المحددة و يتم إرجاع قيمة من نفس الموقع في الصف أو العامود الأخير للصفيف .

والصيغة العامة لها :

(lookup_value;lookup_vector;result_vector)LOOKUP=

متحولاته

Lookup_value (قيمة_البحث) = القيمة التي يبحث عنها LOOKUP في المتجه الأول يمكن أن تكون Lookup_value رقما أو نصا أو قيمة منطقية أو اسما أو مرجعا يشير إلى قيمة

Lookup_vector (متجه البحث) = النطاق الذي يحتوي على صف واحد أو عمود واحد فقط يمكن أن تكون lookup_vector نصا أو أرقاما أو قيما منطقية

Result_vector = النطاق الذي يحتوي على صف أو عمود واحد فقط يجب أن يكون بنفس حجم lookup_vector

ملاحظة هامة جدا علي الدالة:

يجب وضع القيم في ال lookup_vector بترتيب تصاعدي ...، -2، -1، 0، 1، 2، ... أ إلى ي

[بن علية حاجي]

السلام عليكم ورحمة الله

تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال....

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

أخوك بن علية

دفتر النقل.rar

تم تعديل أغسطس 7, 2012 بواسطه بن علية حاجي

[جمال الفار]

بسم الله ما شاء الله حلول رائعه

بارك الله فيكم جميعا

مكن شرح فيديو بالعربى للدلة Vlookup ودالة lookup وhlookup

للاخoffice 2003

وقد وضعتها على الرابط ميديا فاير وفور شيرد

http://www.4shared.com/rar/MTI410K0/_online.html

اخيكم

جمال الفار

[جمال عبد السميع]

ماشاء الله أستاذي ( جمال الفار ) مجهود رائع وعمل عظيم جزاك الله خيرا عنا جميعا

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

[إبراهيم ابوليله]

الاخ بن علية بارك الله فيك

[إبراهيم ابوليله]

الاخ رجب

ارجو منك عمل المطلوب كما فعله الاخ بن عليه

ولكن بالكود الخاص بك

بارك الله فيك

[رجب جاويش]

تفضل أخى

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [G18:K51]) Is Nothing Then

Dim LR As Integer, cl As Range

Application.ScreenUpdating = False

Range("2:2").ClearContents

ReDim Arr(1 To 170) As Integer

T = 1

For Each cl In [G18:G51,H18:H51,I18:I51,J18:J51,K18:K51]

	    Arr(T) = cl

	    T = T + 1

Next

ii = 2

For Each c In Arr

	    Cells(2, ii) = c

	    ii = ii + 1

Next

Application.ScreenUpdating = True

End If

End Sub

دفتر النقل.rar

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

ولكنى اطمع فى ضم الكودين معا

وذلك لاستخراج الاسماء والمبالغ معا

[رجب جاويش]

تفضل أخى

دفتر النقل.rar

[إبراهيم ابوليله]

الاخ رجب

عمل رائع

وبارك الله فيك