27、Excel VBA：美化注释与导入含前导零的 CSV 文件

最新推荐文章于 2025-11-26 14:20:01 发布

prometheus9mon

最新推荐文章于 2025-11-26 14:20:01 发布

阅读量10

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel VBA实战进阶指南文章标签： Excel VBA 美化注释 CSV导入

本文链接：https://blog.youkuaiyun.com/prometheus9mon/article/details/155339056

Excel VBA实战进阶指南专栏收录该内容

29 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Excel VBA：美化注释与导入含前导零的 CSV 文件

在 Excel 中，我们常常会用到注释功能，同时也会遇到导入含前导零的 CSV 文件的问题。下面将详细介绍如何通过 VBA 来美化注释以及解决 CSV 文件前导零丢失的问题。

美化 Excel 注释

在 Excel 电子表格中，注释是大家比较熟悉的功能，当鼠标指针划过单元格时，会弹出一个黄色的注释框，通常用于提供该单元格的相关信息。我们可以通过编写代码来修改注释框的外观，实现一些在 Excel 常规菜单中无法完成的操作。

1. 创建用户界面表单

首先，我们需要创建一个用户界面表单，该表单包含以下元素：
- 两个列表框 ：一个用于让用户选择形状类型，如立方体、气球等；另一个用于选择渐变类型，如对角线向下渐变、从中心渐变等。
- 两个标签控件 ：用于定义列表框。
- 四个命令按钮 ：分别是“OK”（应用注释设置）、“Cancel”（不做任何操作）、“Select Color”（选择用户想要的颜色）和“Default”（将注释恢复为默认设置）。

为了让用户能够选择颜色，我们需要使用 API 调用显示通用颜色选择对话框。在模块的定义部分添加以下代码：

Private Type COLORSTRUC
    lStructSize As Long
    hwnd As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As String
    Flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Private Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor _
    Lib "comdlg32.dll" Alias "ChooseColorA" _
    (pChoosecolor As COLORSTRUC) As Long

将这些控件从工具箱拖到表单上，如果在识别工具箱中的控件有困难，可以使用每个控件的工具提示来识别它们。通过点击表单标题并在属性窗口中编辑标题属性来更改表单标题。

然后，在表单中添加以下代码，使所有控件能够正常工作：

Private Sub CommandButton1_Click()
    UserForm1.Hide
    canc = 0
End Sub
Private Sub CommandButton2_Click()
    UserForm1.Hide
    canc = 1
End Sub
Private Sub CommandButton3_Click()
    Dim x As Long, CSel As COLORSTRUC, CustColor(16) As Long
    On Error GoTo errhandler2
    CSel.lStructSize = Len(CSel)
    CSel.Flags = CC_SOLIDCOLOR
    CSel.lpCustColors = String$(16 * 4, 0)
    x = ChooseColor(CSel)
    col = CSel.rgbResult
errhandler2:
    Exit Sub
End Sub
Private Sub CommandButton4_Click()
    UserForm1.Hide
    canc = 2
End Sub
Private Sub UserForm_Initialize()
    ListBox1.AddItem "msoShape32PointStar"
    ListBox1.AddItem "msoShape24PointStar"
    ListBox1.AddItem "msoShape16PointStar"
    ListBox1.AddItem "msoShape8PointStar"
    ListBox1.AddItem "msoshapeBalloon"
    ListBox1.AddItem "msoShapeCube"
    ListBox1.AddItem "msoshapeDiamond"
    ListBox2.AddItem "msoGradientDiagonalDown"
    ListBox2.AddItem "msoGradientDiagonalUp"
    ListBox2.AddItem "msoGradientFromCenter"
    ListBox2.AddItem "msoGradientFromCorner"
    ListBox2.AddItem "msoGradientFromTitle"
    ListBox2.AddItem "msoGradientHorizontal"
    ListBox2.AddItem "msoGradientMixed"
    ListBox2.AddItem "msoGradientVertical"
End Sub

同时，需要设置两个全局变量：

Global canc As Integer
Global col As Long

以下是操作流程的 mermaid 流程图：

graph TD;
    A[开始] --> B[创建用户界面表单];
    B --> C[添加控件到表单];
    C --> D[添加代码到表单];
    D --> E[设置全局变量];
    E --> F[完成]

2. 编写显示表单和处理用户选择的过程

在模块中编写以下代码：

