通过vba根据日期实时更新数据

czl103

进来学习了

zhengyixin

大灰狼1976 发表于 2017-8-4 12:40
工期计算要加1天，比如1号到2号，2-1=1，实际上是两天。

问题已解决，请问如何设置单元格字体顶部居中

大灰狼1976

大哥，这个录制个宏看看呗

zhengyixin

czl103 发表于 2017-8-4 14:38
进来学习了

一起学习哈哈

zhengyixin

大灰狼1976 发表于 2017-8-4 14:47
大哥，这个录制个宏看看呗

哈哈，我的。都搞定了，老是麻烦你，十分感谢。

zhengyixin

大灰狼1976 发表于 2017-8-4 14:47
大哥，这个录制个宏看看呗

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 243, 132, 381.75, 132). _
        Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 2
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
End Sub

老哥，我想知道你写的这个模块是什么意思

大灰狼1976

这个是我录制的画线的宏啊，在这个基础上修改后写到给你的代码内。这个不需要了。
你现在明白了吧，我也不可能记住所有用法，很多情况下（特别是格式设置类）录制宏修改是个很方便的途径。

zhengyixin

大灰狼1976 发表于 2017-8-4 16:59
这个是我录制的画线的宏啊，在这个基础上修改后写到给你的代码内。这个不需要了。
你现在明白了吧，我也不 ...

嗯，明白了，谢谢你

02761752696

学习学习啦

02761752696

学习一下