首页
后端开发
VB
Excel VBA代码示例

Excel VBA代码示例

24 次浏览 0 条评论
chm
chm

件包含一些常用的 Excel VBA 代码示例，帮助用户自动化处理 Excel 任务。

示例 1：将 A 列半角内容变红

Sub A列半角内容变红()
    Dim rg As Range, i As Long
    Application.ScreenUpdating = False
    For Each rg In Cells.SpecialCells(xlCellTypeConstants, 3)
        For i = 1 To Len(rg)
            If Asc(Mid(rg, i, 1)) < 128 xss=removed xss=removed>

示例 2：A 列等于 A 列减 B 列

Sub A列等于A列减B列()
For i = 1 To 23
    Cells(i, 1) = Cells(i, 1) - Cells(i, 2)
Next
End Sub

示例 3：B 列录入数据时在 A 列返回记录时间

Public Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Target.Offset(, -1) = Now
End If
End Sub

说明

  • 以上代码示例仅供参考，请根据实际需求进行修改。
  • 使用 VBA 代码存在一定风险，请谨慎操作。
chm 文件大小：66.02KB