Sub comment_enhance()
    Dim param As Long, grad As Long
    UserForm1.Show
    If canc = 1 Then Exit Sub
    Select Case UserForm1.ListBox1.Text
        Case "msoShape32PointStar"
            param = msoShape32pointStar
        Case "msoShape24PointStar"
            param = msoShape24pointStar
        Case "msoShape16PointStar"
            param = msoShape16pointStar
        Case "msoShape8PointStar"
            param = msoShape8pointStar
        Case "msoshapeBalloon"
            param = msoShapeBalloon
        Case "msoShapeCube"
            param = msoShapeCube
        Case "msoshapeDiamond"
            param = msoShapeDiamond
    End Select
    Select Case UserForm1.ListBox2.Text
        Case "msoGradientDiagonalDown"
            grad = msoGradientDiagonalDown
        Case "msoGradientDiagonalUp"
            grad = msoGradientDiagonalUp
        Case "msoGradientFromCenter"
            grad = msoGradientFromCenter
        Case "msoGradientFromCorner"
            grad = msoGradientFromCorner
        Case "msoGradientFromTitle"
            grad = msoGradientFromTitle
        Case "msoGradientHorizontal"
            grad = msoGradientHorizontal
        Case "msoGradientMixed"
            grad = msoGradientMixed
        Case "msoGradientVertical"
            grad = msoGradientVertical
    End Select
    If canc = 2 Then
        For Each window In Windows
            For Each Worksheet In window.SelectedSheets
                For Each cell In Application.Selection
                    addr = Worksheet.Name & "!" & cell.Address
                    On Error Resume Next
                    temp = ""
                    temp = Range(addr).Comment.Text
                    Range(addr).Comment.Delete
                    If temp <> "" Then
                        Range(addr).AddComment (temp)
                    End If
                Next cell
            Next worksheet
        Next window
        Exit Sub
    End If
    For Each window In Windows
        For Each Worksheet In window.SelectedSheets
            For Each cell In Application.Selection
                addr = Worksheet.Name & "!" & cell.Address
                On Error Resume Next
                Range(addr).Comment.Shape.Fill.OneColorGradient grad, 1, 1
                Range(addr).Comment.Shape.Fill.BackColor.RGB = col
                Range(addr).Comment.Shape.AutoShapeType = param
            Next cell
        Next worksheet
    Next window
End Sub

操作步骤如下：
1. 在电子表格中右键单击单元格，从弹出菜单中选择“Insert Comment”添加一些注释。
2. 通过拖动鼠标指针选择包含注释的单元格。
3. 运行代码，屏幕将显示表单。
4. 选择形状和渐变类型，点击“Color”按钮选择颜色。
5. 点击“OK”，查看注释的变化。

需要注意的是，在使用此过程时，用户不一定要同时选择形状、颜色和渐变，可以只选择其中之一。但如果要更改颜色，必须先选择渐变，否则颜色更改将不会生效。有时在更改注释形状时，形状可能无法完美适应显示的文本量，导致部分文本丢失，尤其是圆形形状，如星星。可以通过设置注释形状的高度和宽度来解决这个问题，例如：

Range(addr).Comment.Shape.Height = 100
Range(addr).Comment.Shape.Width = 100

导入含前导零的 CSV 文件

在 Excel 中导入 CSV 文件时，一个常见的问题是，如果 CSV 文件中的某个字段全是数字字符且以零开头，Excel 会自动删除前导零并将该字段转换为数字。这对于处理以零开头的电话号码或账户代码等数据非常不方便。

1. 创建测试 CSV 文件

为了解决这个问题，我们首先需要创建一个包含前导零数据的虚拟 CSV 文件。建议使用记事本（Notepad）来创建，因为这样文件可以完全独立于 Excel。操作步骤如下：
1. 点击屏幕左下角的 Windows 开始按钮，选择“All Programs”，然后点击“Accessories”，找到并点击“Notepad”打开记事本。
2. 在记事本窗口中输入以下文本：

FirstName,LastName,N1,N2,N3
Richard,Shepherd,01234,03456,1752
Alexander,Shepherd,0345,02384,345

点击记事本菜单栏中的“File | Save”，在提示输入位置和文件名时，将文件命名为“LeadingZero.CSV”，确保包含“CSV”后缀，以便将文件视为 CSV 文件而不是文本文件。

2. 尝试直接导入 CSV 文件

在 Excel 中，点击屏幕左上角的 Excel 开始按钮，选择“Open”，在左侧菜单中选择“Text Files”作为文件类型，找到并打开刚才创建的 CSV 文件。可以看到，导入过程中前导零被删除，数字字段被转换为数字，这并不是我们想要的结果。

3. 使用 VBA 自动化导入过程

按下“ALT - F11”打开 VBE 窗口，使用“Insert | Module”插入一个模块，输入以下代码：

Sub ImportLeadingZeros()
    On Error Resume Next
    Kill "C:\temp\LeadingZero.txt"
    On Error GoTo 0
    Name "C:\temp\LeadingZero.csv" As "C:\temp\LeadingZero.txt"
    Workbooks.OpenText Filename:="C:\temp\LeadingZero.txt", Origin _
        :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
        FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 2), _
        Array(4, 2), Array(5, 2)), TrailingMinusNumbers:=True
End Sub

代码说明：
- 代码假设之前创建的“LeadingZero.csv”文件位于“C:\temp”目录下。
- 首先使用“Kill”命令删除“C:\temp\LeadingZero.txt”文件（如果它已经存在），以避免在重命名 CSV 文件时出现错误。
- 使用“On Error Resume Next”语句关闭所有错误消息，因为如果没有要删除的文件，会产生错误。“On Error GoTo 0”将错误消息重新打开。
- 使用“Name”命令将 CSV 文件重命名为 TXT 文件。
- 使用“Workbooks.OpenText”命令根据特定参数打开 TXT 文件。其中，“FieldInfo”参数是一个数组，第一个元素指定字段编号，第二个元素指定字段类型。在我们的示例文件中，字段 1 和 2 设置为常规格式（参数为 1，即“xlGeneralFormat”），字段 3、4 和 5 设置为文本格式（参数为 2，即“xlTextFormat”），以确保前导零被正确解释。

