Question

下面的vba代码需要检查B栏中的日期是否在2017年4月1日至2017年4月28日之间，然后输入A＆＃34; 2017年4月和＃34;列。但是＆＃34;公式=＆＃34; line获取语法错误。你能帮忙吗

  With Sheets("xxxx")
 With .Range("B2", .Cells(.Rows.Count, "B").End(xlUp))
    .Offset(, 1).Formula = "=IF((AND(B2>=DATE(2017,4,1),B2<=DATE 
  (2017,4,28))),"Apr'17","")"
    .Offset(, 1).Value = .Offset(, 1).Value
 End With
 End With

Answer 1

请尝试此代码。

With ActiveSheet
    With .Range("B2", .Cells(.Rows.Count, "B").End(xlUp)).Offset(0, 1)
        .Formula = "=IF(AND(B2>DATE(2017,3,31), B2<DATE(2017,5,1)),B2,"""")"
        .NumberFormat = "mmm yy"
    End With
End With

条件陈述基于日期

1 个答案: