بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
رندة ابراهيم
-
Posts
3 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه رندة ابراهيم
-
-
ارجو توضيح الكود بالتفاصيل
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:=1234
Sheets("sts").Range("c9:c58").Value = ""
For l = 9 To 58
t = 8
If Sheets("anyls").Range("b" & l).Value <> "" Then
For i = 67 To 90
If Sheets("anyls").Range(Chr(i) & l).Value <> "" Then
If Sheets("anyls").Range(Chr(i) & l).Value = 0 Then
Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value
End If
End If
t = t + 1
Next
For k = 65 To 89
If Sheets("anyls").Range("a" & Chr(k) & l).Value <> "" Then
If Sheets("anyls").Range("a" & Chr(k) & l).Value = 0 Then
Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value
End If
End If
t = t + 1
Next
End If
Next
ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub -
ارجو مساعدتي اين الخلل في المعادلة
مشكلة الكود في البوربوينت
في منتدى الباوربوينت
قام بنشر