Из бухгалтерии. Шахматка - Microsoft Office Excel

kzld · 15.07.2009, 10:21

Номеров счетов в бухучёте куча. Если сделать шахматку и предусмотреть всевозможные варианты корреспонденции счетов, то никакого Excel`a не хватит. Поэтому оставляем только нужные. Но жизнь штук непредсказуемая и иногда приходится составлять нестандартные проводки.
Так вот вопрос следующий. Вставляем новую строчку, допустим между 42 и 43 строкой. Таким образом бывшая 42 строка стала 43. Может ли Excel по этому событию вставить новый столбец между AQ и AR, тогда столбец AR станет столбцом AS.

pivas · 15.07.2009, 10:46

Столбец фиксированный или зависит от номера вставленной строки? строки

kzld · 15.07.2009, 10:49

Цитата:

Сообщение от pivas

Столбец фиксированный или зависит от номера вставленной строки? строки

Новый столбец зависит от вновь вставляемой строки

SAS888 · 15.07.2009, 10:56

Можно. Опишите задачу вставки более подробно.

slan · 15.07.2009, 11:39

проверять соответствие количества строк и столбцов при событии change листа..

kzld · 15.07.2009, 12:22

Цитата:

Сообщение от slan

проверять соответствие количества строк и столбцов при событии change листа..

Оба на. Сам не ожидал. Был созданный мною лист Excel.
В столбце шли циферки. Теперь эти циферки надо было прописать в строку. На форуме нашёл формулу =ТРАНСП(C3:C53)
Попробовал свою задачу. Вуаля - столбец автоматически вставляется при вставке новой строки
См. пример

slan · 15.07.2009, 12:39

нет

не совсем так..

столбцов не вставляет, просто формула переписывается, включая новую строку(т.е было трансп(с1:с54) - стало трансп(с1:с55) ), но если посмотреть до конца вправо, то одного столбца(последнего) не хватает..

kzld · 15.07.2009, 12:43

Цитата:

Сообщение от kzld

Оба на. Сам не ожидал. Был созданный мною лист Excel.
В столбце шли циферки. Теперь эти циферки надо было прописать в строку. На форуме нашёл формулу =ТРАНСП(C3:C53)
Попробовал свою задачу. Вуаля - столбец автоматически вставляется при вставке новой строки
См. пример

Рано обрадовался. В самом первом файле цифирок в столбце было несколько многовато, потому функция =ТРАНСП(C3:C53) понаделала мне много лишних столбцов, которые я не смог ни очистить, ни вырезать. Потому я их временно скрыл.
Так что задача остаётся

pivas · 15.07.2009, 14:38

Так не подойдёт?

Код:

Sub StrStolb()
    i = InputBox("Введите номер новой строки")
    Rows(i).Insert Shift:=xlDown
    Columns(i+0).Insert Shift:=xlToRight
End Sub

pivas · 15.07.2009, 20:26

Или по двойному клику в любой ячейке строки:

Код:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rows(ActiveCell.Rows.Row).Insert Shift:=xlDown
    Columns(ActiveCell.Rows.Row + 0).Insert Shift:=xlToRight
End Sub

15.07.2009, 10:21	#1
kzld Форумчанин Регистрация: 24.01.2009 Сообщений: 625	Из бухгалтерии. Шахматка Номеров счетов в бухучёте куча. Если сделать шахматку и предусмотреть всевозможные варианты корреспонденции счетов, то никакого Excel`a не хватит. Поэтому оставляем только нужные. Но жизнь штук непредсказуемая и иногда приходится составлять нестандартные проводки. Так вот вопрос следующий. Вставляем новую строчку, допустим между 42 и 43 строкой. Таким образом бывшая 42 строка стала 43. Может ли Excel по этому событию вставить новый столбец между AQ и AR, тогда столбец AR станет столбцом AS.

15.07.2009, 10:56	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Можно. Опишите задачу вставки более подробно. Чем шире угол зрения, тем он тупее.

15.07.2009, 14:38	#9
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Так не подойдёт? Код: `Sub StrStolb() i = InputBox("Введите номер новой строки") Rows(i).Insert Shift:=xlDown Columns(i+0).Insert Shift:=xlToRight End Sub` Последний раз редактировалось pivas; 15.07.2009 в 15:27. Причина: попраил буквы

15.07.2009, 20:26	#10
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Или по двойному клику в любой ячейке строки: Код: `Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Rows(ActiveCell.Rows.Row).Insert Shift:=xlDown Columns(ActiveCell.Rows.Row + 0).Insert Shift:=xlToRight End Sub`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа для бухгалтерии	symBIOS	Фриланс	6	22.12.2008 20:20

15.07.2009, 10:46	#2
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Столбец фиксированный или зависит от номера вставленной строки? строки

15.07.2009, 11:39	#5
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	проверять соответствие количества строк и столбцов при событии change листа..

15.07.2009, 12:39	#7
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	нет не совсем так.. столбцов не вставляет, просто формула переписывается, включая новую строку(т.е было трансп(с1:с54) - стало трансп(с1:с55) ), но если посмотреть до конца вправо, то одного столбца(последнего) не хватает..