使用Excel打造一款个人日志系统

置顶 已于 2023-07-26 21:38:08 修改
阅读量4.1k 收藏 21
点赞数 7
文章标签： 开源
于 2023-04-16 15:48:35 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/m0_48468018/article/details/130176927
版权

写在前面

我很多年前看过晨间日志的奇迹这一本书，我深受启发，这本书的中心思想就是通过九宫格的方式写连体日志，自己可以方便查找而有而且有激情去完成这个日志，书中推荐的方法是使用excel写日志。但是自己总感觉用excel过于麻烦，打开电脑，写日志，可能10几分钟过去了。自己曾尝试使用其他方法，如印象笔记，有道云笔记，onenote，但是都没有坚持下来，主要原因还是写日志的过程过于复杂，没有办法宏观的看自己取得了哪些成果和进步，而且时间往往都比较紧张，没有办法在早晨完成日志。导致最后变成了月计划周计划。自己也一直想打造一款个人的日志软件，想使用django+vue，但是一直没有想好数据如何存储，如果存在数据库，搭建在云服务器上，可能还需要花费额外的金钱，而且便宜的云数据库往往速度不是很快。直到最近遇到了vba这个语言，突然深受启发，开始使用vba打造一款excel的日志软件。

使用excel打造个人日志系统的整体逻辑

整体上使用excel打造个人日志系统，就类似于通过一个表单提交数据到数据库当中，在这里一个sheet页里存的是一个表单，另外一个sheet页存储excel提交的信息，相当于数据库。
在Excel当中可以添加VB宏，相当于后端逻辑。可以通过插入一些形状作，为一些前端的控件，然后把控件和宏进行关联，点击控件执行宏的逻辑。
接下来将一步一步教你如何打造这款日志系统。

写日记页面介绍

在这里插入图片描述
在写日记页面主要有两个表单，第一个表单是默认是当天的日期，然后可以在九宫格中填入当天需要记下的日志，点击提交按钮，将会将数据存储到excel中的晨间日记数据库中。第二个表单主要目的是可以查看过去编写的日志，感受到自己的变化，默认信息是去年同一天记录的日志。在这个表单中也可以切换日期，通过切换年、切换日、或者点击今天切换日期，也可以在日期单元格指定具体的日期，点击查询，将会切换到具体的日期。点击重新编辑将会将第二个表单的中的信息覆盖到第一个表单中，允许你重新编辑该天信息。编辑后点击提交按钮，将会把指定日期的信息重新覆盖。

使用宏开发组件

在WPS中选择开发工具，然后选择VB宏就可以添加个人的宏代码，点击对应的sheet页，在该页面添加需要实现的宏。
在这里插入图片描述

第一个重要的宏就是实现将写日记页面中的数据提交到晨间日记数据库页面中存储的功能，如下两图
在这里插入图片描述
在这里插入图片描述

提交宏

在这里插入图片描述
宏代码如下

Sub 提交_Click()
    Dim x As Integer, y As Long, z As Integer
    y = Sheets("晨间日记数据库").[a65536].End(xlUp).Row + 1
    brr = Sheets("晨间日记数据库").Range("a2:a" & y)
    t = Sheets("写日记").Range("l16")
    arr = Array(Sheets("写日记").Range("l16"), Sheets("写日记").Range("L18"), Sheets("写日记").Range("L19"), Sheets("写日记").Range("L20"), Sheets("写日记").Range("L21"), Sheets("写日记").Range("L22"), Sheets("写日记").Range("L23"), Sheets("写日记").Range("B5"), Sheets("写日记").Range("i5"), Sheets("写日记").Range("p5"), Sheets("写日记").Range("B15"), Sheets("写日记").Range("p15"), Sheets("写日记").Range("B25"), Sheets("写日记").Range("i25"), Sheets("写日记").Range("p25"))
    If IsEmpty(brr) Then
     Sheets("晨间日记数据库").Range("a" & y).Resize(1, UBound(arr) + 1) = arr
    Else
    For x = 1 To UBound(brr)
        If t = brr(x, 1) Then
            i = MsgBox("相同日期的数据已录入，是否覆盖？", 4, "警告")
            If i = vbNo Then Exit Sub
            Sheets("晨间日记数据库").Range("a" & x + 1).Resize(1, UBound(arr) + 1) = arr
            GoTo line1:
        End If
    Next
    Sheets("晨间日记数据库").Range("a" & y).Resize(1, UBound(arr) + 1) = arr
    End If
