VBA 到 GAS 脚本转换 [关闭]

Question

我对 Excel 和电子表格中的宏和东西真的很陌生。我有一个朋友在 Excel 中创建了这个宏来完成所需的工作：

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim day As String

    If Target.Row > 2 Then        
        day = Date
        Sheets("CFbase").Cells(Target.Row, Target.Column).Value = day
    End If

End Sub

简而言之：我需要在第一张工作表中输入文本，并在另一张工作表的等效单元格中生成今天的日期。

我需要这个以便稍后使用日期进行条件格式设置，然后使用日期为每个单元格着色，具体取决于它是今天还是过去几天更新。

可以将此宏转换为电子表格的脚本吗？

Answer 1

我会做这样的事情。 onEdit(e)在您添加新值时随时触发。 然后您获取该值并将实际日期放在另一个sheet 的同一单元格中。如果您不希望每次都执行此代码行，也可以添加条件。

function onEdit(e)
{
  // condition to make sure you are not entering value in the date sheet
  if(e.source.getActiveSheet().getName() != "CFbase" && e.range.rowStart > 2)
  {
    //grab the sheet where you wan't the date to be inserted.
    var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("CFbase");
    //grab the cell where the date will be inserted 
    var cell = sheet.getRange(e.range.getRow(), e.range.getColumn());
    //create the actual date
    var now = Utilities.formatDate(new Date(), "GMT+1", "dd/MM/yyyy");
    //set the value of the cell with the date
    cell.setValue(now);
  }
}

Here 是正确格式化Date 的文档。