Question

用vb语句在excel中写入特定的公式内容

我原来做了个用来清空数据的命令，现在需要补一个操作记录进去

Sub 清空库存()
' 清除今日数据 宏
Range("库存表[总进货数量]").Select
Selection.ClearContents
Range("B4").Select ' 选中B4
'预留写入操作记录命令
End Sub

需要达到的效果：
将“在yyyy年mm月dd日 hh:mm:ss 进行了【清空库存】工作"内容写入到另一个表里（操作记录！b3）

但是呢，我肯定不是想写入B3的，而是在操作记录这个表里累加写入，操作一次写入到b3，在操作一次就写入到b4，以此类推。

Answer 1

Sub 清空库存() ' 清除今日数据 宏
Range("库存表[总进货数量]").ClearContents
Range("B4").Select ' 选中B4
'预留写入操作记录命令
Worksheets("操作记录").Range("B" & Cells.Rows.Count).End(xlUp).Offset(1, 0) = "在" & Format(Now(), "yyyy年mm月dd日 hh:mm:ss") & " 进行了【清空库存】工作"
End Sub

追问

不好意思，使用了其他人的解决方案

Answer 2

sheets("操作记录").Range("B3").Insert Shift:=xlDown '在B3处插入单元格，B3下移
sheets("操作记录").Range("B3").value="在yyyy年mm月dd日 hh:mm:ss 进行了【清空库存】工作"

追问

使用后，效果不错，但是我这个“yyyy年mm月dd日 hh:mm:ss ”要的是当前操作时间。
比如：
在2014年12月16日 13:54:19 进行了【清空库存】工作

追答

用上时间变量进行连接

追问

不会，总是说什么子项未定义。

追答

Sheets("操作记录").Range("B3").Insert Shift:=xlDown '在B3处插入单元格，B3下移
Sheets("操作记录").Range("B3").Value = "在" & Format(Now(), "yyyy年mm月dd日 hh:mm:ss") & " 进行了【清空库存】工作"