line1:
    MsgBox "提交成功"
    Range("AH16") = Range("l16")
    Range("B5:V13,B15:H23,P15:V23,B25:H33,I25:O33,P25:V33,l18:O23").ClearContents
    ActiveWorkbook.Save
End Sub

代码的具体含义如下：

  1. 定义变量：x，y，z，和数组变量brr和arr。
  2. 计算晨间日记数据库页面目前已有的数据行数，然后将新数据添加到下一行（即初始化变量y）。
  3. 将晨间日记数据库页面中所有的日期数据（即a2到a[y]）存储在数组变量brr中，并将写日记页面中的所有需要提交的数据存储在数组变量arr中。
  4. 如果数组brr为空，则说明数据表中还没有任何数据，直接将arr数组存储到a[y]到a[y]+UBound(arr)+1行中。
  5. 如果数组brr非空，则表示数据表中已经有数据，需要对它们逐一进行比对，判断新添加的数据是否重复。如果存在相同记录则提醒用户进行覆盖或直接退出，然后将新的数据覆盖原来的数据。
  6. 提交数据成功后，清空写日记页面中的数据，并将日期数据存储在AH16单元格中。最后，提示用户提交成功，并保存当前工作表。

至此已经完成了一个重要的功能，存储日志数据到晨间日记数据库中，最后晨间日记数据库效果如下：
在这里插入图片描述
以上的功能已经满足了基本需求。但是有的时候可能想去修改某一天的日志，如果这时候去数据库中修改，可能不是很方便，没有九宫格看的直观好看，这时候如果开发一个控件，把数据同步过来，并修改，那这样会方便直观很多。
另外，晨间日志的奇迹主要是把今天跟去年的同一天进行对比，这样可以看到自己的进步，从而也可以让自己更有动力去写日志。
整体实现逻辑如下图，首次打开写日记sheet页，在第二个九宫格里展示的是去年的同一天。可以通过年和日的左右控件去切换年和切换日，也可以点击今天或者切换到指定的日期，对应日期的信息会同步到9宫格当中，点击重新编辑会同步信息到第一个九宫格，允许自己重新编辑并存储到晨间日记数据库中。

日期切换宏

如下是日期切换涉及到的宏
在这里插入图片描述

首先是日期切换组件的代码，宏的代码如下

Sub 上一年_Click()
  Dim DQdate As Date, NDate As Date, ts As Integer
  If Sheets("晨间日记数据库").Range("A2").Value <> "" Then
    NDate = Sheets("晨间日记数据库").Range("A2")
  End If
  If IsDate(Range("AH16").Value) Then
    DQdate = Range("AH16")
  Else
    MsgBox "请确保输入的日期有效。"
    Exit Sub
  End If
  ts = 1
  If DQdate > NDate Then
    Range("AH16") = DateSerial(Year(DQdate) - ts, Month(DQdate), Day(DQdate))
    If Range("AH16") >= NDate Then
      result = GetDiaryData()
    Else
      MsgBox "那一天还没有开始写日志,跳转到默认的时间"
      result = GoToDefault()
    End If
  Else
    MsgBox "已经达到最小年份，无需跳转"
  End If

Sub 下一年_Click()
Dim DQdate As Date, ts As Integer
t = Date
If Range("AH16").Value <> "" Then DQdate = Range("AH16")
If Year(Range("AH16")) < Year(t) And Range("AH16") <> "" Then
  Range("AH16") = DateSerial(Year(DQdate) + 1, Month(DQdate), Day(DQdate))
  result = GetDiaryData()
  Else
   MsgBox "未来可期，但要活在当下"
End If
End Sub

Sub 今天_Click()
result = GoToToday()
End Sub

