返回目录:excel表格制作
详细步骤如下:
1.在VBE界面,百双击“Thisworkbook”
2.此处选择workbook,会自动出现两串代度码
3.在代码中间,添加上要打开专Excel运行的代码
4.保存并关闭,再属打开这个Excel,就会自动弹出VBA界面来了
可能是有自动宏运zd行,但你的OFFICE文件的宏程序运行功能有问题(未安装或损坏),可以尝试修复OFFICE,然后再打开试试.
友情提示:除非内你能确定这个excel文件的安全性容,否则打开时自动运行宏的文件很危险(宏病毒很猖獗)
运行VBA一般有以下三种方式。
一、点击菜单栏“开发工具”,选择宏快捷图标-选择需要运zd行的宏,按执行按钮。如图
二、点击附加专了程序的按钮。如图:
三、触发了事件驱动的程序。例如下面这段程序,只要在工作表中发生编属辑操作,就会触发这段程序运行。代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Column = 3 Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
End Sub
我用VBA写了一个,你参考下吧。呵呵。效百果:根据打开文件时的日度期,提醒后7天的日程。
实现步骤:在回【工程资源管理器】中的【thisworkbook】上双击,在弹出的代答码框内写下代码:
Private Sub Workbook_open()
Dim x, i As Integer
Dim thedate As Date
Dim str As String
Dim str1 As String
xr = Cells(65535, 1).End(xlUp).Row
For i = 2 To xr Step 1
thedate = Cells(i, 1).Value
x = DateDiff("d", Now, thedate)
If x <= 7 Then str1 = Cells(i, 1) & ":" & Cells(i, 2) Else str1 = ""
str = str & Chr(10) & str1
Next
MsgBox "最近7天要做的事:" & str
End Sub