با سلام
کد اصلاح شده نیک نام
اشتباهات
کد PHP:
M = Range("q1").Value
کد PHP:
If M = "Ïí" And r = 1 Or M = "Ïí" And r = 5 Then
کد PHP:
ElseIf M = "Èåãä" And r = 15 Or M = "Èåãä" And r = 25 Then
کد PHP:
Sub Niknam()
' äí˜ äÇã'
Dim r As Integer
Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K
M = Range("q1").Value
r = Cells(5, i).Value
If M = "Ïí" And r = 1 Or M = "Ïí" And r = 5 Then
Cells(6, i).Value = "D"
Cells(7, i).Value = "E"
ElseIf M = "Èåãä" And r = 15 Or M = "Èåãä" And r = 25 Then
Cells(6, i).Value = "D"
Cells(7, i).Value = "E"
Else
Cells(6, i).Value = ""
Cells(7, i).Value = ""
End If
Next i
End Sub
علاقه مندی ها (Bookmarks)