Sub 上一日_Click()
Dim DQdate As Date, NDate As Date, ts As Integer
If Sheets("晨间日记数据库").Range("A2").Value <> "" Then NDate = Sheets("晨间日记数据库").Range("A2")
If Range("AH16").Value <> "" Then DQdate = Range("AH16")
  ts = 1
  If Range("AH16") <> "" And Range("AH16") > NDate Then
    Range("AH16") = DateSerial(Year(DQdate), Month(DQdate), Day(DQdate) - ts)
    result = GetDiaryData()
  Else
   MsgBox "也许正是这一天，您决定写日志来改变自己，但没来得及记录，无论怎样，好好享受当下吧"
   result = GoToDefault()
End If
End Sub

Sub 下一日_Click()
Dim DQdate As Date, ts As Integer
t = Date
If Range("AH16").Value <> "" Then DQdate = Range("AH16")
If Range("AH16") < t And Range("AH16") <> "" Then
 Range("AH16") = DateSerial(Year(DQdate), Month(DQdate), Day(DQdate) + 1)
 result = GetDiaryData()
 
Else
   MsgBox "未来可期，但要活在当下"
End If
End Sub

Function GoToDefault() As Variant
        Range("AH16") = DateSerial(Year(Date) - 1, Month(Date), Day(Date))
        result = GetDiaryData()

End Function

Function GoToToday() As Variant
        Range("AH16") = DateSerial(Year(Date), Month(Date), Day(Date))
        result = GetDiaryData()
End Function

下面是代码的详细解释：

  1. Sub 上一年_Click()：这个子程序用于在工作表中显示上一年的晨间日记记录。首先获取当前工作表中的日期值和晨间日记数据库最早日期的日期值。如果最早日期的日期值不为空，则将其赋值给变量 NDate。如果当前选定日期不为空，则将其赋值给变量 DQdate。

    另外还对最早日期的日期有效性进行判断，确保是日期的格式。代码分别在年份和日期上限制用户，年份不能小于日志系统的最小年份，日期不能小于日期系统的最小日期

  2. Sub 下一年_Click()：这个子程序用于在工作表中显示下一年的晨间日记记录。首先获取当前工作表中的日期值和当前的系统日期值。如果当前选定日期不为空，则将其赋值给变量 DQdate。如果当前选定日期的年份小于系统日期的年份，则计算下一年的日期并将其赋值给当前选定日期。接着调用 GetDiaryData() 函数来获取该日期的日志记录，并将返回值赋值给变量 result。

    如果当前选定日期的年份大于或等于系统日期的年份，则弹出消息框提示“未来可期，但要活在当下”。

  3. Sub 今天_Click()：这个子程序用于在工作表中显示今天的晨间日记记录。首先调用 GoToToday() 函数将当前选定日期设置为今天日期，并获取该日期的日志记录，并将返回值赋值给变量 result，用于提交后快速重新修改。

  4. Sub 上一日_Click()：这个子程序用于在工作表中显示前一天的晨间日记记录。首先获取当前工作表中的日期值和最早日志记录的日期值。如果最早日志记录日期值不为空，则将其赋值给变量 NDate。如果当前选定日期不为空，则将其赋值给变量 DQdate。

    如果当前选定日期大于最新日志记录的日期，则计算前一天的日期并将其赋值给当前选定日期。接着调用 GetDiaryData() 函数来获取该日期的日志记录，并将返回值赋值给变量 result。

    如果当前选定日期小于或等于最早日志记录的日期，则弹出消息框提示“也许正是这一天，您决定写日志来改变自己，但没来得及记录，无论怎样，好好享受当下吧”，并将日期切换到系统的默认时间。

  5. Sub 下一日_Click()：这个子程序用于在工作表中显示后一天的晨间日记记录。首先获取当前工作表中的日期值和当前的系统日期值。如果当前选定日期不为空，则将其赋值给变量 DQdate。如果当前选定日期小于系统日期，则计算后一天的日期并将其赋值给当前选定日期。接着调用 GetDiaryData() 函数来获取该日期的日志记录，并将返回值赋值给变量 result。

    如果当前选定日期大于或等于系统日期，则弹出消息框提示“未来可期，但要活在当下”。

  6. Function GoToDefault()：这个函数用于将当前选定日期设置为去年的今天日期，并获取该日期的日志记录。首先计算去年的今天日期并将其赋值给当前选定日期。接着调用 GetDiaryData() 函数来获取该日期的日志记录，并将返回值赋值给变量 result。

  7. Function GoToToday()：跳转到今天。

  8. 代码中涉及到的GetDiaryData函数，将在下面解释。

