excel中vb 宏脚本的简单使用

最新推荐文章于 2024-07-18 16:07:51 发布

菜鸟冲锋号

最新推荐文章于 2024-07-18 16:07:51 发布

阅读量1w

点赞数 1

分类专栏： # 编程_VBA

本文链接：https://blog.csdn.net/lxp90/article/details/83445272

版权

编程_VBA 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

1.编辑快捷键去工作，如下：

Sub 颜色()
'
' 颜色 宏
'
' 快捷键: Ctrl+b
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
Sub 字段查找()
'
' 字段查找 宏
'
' 快捷键: Ctrl+n
'
    Dim a
    a = ActiveCell.Value
    Sheets("字段级配置信息").Select
    ActiveSheet.Range("$A$1:$T$38207").AutoFilter Field:=3, Criteria1:=Array(Right(a, Len(a) - 4), a), Operator:=xlFilterValues
    
End Sub

Sub 否()
'
' 否 宏
'
' 快捷键: Ctrl+e
'
    ActiveCell.Value = "否"
    ActiveCell.Offset(0, 4).Value = "否"

End Sub

2.新增一批

Sub 宏2()
'
' 宏2 宏
'
' 快捷键: Ctrl+n
' 功能：指定单元格值之前增加两行，并将指定值赋值到新增的行的指定列

    Dim tableid, columnsid, flagid
    tableid = 2
    columnsid = 3
    flagid = 4
    
    For r = 1 To Sheets("Sheet1").UsedRange.Rows.Count
    If Worksheets(1).Cells(r, flagid).Value = 3 Then
        Worksheets(1).Cells(r, flagid).Select
        Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
        
        ' 表名
        Worksheets(1).Cells(r, tableid).Value = Worksheets(1).Cells(r + 2, tableid).Value
        Worksheets(1).Cells(r + 1, tableid).Value = Worksheets(1).Cells(r + 2, tableid).Value
        
        ' 字段命名
        Worksheets(1).Cells(r, columnsid).Value = Worksheets(1).Cells(r + 2, columnsid).Value & "_TM"
        Worksheets(1).Cells(r + 1, columnsid).Value = Worksheets(1).Cells(r + 2, columnsid).Value & "_JOIN"
        r = r + 2
    End If
    Next
    
    
End Sub