日期区间的填充和删除

dmm2001

老师好。这是一个按日期区间排班的表格。员工工作的时间，是一段日期在工作。一段日期休息。

需要把他们工作的日期区间填充到表格里面。

扑腾

他们的工作日期到哪里找来呢？不过兄弟，你这表格设计得叫人挺佩服的

dmm2001

扑腾 发表于 2024-3-18 15:43
他们的工作日期到哪里找来呢？不过兄弟，你这表格设计得叫人挺佩服的

这个是真实的应用场景。只是我可能不会表达。他们是司机。这两天有活了。就干几天。有的干一两天。有的十几天。相当于全年给他们按照团期排班。谢谢老师。看看这个问题怎么解决呢。或者有更好的方案。来理解这个应用场景。

扑腾

明白了，原谅我手快，后来转念一想明白你的意思了，我试试

fzxba

日期区间填充和删除.zip (18.5 KB, 下载次数: 7)

2024-3-18 17:15 上传

点击文件名下载附件

扑腾

代码很粗糙，看能不能达到要求

dmm2001

扑腾 发表于 2024-3-18 17:24
代码很粗糙，看能不能达到要求

老师好。非常感谢您的热情回复。这个压缩包，打不开哦。

扑腾

我勒个去，，，系统病了估计

dmm2001

扑腾 发表于 2024-3-18 17:55
我勒个去，，，系统病了估计

老师好，其实我还有一个工作没有完成。我贴一个压缩包。您帮我看看。就是，我现在有个工作，是某日到某日。需要找到这个日期段。有空闲的司机。看谁最适合接这个工作。

lisongmei

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
4. On Error Resume Next
   
5. Dim row%, col1%, col2%, brr
   
6. If Target.Address(0, 0) = "L2" Then
   
7.     Cancel = True
   
8.     row = Application.WorksheetFunction.Match([M2], Columns(1), 0)
   
9.     col1 = Application.WorksheetFunction.Match([N2], Rows(6), 0)
   
10.     col2 = Application.WorksheetFunction.Match([O2], Rows(6), 0)
    
11.     brr = Range(Cells(row - 1, col1), Cells(row - 1, col2))
    
12.     Cells(row, col1).Resize(1, col2 - col1 + 1).Value = brr
    
13. End If
    
14. 
    
15. If Target.Address(0, 0) = "L3" Then
    
16.     Cancel = True
    
17.     row = Application.WorksheetFunction.Match([M3], Columns(1), 0)
    
18.     col1 = Application.WorksheetFunction.Match([N3], Rows(6), 0)
    
19.     col2 = Application.WorksheetFunction.Match([O3], Rows(6), 0)
    
20.     Cells(row, col1).Resize(1, col2 - col1 + 1).ClearContents
    
21. End If
    
22. 
    
23. End Sub
    

复制代码