不懂VBA也编程

8ygumin · 发表于 2010-4-18 22:45

非常感谢，对一个新手来说这些很重要

sdcpzzg · 发表于 2010-4-20 10:24

支持山菊花！

老树皮 · 发表于 2010-4-20 16:55

不错，收藏了
谢谢支持，学习先

xbp2008 · 发表于 2010-4-20 20:27

谢谢
学习中。。。。。。。。。。。。。

雪地山羊 · 发表于 2010-4-28 17:36

学习
谢谢

Bluecould · 发表于 2010-4-28 17:43

学习中，收藏了。。。

天遥 · 发表于 2010-4-29 11:32

好东西,收藏学习.感谢>>>>>>>>>.

qfh031 · 发表于 2010-4-29 12:16

山菊老师，您好！看到你发的贴，实在是太好了，觉得VBA太强大了。我是新手，不会VBA，我现在用Excel做一个学生毕业信息，想在F列中输入日期型的学生的出生年月日，就自动在G、H、I列中填入学生的出生年、出生月、出生日，见我的附件，不要用公式，能不能帮我写一个VBA代码，谢谢了！

山菊花 · 发表于 2010-4-29 16:04

右键单击工作表标签，选择“查看代码”，将下面的代码粘贴到代码编辑器中：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Target
      If Rng.Column = 6 And Rng.Row > 1 And IsDate(Rng.Value) Then
         Rng.Offset(, 1).Value = Year(Rng.Value)
         Rng.Offset(, 2).Value = Month(Rng.Value)
         Rng.Offset(, 3).Value = Day(Rng.Value)
      End If
Next
End Sub

qfh031 · 发表于 2010-4-29 19:16

谢谢山菊花老师，问题解决了，

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

不懂VBA也编程

回复 608楼 qfh031 的帖子