vba 操作python vba 操作edge

转载

fjfdh 2023-06-30 11:31:46

文章标签 vba 操作python 数据分析赋值字体颜色基础操作 文章分类 Python 后端开发

1. 代码基本结构

2. 基础操作：对单元格

3. 赋值

4. 格式设置

5. 逻辑

6. 说明

1. 代码基本结构

Sub name()   '定义一个函数'
    '代码主体'
End Sub

2. 基础操作：对单元格

'选择单元格'
Sub CellSelect()

    '选中单个单元格'的三种等价表示

    'Example 1'
    Cells(3,1).Select '选中A3，前面表示行，后面表示列'

    'Example 2'
    Cells(3,"a").Select  '和上面一样的'

    'Example 3'
    Dim tmpRange As Range 'dim定义一个range变量'
    Set tmpRange = Cells(3,1)
    tmpRange.Select


    '选中一个范围'
    Range(Cells(3,2), Cells(7,3)).Select '选中从B3到C7的所有单元格'
    Union(Cells(3,2), Cells(7,3)).Select '只选择B3和C7两个单元格'
End Sub

3. 赋值

Sub WritingData()

    Cells(1,1).Value = 11  '给A1赋值10'
    x = Cells(1,1).Value  '把A1的值储存到x里'
    MsgBox x   '弹出x的值'
    MsgBox "Hello"  '弹出Hello'

    Debug.Print x   '会在immediate window返回结果，类似python中的print，能够检测运行过程中是否正确'

    '数字相加'
    Cells(3,1).Value = Cells(1,1).Value + Cells(2,1).Values 'A3=A1+A2'

    '如果想要相加的两个单元格不是在A1，我们想要写一个相对位置的代码呢？'
    ActiveCell.Value = _   'ActiveCell表示用户选中的单元格，_表示要换行了'
    'Offset(-1,0)表示选中单元格的上一行，列不变的相对位置。比如用户选中了A100，那么这个就是指A99'
      ActiveCell.Offset(-1,0).Value + ActiveCell.Offset(-2,0).Value  


End Sub

4. 格式设置

Sub FormatCells1()

    '基本属性'
    '三种底色表达方式'
    Cells(12, 1).Interior.Color = xlNone
    Cells(11, 1).Interior.Color = RGB(255, 0, 0)
    Cells(13, 1).Interior.ColorIndex = 9
    
    ' 对字体属性进行设置
    Cells(11, "a").Font.Color = vbBlack    '字体颜色'
    Cells(11, "a").Font.Name = "garamond"   '字体名称'
    Cells(11, "a").Font.Size = 14   '字号'
    Cells(11, "a").Font.Italic = True   '斜体'
    Cells(11, "a").Font.Bold = True   '加粗'
    
End Sub



'上面的代码不太简洁，比如在字体属性设置那里，你会发现都是对同一个单元格进行操作。那么可以用下面的代码实现相同的操作'

Sub FormatCells2()
    With Cells(11,1).Font
        .Color = vbBlack    '字体颜色'
        .Name = "garamond"   '字体名称'
        .Size = 14   '字号'
        .Italic = True   '斜体'
        .Bold = True   '加粗'
    End With
End Sub

5. 逻辑

'for循环，每个格子不同颜色'
Sub UsingLoop()
    For j = 1 To 30 Step 1  'Step1表示步长为1，加不加都没关系'
        Cells(j, "g").Value = j
        Cells(j, "h").Interior.ColorIndex = j
    Next j
End Sub




'for 循环+判断，判断两列的值哪一个大，大的标记为黄色'
Sub UsingForLoop()
    For j = 1 To 15
        If Cells(j, "d").Value < Cells(j, "e").Value Then
            Cells(j, "d").Interior.Color = vbYellow
            Cells(j, "e").Interior.Color = xlNone
        Else
            Cells(j, "d").Interior.Color = xlNone
            Cells(j, "e").Interior.Color = vbYellow
        End If
    Next j
End Sub



'实现功能：还是判断两列数字大小，但是这个时候不是给定的列了，可能你也不知道用户的列在哪，所以要用ActiveCell功能'
Sub whileLoopExercise()
    Do While ActiveCell.Value <> ""
        If ActiveCell.Value > ActiveCell.Offset(0, 1).Value Then
            ActiveCell.Interior.Color = vbYellow
        Else
            ActiveCell.Offset(0, 1).Interior.Color = vbYellow
        End If
        ActiveCell.Offset(1, 0).Select '这句话一定要有，不然死循环了
    Loop
End Sub