VBA_EXCEL中的判断有关问题

fieldset{padding:10px;}

VBA_EXCEL中的判断问题我要判断两格单元格的内容是否相同。相同,什么也不做,继续,不相同,标出为红色。程序如下:Private Sub CommandButton3_Click()For i = 1 To 1000If Worksheets("Sheet1").Cells(i, 1).Value = "" ThenExit ForElseIf Worksheets("Sheet1").Cells(i, 2).Value = Worksheets("Sheet2").Cells(i, 2).Value Then Worksheets("Sheet5").Cells(i, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value Worksheets("Sheet5").Cells(i, 2).Value = Worksheets("Sheet1").Cells(i, 2).Value Worksheets("Sheet5").Cells(i, 4).Value = Worksheets("Sheet2").Cells(i, 1).Value Worksheets("Sheet5").Cells(i, 5).Value = Worksheets("Sheet2").Cells(i, 2).Value Else Worksheets("Sheet5").Cells(i, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value Worksheets("Sheet5").Cells(i, 2).Value = Worksheets("Sheet1").Cells(i, 2).Value Worksheets("Sheet5").Cells(i, 4).Value = Worksheets("Sheet2").Cells(i, 1).Value Worksheets("Sheet5").Cells(i, 5).Value = Worksheets("Sheet2").Cells(i, 2).Value Worksheets("Sheet5").Cells(i, 1).Font.ColorIndex = 3 End IfNext iEnd Sub条件:当在sheet1中的Cells(1,2)和sheet2中的Cells(1,2)的值都为0时,结果:sheet5中Cells(1,1)为红色.正确的执行结果应该是:什么也不做。请高手看看。——解决方案——————————————————–我这边试了,不是红色你的选择是做或不做,但不做就永远不会有机会

VBA_EXCEL中的判断有关问题

相关文章:

你感兴趣的文章:

标签云: