Code timestamp cho google sheets

Liên hệ QC

hic1802

Thành viên tiêu biểu
Tham gia
16/2/13
Bài viết
545
Được thích
34
Giới tính
Nam
Gửi mọi người code mình mới sưu tầm được trên mạng về timestamp trên google sheets rất hay có thể tạo nhiều realtime.
Mã:
function onEdit(event)
{
  var timezone = "GMT+7";
  var timestamp_format = "MM-dd-yyyy hh:mm"; // Timestamp Format.
  var updateColName = "b";
  var timeStampColName = "d";
  var updateColName1 = "a";
  var timeStampColName1 = "c";
  var sheet = event.source.getSheetByName('Test'); //Name of the sheet where you want to run this script.
  var actRng = event.source.getActiveRange();
  var editColumn = actRng.getColumn();
  var index = actRng.getRowIndex();
  var headers = sheet.getRange(1, 1, 1, sheet.getLastColumn()).getValues();
  var dateCol = headers[0].indexOf(timeStampColName);
  var updateCol = headers[0].indexOf(updateColName); updateCol = updateCol+1;
  var dateCol1 = headers[0].indexOf(timeStampColName1);
  var updateCol1 = headers[0].indexOf(updateColName1); updateCol1 = updateCol1+1;
  if (dateCol > -1 && index > 1 && editColumn == updateCol) { // only timestamp if 'Last Updated' header exists, but not in the header row itself!
    var cell = sheet.getRange(index, dateCol + 1);
    var date = Utilities.formatDate(new Date(), timezone, timestamp_format);
    cell.setValue(date);
  }
  if (dateCol1 > -1 && index > 1 && editColumn == updateCol1) { // only timestamp if 'Last Updated' header exists, but not in the header row itself!
    var cell = sheet.getRange(index, dateCol1 + 1);
    var date1 = Utilities.formatDate(new Date(), timezone, timestamp_format);
    cell.setValue(date1);
  }
}
Một số nguồn tham khảo :
 
Nhờ anh em xử lý giúp em.
Hiện tại e có mã code trên excel offline nhờ ae chuyển giúp qua google sheet giúp ạ e cảm ơn rất nhiều:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 Or Target.Column > 2 Then
Exit Sub
End If
If Target.Text = "" Then Exit Sub
Application.EnableEvents = False
If Target.Column = 1 Then
Range("A1").End(xlDown).Offset(1, 0).Value = Target.Value
Range("B2").Select
Else
Range("B1").End(xlDown).Offset(1, 0) = Target.Value
Range("A2").Select
End If
Application.EnableEvents = True

End Sub
-e muốn như excel là tại vị trí scanr ở a2 thì nhảy qua b2 và ngược lại. Sau khi scanr thì dữ liệu đẩy dồn xuống bên dưới ạ.
"e có đoạn code vba muốn chuyển qua app script nhờ a giúp e với ạ.
 
Nhờ anh em xử lý giúp em.
Hiện tại e có mã code trên excel offline nhờ ae chuyển giúp qua google sheet giúp ạ e cảm ơn rất nhiều:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 Or Target.Column > 2 Then
Exit Sub
End If
If Target.Text = "" Then Exit Sub
Application.EnableEvents = False
If Target.Column = 1 Then
Range("A1").End(xlDown).Offset(1, 0).Value = Target.Value
Range("B2").Select
Else
Range("B1").End(xlDown).Offset(1, 0) = Target.Value
Range("A2").Select
End If
Application.EnableEvents = True

End Sub
-e muốn như excel là tại vị trí scanr ở a2 thì nhảy qua b2 và ngược lại. Sau khi scanr thì dữ liệu đẩy dồn xuống bên dưới ạ.
"e có đoạn code vba muốn chuyển qua app script nhờ a giúp e với ạ.
sao giống câu hỏi của bác quang ròm thế nhỉ
 
Web KT
Back
Top Bottom