2012年10月15日 星期一

[VBA] 判斷Pvalue並上色


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

沒有留言: