vba如何生成有效期

bxg117

      vba如何生成有效期

               有效期为年月+相应保质月份的前一月，如160101批B1产品有效期24个月，则为2017年12月

grf1973

1. Sub 有效期()
   
2.     arr = Range("h3:i" & [h65536].End(3).Row)
   
3.     For i = 1 To UBound(arr)
   
4.         d1 = arr(i, 1)
   
5.         m1 = Val(Mid(d1, 3, 2))
   
6.         If m1 = 1 Then
   
7.             m2 = 12: dy = 1
   
8.         Else
   
9.             m2 = m1 - 1: dy = 2
   
10.         End If
    
11.         arr(i, 1) = Val("20" & Left(d1, 2)) + dy & "年" & Format(m2, "00") & "月"
    
12.     Next
    
13.     [o3].Resize(UBound(arr)) = Application.Index(arr, , 1)
    
14. End Sub
    

复制代码