查询宏

在这里插入图片描述
宏代码如下

Sub 查询_Click()
result = GetDiaryData()
End Sub

查询宏实现功能是输入日期后点击查询就可以查询对应日期的数据，主要调用了GetDiaryData()函数，如下

Function GetDiaryData() As Variant
    
    Dim diarySheet As Worksheet, logSheet As Worksheet
    Dim diaryRange As Range
    Dim logDate As Date, diaryDate As Date, ah17Date As Variant
    Dim dateValue As Date
    
    Dim i As Integer, j As Integer
    
    Set diarySheet = Worksheets("晨间日记数据库")
    Set logSheet = Worksheets("写日记")
    Set diaryRange = diarySheet.Range("A2", diarySheet.Cells(diarySheet.Rows.Count, "A").End(xlUp)).Resize(, 17)
    y = diarySheet.[a65536].End(xlUp).Row + 1
    brr = diarySheet.Range("a2:a" & y)
    If IsEmpty(brr) Then
     MsgBox "晨间日记数据库目前为空"
    Else
    foundDate = False
    If Not IsDate(logSheet.Range("AH17").Value) Then
      MsgBox "输入的日期不正确，请重新输入,九宫格将恢复到默认的数据"
      result = GoToDefault()
      Exit Function
    End If
    
    diaryDate = logSheet.Range("AH16").Value
    

    
    For i = 1 To diaryRange.Rows.Count
        logDate = diaryRange.Cells(i, 1).Value
        If DateDiff("d", logDate, diaryDate) = 0 Then
            logSheet.Range("AH18") = diaryRange.Cells(i, 2).Value
            logSheet.Range("AH19") = diaryRange.Cells(i, 3).Value
            logSheet.Range("AH20") = diaryRange.Cells(i, 4).Value
            logSheet.Range("AH21") = diaryRange.Cells(i, 5).Value
            logSheet.Range("AH22") = diaryRange.Cells(i, 6).Value
            logSheet.Range("AH23") = diaryRange.Cells(i, 7).Value
            logSheet.Range("X5") = diaryRange.Cells(i, 8).Value
            logSheet.Range("AE5") = diaryRange.Cells(i, 9).Value
            logSheet.Range("AL5") = diaryRange.Cells(i, 10).Value
            logSheet.Range("X15") = diaryRange.Cells(i, 11).Value
            logSheet.Range("AL15") = diaryRange.Cells(i, 12).Value
            logSheet.Range("X25") = diaryRange.Cells(i, 13).Value
            logSheet.Range("AE25") = diaryRange.Cells(i, 14).Value
            logSheet.Range("AL25") = diaryRange.Cells(i, 15).Value
            foundDate = True
            Exit For '找到了就退出循环，没有必要继续循环
        End If
    Next i
    
    If Not foundDate Then '循环结束后仍没有找到
          result = ClearValue()
        
    End If
    End If

    
End Function

Function ClearValue() As Variant
        Dim logSheet As Worksheet
        Set logSheet = Worksheets("写日记")
                logSheet.Range("AH18").Value = ""
        logSheet.Range("AH19").Value = ""
        logSheet.Range("AH20").Value = ""
        logSheet.Range("AH21").Value = ""
        logSheet.Range("AH22").Value = ""
        logSheet.Range("AH23").Value = ""
        logSheet.Range("X5").Value = ""
        logSheet.Range("AE5").Value = ""
        logSheet.Range("AL5").Value = ""
        logSheet.Range("X15").Value = ""
        logSheet.Range("AL15").Value = ""
        logSheet.Range("X25").Value = ""
        logSheet.Range("AE25").Value = ""
        logSheet.Range("AL25").Value = ""

End Function

具体逻辑如下：

  1. 获取工作表对象和数据范围对象

首先获取两个工作表对象：‘晨间日记数据库’和’写日记’，并且获取’晨间日记数据库’工作表中日记数据的范围，用diaryRange表示。

  1. 判断晨间日记数据库是否为空，为空直接抛出晨间日记数据库目前为空，否则继续向下执行
  2. 遍历日记数据范围

