用VBA写一个数据管理系统,要求对存储数据的格式、大小、提交日期、提交人员、用途、是否涉密等信息进行录入和修改
时间: 2023-12-26 10:04:20 浏览: 40
好的,以下是一个简单的VBA数据管理系统的代码示例:
1. 在Excel中打开一个新的工作簿,按下Alt+F11打开VBA编辑器,并在项目资源管理器中右键单击该工作簿,选择插入 -> 模块。在新模块中输入以下代码:
```
Option Explicit
Public Sub AddNewRecord()
Dim r As Range
Set r = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
r.Value = InputBox("请输入要存储的数据:")
r.Offset(0, 1).Value = InputBox("请输入数据格式:")
r.Offset(0, 2).Value = InputBox("请输入数据大小:")
r.Offset(0, 3).Value = InputBox("请输入提交日期:")
r.Offset(0, 4).Value = InputBox("请输入提交人员:")
r.Offset(0, 5).Value = InputBox("请输入数据用途:")
r.Offset(0, 6).Value = InputBox("请输入是否涉密(Y/N):")
End Sub
Public Sub EditRecord()
Dim s As String
Dim r As Range
s = InputBox("请输入要修改的数据:")
Set r = ActiveSheet.Range("A:A").Find(s, LookIn:=xlValues, LookAt:=xlWhole)
If r Is Nothing Then
MsgBox "未找到该数据!"
Else
r.Offset(0, 1).Value = InputBox("请输入新的数据格式:")
r.Offset(0, 2).Value = InputBox("请输入新的数据大小:")
r.Offset(0, 3).Value = InputBox("请输入新的提交日期:")
r.Offset(0, 4).Value = InputBox("请输入新的提交人员:")
r.Offset(0, 5).Value = InputBox("请输入新的数据用途:")
r.Offset(0, 6).Value = InputBox("请输入新的是否涉密(Y/N):")
End If
End Sub
Public Sub DeleteRecord()
Dim s As String
Dim r As Range
s = InputBox("请输入要删除的数据:")
Set r = ActiveSheet.Range("A:A").Find(s, LookIn:=xlValues, LookAt:=xlWhole)
If r Is Nothing Then
MsgBox "未找到该数据!"
Else
r.Delete
End If
End Sub
```
2. 在Excel中添加一个新的工作表,将以下信息添加到第一行:数据,格式,大小,提交日期,提交人员,用途,是否涉密。这些将成为您的标题。
3. 在新工作表中,添加一个按钮或快捷键,以便您可以轻松地运行这些宏。要添加按钮,请单击“开发人员”选项卡中的“插入”按钮,然后选择“按钮”。在工作表上绘制按钮,然后选择“新建宏”并输入以下代码:
```
Sub ShowMenu()
Dim strChoice As String
strChoice = InputBox("请选择操作:1-添加新记录;2-编辑记录;3-删除记录")
Select Case strChoice
Case "1": AddNewRecord
Case "2": EditRecord
Case "3": DeleteRecord
Case Else: MsgBox "无效的选择!"
End Select
End Sub
```
4. 现在您可以单击按钮或使用快捷键来打开菜单,选择要执行的操作。
请注意,此代码示例仅包含基本功能。您可以根据需要进行更改和扩展。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.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)