UC知道excel的宏 VB高手帮解答
来源：百度知道 编辑：UC知道 时间：2024/06/24 15:16:01
朋友想用VB做一个excel内嵌的备忘录，就是打开系统中任意一个excel文件时都会提示今天所要做的事情，备忘内容保存形式无所谓。下面我自己用excel带的VB编辑器写的一个窗体代码，但只能对特定的excel文件有效，如何才能对系统任一excel文件都有效？
Private Sub UserForm_Initialize()
Dim c As Range, cText$, dText$, eText$, nRow As Integer
Me.Label1.Caption = "今天是 " & Format(Date, "yyyy年m月d日 aaa")
nRow = Sheet1.Range("a65536").End(xlUp).Row
For i = 2 To nRow
If Range("a" & i) = Date Then
eText = Range("b" & i) & vbCrLf
cText = cText & eText
Else
cText = "今天没有备忘"
End If
Next
Me.TextBox1 = cText
End Sub
Private Sub UserForm_Initialize()
Dim c As Range, cText$, dText$, eText$, nRow As Integer
Me.Label1.Caption = "今天是 " & Format(Date, "yyyy年m月d日 aaa")
nRow = Sheet1.Range("a65536").End(xlUp).Row
For i = 2 To nRow
If Range("a" & i) = Date Then
eText = Range("b" & i) & vbCrLf
cText = cText & eText
Else
cText = "今天没有备忘"
End If
Next
Me.TextBox1 = cText
End Sub
★
简单地说，编译成dll就行了，这样几何excel文件都可以加载此函数了。
具体的过程非三言两语能说完，可以到网上找找资料，最好是找excel论坛
另外建议你加入下面两个QQ群中的一个，是属于技术联盟的excel技术群，里面高手如云，相信你的任何excel问题都能在群里得到解答。群号如下：
Excel吧—zss：7987867 (Excel知识交流，VBA实例应用)
Excel吧: 20381571 (Excel知识交流，VBA实例应用,T新入三天未发言者、发言时间最旧者.)
留个记号，我也想知道...
宏好难学呵。