做一个窗体，一打开EXCEL就会问候

frefs

不错！！！

wuerqin

表示看懂了，谢谢分享

simon630

需要什么都可以到这里来找，不用太懂就可以使用。太好了

aman1516

简单点就用Msgbox 吧，代码放Thisworkbook 内：

1. Private Sub Workbook_Activate()
   
2. Application.StatusBar = "作者：BBB  微信：12345678  今天是 " & Format(Now(), "yyyy年m月d日") & " " & Format(Now(), "AAA")
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_Open()
   
6. Select Case Time
   
7. Case Is < 0.5
   
8. MsgBox "早上好！"
   
9. Case 0.5 To 0.75
   
10. MsgBox "中午好！"
    
11. Case Is > 0.75
    
12. MsgBox "晚上好！"
    
13. End Select
    
14. End Sub
    

复制代码

darklesson

1、请新打开一个excel
2、新建一个窗体userform1 ,一个模块1
3、窗体上放一个标签label1
4、在模块1中粘贴如下代码：
Sub auto_open()
With UserForm1
.Show
Select Case Hour(Now)
    Case 7 To 9
    .Label1.Caption = "早上好！"
    Case 10 To 13
    .Label1.Caption = "中午好！"
    Case 14 To 19
    .Label1.Caption = "下午好！"
    Case Else
    .Label1.Caption = "晚上好！"
End Select
End With
t = Timer
Do While k < 5 '这里设置延迟关闭的时间单位：秒
k = Timer - t
DoEvents
Loop
Unload UserForm1
End Sub

5、另存为xlam加载宏，然后在开发工具的加载项中加载这个文件。
6、OK以后这台电脑不论你打开什么excel文件都会显示这个欢迎界面的。

ali1573

darklesson 发表于 2016-10-21 21:23
1、请新打开一个excel
2、新建一个窗体userform1 ,一个模块1
3、窗体上放一个标签label1

试了一下，不知道哪里不对，label1没有按当前时间来自动修改