请使用vba做一个财务列表
时间: 2023-05-20 09:07:07 浏览: 54
好的,以下是一个简单的 VBA 代码示例,用于创建一个财务列表:
Sub CreateFinanceList()
'定义变量
Dim ws As Worksheet
Dim rng As Range
Dim i As Integer
'创建新工作表
Set ws = ThisWorkbook.Sheets.Add(After:= _
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "Finance List"
'设置表头
ws.Range("A1").Value = "日期"
ws.Range("B1").Value = "收入"
ws.Range("C1").Value = "支出"
ws.Range("D1").Value = "余额"
'设置格式
ws.Range("A1:D1").Font.Bold = True
ws.Range("A1:D1").HorizontalAlignment = xlCenter
'输入数据
Set rng = ws.Range("A2")
For i = 1 To 12
rng.Value = DateSerial(Year(Date), i, 1)
rng.Offset(0, 1).Value = Int(Rnd * 10000)
rng.Offset(0, 2).Value = Int(Rnd * 5000)
rng.Offset(0, 3).Formula = "=B" & rng.Row & "-C" & rng.Row & "+D" & rng.Row - 1
Set rng = rng.Offset(1, 0)
Next i
'自适应列宽
ws.Columns.AutoFit
'提示完成
MsgBox "财务列表已创建完成!"
End Sub
希望这个代码能够帮到你!
相关推荐
![xls](https://img-home.csdnimg.cn/images/20210720083658.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)