دوستان راهنمایی بفرمایند این فرمول رو چطور میتونم ساده ترش کنم
با تشکر
با تشکر
M = Range("q1").Value
If M = "Ïí" And r = 1 Or M = "Ïí" And r = 5 Then
ElseIf M = "Èåãä" And r = 15 Or M = "Èåãä" And r = 25 Then
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
Sub niknam()
Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K
If Range("E8").Value = "D" Then
Range("f6").Value = "D"
Range("f7").Value = "E"
ElseIf Range("G8").Value = "D" Then
Range("h6").Value = "D"
Range("h7").Value = "E"
Else
End If
Next i
End Sub
Sub niknam()
Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K
If Range("E8").Value = "D" Then
Range("f6").Value = "D"
Range("f7").Value = "E"
ElseIf Range("G8").Value = "D" Then
Range("h6").Value = "D"
Range("h7").Value = "E"
Else
End If
Next i
End Sub
Sub niknam()
Y = ActiveSheet.Cells(5).Column
K = ActiveSheet.Cells(35).Column
For i = Y To K
If Range("E8").Value = "D" And Range("G8").Value = "D" Then
Range("f6").Value = "D"
Range("f7").Value = "E"
Range("h6").Value = "D"
Range("h7").Value = "E"
ElseIf Range("E8").Value = "D" And Range("G8").Value <> "D" Then
Range("f6").Value = "D"
Range("f7").Value = "E"
End If
Next i
End Sub
کامنت