运行代码后，工作表屏幕将显示导入的文件，单元格左上角的绿色三角形表示 Excel 检测到一个格式为文本的数字，并向用户发出警告，但这正是我们想要的结果，前导零被保留并格式化为文本字段。需要注意的是，CSV 文件已被重命名为 TXT 后缀，由于文件已打开并被锁定，无法在代码中将其重命名回 CSV 文件。

以下是导入含前导零 CSV 文件的操作步骤列表：
1. 创建含前导零数据的 CSV 文件。
2. 尝试直接导入 CSV 文件，观察前导零丢失问题。
3. 插入模块并输入上述代码。
4. 运行代码，查看导入结果。

通过以上方法，我们可以利用 VBA 美化 Excel 注释并解决导入含前导零 CSV 文件的问题，提高工作效率和数据处理的准确性。

Excel VBA：美化注释与导入含前导零的 CSV 文件

总结与注意事项

美化注释部分总结

核心要点 ：通过创建用户界面表单，让用户可以选择注释的形状、颜色和渐变类型。利用 VBA 代码将用户的选择应用到注释上，实现注释外观的美化。
注意事项 ：
- 颜色和渐变的设置顺序很重要，应先设置渐变，再设置颜色，否则可能出现不正确的结果。
- 当选择一些特殊形状（如圆形、星星等）时，可能会出现文本显示不完全的问题，可通过设置形状的高度和宽度来解决。

以下是美化注释操作的关键步骤总结表格：
|步骤|操作内容|
| ---- | ---- |
|1|创建用户界面表单，添加列表框、标签控件和命令按钮|
|2|在模块定义部分添加颜色选择 API 调用代码|
|3|将控件从工具箱拖到表单上，修改表单标题|
|4|在表单中添加控件工作代码和全局变量|
|5|编写显示表单和处理用户选择的过程代码|
|6|在电子表格中添加注释，选择包含注释的单元格|
|7|运行代码，选择形状、颜色和渐变，点击“OK”应用设置|

导入含前导零 CSV 文件部分总结

核心要点 ：通过将 CSV 文件重命名为 TXT 文件，并使用 Workbooks.OpenText 方法，结合 FieldInfo 参数指定字段类型为文本，从而保留 CSV 文件中的前导零。
注意事项 ：
- 代码假设文件位于 C:\temp 目录下，实际使用时可根据情况修改文件路径。
- 重命名后的文件无法在代码中直接改回 CSV 后缀，因为文件已打开并被锁定。

以下是导入含前导零 CSV 文件操作的关键步骤总结表格：
|步骤|操作内容|
| ---- | ---- |
|1|使用记事本创建包含前导零数据的 CSV 文件|
|2|在 Excel 中尝试直接导入 CSV 文件，观察前导零丢失问题|
|3|打开 VBE 窗口，插入模块并输入导入代码|
|4|运行代码，查看导入结果|

拓展应用与思考

美化注释的拓展应用

自定义形状和渐变 ：可以进一步扩展列表框中的选项，添加更多的形状和渐变类型，满足不同用户的个性化需求。
批量处理注释 ：可以修改代码，实现对整个工作表或指定区域内的所有注释进行统一的美化处理，提高工作效率。

以下是批量处理注释的简单思路 mermaid 流程图：

graph TD;
    A[开始] --> B[选择要处理的工作表或区域];
    B --> C[遍历区域内的所有单元格];
    C --> D[检查单元格是否有注释];
    D -- 有注释 --> E[应用美化设置];
    D -- 无注释 --> C;
    E --> C;
    C --> F[完成处理];
    F --> G[结束]

导入含前导零 CSV 文件的拓展应用

动态文件路径 ：可以修改代码，让用户在运行代码时输入文件路径，提高代码的灵活性。
多文件处理 ：可以编写循环代码，实现对多个 CSV 文件的批量导入，提高数据处理效率。

以下是多文件处理的简单思路 mermaid 流程图：

graph TD;
    A[开始] --> B[获取文件列表];
    B --> C[遍历文件列表];
    C --> D[重命名文件为 TXT];
    D --> E[导入 TXT 文件];
    E --> C;
    C --> F[完成所有文件导入];
    F --> G[结束]

常见问题解答

美化注释部分

问题：点击“Color”按钮后没有弹出颜色选择对话框怎么办？
- 解答：检查 ChooseColor API 调用代码是否正确添加到模块定义部分，以及相关的 COLORSTRUC 类型和常量是否定义正确。
问题：运行代码后注释没有任何变化怎么办？
- 解答：检查代码中是否有错误，特别是 canc 和 col 全局变量的设置是否正确。同时，确保选择的单元格中确实包含注释。