月历记事本-万年历 7种配色漂亮的日历本+提醒事件

bluestorm_ty

chadwicko 发表于 2022-1-20 21:48
Public Sub 显示数据(strsql As String) '为ListView1设置各行数据
    Dim i&, j&
    On Error Resume  ...

Public Sub 显示数据(strsql As String) '为ListView1设置各行数据
    Dim i&, j&,k&
    On Error Resume Next
    Set rs = New ADODB.Recordset
    rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic
    With ListView1
        .ListItems.Clear
        k=rs.RecordCount
        For i = 1 To k
增加变量k,将rs.RecordCount赋值给k,即可解决。

excelwcs

边学边用，边用边学，好资料，收获满满

Cellfarmer

当文件存储在One Drive上，ThisWorkbook.FullName取得的路径是http:开始的URL，不是传统的C:\文件路径。ADODB（ACE 12.0）连接打开时不支持URL。 可以用Application.GetOpenFileName()这样的函数取得传统文件路径。已经在V3.3版本解决。

学良

Cellfarmer 发表于 2025-10-31 09:10
当文件存储在One Drive上，ThisWorkbook.FullName取得的路径是http:开始的URL，不是传统的C:\文件路径。ADO ...

本日历很好，若到2026年到期，那太可惜了，期待楼主新版本问世！
           谢谢！！！

brother

很好用的日历，请问如何用代码实现一打开表格“月历”，就默认显示当前月的月历？

2025-12-3:
已解决，在组合框内插入按钮，代码如下：

1. 
   
2. <div>Private Sub 按钮1446_Click()
   
3.     Dim currentYear%, currentMonth$
   
4.     Dim yearRow As Byte, monthRow As Byte
   
5.    
   
6.     currentYear = Format(Date, "yyyy")
   
7.     currentMonth = Format(Date, "m") & "月"
   
8.    
   
9.     With Sheets("UserForm")
   
10.         yearRow = Application.Match(currentYear, .Range("D4:D15"), 0)
    
11.         monthRow = Application.Match(currentMonth, .Range("B4:B15"), 0)
    
12.         
    
13.         If Not IsError(yearRow) Then .Range("D2").Value = yearRow
    
14.         If Not IsError(monthRow) Then .Range("B2").Value = monthRow
    
15.     End With
    
16. 
    
17. End Sub</div>

复制代码