VBA操作Excl表格常用命令

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

'获取C列的数据
c = Range("C65536").End(3).Row

'获取C列的数据数量，需要多加一列就在后面+1即可


c = Range("C65536").End(3).Row +1

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

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

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

'打开的是文件所在的绝对路径，比如我在桌面新建了一个1.xlsl文件
'赋值路径

表名称 = "C:\Users\Administrator\Desktop\新建文件夹\1.xlsl"


'执行open命令，打开这个文件

Workbooks.Open 表名称

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

 Sheets("Sheet1").Activate

5.获取单元格的内容

'获取B列2行的内容

B2 = Range("B2").Value 

6.单元格赋值内容

'B列2行的内容赋值为鸡哥

Range("B2").Value =  "蔡徐坤"

7.单元格设置背景颜色

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

8.保存并且关闭excl文件

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

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

i = 1

字符串 = CStr(i)

10.设置某一列的宽度

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

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

'要在哪一列左边插入，就先选中这一列
'先选中D列
 Range("D:D").Select
        
'在D列的左边插入一列
Selection.Insert Shift:=xlShiftToRight

'如果往右边插入，就把Right替换为left

Selection.Insert Shift:=xlShiftToLeft

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

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

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

If 出库数量 > 库存数量 Then
        
   Worksheets(工作表).Cells(ii, 4).Value = 随机数
            
'如果出库数量等于库存数量
        
ElseIf 出库数量 = 库存数量 Then
            
   Worksheets(工作表).Cells(ii, 4).Value = 随机数
            
Else
             
   Worksheets(工作表).Cells(ii, 4).Value = 4
             
End If

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

'This = 当前，如果不需要就不用加
a = ThisWorkbook.Sheets.Count

b = Worksheets.Count

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

  For ii = 5 To aa

    
    产品名称 = Worksheets(i).Range("B" & ii).Value '名称
    
    
        If 产品名称 = 0 Then
            
            
            MsgBox ii
            
        '终止当前的for循环，跳出循环
        Exit For
        

        End If
    
    
   Next

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

'方法里面调用模块里面的方法

a = "我是表名称"

'开始调用，把表名称传递过去

增加日期表(a)

'模块里面
Sub 增加日期表(a)



    '定义变量
    i = 0
    

    '循环遍历工作表名称，查看有没有已经创建了的
    For Each s In Sheets
    
        
        If a = s.Name Then
        
            '如果发现有已经创建的了就赋值给遍历
            i = 1
            
        End If
  
    Next


    
    
  '  MsgBox i
    
    
    '只有在没有赋值的情况下才创建工作表
    If i = 0 Then
    
        Worksheets.Add before:=Worksheets(1)

        ActiveSheet.Name = a
    
    End If


End Sub