如何利用EXCEL自动生成模板要求的上班时间 求助(很难的一个问题 目前还没人解出来）

erblet

由于工作的需要，每个月在排班以后，需要将曲线版的排班  转换成模板要求的格式，请高手赐教，谢谢！

lxw6

1. Private Sub CommandButton1_Click()
   
2.     firlin = 3      '数据行的上一行（即标题的最后一行。标题总共有3行，1-3）
   
3.     statime = CDate("7:30")
   
4.     arrtmp = Range("c" & firlin - 1 & ":i" & Cells(Application.Rows.Count, "c").End(xlUp).Row)
   
5.     '开始时间为7:30
   
6.     Sec = 15            '时间间隔为15分钟
   
7.     Application.ScreenUpdating = False
   
8.     Sheet2.Select
   
9.     With Sheet2
   
10.         .Range("b4:iv67").ClearContents    '清楚原排班表
    
11.         For i = 1 To UBound(arrtmp)
    
12.             staffname = arrtmp(i, 1)
    
13.             iCol = Application.Match(staffname, .Rows(2), 0)
    
14.             For t = 2 To 6 Step 2
    
15.                 '对每一段班，进行排班
    
16.                 If arrtmp(i, t) <> "" Then
    
17.                     '每段时间的开始行和结束行
    
18.                     irow1 = firlin + DateDiff("n", statime, arrtmp(i, t)) / 15 + 1
    
19.                     irow2 = firlin + DateDiff("n", statime, arrtmp(i, t + 1)) / 15
    
20.                     .Range(GetColumnLetter(iCol) & irow1 & ":" & GetColumnLetter(iCol) & irow2) = 20
    
21.                 End If
    
22.             Next t
    
23.             
    
24.         Next i
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27.     Erase arrtmp
    
28.     MsgBox "OK"
    
29. End Sub
    

复制代码

1. Function GetColumnLetter(iCol) As String            '列号转列标
   
2.     GetColumnLetter = VBA.Split(Cells(1, iCol).Address, "$")(1)
   
3. End Function
   
4. 
   

复制代码

lxw6

见上面的附件。本身不是什么难题，主要是你问题没有详细描述清楚。所以很多人懒得回复你。

erblet

呵呵  谢谢高手  其实不是别人懒得回复  而是我之前是发在函数版块  本来是想用函数直接完成的 但是好多天了 都没人会  所以才来VBA版块发布  其实问题描述已经很清楚的   

erblet

我刚才试了一下 你可能是把我的意思理解错了
我的意思是由曲线转换成 表格的形式   但是你写的这个程序  是由表格变成曲线的啊   

erblet

lxw6 发表于 2011-9-19 17:49
见上面的附件。本身不是什么难题，主要是你问题没有详细描述清楚。所以很多人懒得回复你。

我刚才试了一下 你可能是把我的意思理解错了
我的意思是由曲线转换成 表格的形式   但是你写的这个程序  是由表格变成曲线的啊   

lxw6

问题说的很清楚？自由曲线，到底是哪个工作表？表格又是哪个工作表？你可以引用工作表名称的。

erblet

lxw6 发表于 2011-9-19 20:36
问题说的很清楚？自由曲线，到底是哪个工作表？表格又是哪个工作表？你可以引用工作表名称的。

不好意思  是从 9-15号班表"这个sheet" 变成"导入模板"中的格式   

erblet

这个问题已经解决了 现在把解决方案发给大家一起参考一下