★今天被叫去写VBA了

最新推荐文章于 2023-12-15 11:19:06 发布

a04023129

最新推荐文章于 2023-12-15 11:19:06 发布

阅读量855

点赞数

分类专栏：学习笔记文章标签： VBA VB Excel

学习笔记专栏收录该内容

23 篇文章

订阅专栏

今天被叫去写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填充在合并后的单元格中