Excel VBA
Hello_World_2021
这个作者很懒,什么都没留下…
展开
-
Excel VBA 调用之前写好的宏
Sub zong() Call read_txt_file_name Call import_from_txt Call change_sheet_name Call sum_table End Sub原创 2020-04-14 15:58:24 · 479 阅读 · 0 评论 -
Excel VBA 根据数据做汇总表格,最大值,最小值
Sub sum_table()'汇总每个sheet的结果,最大值,最小值之类的 Dim arr, dic, colh, rowh Dim i%, j%, k% Dim rmax(), rmin(), rrange(), rmaxamongpulley(), rminamongpulley(), rmaxamongeachrun(), rminamongeachrun()...原创 2020-04-14 15:57:27 · 1744 阅读 · 0 评论 -
Excel VBA 导入txt文件内容
Sub import_from_txt()'根据sheet1第一列的文件名导入txt文件的内容到之后的sheet中,每个文件一个sheet Dim file_name As String, my_path As String Dim lines, cols Dim i As Integer, j As Integer, k As Integer, q As Integer...原创 2020-04-14 15:56:16 · 4111 阅读 · 1 评论 -
Excel VBA 读取当前文件夹下的txt文件名
Sub read_txt_file_name()'读取当前文件夹下txt文件的文件名,写入sheet1的第一列Dim r As LongDim Fso As ObjectDim myfile As ObjectDim mySheet As WorksheetDim txtFolder As Objectr = 1Set txtFolder = CreateObject("S...原创 2020-04-14 15:55:06 · 3080 阅读 · 0 评论 -
Excel VBA 根据单元格内容更改工作表名称
Public Sub 更改名称() For i = 2 To Worksheets.Count Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value NextEnd Sub原创 2020-04-14 15:53:55 · 4427 阅读 · 0 评论 -
Excel VBA 批量取工作表名称
'批量取工作表名称Function gname(x As Integer) If x = 0 Then gname = ActiveSheet.Name ElseIf x > 0 And x <= Sheets.Count Then gname = Sheets(x).Name ElseIf x > Sheets.Count Then MsgBox "超出范围...原创 2020-04-14 15:52:54 · 704 阅读 · 0 评论 -
Excel VBA 批量更改坐标轴名称
Sub 批量改图表坐标轴名称()Dim co As ChartObject i = 0 For Each co In ActiveSheet.ChartObjects '处理当前工作表中所有的图表 i = i + 1 co.Chart.Axes(xlCategory).HasTitle = True '显示横轴标题 co.Chart.A...原创 2020-04-14 15:46:02 · 1876 阅读 · 0 评论