VBA服务器和域名管理工具

pythonfun

第一次发贴，有不当之处，请各位版主多多指正。
1. 主要功能：

此xlsm文件主要功能是帮助具有大量域名和服务器的人员管理服务器和域名的续费，以防止遗忘。

采用Excel表管理现有的服务器和域名信息，包括名称、网址、到期时间和状态提醒

续费时间10天以内以红色背景显示，5天以内以橙色背景显示。

选中要续费的服务器或域名所在那一行，点击更新日期，到期时间随即向后增加一个月，状态提示也相继发生变化。同理，选中后，点恢复日期，则向前减少一个月


2. 界面图片





3. 核心代码：

[Visual Basic] 纯文本查看 复制代码

Sub 按钮1_Click()
    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
Sub 按钮2_Click()
    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

4. 下载地址
服务器续费管理1.zip (18.16 KB, 下载次数: 20)

2025-7-22 16:52 上传

点击文件名下载附件
Excel文件

gym_168

谢谢分享，学习了，一直在工作中用VBA

cioceo

这样操作感觉还是复杂了,找找是否有微信小程序带消息提醒的就完美了

XXTK

留着，没准哪天能用上

jowy98

现在vba还经常在工作中用到，这个直接用for的循环判断时间也可以吗

pythonfun

jowy98 发表于 2025-7-24 12:01
现在vba还经常在工作中用到，这个直接用for的循环判断时间也可以吗

可以的，下载试试看，你也可以改进

despy

你们服务器一年多少米？

pythonfun

despy 发表于 2025-8-2 18:03
你们服务器一年多少米？

一二千块吧，不多。就是太分散了，所以搞了这个。