Показать сообщение отдельно
  #5 (permalink)  
Старый 06.07.2012, 12:34
Аватар для lord2kim
Профессор
Отправить личное сообщение для lord2kim Посмотреть профиль Найти все сообщения от lord2kim
 
Регистрация: 03.05.2011
Сообщений: 848

Сообщение от klicken Посмотреть сообщение
Подскажите пожалуйста как лучше переделать этот макрос на javascript

Sub test()
With Application
.UseSystemSeparators = True
End With
Dim LastCell As Range: Set LastCell = Range("B65536").End(xlUp).Offset(1)
LastCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)"
LastCell.AutoFill LastCell.Resize(, 2)
LastCell.EntireRow.Cells(1) = "Итог:"

End Sub
function test() {
	with (Application) {
		.UseSystemSeparators = true;
	}
	var LastCell = Range("B65536").End(xlUp).Offset(1);
	LastCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)";
	LastCell.AutoFill LastCell.Resize(, 2);
	LastCell.EntireRow.Cells(1) = "Итог:";
}
Ответить с цитированием