今天被叫去写VBA了,感觉好没意思阿。在Excel里面写了个宏,实在是不习惯VB的语法,还是Java爽阿,哈哈
虽然没意思,还是贴出来吧,以前从没写过,希望大家给点意见阿
Private Sub CommandButton1_Click() Dim startNum As Integer Dim endNum As Integer Dim Index As Integer Index = 2 Do While Cells(Index, 1) <> "" PJName = Cells(Index, 1) sd = Cells(Index, 3) ed = Cells(Index, 4) n = 5 Do While Cells(1, n) <> "" If sd = Cells(1, n) Then startNum = n End If If ed = Cells(1, n) Then endNum = n End If n = n + 1 Loop Range(Cells(Index, startNum), Cells(Index, endNum)).Select ActiveCell.FormulaR1C1 = PJName Selection.Merge Selection.HorizontalAlignment = xlCenter Selection.Interior.ColorIndex = 38 Index = Index + 1 Loop End Sub
只要功能是根据Task名称和Task的开始结束时间合并两段时间内的单元格,
并把Task的CD填充在合并后的单元格中