Так с макросом у меня проблемы,я по другому придумал как сделать. Сделаю ОДИН общий лист и просто подкрашу нудные вводимые строки в соответсвии с числом. Простой и смешной вопрос: Как сделать чтобы при нажатии Enter он не переходил в другую таблицу а расширял ее размеры (в этой же ячейке делал еще одну строку) Например как в Word таблицы. т.е. чтобы несколько строк можно было ввести в одну ячейку.
Так с макросом у меня проблемы,я по другому придумал как сделать. Сделаю ОДИН общий лист и просто подкрашу нудные вводимые строки в соответсвии с числом. Простой и смешной вопрос: Как сделать чтобы при нажатии Enter он не переходил в другую таблицу а расширял ее размеры (в этой же ячейке делал еще одну строку) Например как в Word таблицы. т.е. чтобы несколько строк можно было ввести в одну ячейку.psix_kol
Код макроса то я увидел. а расшифровать его можно?
Попробую. [vba]
Код
Sub перенос() Dim n&, s&, i& 'создаем переменные n = Day(Range("D2")) '№ дня из СЕГОДНЯ() s = 6 'начальная строка записи в листе А2
'цикл i, перебор строк с 4-й до последней (столбца "С" листа А1) For i = 4 To Range("C" & Rows.Count).End(xlUp).Row
'на лист А2.в ячейку(строка S, столб n+1) пишем из текущего 'листа из ячейки(строка i, столб "С". n+1 потому что числа на листе А2 начинаются со 2-го столбца Sheets("А2").Cells(s, n + 1) = Cells(i, "C")
s = s + 1 ' увеличиваем номер стоки листа А2 Next End Sub
Код макроса то я увидел. а расшифровать его можно?
Попробую. [vba]
Код
Sub перенос() Dim n&, s&, i& 'создаем переменные n = Day(Range("D2")) '№ дня из СЕГОДНЯ() s = 6 'начальная строка записи в листе А2
'цикл i, перебор строк с 4-й до последней (столбца "С" листа А1) For i = 4 To Range("C" & Rows.Count).End(xlUp).Row
'на лист А2.в ячейку(строка S, столб n+1) пишем из текущего 'листа из ячейки(строка i, столб "С". n+1 потому что числа на листе А2 начинаются со 2-го столбца Sheets("А2").Cells(s, n + 1) = Cells(i, "C")
s = s + 1 ' увеличиваем номер стоки листа А2 Next End Sub