[已解决]求大神

503244002

Sub c()
Dim i As Integer
For i = 1 To 10
              If Range("a" & i) = 5 Then
       MsgBox "????????"
        Range("b" & i) = Range("a" & i)
    End If
Next
End Sub

求大神解决，如图 我写的代码想让B列等于A列的10个数字，当运行到5时，会出现一个窗口提示，“第一列的第某个单元格数值等于5”，求大神我 MsgBox "????????"这句该怎么写？并加上大神的解释，谢谢！

最佳答案

月排行榜 / 总排行榜

xdragon

2015-5-11 22:26

MsgBox "第一列的" & range("A" & i).address(0,0) & "单元格数值等于5"

跳转到最佳答案楼层

xdragon

MsgBox "第一列的" & range("A" & i).address(0,0) & "单元格数值等于5"

503244002

xdragon 发表于 2015-5-11 22:26
MsgBox "第一列的" & range("A" & i).address(0,0) & "单元格数值等于5"

请问大神range("A" & i).address(0,0)是什么意思？

pengyx

试试这个
sub c()
for i=1 to 10
range("b"&i)=range("a"&i)
if range("b"&i)=5 then
a=1
end if
if a=1 then
msgbox "第一列的第" & i & "个单元格等于５"
a=0
end if
next
end sub

503244002

503244002 发表于 2015-5-11 22:30
请问大神range("A" & i).address(0,0)是什么意思？

谢谢