利用For循环遍历diaryRange中每一行的日记数据，获取日记日期logDate，并与输入的日记日期diaryDate进行比较。如果两个日期相等，就将对应的日记数据复制到’写日记’工作表的指定单元格中，并设置foundDate为True表示找到了对应日期的日记。

  1. 输入日期不正确

如果输入的日期不正确，弹出提示框提示用户重新输入，并返回到默认的数据状态，即调用GoToDefault()函数。

  1. 没有找到对应日期的日记

如果循环结束后仍然没有找到对应日期的日记，清空单元格信息，可以切换其他日期继续查看

编辑宏

在这里插入图片描述

这个宏主要是把右边九宫格的内容同步到左边九宫格，这样可以对指定日期的记录重新编辑，并提交到晨间日志数据库中。代码逻辑如下

Sub 编辑_Click()
 If Range("B5").Value <> "" And Range("i5").Value <> "" And Range("p5").Value <> "" Then
 i = MsgBox("本日内容将在左侧九宫格中编辑，" & Chr(10) & "但是左侧九宫格中已有内容，" & Chr(10) & "是否覆盖？", 4, "警告")
If i = vbNo Then Exit Sub
Range("l16") = Range("AH16")
Range("L18") = Range("AH18")
Range("L19") = Range("AH19")
Range("L20") = Range("AH20")
Range("L21") = Range("AH21")
Range("L22") = Range("AH22")
Range("L23") = Range("AH23")
Range("B5") = Range("X5")
Range("i5") = Range("AE5")
Range("p5") = Range("AL5")
Range("B15") = Range("X15")
Range("p15") = Range("AL15")
Range("B25") = Range("X25")
Range("i25") = Range("AE25")
Range("p25") = Range("AL25")

 
 Else
Range("l16") = Range("AH16")
Range("L18") = Range("AH18")
Range("L19") = Range("AH19")
Range("L20") = Range("AH20")
Range("L21") = Range("AH21")
Range("L22") = Range("AH22")
Range("L23") = Range("AH23")
Range("B5") = Range("X5")
Range("i5") = Range("AE5")
Range("p5") = Range("AL5")
Range("B15") = Range("X15")
Range("p15") = Range("AL15")
Range("B25") = Range("X25")
Range("i25") = Range("AE25")
Range("p25") = Range("AL25")
End If
End Sub

在这个宏中，如果B5、i5和p5单元格中都有值，那么就会出现一个警告询问是否覆盖左侧九宫格中的内容。如果用户点击否，宏就会终止；如果用户点击是，宏就会执行复制右边九宫格的内容到左边。
如果B5、i5和p5单元格中有任何一个是空白的，那么宏就会直接执行以上操作，而不弹出警告提示。

Workbook中的宏

work中的宏可以设置打开workbook时的默认值,代码如下，设置AH16单元格的值为去年今天，l16单元格的值为今天，最后调用前面提到的GetDiaryData()函数，获取去年今天的值。

Private Sub Workbook_Open()
Sheet1.Range("AH16") = DateSerial(Year(Date) - 1, Month(Date), Day(Date))
Sheet1.Range("l16") = Date
result = Worksheets("写日记").Evaluate("GetDiaryData()")
End Sub

插入图形并关联宏

如上我打造的个人日志系统里的所有组件都是通过，插入菜单，插入形状插入的，插入后可以右击选择指定宏，即可进行关联对应的宏。
在这里插入图片描述
最后对插入的形状进行保护，编辑形状的大小和属性，便完成了该系统的打造。

资源连接

链接：https://pan.baidu.com/s/1IFzvo-9lcjR17TUHiGo3Sw?pwd=wyli
提取码：wyli

写在后面

这是我第一次使用VB语言编写较多组件，其中可能有一些语法有些冗余，另外有一些异常场景可能没有考虑到，但是经过测试，基本满足了日常需求。
开发日志系统的目的主要是对自己的日志情况有一个宏观的把控，并且通过Excel进行纵向对比，很容易方便快捷的对比自己有哪些进步，取得了哪些成就。
对于自己目标的实现也可以在日志系统插入一些自己想要达成的目标，比如说如果想打卡一个习惯，可以通过excel标注颜色确定事项的优先级，通过添加列标注目标完成的状态。
Excel在于开源，自己可以写一大堆函数实现个人需求，数据存储也相对安全，个人感觉平时使用Excel写日记其实并不是特别方便。个人习惯喜欢使用一些同步比较快的软件，写日志的时间尽量缩短在三分钟之内。可以使用有道云笔记等软件自定义模板功能，这样自己可以在周末时间把之前写过的日志进行整理省时省力。

