作者:乔山办公网日期:
返回目录:excel表格制作
你有打开文件吗?该文件vb编辑器设了密码吗?
用的是WPS的个人版?个人版是不包含VB功能的,升级成专业版或企业版才可以使用,建议还是安装Microsoft Office Excel
EXCEL2003的数据菜单下有个记录单功能,将一条记录显示在一个界面,同时具有检索和编辑的功能,可以满足你的要求。不会用的话看看帮助吧。你可以用VBA在文件打开时就调用记录单功能。
编写个宏来实现吧,帮你写出来了
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 1000
If Cells(i, 3) < 31 Then
Cells(i, 4).Interior.ColorIndex = 2
ElseIf Cells(i, 3) < 46 Then
Cells(i, 4).Interior.ColorIndex = 6
ElseIf Cells(i, 3) < 61 Then
Cells(i, 4).Interior.ColorIndex = 9
ElseIf Cells(i, 3) < 91 Then
Cells(i, 4).Interior.ColorIndex = 7
ElseIf Cells(i, 3) < 181 Then
Cells(i, 4).Interior.ColorIndex = 3
End If
Next i
End Sub
怎么用知道吧,在EXCEL里面按Alt+F11,在VB编辑器中点击sheet1,然后输入以上函数喉退出VB编辑器就行了,在excel上输入任意e799bee5baa6e997aee7ad94e58685e5aeb9335东西函数就启动。 这样算不算例子。。