Показать сообщение отдельно
  #1 (permalink)  
Старый 03.03.2017, 03:51
Новичок на форуме
Отправить личное сообщение для SnakeJkeeee Посмотреть профиль Найти все сообщения от SnakeJkeeee
 
Регистрация: 03.03.2017
Сообщений: 1

Переделать макрос из VB в JScript
Здравствуйте. Есть необходимость переделать макрос написанный в VB на JS потому что google exel именно его и понимает. Суть макроса это копирование\перенос строк из одного листа в другой нажатием кнопки или автоматически. Вот как этот макрос выглядит на VB(делал не сам)
Sub sborka()
If MsgBox("Сборка производится на первый лист, правильно?", vbYesNo + vbDefaultButton2) = 6 Then
Sheets(1).Range("a1").CurrentRegion.Clear
s_ = Sheets.Count
Sheets(2).Range("1:1").Copy Sheets(1).Range("a1")
For i = 2 To s_
    r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row + 1
    Sheets(i).Range("a1").CurrentRegion.Offset(1).Copy Sheets(1).Range("a" & r_)
Next
End If
End Sub
(это я так понимаю кнопка....) и вот еще
Sub kleine_Hexe()
Dim arr, i As Long, j As Long, k As Long
Application.ScreenUpdating = 0
arr = ActiveSheet.UsedRange.Value
For i = 2 To UBound(arr)
    For j = UBound(arr, 2) To 2 Step -1
        If arr(i, j) = "" Then
        GoTo OUT
        Else
            For k = j To 2 Step -1
                If arr(i, k) = "" Then
                Range(Cells(i, k + 1), Cells(i, j)).Cut Destination:=Range(Cells(i, k), Cells(i, j - 1))
                GoTo OUT
                End If
            Next
        End If
    Next
OUT:
Next
Application.ScreenUpdating = 1
End Sub
а вот пример документа где он используется https://drive.google.com/open?id=0B1...W5Xenlkckl6Y1E
Мне надо почти все тоже самое только на JS и с небольшими поправками чтобы первая колонка каждого последующего листа не будет копироваться в первый лист.Вот пример моей таблицы
Заранее буду крайне благодарен за помощь.
Ответить с цитированием