excelvba快速入门教程
excel怎样用vba写完成日期？
excel怎样用vba写完成日期？
1打开Excel表格，点击【文件】，【另存为】，在“保存类型”里面选择“Excel 启用宏的工作薄”并进行保存。
2点击【开发工具】，【Visual Basic】打开VBA工程窗口。
3在左侧的“VBAProject（自动记录时间点.xlsm）”下方双击“Sheet1(Sheet1）”打开代码输入窗口。
4在代码输入窗口里面输入以下VBA代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) amp#39工作表选定区域发生改变时执行
Dim b1 As Boolean
Dim a, b, c, d, e, f As Variant
Dim i, j As Integer
Set myDocument (#34Sheet1#34)
For i 2 To 1000 amp#39循环2-1000次，即：以下自动填充时间到1000行
a myDocument.Cells(i, 1) amp#39将单元格赋值给a
b myDocument.Cells(i, 2)
c myDocument.Cells(i, 3)
d myDocument.Cells(i, 4)
e myDocument.Cells(i, 5)
f myDocument.Cells(i, 6)
b1 (a ltgt #34#34, b ltgt #34#34, c ltgt #34#34, d ltgt #34#34, e ltgt #34#34)
If b1 True And f #34#34 Then amp#39如果所在行已经填写信息且自动填充时间为空白，则执行自动填充时间
5在同一行上面的第1到第5列对应的单元格都写入数据信息，且同一行上面的第6列对应的单元格是空白的，那么就会在同一行上面的第6个单元格里面自动写入当前的时间。
excelvba生成随机数并判断？
只需把INT（RAND()* 8）复制到单元格即可，RAND()表示0到1之间的随机数RAND()*-100则是-100到0之间的随机数，RAND()*-100 50则是-50到50之间的随机数取整数为INT(RAND()*-100 50)注意：INT函数为取整，表示小于该数的最小整数如INT(8.13)8而INT-8.13)-9不过这个不会影响你去随机数