用DeepSeek辅助创建服务器管理Excel表

PythonFun

已于 2025-06-21 15:24:13 修改

阅读量686

点赞数 8

CC 4.0 BY-SA版权

分类专栏：大语言模型人工智能 Excel 文章标签：服务器 excel 运维

于 2025-06-21 12:34:52 首次发布

本文链接：https://blog.csdn.net/henanlion/article/details/148808877

人工智能同时被 3 个专栏收录

35 篇文章

订阅专栏

Excel

18 篇文章

订阅专栏

大语言模型

14 篇文章

订阅专栏

我之前在多个平台购买了服务器，几乎都是一个月续费一次，而且每个服务器的续费日期又不尽相同，时间长了就容易忘记续费，非常的麻烦。于时，我就想做一个xlsm的文件，来管理自己的服务器，记录每一个服务器所在的续费页面网址、续费的日期等信息，同时对于即将到期、快要到期的服务器进行标记，这样就可以做好提前预警，不用担心错过服务器续费的日期了。

一、思路解析

当我有了初步想法后，我把相关提示词喂给DeepSeek，得到如下回应，而且还附上了相关的表格：

向DeepSeek提出问题

我把表格复制到Excel中，继续按照给出的步骤来操作。步骤很详细，甚至给出所需要的公式。

显示实现步骤

二、操作过程

1.首先，我们把DeepSeek生成的表头和模拟数据复制表头到Excel当中，如下图所示：

项目雏形

接着在D2中填写公式，其功能是：如果C列日期超过当前日期，就在D状态提示中显示【已经到期】，今天距离C列日期小于或等于5天则提示【即将到期】，小于或等于10天则显示【快要到期】，否则就显示【正常】。

=IF(TODAY()>C2,"已经到期",
 IF(C2-TODAY()<=5,"即将到期",
 IF(C2-TODAY()<=10,"快要到期","正常")))

2. 我们在D列新建规则，方法是选中D列，选择【条件格式】——【新建规则】——【只为包含以下内容的单元格设置格式】，然后设置，当单元格值等于已经到期时，显示黄色，即将到期时显示橙色，快要到期时显示正常不变色。

设置新建规则

如果你不会设置自定义规则，可以向我这样继续追加向DeepSeek提问，以获得更加详细的提导：

设置条件格式

比如，我们要设置"快要到期"的黄色背景规则，就在Excel当中点击"条件格式" → "新建规则"

选择规则类型："只为包含以下内容的单元格设置格式"，第一个下拉框选择"特定文本"，第二个下拉框选择"包含"，文本框中输入"快要到期"，点击"格式"按钮，在"填充"选项卡中选择黄色，点击"确定"，点击"确定"应用此规则。

3. 接着我们在操作列添加两个按纽，然后选中按纽，修改显示名称为【更新日期】，右击它指定宏，在弹出的对话框中新建宏，把下面的代码掐头去尾，中间部分放到【按钮1_click()】这个宏里，然后保存，另一个按钮也是同样的操作。这两个按钮的功能分别是点一下就给C列的日期加一个月或减一个月，相应的VBA代码如下：

Sub UpdateExpiryDate()
    Dim rng As Range
    Set rng = ActiveSheet.Range(ActiveCell.MergeArea.Address)
    
    ' 找到到期时间所在列(假设是C列)
    Dim expiryCol As Integer
    expiryCol = 3 ' C列
    
    ' 找到当前行
    Dim rowNum As Long
    rowNum = rng.Row
    
    ' 更新到期时间(增加1个月)
    Cells(rowNum, expiryCol).Value = DateAdd("m", 1, Cells(rowNum, expiryCol).Value)
    
    ' 更新状态提示
    Cells(rowNum, expiryCol + 1).Calculate ' 假设状态提示在到期时间右侧一列
End Sub

如果是减一个月就把DateAdd中的1改变-1就可以了。

这一步操作时注意把Excel文件另存为xlsm格式以便保存VBA代码，同时要在【文件】——【选项】——【信任中心】——【信任中心设置】——设置【启用所有宏】。