摘要：
工作中把工作工作台帐的公式错误的删除了，只能用VBA快速重新设置。 Sub AddFormulas() Dim i As Integer Dim j As Integer Dim sheetName As String Dim ws As Worksheet For i = 3 To 31 shee 阅读全文
posted @ 2026-04-02 02:19
孤独的小苗
阅读(4)
评论(0)
推荐(0)
摘要：
将工作台帐优化一下，高亮显示当日订单，好处是工作完成度一目也然。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name Like "*月*日" Then Dim affectedR 阅读全文
posted @ 2026-03-30 04:38
孤独的小苗
阅读(3)
评论(0)
推荐(0)
摘要：
当B列内容不为空时，自动监测，给K、L列自动赋值，减少输入工作量。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' 仅处理以“月”开头且以“日”结尾的工作表 If Sh.Name Like " 阅读全文
posted @ 2026-03-20 01:00
孤独的小苗
阅读(6)
评论(0)
推荐(0)
摘要：
设置F54列公式，用VBA设置多个工作表。 Sub SetFormulaInMarchSheets() Dim ws As Worksheet Dim i As Integer Dim sheetName As String For i = 8 To 31 sheetName = "3月" & i 阅读全文
posted @ 2026-03-08 05:33
孤独的小苗
阅读(5)
评论(0)
推荐(0)
摘要：
以下VBA代码将实现您的要求：遍历所有名为“3月6日”到“3月31日”的工作表，在每个工作表中设置L111和L112的值，并为L2:L52区域添加数据有效性（序列），来源为L102:L112。 Sub SetSheetsData() Dim ws As Worksheet Dim i As Inte 阅读全文
posted @ 2026-03-06 06:29
孤独的小苗
阅读(9)
评论(0)
推荐(0)
摘要：
同事要求在工作台帐中增加当B列内容不为空时，自动为K列和L列赋值为“无”，Ｅｘｃｅｌ只能启用宏功能才能实现。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' 仅处理以“3月”开头且以“日”结尾 阅读全文
posted @ 2026-03-05 06:06
孤独的小苗
阅读(8)
评论(0)
推荐(0)
摘要：
同事想打印台历，在网上没有找到合适的图片，突然想起让AI生成台历，下面就是deepseek生成的台历： <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="viewport" content="widt 阅读全文
posted @ 2026-03-03 01:56
孤独的小苗
阅读(11)
评论(0)
推荐(0)
摘要：
今天对工作台帐进行了更新，领导增加了要求，现把deepseek的代码保存这里，供以后使用。 Sub AddConditionForRows() Dim wsName As String Dim targetWs As Worksheet Dim row As Integer Dim sheetInd 阅读全文
posted @ 2026-03-02 04:48
孤独的小苗
阅读(18)
评论(0)
推荐(0)
摘要：
在软件开发中，我们经常遇到需要按顺序处理多个步骤的场景（如文件处理、审批流）。如果使用传统的硬编码，一旦逻辑变更，我们就得修改核心代码，这违背了“开闭原则”。 为了解决这个问题，我决定引入责任链模式（Chain of Responsibility）。它能将复杂的处理流程拆解为独立的处理器，配合现代 阅读全文
posted @ 2026-02-21 00:41
孤独的小苗
阅读(8)
评论(0)
推荐(0)
摘要：
最近重写旧项目，发现maui的社区工具EventToCommand不起作用，没发现问题在哪？也懒得重新安装包，自己模仿Avalonia写一个附加属性执行命令。 using System.Windows.Input; namespace FileNexus.Behaviours { public st 阅读全文
posted @ 2025-10-17 21:34
孤独的小苗
阅读(41)
评论(0)
推荐(0)
浙公网安备 33010602011771号