Tester_孙大壮
关注
  • 7
    点赞
  • 踩
  • 21
    收藏
    觉得还不错? 一键收藏
  • 7
    评论
如何高效日志管理
gongli3的专栏
03-03 947
项目的日志管理一直以来都被人们认为是“费时而无实效工作”，项目成员抱怨每天花费很多的时间填写工作日志，高层领导不能从项目日志中得到绩效考核的数据，所以大家普遍感觉项目工时是费力不讨好的工作。大部分公司目前日志管理的现状是，用Excel或日志系统来记录项目成员每天的工作内容，用Excel来统计日志的实际操作流程是，项目成员将周报提交给组长或项目经理审批，到每个月或每个季度，项目助理负责将大家的日报进行汇总，最终得到所有人员的月报和季报。有些公司自研了日志系统来管理本公司的日报，但是用日志系统来管理也遇到很多的
编辑 用Excel制作股票交易表格/日志，带macro宏程序（vba）更新V1.5
weixin_44306945的博客
12-20 2262
交易股票最好要记录每一笔交易，交易记录能帮助我们回忆和分析交易中的成功失败，以获得交易技能的提升，甚至可以使我们头脑更加清晰，不至于做出错误判断和冲动交易。 于是本着每一笔交易都详细记录的投资者，自己制作了一款excel版本的股票交易日志。
excel 制作的多功能记事本
11-17
excel 多功能记事本 excel 多功能记事本 excel 多功能记事本 excel 多功能记事本
【游戏开发日记02】excel信息表处理
manqi的博客
03-02 318
实现了： 自定义工具：excel转txt 游戏配置类（处理txt内数据并存储为游戏内即用数据对象
基于ssm+vue.js+uniapp小程序的公司员工工作日志办公系统附带文章和源代码部署视频讲解等
最新发布
wishcoding的博客
04-02 757
🌞博主介绍：✌CSDN特邀作者、985计算机专业毕业、某互联网大厂高级全栈开发程序员、码云/掘金/华为云/阿里云/InfoQ/StackOverflow/github等平台优质作者、专注于Java、小程序、前端、python等技术领域和毕业项目实战，以及程序定制化开发、全栈讲解、就业辅导、面试辅导、简历修改。✌🌞👇🏻精彩专栏 推荐订阅👇🏻2023-2024年最值得选的微信小程序毕业设计选题大全：100个热门选题推荐✅2023-2024年最值得选的Java毕业设计选题大全：500个热门选题推荐✅。
利用Excel VBA代码编写日志
qq_45526868的博客
03-15 446
3. 在VBA编辑器中，找到您的工作簿项目（通常命名为VBAProject - 你的工作簿名称）。但这个代码有BUG，就是粘贴复制修改时，需要选择性粘贴，只粘贴志，否则历史修改记录会被覆盖。在编辑excel表格时，如果能时时记录我们的操作过程，在需要查看修改过程时就很方便了。现在，您在修改相关工作表的单元格内容时，会自动记录日志在名为"日志"的工作表中。5. 在"这个工作簿"的代码窗口中，粘贴VBA代码。增加了修改时询问修改原因，并体现在批注里。1. 打开Excel，并打开您的工作簿。4. 点击插入模块。
基于java的个人日记本系统毕业设计(源代码+数据库+部署视频)
m0_62396648的博客
06-25 413
基于Java的个人日记本系统是一个用于记录和管理个人日记的软件系统，可以帮助用户创建、编辑和查看日记等。以上是一个基于Java的个人日记本系统的毕业设计构想，具体的实施过程和细节可以根据实际情况进行调整和完善。- 查看日记模块：用户可以查看已有的日记列表，并选择查看具体的日记内容。- 确定系统的功能需求和业务场景，包括创建日记、编辑日记、查看日记等。- 根据系统的功能需求，设计用户友好的界面，使用户可以方便地进行操作。- 进行系统的单元测试和集成测试，确保系统的稳定性和功能的完整性。
C语言编写自己的日志系统
m0_51429770的博客
04-19 1445
在我们自己做项目过程中会用到日志系统来记录程序的信息，这就需要我们自己来完成日志系统。回滚的话暂时没用到，后面用到了在搞搞。
日报周报自动生成工具，一句简要描述，自动写出一篇工作日志总结
w1032233187的博客
03-02 4023
有了这个工具，再也不用担心每日每周每月的工作日志了，你只需要输入一段简要描述，就可以快速生成完整的工作日志内容，下面我们一起看看效果吧。
个人财务管理系统，Excel记账表格分享
10-16
个人财务管理系统，Excel记账表格分享
家庭个人收支记账管理系统-excel版系统.xlsx
07-27
家庭个人收支记账管理系统-excel版系统.xlsx
手把手教你用EXCEL制作日历
09-29
详细讲述了如何用excel制作日历的各种方法，总有一种适合你。
工作日志生成器.rar
10-25
工作日志生成器rar,工作日志生成器
工作日志自动生成软件
11-16
工作中重复的内容太多，每天都写工作日志实在是太麻烦了，不写还不行。 最近因为没时间写工作日志被罚了点钱，忍无可忍之下，写了个自动生成工作日志的软件。把日常的工作内容都写进去，点几下就能自动生成完美的日志，让老板看个够!! 日志无忧功能很简单，添加项目，添加步骤，删除节点，保存结构，清空结构，生成日志，复制生成的内容。 相信对于大部分工作都够用了，工作日志这东西，不创造什么价值，很多人也不重视，但老板希望看到员工的工作进度，希望这款工作日志自动生成软件能帮到大家。 说明： 1. 间隔双击节点可修改内容 2. 选中节点后可拖动和删除 3. 点击右边的生成日志按钮可以自动生成工作日志。 4. 点击复制可以将生成的日志复制到剪贴板 5. 软件可最大化，方便编辑查看 如果软件在你的系统下无法运行。请先下载安装Microsoft .NET Framework 2.0
excel表格查询历史报警及操作记录
05-08
工业生产现场的历史报警操作记录写入excel表格里供维护人员查询分析。
一款简单实用的excel出入库系统
10-04
一款简单实用的excel出入库系统，纯EXCEL，使用简单，默认用户名张三，默认密码123，进入后可以更改，安全实用
python解析日志文件并且导出到excel中
10-22
需要将nextcloud.log文件放入E盘，然后启动即可
Excel模板个人家庭存款管理理财系统.zip
06-14
Excel模板个人家庭存款管理理财系统.zip
用excel实现工作日志的更新和汇总
zuopinde的博客
07-30 2252
工作日志包括类别、子任务、优先级和用时。把当日工作更新后点更新按钮，存到sheet2的“数据库”（其实就是复制sheet1的内容到2） 代码如下： Sub q() Dim n, m As Integer n = 1 m = 30 For a = 1 To 100 n = a * 30 + 1 m = a * 30 + 1 While WorksheetFunction.CountA("a" & n & ":b" & m) = 0 Sh
excel制作一个信息录入系统
06-10
要制作一个信息录入系统，可以使用Excel的表格功能。以下是一些基本步骤： 1. 打开Excel，创建一个新的工作簿。 2. 在第一个工作表中，设置表头，包括姓名、年龄、性别、电话等字段。 3. 在下方空白区域创建一个数据输入表格，包括姓名、年龄、性别、电话等字段，每行代表一个人的信息。 4. 在工具栏上选择“数据”选项卡，点击“表格样式”可以选择不同的样式美化数据输入表格。 5. 在第二个工作表中，设置一个数据汇总表格，包括姓名、年龄、性别、电话等字段，并且在第一行设置汇总公式，如“=SUM(B2:B100)”可以计算年龄字段的总和。 6. 在第三个工作表中，设置一个数据查询表格，可以通过筛选功能查找符合条件的数据。 7. 可以使用Excel的数据验证功能，限制输入数据的范围和格式，保证数据的正确性和一致性。 8. 最后保存工作簿，即可实现一个简单的信息录入系统。 注意，这只是一个基本的信息录入系统，如果需要更复杂的功能，可以使用Excel的宏和其他高级功能进行扩展。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 7
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值