Question

因此,我有两个问题,我似乎无法无动于衷。我从一张基于模板的主纸上接过报告,每张编印本将有不同的浏览量。每个填写表都有两栏(一栏为[F栏],一栏为满日期[H栏])。每一行的编号为F栏,都需要增加60天,并将日期列入H栏。我努力做到:

Dim cell As Range 
For Each cell In Selection  
cell.Value = cell.Value + 60
Next cell

I have tried this also with combinations of different while statements that I use for other things where I am putting values in one column based off of another, but I can t get them to work either.

我遇到的一些问题是:首先,当我确实设法让它进入H室的日期时,它总是进入第29/1900号。如果在F栏中注明日期,或该日期。第二,当我试图为甄选确定一个范围时(这是我试图结合“While”陈述时),它在整个范围留下一个日期,而不只是在F栏中注明日期。

如果在F栏中有一个日期,我怎么能够只增加H栏的一个日期,我怎样才能得到收入,来正确增加60天?

Answer 1

Sub Tester()

Dim c As Range, val

    For Each c In ActiveSheet.Range("E2:E100")
        val = c.Value
        If Len(val) > 0 And IsDate(val) Then
            c.Offset(0, 2).Value = val + 60
        End If
    Next c

End Sub

友情链接