初学VBA，求点击确定后，生成当前时间

mps777

谢谢各位老师：

       我想做一个按确定后，就在A列生成当前时间，每点一下就在单元格下生成。如第一次点击在A1生成，第二次点击在A2输入，依次类推，谢谢……

liulang0808

版主。。。。。

mps777

liulang0808 发表于 2014-8-4 21:46
版主。。。。。

我这个是VBA什么都不懂的菜鸟，版主什么版主。
从来不在乎什么头衔的，拜托，帮个忙，谢谢啦。
还有些问题的，我会陆续提问的，谢谢大家。

liulang0808

Sub 按钮1_Click()
    If Len(Cells(1, 1)) = 0 Then
        Cells(1, 1) = Time
    Else
        Cells(Rows.Count, 1).End(3).Offset(1) = Time
    End If
End Sub

mps777

liulang0808 发表于 2014-8-4 21:52
Sub 按钮1_Click()
    If Len(Cells(1, 1)) = 0 Then
        Cells(1, 1) = Time

真的一点也看不明，额，能上传个附件吗？哈哈，头大了，如果不是工作需要真的不愿意看代码……

as42065300

1. Sub t()
   
2.   Range("a" & Cells(Rows.Count, 1).End(3).Row + 1) = Time
   
3. End Sub

复制代码

liulang0808

这个是附件

maditate

副本Xl0000093.rar (10.75 KB, 下载次数: 10)

2014-8-4 22:16 上传

点击文件名下载附件

mps777 发表于 2014-8-4 21:59
真的一点也看不明，额，能上传个附件吗？哈哈，头大了，如果不是工作需要真的不愿意看代码……

滥用职权，这点小玩意居然加10分。腐败。

2003版写的，能否用不知道。

mps777

maditate 发表于 2014-8-4 22:08
滥用职权，这点小玩意居然加10分。腐败。

不是吧，这样也算是？我只是想多谢人家，难道连一点奖励也不能给吗？下次我注意的，谢谢你的提醒。

mps777

maditate 发表于 2014-8-4 22:08
滥用职权，这点小玩意居然加10分。腐败。

2003版写的，能否用不知道。

怕了你了，谢谢啦。明天还有问题，还要多向你学习，谢谢你啦。