Question

用EXECL VBA写个小程序，求高手出来指点一下！！！50分急招！

用EXECL VBA写个小程序，当我的A列为月份，B列为日期，我想把通过A、B两个列求出年月日到C列，年可以输入，这个语句怎么写！
高手们，我要要的是个语句！！！能不能说清楚一点

Answer 1

要语句， 我来啊
你放一个按钮
Private Sub CommandButton1_Click()
On Error Resume Next
Y = InputBox("Year=")
For i = 1 To 1000
If Len(Range("A" & i)) + Len(Range("B" & i)) <> 0 And Len(Range("C" & i)) = 0 Then
Range("C" & i).Value = Y & "-" & Range("A" & i) & "-" & Range("B" & i)
End If
Next
End Sub
如果不愿意放一个按钮那就设定快捷键为Ctrl+Shift+W
Sub AutoDate()
' Macro recorded 3/12/2009 by Zhu ShengQuan
' Keyboard Shortcut: Ctrl+Shift+W
On Error Resume Next
Y = InputBox("Year=")
For i = 1 To 1000
If Len(Range("A" & i)) + Len(Range("B" & i)) <> 0 And Len(Range("C" & i)) = 0 Then
Range("C" & i).Value = Y & "-" & Range("A" & i) & "-" & Range("B" & i)
End If
Next
End Sub

Answer 2

将A列与B列连接起来，中间用&这个符号隔起来
例如：C列=（A列&B列）

Answer 3

这个简单呀：
A B C
3 2009-1-18 2009-3-18

C1的公式为：
=DATE(YEAR(B1),A1,DAY(B1))

Answer 4

说得不是太清楚，不过应该用不上VBA，直接用内置函数就可以了。
如果没人给你弄，可以Q我细说，40194204