VBA代码，哪位大神指点一下，数值写入不了要求的单元格内：

Question

Application.DisplayAlerts = False

For i = 1 To 31 Step 1

If UserForm1.ComboBox6 = Format(Now, "yyyy-mm-i") And UserForm1.ComboBox4 = "A" And UserForm1.ComboBox3 = "050-1" Then

Sheets("Sheet1").Activate

Range(Cells(22, i).Address(0, 0)) = TextBox7.Value

ActiveWorkbook.Save

End If

Next

ActiveWindow.Close
如果不用for 循环，单元格是固定的，数值是可以写入的，但是一加上for 循环就不行了，请大神指点一二。

Answer 1

for循环里面使用i的就是下面一行吧：

Range(Cells(22, i).Address(0, 0)) = TextBox7.Valu

我把这行这样修改，你试试看：

Sheets("Sheet1").Cells(22, i) = TextBox7.Value

本回答被网友采纳

Answer 2

答：是不是这句不对：Format(Now, "yyyy-mm-i")，更改为：
Format(Now, "yyyy-mm-" & i)本回答被提问者采纳