excel vba for循环问题。

答案:3 悬赏:10 手机版

解决时间 2021-02-04 00:29

提问者网友：山高云阔
2021-02-03 05:00

小弟刚知道VBA，想学习一下。望大虾指点。
希望达到功能，如果G列某一行为空，那么这行的字加粗。那个加粗的用录制宏可以达到。这个range(g)是实在不知道应该填什么就随便写的一个，我的想法应该是像g(j)的东西，当J一个个加的时候去判断。因为实在不明白，所以思维可能有点混乱，望指点。。
For i = 1 To 10000
j = j + 1
If Range(g) = "" Then

With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Selection.Font.Bold = True
Selection.Font.Italic = True

End If
Next i

End Sub

最佳答案

五星知识达人网友：醉吻情书
2021-02-03 06:04

For i = 1 To 10000
If Range("g"& i ) = "" Then
rows(i).Font.Bold = True
rows(i).Font.Italic = True
end if
next

全部回答

1楼网友：动情书生
2021-02-03 07:48

worksheets(1).cells(i, 25).value = round(worksheets(1).cells(i, 15).value / worksheets(1).cells(i, 24).value, 0) 这种东西放在循环内，你会很惨的！

2楼网友：我住北渡口
2021-02-03 07:07

For i = 1 To 10000 x = Range("IV" & i).End(xlToLeft).Column If x = 1 Then Rows(i).Font.Bold = True Rows(i).Font.Italic = True End If Next i

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息