Excel宏的基本逻辑语句_selection.font-优快云博客

本文链接：https://blog.youkuaiyun.com/weixin_43636302/article/details/103049127

本文介绍了Excel宏中的一些基本逻辑语句，包括IF条件判断、For循环、以及Do While和Do Until循环的使用，涉及到宏的相对引用和绝对引用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

IF语句

Sub 增减会计双下划线()
' 增减会计双下划线 宏
    If Selection.Font.Underline = xlUnderlineStyleDoubleAccounting Then
        Selection.Font.Underline = xlUnderlineStyleNone
    Else
        Selection.Font.Underline = xlUnderlineStyleDoubleAccounting
    End If
End Sub

For 循环和宏的相对引用、绝对引用

Sub 添加格式()
' 添加格式 宏
    Range("B1").Select
    
    ActiveCell.Range("A1:A6").Select
    
    For counter = 1 To 65
    
        Selection.Font.Bold = True
        ActiveCell.Offset(6, 0).Range("A1:A6").Select
        Selection.Font.Italic = True
        ActiveCell.Offset(6, 0).Range("A1:A6").Select
    
    Next counter
End Sub

Do While循环

Sub 添加格式改进版()
'
' 宏11 宏
'
    Range("B1").Select
    
    ActiveCell.Range("A1:A6").Select
    
    Do While ActiveCell <> ""
    
        Selection.Font.Bold = True
        ActiveCell.Offset(6, 0).Range("A1:A6").Select
        Selection.Font.Italic = True
        ActiveCell.Offset(6, 0).Range("A1:A6").Select
        
    Loop
End Sub

Do Until循环

Sub 添加格式改进版()
'
' 宏11 宏
'
    Range("B1").Select
    
    ActiveCell.Range("A1:A6").Select
'或者Do Until IsEmpty(ActiveCell)
    Do Until ActiveCell = ""
    
        Selection.Font.Bold = True
        ActiveCell.Offset(6, 0).Range("A1:A6").Select
        Selection.Font.Italic = True
        ActiveCell.Offset(6, 0).Range("A1:A6").Select
        
    Loop
End Sub