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

أساليب لنقل البيانات إلى برنامج Excel من Visual Basic‏ ادخل الى الصفحة من هنا لتقرأ الموضوع

أخى الحبيب ( محمود) بالنسبة للمعادلة الموجودة فى أخر مرفق لى قمت برفعة (vlookup مع أربع شروط ) هى معادلة صفيف وهنا نترك هذه الملحوظة الأن لأننا سوف نعود لها فى الشرح أولا - سبق وأن أوضحت لحضرتك مكون دالة ( vlookup ) وهى (table _array;lookup - value;col_index;range_lookup ) أى معادلة لابد لكى تحقق القيمة المطلوبة لابد وأن تقوم بجلبة تلك الشروط ونظرا لأن المعادلة التى نحن بصددها معادلة ( صفيف ) أى تتعامل مع عدد من البيانات سواء عمود أوجدول فهى تقوم بتوليد مجموعة من البيانات وتقوم بمقارنتها بالشرط المطلوب فإذا لم يصادفة فى المدى يعود بالقيمة ( false ) أو ( 0 ) أما إدا وجده ضمن المدى فيعود بالقيمة ( true ) أو (1) وهكذا ....... دعنا الأن نعود إلى الدالة التى نحن بصدد شرحها ودعنا نرى شكلها ومحتواها الداخلى وفقا لهذا التحليل: ستجدها كالأتى: =VLOOKUP($F$1;IF(({"Omar Effendi";"Sednawy";"Shamla";"Mahalla El Kobra"}=$F$1)*({"Medium";"Large";"Medium";"Large"}=$H$1)*({"men";"women";"baby";"men"}=$I$1);$A$2:$E$5;"");5;FALSE) وهذا الشكل يوضح ماقمت بإيضاحة فالنمسك الشرط الأول عل سبيل المثال تجد إننى عندما قمت بإختيار مثلا محل ( شملا ) فقد ولدت صفيف محتواة (عمر أفندى، صيدناوى،شملا، المحلة الكبرى ) ونظرا لأن الشرط الذى إخترتة من القائمة المنسدلة هو ( شملا ) ستجد أنه عندما تقابل أى شرط داخل الصفيف غير ماقمت بإختيارة ستعطى ("" ) إلى أن تقابل شملا فتعطى (1) أى سيكون الصفيف هكذا { ""; "Shamla"; ""; ""} فيعطى ( true ) أولايصادف أى قيمة ويكون { ""; ""; ""; ""} ويعطى ( false ) وهكذا بالنسبة لباقى الشروط وأرجو أن يكون التوضيح به شئ يفيدك تقبل تحيات : أخيك

بارك الله فيك فكرة لا باس بها

الأستاذ الفاضل / عبد السلام الزاوي السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ / عطاء الله . جزاه الله خيراً على حله. و إليك المطلوب بعد أن طبقت معادلة الأن تعلمتها من أستاذنا العبقري الفذ / يحيى حسين.جزاك الله خيراً . وجعل جميع أعماله في ميزان حسنانه وزاده الله من فضله وعلمه. المجال1.rar

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

فكر جميل ورائع وبالتوفيق ان شاء الله

فكرة جميلة ... وننتظر منك المزيد من الابداعات والتصميمات الجديدة وفقك الله تقبل خالص تحياتي

السلام عليكم اخي الحبيب عباس السماوي ...........حفظكم الله غير هذا الكود وسيتعامل مع معادلات الصفيف Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long) Dim Col As Range Dim R As Long '======================== For Each Col In MyRng.Cells If Col.HasFormula Then For R = iRow To Lastrow With MyRng.Worksheet If Col.HasArray Then .Cells(R, Col.Column).FormulaArray = Col.FormulaR1C1 Else .Cells(R, Col.Column).Formula = Col.FormulaR1C1 End If .Cells(R, Col.Column).Value = .Cells(R, Col.Column) End With Next R End If Next '======================== Set Col = Nothing End Sub تحياتي

أخي الحبيب ا/ حمادة عمر جمعة مباركة بارك الله فيك وجزاك خيرا اللهم أنصر الإسلام وأعز المسلمين وإدحر الشرك وأذل المشركين اللهم من أراد بالإسلام والمسلمين خيراً فأجن الخير على يديه ومن أراد بالإسلام والمسلمين شراً فإجعل الدائرة عليه ورد كيده في نحره اللهم أنصر المسلمين في كل مكان واهلنا في مصر و سوريا اللهم أحقن دماءهم وإحفظهم وأعد لهم الأمن والأمان والإستقرار يا رب العالمين