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

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


الردود الموصى بها

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

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

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

أخوك بن علية

دفتر النقل.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

رابط هذا التعليق
شارك

الاخ بن عليه

الاخ رجب

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

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

استخراج المبالغ الموجوده بدايه من الخليه 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

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

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

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

مكن شرح فيديو بالعربى للدلة 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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information