[已解决]在同行，提取日期中的月份与另一参数合并后自动填入指定单元格内

wwj804

快要过年了，但有些工作还完成，请老师帮忙解决，谢谢！

使用VBA功能，当列P某单元格输入数据后，提取列O同行单元格内的月份并与列D同行单元格内参数合并后自动填充到列Q同行单元格内，
例如：单元格P3输入数据后提取单元格O3日期中的月份“2”与单元格D3“200333203”合并成“2200333203”后自动填入到Q3单元格内。

最佳答案

月排行榜 / 总排行榜

grf1973

2017-1-20 14:10

在原来的事件上加了点内容。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Or Target.Column <> 16 Then Exit Sub
   
3.     r = Target.Row
   
4.     If Len(Target) = 0 Then
   
5.        Cells(r, 15) = "": Cells(r, 17) = ""
   
6.     Else
   
7.        Cells(r, 15) = Format(Date, "yyyy-m-d")
   
8.        Cells(r, 17) = Month(Date) & Cells(r, 4)
   
9.     End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

grf1973

附件不是用公式完成了吗，还要VBA干嘛。
公式也可以改为：Q2=MONTH(O2)&D2

wwj804

grf1973 发表于 2017-1-20 13:13
附件不是用公式完成了吗，还要VBA干嘛。
公式也可以改为：Q2=MONTH(O2)&D2

因为到时数据量比较大，用公式运行会影响电脑运行速度。

grf1973

在原来的事件上加了点内容。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Or Target.Column <> 16 Then Exit Sub
   
3.     r = Target.Row
   
4.     If Len(Target) = 0 Then
   
5.        Cells(r, 15) = "": Cells(r, 17) = ""
   
6.     Else
   
7.        Cells(r, 15) = Format(Date, "yyyy-m-d")
   
8.        Cells(r, 17) = Month(Date) & Cells(r, 4)
   
9.     End If
   
10. End Sub

复制代码