• VBA操作Excl表格常用命令

    1.获取某一列数据有多少数量

    1. '获取C列的数据
    2. c = Range("C65536").End(3).Row
    3.  
    4. '获取C列的数据数量，需要多加一列就在后面+1即可
    5.  
    6.  
    7. c = Range("C65536").End(3).Row +1

    2.选中当前工作表的某一列，或者行

    1.  
    2. '需要在前面加 Worksheets("Sheet1"). 
    3. '使用场景：如果你在A表执行的命令，如果不加 Worksheets("B"). 的话，那么执行到了B表的时候，直接使用 Range("C2").Select 会选择的是 A表的内容
    4.  
    5. Worksheets("Sheet1").Range("C2").Select

    3.打开工作薄，就是打开某一个文件

    1. '打开的是文件所在的绝对路径，比如我在桌面新建了一个1.xlsl文件
    2. '赋值路径
    3.  
    4. 表名称 = "C:\Users\Administrator\Desktop\新建文件夹\1.xlsl"
    5.  
    6.  
    7. '执行open命令，打开这个文件
    8.  
    9. Workbooks.Open 表名称

     4.打开工作薄（文件）里面的某一张工作表

     Sheets("Sheet1").Activate

    5.获取单元格的内容

    1. '获取B列2行的内容
    2.  
    3. B2 = Range("B2").Value

    6.单元格赋值内容

    1. 'B列2行的内容赋值为鸡哥
    2.  
    3. Range("B2").Value =  "蔡徐坤"

    7.单元格设置背景颜色

    1. 'B列2行的背景颜色设置为 65535 的这个颜色，二进制，RGB 都可以作为参数
    2. Range("B2").Interior.Color = 65535

    8.保存并且关闭excl文件

    1. '保存并且关闭当前excl文件 
    2. ActiveWorkbook.Close Savechanges:=True

    9.把int数值、数字类型转为字符串类型

    1.  
    2. i = 1
    3.  
    4. 字符串 = CStr(i)

    10.设置某一列的宽度

    1. '设置D列的宽度为16
    2. Columns("D").ColumnWidth = 16

    11.在指定的某一列左右两边插入一列，D列左边插入一列 或 D列右边插入一列

    1. '要在哪一列左边插入，就先选中这一列
    2. '先选中D列
    3.  Range("D:D").Select
    4.         
    5. '在D列的左边插入一列
    6. Selection.Insert Shift:=xlShiftToRight
    7.  
    8. '如果往右边插入，就把Right替换为left
    9.  
    10. Selection.Insert Shift:=xlShiftToLeft

    12.生成一个 1~3 的随机数（这个还没有摸明白，谁要明白麻烦帮忙留言下，谢谢！）

    1.  '声明随机数
    2.  Randomize
    3.         
    4.  随机数 = Int(Rnd * 3 + 1) '开始随机

    13. IF判断if 和 else 、elseif 的语法

    1. If 出库数量 > 库存数量 Then
    2.         
    3.    Worksheets(工作表).Cells(ii, 4).Value = 随机数
    4.             
    5. '如果出库数量等于库存数量
    6.         
    7. ElseIf 出库数量 = 库存数量 Then
    8.             
    9.    Worksheets(工作表).Cells(ii, 4).Value = 随机数
    10.             
    11. Else
    12.              
    13.    Worksheets(工作表).Cells(ii, 4).Value = 4
    14.              
    15. End If

    14.获取当前excl表里面一共有多少个工作表

    1.  
    2. 'This = 当前，如果不需要就不用加
    3. a = ThisWorkbook.Sheets.Count
    4.  
    5. b = Worksheets.Count

    15.For循环语法 和 终止for循环，跳出for循环

    1.   For ii = 5 To aa
    2.  
    3.     
    4.     产品名称 = Worksheets(i).Range("B" & ii).Value '名称
    5.     
    6.     
    7.         If 产品名称 = 0 Then
    8.             
    9.             
    10.             MsgBox ii
    11.             
    12.         '终止当前的for循环，跳出循环
    13.         Exit For
    14.         
    15.  
    16.         End If
    17.     
    18.     
    19.    Next

    16.新建一个工作表，传递 自定义表名称，如果 传递的表名称存在，则不创建。需要写在模块里面调用

    1. '方法里面调用模块里面的方法
    2.  
    3. a = "我是表名称"
    4.  
    5. '开始调用，把表名称传递过去
    6.  
    7. 增加日期表(a)
    1. '模块里面
    2. Sub 增加日期表(a)
    3.  
    4.  
    5.  
    6.     '定义变量
    7.     i = 0
    8.     
    9.  
    10.     '循环遍历工作表名称，查看有没有已经创建了的
    11.     For Each s In Sheets
    12.     
    13.         
    14.         If a = s.Name Then
    15.         
    16.             '如果发现有已经创建的了就赋值给遍历
    17.             i = 1
    18.             
    19.         End If
    20.   
    21.     Next
    22.  
    23.  
    24.     
    25.     
    26.   '  MsgBox i
    27.     
    28.     
    29.     '只有在没有赋值的情况下才创建工作表
    30.     If i = 0 Then
    31.     
    32.         Worksheets.Add before:=Worksheets(1)
    33.  
    34.         ActiveSheet.Name = a
    35.     
    36.     End If
    37.  
    38.  
    39. End Sub

  • 相关阅读:
    PHP跌出前十，Python依然霸占榜首，C#有望摘得年度编程语言 TIOBE 12 月编程语言排行榜
    【Web前端】一文带你吃透CSS(中篇)
    【数据结构】线性表（四）双向链表的各种操作（插入、删除、查找、修改、遍历打印）
    自制OS 5-1==用C语言不用C库写内核。一个独立内核OS的制作
    UE 实现鼠标点选模型
    LightGBM高级教程：深度集成与迁移学习
    【云原生 | 从零开始学Kubernetes】十四、k8s核心技术-Controller
    angular：简单实现图片如果超过屏幕高度则滚动置顶；没超过则水平垂直居中
    选择题汇总4(括号里填的答案都是对的，不用管下面那个答案正确与错误，因为作者懒得删了）
    基于蝙蝠优化算法的电力系统经济调度研究（Matlab代码实现）
  • 原文地址：https://blog.csdn.net/hzhairuntao/article/details/127110836