ابولمى

شكراً جزيلا للجميع

اريد فعل ذلك بدون VBA هل يوجد طريقة فعاله غير الطريقة اليدوية يهمني الترتيب مثلاً جميع المعادلات في ورقة2 لا يتم حسابها الا بعد حساب الورقة1 المثال الاتي في الورقة1 في الخلية A1=5+8 وفي الورقة 2 في الخلية A1=9+9 انا أريد حساب الورقة1 قبل الورقة2 وشكراً جزيلا

السلام عليكم ورحمة الله اخواني ممكن تقولون لي مااسم هذا الاتصال بين اكسيل والبرنامج الآخر .. انتم لكم فضل كبير علي بعد الله في تعلم برمجة اكسيل والاقتراب من الاحتراف واكتشفت انني أستطيع التلاعب في هذا الاتصال ولكن احتاج للتعلم عليه قبل اي شي والاتصال يكون فقط بنسخ البيانات من البرنامج الاخر ولصقها في اكسيل وتتحدث مع المصدر ماذا يسمى هذا الاتصال وشكراً

جزاك الله خير اخي علي واعتذر فعلا كان يفترض ان استخدم البحث

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

كيف اجعل الكود يعمل مره في اليوم فقط ارجو المساعده

اخي شكرا لتجاوبك ..لكن انا اقصد الناتج الظاهر في locals window وتم تغيير اسم المستخدم كما طلبت اخي العزيز :)

اخواني احاول قسمة هذا الرقم 837987 على هذا الرقم 11773501 وعند تنفيذ الكود يعطيني نتيجه خاطئه!!كما يظهر لي في نافذة اللوكالس 7.11756851254355E-02 وهذا هو الناتج الصحيح 0.071176 اتمنى مساعدتي في حل هذه المشكله

اخي ياسر ..انا اقصد كيف اكتب متغير بي اكبر من متغير سي بـ2% يعني لو قيمة متغير سي 20 فيكون متغير بي اكبر من متغير سي بـ 04. if c >b by 2% then c=c+b

كيف اكتب لو المتغير b >c ب2% حاولت ولم استطيع ياليت احد من الاخوه يعطيني الصيغه

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

يعني فرضا لدي في عمود "b" عدد من الخلايا من 1 الى 100 وتحتوي على ارقام عشوائيه واريد ان استخرج المتوسط بدون استخدام وورك شيت فنكشن لانني احتاج هذه الطريقه في كود اكثر تعقيدا..اتمنى مساعدتي مع الشكر مقدما

بارك الله فيك موضوع مميز ويستحق المتابعه

أخي الكريم يبدو أن البيانات الكثيرة هي السبب ممكن ترفق ملف كنموذج للشكل العام للمصنف الأصلي .. لمحاولة فهم الموضوع بشكل أعمق كما يرجى التوضيح للمطلوب ... طبعاً ثلاثة حلقات تكرارية مع وجود بيانات كثيرة بالملف يعد كارثة .. عموماً في انتظار إرفاق نموذج من المصنف يكون معبر عن الملف الأصلي تقبل تحياتي اخي ياسر شكرأ لتفاعلك لقد تم حل المشكلة بدالة on error resume next لكن لدي مشكلة اخرى وهي ان دالة if تختبر فقط شرط الاكبر من او يساوي وتتخطى الشرط الآخر

للرفع لعل احد الخبراء يحل المشكله طبعا البيانات في عمود g بالملايين في كل خليه وكذلك في عمود f ...حاولت التجربه في كود آخر بطريقه اخرى واستطاع وعمل بشكل جيد..لكن لا اعلم لماذا هنا لا يعمل

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

يظهر لي الخطأ run time error "6 over flow بالرغم انني راعيت حجم البيانات الكبيرفي نوع المتغيرات ولا اعلم لماذا هذا الخطأ يظهر Sub mytest() Dim g As Range, f As Range, i As Range Dim positivevalue As Long, negativevalue As Long, positivevolume As Long, negativevolume As Long, resultevalue1 As Long Dim resultevalue2 As Long For Each g In Range(Range("g2"), Range("g5").End(xlDown)) For Each f In Range(Range("f2"), Range("f5").End(xlDown)) For Each i In Range(Range("i2"), Range("i5").End(xlDown)) If i >= 0 Then positivevalue = positivevalue + g If i < 0 Then negativevalue = negativevalue + g If i >= 0 Then positivevolume = positivevolume + f If i < 0 Then negativevolume = negativevolume + f resultevalue1 = positivevalue / positivevolume resultevalue2 = negativevalue / negativevolume Next Next Next End Sub عندما نفذت الكود خطوه خطوه يظهر الخطأ عند هذا السطر resultevalue1 = positivevalue / positivevolume resultevalue2 = negativevalue / negativevolume

انا اريد جمع الارقام في عمود g خطوه خطوه الى ان يصل مجموع الارقام الى رقم معين بدون استخدام worksheet function ..ياليت احد الاخوه يشرح لي الطريقه طبعا باستخدام vba

اخي عبدالعزيز قبل فتح الملف اضغط على كليك يمين ثم اذهب الى خصائص ثم غير صيغة الملف zip الى xlsm ثم سوف يعمل معك بإذن الله

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

اخواني انا مازلت اتعلم vba ولم اصل بعد لدرجة التمكن لكنني تطورت بفضل الله ثم فضل هذا المنتدى المعطاء فرضا لدي بيانات رقمية في عمود Hواريد ان اقسم كل خلية في العمود Hعلى الخلية الموازيه لها في العمودE ووضعها في عمود I ....حاولت استخدام for each لكنني لم استطيع واحتاج مساعدتكم اخواني الاعزاء

شكرا استاذ عادل على الشرح

انا اسأل ماالفائده من استخدام count هنا Sub FindingLastRow() 'PURPOSE: Different ways to find the last row number of a range 'SOURCE: www.TheSpreadsheetGuru.com Dim sht As Worksheet Dim LastRow As Long Set sht = ThisWorkbook.Worksheets("Sheet1") 'Ctrl + Shift + End LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 'Using UsedRange sht.UsedRange 'Refresh UsedRange LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row 'Using Table Range LastRow = sht.ListObjects("Table1").Range.Rows.Count 'Using Named Range LastRow = sht.Range("MyNamedRange").Rows.Count 'Ctrl + Shift + Down (Range should be first cell in data set) LastRow = sht.Range("A1").CurrentRegion.Rows.Count End Sub

اخواني من خلال محاولتي التطبيق والتعلم برمجة اكسل حاولت كتابة هذا الكود وكان لدي خطأ اكتشفته لاحقا وهو علامة كولون ":" وقد كنت كتبت الكود خطأ بهذا الشكل Sub hhhh() Worksheets.Add after = Worksheets(2) End Sub ثم كتبته بشكل صحيح Sub hhhh() Worksheets.Add after:=Worksheets(2) End Sub ... وسؤالي هو ماهي القاعده لاستخدام هذه العلامات في الاكواد انا واخواني المبتدئين نحتاج فهم هذه القاعده :)

بارك الله فيك اخي ابراهيم الان كل شئ واضح بالنسبه لي