اذهب الي المحتوي
أوفيسنا

رندة ابراهيم

عضو جديد 01
  • Posts

    3
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو رندة ابراهيم

  1. ارجو توضيح الكود بالتفاصيل 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
  2. ارجو مساعدتي اين الخلل في المعادلة رندة.rar
×
×
  • اضف...

Important Information