银行客户经理必备excel宏代码:万元转元

要在 Excel 中插入宏代码，需先启用“开发工具”选项卡，再通过 VBA 编辑器插入模块并粘贴代码，最后保存为 .xlsm 格式。‌‌

1. ‌启用“开发工具”选项卡‌：点击 ‌文件 → 选项 → 自定义功能区‌，勾选 ‌“开发工具”‌，确定保存。‌‌

2. ‌打开 VBA 编辑器‌：按 ‌Alt + F11‌，或在“开发工具”选项卡中点击 ‌“Visual Basic”‌。‌‌

3. ‌插入模块并粘贴代码‌：在左侧项目树中右键点击目标工作簿（或“插入 → 模块”），将你的 VBA 代码复制粘贴到右侧代码窗口。

4. 具体如何插入，大家可以问AI，把自己的情况告诉AI，我用的是office。

Sub DivideBy10000()

    Dim rng As Range

    Dim cell As Range

    ' 检查是否选中了单元格

    If TypeName(Selection) <> "Range" Then

        MsgBox "请先选中一个单元格或单元格区域。"

        Exit Sub

    End If

    ' 对选中的每个单元格进行操作

    For Each cell In Selection

        If IsNumeric(cell.Value) And cell.Value <> "" Then

            ' 如果是数值，执行除以10000的操作

            cell.Value = cell.Value / 10000

        End If

    Next cell

End Sub

结果大概是下面这样子:

1. 打开包含宏的工作簿。

2. 在“ 开发工具 ”选项卡上，选择“宏”。

3. 在“ 宏名称 ”框中，选择要运行的宏，然后按“ 运行 ”按钮。