关于VBA日期问题

dongzhanqi2

问题1.当A1日期小于等于10号的时候，B1显示当月10号，当日期大于10号的时候，显示下个月10号
问题2：根据期数自动循环生成，月份+1（如右图）

函数公式都会写，就是不懂VBA里怎么写日期的代码

具体事例，都写在附件里了，恳请各位大神帮忙

谢谢~

dongzhanqi2

各位大神来看看啊

fyure

第一个问题
Sub aa()
Dim arr，i%
arr = UsedRange
For i = 2 To UBound(arr)
On Error Resume Next
If arr(i, 1) <> "" And IsNumeric(Split(arr(i, 1), "/")(0)) Then
  If Val(Split(arr(i, 1), "/")(2)) <= 10 Then
   arr(i, 1) = Split(arr(i, 1), "/")(0) & "/" & Split(arr(i, 1), "/")(1) & "/" & "10"
Else
    arr(i, 1) = Split(arr(i, 1), "/")(0) & "/" & Val(Split(arr(i, 1), "/")(1)) + 1 & "/" & "10"
End If
End If
Next
[b1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

第2个看不懂你的期数是什么意思

dongzhanqi2

fyure 发表于 2018-4-25 14:57
第一个问题
Sub aa()
Dim arr，i%

首先先谢谢哈，

第二个问题是，就像信用卡还款一样 根据第一个还款日期和还款的期数，把后面对应的日期都生成出来

YZC51

请参考
Sub 按钮1_Click()
    arr = [a1].CurrentRegion   
    For j = 2 To UBound(arr)
        If Day(arr(j, 1)) * 1 > 10 Then
            arr(j, 2) = Year(arr(j, 1)) & "-" & Month(arr(j, 1)) + 1 & "-10"
        Else
            arr(j, 2) = arr(j, 1) - Day(arr(j, 1)) + 10
        End If
    Next j
    [b2].CurrentRegion = arr
End Sub

dongzhanqi2

YZC51 发表于 2018-4-25 15:11
请参考
Sub 按钮1_Click()
    arr = [a1].CurrentRegion   

麻烦您能看一下第二个问题嘛

YZC51

dongzhanqi2 发表于 2018-4-25 15:43
麻烦您能看一下第二个问题嘛

2017-4-10        20
2017-5-10        ？
2017-6-10        ？
问号的期数？

YZC51

请参考
Sub 按钮2_Click()
    For j = 2 To 12
        Y = Year(Cells(j, 1))
        If Month(Cells(j, 1)) * 1 = 12 Then Y = Year(Cells(j, 1)) + 1
        M = Month(Cells(j, 1)) Mod 12
        Cells(j + 1, 1) = Y & "-" & M + 1 & "-10"
    Next j
End Sub

YZC51

好像应该这样
Sub 按钮2_Click()
    For j = 2 To [B2]
        Y = Year(Cells(j, 1))
        If Month(Cells(j, 1)) * 1 = 12 Then Y = Year(Cells(j, 1)) + 1
        M = Month(Cells(j, 1)) Mod 12
        Cells(j + 1, 1) = Y & "-" & M + 1 & "-10"
    Next j
End Sub

dongzhanqi2

YZC51 发表于 2018-4-25 15:52
2017-4-10        20
2017-5-10        ？
2017-6-10        ？

问号什么也没有， 20就是个期数，2017-4-10 开始月数+1 循环20次