Sub 判斷Pvalue()
For x = 2 To 101
For y = 2 To 745
Worksheets("output").Cells(y, x).Value = Worksheets("Corr").Cells(y, x).Value
If Worksheets("Pval").Cells(y, x).Value < 0.05 And Worksheets("Corr").Cells(y, x).Value > 0 Then
Worksheets("output").Cells(y, x).Interior.ColorIndex = 3
ElseIf Worksheets("Pval").Cells(y, x).Value < 0.05 And Worksheets("Corr").Cells(y, x).Value < 0 Then
Worksheets("output").Cells(y, x).Interior.ColorIndex = 5
End If
Next
Next
End Sub
沒有留言:
張貼留言