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