您还没有专辑
开始创建自己的专辑吧
1.本节课主要讲的是VBA基础-2.8AfterSave,在点击【开发工具】-【Visual Basic】,在选择此工作表,在选择AfterSave模式,在代码处写上arr=Range(“b2,[d2].End(xIDown))。
2.在代码处将不需要的代码删除,在代码处在添加Fori=1 To UBound(arr) ReDim Preserve arr1(1 To i)。
3.在代码处在添加arr(i)=arr(i,1)+arr(i,2)+arr(i,3) Next [e2].Resize(UBound(arr),1)=Application.Transpose(arr1)。
4.在将上面的代码变成绿色,在下面在添加上For n=2To UBound(arr)Step2 n=n&","&n+&":"&n+1。
确认要删除这条评论吗?删除后将无法恢复。
评论提交成功,将在审核通过后显示
当日最多删除五条评论
《VBA基础-2.8AfterSave事件》
作品0个
个赞
学习0天