ناتج خلية

[احمد السيد سليمان]

مطلوب تعديل الكود التالى ليعمل على كامل العمود وليس خلية واحدة

 Sub sAdd()
    If Sheets("1").[A1] <> "" Then
        Sheets("1").[c1] = Sheets("1").[A1] _
        / Sheets("1").[b1]
    End If
    If Sheets("1").[A1] = "" Then
        Sheets("1").[c1] = ""
    End If
End Sub

بمعنى ان العمود" c"

c = a/b

[ابو اسامة العينبوسي]

السلام عليكم

هل تحتاج ال خمسة وستون الف و خمسمائه و سته و ثلاثون صف !!

انا طبقت على 1000 صف

اذا اردت اكثر من ذلك غير 1000 في الكود الى ما تشاء

trythis.rar

[احمد السيد سليمان]

بارك الله فيك وكل عام وجميع الاعضاء بخير بمناسبة المولد النبوى

هذا هو المطلوب

هناك سؤال اخر

كيف يتم تنفيذ هذا الكود على جميع اوراق العمل الموجودة بالملف دفعة واحدة بدلا من انشاء كود لكل ورقة

[احمد السيد سليمان]

Sub sAdd()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 5 To 200
If Sheets("A1").Range("e" & i) <> "" Then
Sheets("A1").Range("f" & i) = Sheets("A1").Range("e" & i) / Sheets("A1").Range("d" & i)
End If
If Sheets("A1").Range("e" & i) = "" Then
Sheets("A1").Range("f" & i) = ""
End If
If Sheets("A1").Range("I" & i) <> "" Then
Sheets("A1").Range("J" & i) = Sheets("A1").Range("I" & i) / Sheets("A1").Range("H" & i)
End If
If Sheets("A1").Range("I" & i) = "" Then
Sheets("A1").Range("J" & i) = ""
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

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

بدلا من

انشاء كود لكل ورقة

وتعديل الكود عند اضافة اوراق جديدة