ابولمى

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

اريد فعل ذلك بدون VBA

هل يوجد طريقة فعاله غير الطريقة اليدوية

يهمني الترتيب 

مثلاً جميع المعادلات في ورقة2 لا يتم حسابها الا بعد حساب الورقة1

المثال الاتي في الورقة1 في الخلية A1=5+8

وفي الورقة 2 في الخلية A1=9+9

انا أريد حساب الورقة1 قبل الورقة2

وشكراً جزيلا

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

اخواني ممكن تقولون لي مااسم هذا الاتصال بين اكسيل والبرنامج الآخر ..

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

واكتشفت انني أستطيع التلاعب في هذا الاتصال ولكن احتاج للتعلم عليه قبل اي شي

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

ماذا يسمى هذا الاتصال وشكراً

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

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

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

بدون استخدام vba

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

ارجو المساعده

4 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم

يرجى تغيير الاسم إلى اسم لائق ..

بالنسبة لسؤالك ..الناتج صحيح لكن المشكلة أن الناتج ظهر بشكل غير متوقع لك ..لذا لحل المشكلة يتم تنسيق الناتج بهذا الشكل

Sub Test()
    Dim X
    X = Format(837987 / 11773501, "#,##0.000000")
    MsgBox X
End Sub

يمكن التحكم في عدد الأرقام على يمين العلام العشرية كما تشاء

أرجو أن يكون المطلوب

تقبل تحياتي

اخي شكرا لتجاوبك ..لكن انا اقصد الناتج الظاهر في locals window 

وتم تغيير اسم المستخدم كما طلبت اخي العزيز :)

اخواني احاول قسمة هذا الرقم  

على هذا الرقم

وعند تنفيذ الكود يعطيني نتيجه خاطئه!!كما يظهر لي في نافذة اللوكالس    7.11756851254355E-02 

وهذا هو الناتج الصحيح 

اتمنى مساعدتي في حل هذه المشكله

اخي ياسر ..انا اقصد كيف اكتب متغير بي اكبر من متغير سي بـ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

 ... وسؤالي هو ماهي القاعده لاستخدام هذه العلامات في الاكواد انا واخواني المبتدئين نحتاج فهم هذه القاعده :)

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