使用VBA代码将下面的数据转换为柱状图：光纤 序号 类型 长度 数量 1 LC-LC 多模 （双工） 5M 21对 2 LC-LC 多模 （单芯） 3M 2对 3 LC-LC 单模 （双工） 5M 18对 4 FC-FC 多模 （单芯） 3M 2对 5 LC-PC （单芯） 3M 1对 6 LC-FC （单芯） 3M 2对 7 LC-LC 多模（双工） 5M 60对

以下是将数据转换为柱状图的VBA代码：

Sub createChart()
    Dim chartRange As Range
    Dim chartTitle As String
    
    '获取数据范围
    Set chartRange = Range("A1").CurrentRegion
    
    '创建图表
    ActiveSheet.Shapes.AddChart2(227, xlColumnClustered).Select
    ActiveChart.SetSourceData chartRange
    
    '设置图表标题
    chartTitle = "光纤数量"
    ActiveChart.ChartTitle.Text = chartTitle
    
    '设置X轴和Y轴标签
    ActiveChart.Axes(xlCategory).HasTitle = True
    ActiveChart.Axes(xlCategory).AxisTitle.Text = "类型"
    ActiveChart.Axes(xlValue).HasTitle = True
    ActiveChart.Axes(xlValue).AxisTitle.Text = "数量"
    
End Sub

运行这段代码，将会在当前工作表上创建一个柱状图，该图将数据按照类型进行分组，并在Y轴上显示数量。

相关问题

使用vba将桌面下的1文件夹进行批量转换为PDF，同时使用用户窗体显示转换进度

您可以使用以下VBA代码来实现您的需求：

Sub ConvertFolderToPDF()
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim FileItem As Object
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim SavePath As String
    Dim i As Long
    Dim TotalFiles As Long
    
    '设置源文件夹路径
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(Environ("USERPROFILE") & "\Desktop\1")
    
    '获取源文件夹中的Word文档数量
    TotalFiles = SourceFolder.Files.Count
    
    '初始化Word应用程序
    Set WordApp = CreateObject("Word.Application")
    
    '遍历源文件夹中的每个Word文档，将其转换为PDF
    For Each FileItem In SourceFolder.Files
        If Right(FileItem.Name, 4) = ".doc" Or Right(FileItem.Name, 5) = ".docx" Then
            i = i + 1
            
            '打开Word文档
            Set WordDoc = WordApp.Documents.Open(FileItem.Path)
            
            '设置PDF保存路径
            SavePath = FSO.BuildPath(Environ("USERPROFILE") & "\Desktop\PDFs", FSO.GetBaseName(FileItem.Name) & ".pdf")
            
            '将Word文档保存为PDF
            WordDoc.ExportAsFixedFormat OutputFileName:=SavePath, ExportFormat:=17
            
            '关闭Word文档
            WordDoc.Close False
            
            '更新进度条
            UserForm1.ProgressBar1.Value = i / TotalFiles * 100
        End If
    Next
    
    '关闭Word应用程序
    WordApp.Quit
    
    '销毁对象
    Set WordDoc = Nothing
    Set WordApp = Nothing
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

这段代码使用Microsoft Word应用程序将源文件夹中的每个Word文档转换为PDF，并在转换过程中使用用户窗体来显示进度条。您需要创建一个名为"UserForm1"的用户窗体，并在其中添加一个名为"ProgressBar1"的进度条控件。同时，您需要将源文件夹路径和PDF保存路径替换为您自己的路径。

使用vba将桌面下的1文件夹的excel表进行批量转换为PDF，同时使用用户窗体显示转换进度

以下是将桌面下的1文件夹的Excel表进行批量转换为PDF，并使用用户窗体显示转换进度的VBA代码：

Sub ConvertExcelToPDF()
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim FileItem As Object
    Dim ExcelApp As Object
    Dim ExcelBook As Object
    Dim SavePath As String
    Dim i As Long
    Dim TotalFiles As Long
    
    '设置源文件夹路径
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(Environ("USERPROFILE") & "\Desktop\1")
    
    '获取源文件夹中的Excel表数量
    TotalFiles = SourceFolder.Files.Count
    
    '初始化Excel应用程序
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.DisplayAlerts = False
    
    '遍历源文件夹中的每个Excel表，将其转换为PDF
    For Each FileItem In SourceFolder.Files
        If Right(FileItem.Name, 4) = ".xls" Or Right(FileItem.Name, 5) = ".xlsx" Then
            i = i + 1
            
            '打开Excel表
            Set ExcelBook = ExcelApp.Workbooks.Open(FileItem.Path)
            
            '设置PDF保存路径
            SavePath = FSO.BuildPath(Environ("USERPROFILE") & "\Desktop\PDFs", FSO.GetBaseName(FileItem.Name) & ".pdf")
            
            '将Excel表保存为PDF
            ExcelBook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SavePath
            
            '关闭Excel表
            ExcelBook.Close False
            
            '更新进度条
            UserForm1.ProgressBar1.Value = i / TotalFiles * 100
        End If
    Next
    
    '关闭Excel应用程序
    ExcelApp.Quit
    
    '销毁对象
    Set ExcelBook = Nothing
    Set ExcelApp = Nothing
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

这段代码使用Microsoft Excel应用程序将源文件夹中的每个Excel表转换为PDF，并在转换过程中使用用户窗体来显示进度条。您需要创建一个名为"UserForm1"的用户窗体，并在其中添加一个名为"ProgressBar1"的进度条控件。同时，您需要将源文件夹路径和PDF保存路径替换为您自己的路径。