不懂VBA也编程

孤独行星双星记 · 发表于 2011-5-12 15:14

我刚看过附件了，想知道另外一个问题，如果设置部分区域不能打印

liwei235 · 发表于 2011-5-12 22:00

好呀，通俗易懂

asjm · 发表于 2011-5-12 22:41

收藏~~~~~~~~~~~

witboy · 发表于 2011-5-13 11:20

请教总版主
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(0, 2) = Date
End Sub
使用以上VBA
如果粘贴或者拖放多行, 批量录入.
只有第一行可以显示日期

希望粘贴多行的时候
每行都显示对应当前日期

应该如何修改以上VBA呢?

谢谢

山菊花 · 发表于 2011-5-13 13:49

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range                '声明变量
For Each Rng In Target          '遍历所选单元格
      If Rng.Column = 1 Then    '如果当前单元格列号等于1，则
         Rng.Offset(0, 2) = Date  '该单元格右边第2个单元格输入当前日期
      End If
Next
End Sub

Ericall · 发表于 2011-5-13 17:36

收藏了，谢谢。。

jiangsheng0 · 发表于 2011-5-14 23:48

回复学习下

hooyee · 发表于 2011-5-15 01:53

学习了，厉害！

witboy · 发表于 2011-5-16 13:14

谢谢总版主指导谢谢谢谢

rbq555 · 发表于 2011-5-17 20:58

这个帖子特别的好！多谢楼主分享！

		自动登录	找回密码
密码			免费注册

不懂VBA也编程

回复 2楼山菊花的帖子

回复 767楼 witboy 的帖子

回复 768楼山菊花的帖子

不懂VBA也编程

回复 2楼 山菊花 的帖子

回复 767楼 witboy 的帖子

回复 768楼 山菊花 的帖子

回复 2楼山菊花的帖子

回复 768楼山菊花的帖子