有没有一种方法可以将Excel VBA转换为作为Excel脚本运行Excel在线自动？

问题描述

选择一个单元格后，我想给该行加上时间戳并将其移到另一张纸上吗？

Private Sub Worksheet_Change
On Error GoTo Handler
If Target.Column = 11 And Target.Value = "COMPLETE" Then
Application.EnableEvents = False
Target.Offset(0,2) = Format(Now(),"mm-dd-yyyy hh:mm")
Application.EnableEvents = True
End If
Handler:


If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target,Columns(11)) Is Nothing Then
    If UCase(Target.Value) = "COMPLETE" Then
        Range("A" & Target.Row).Resize(1,13).Copy Sheets("Closed Request").Cells(Rows.Count,1).End(xlUp)(2)
        Target.EntireRow.Delete
    End If
End If


End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excel-online office365