добавление строки кнопкой

Z Гость	#1 09.03.2012 13:31:23 Изучаем - списки/таблицы (97-2003 -2077/2010) и промежуточные итоги... ;) ps На форумах принято решить/закрыть одну тему, а затем открывать другую. -74792-

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#2 09.03.2012 14:07:04 Sub Макрос1() ' Rows("3:3").Select ' Selection.Copy ' Rows("4:4").Select ' Selection.Insert Shift:=xlDown Rows("3:3").Copy Rows("4:4").Insert Shift:=xlDown Application.CutCopyMode = False End Sub Цену спросите у макрорекордера

Guest Гость	#3 09.03.2012 14:09:59 . Прикрепленные файлы post_315911.xls (30 КБ)

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#4 09.03.2012 14:37:49 http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-makros-i-gde-ego-iskat/

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#5 09.03.2012 14:39:51 По варианту анонима Есть таблица (у вас) и есть Таблица (у него)

Guest Гость	#6 09.03.2012 14:56:37 "...А как быть если за первой таблицей следует следующая. При растягивание первая налазит на вторую." можно Прикрепленные файлы post_315932.jpg (67.88 КБ)

Guest

Гость

09.03.2012 15:39:14

{quote}{login=}{date=09.03.2012 02:56}{thema=}{post}"...А как быть если за первой таблицей следует следующая. При растягивание первая налазит на вторую."{/post}{/quote}
Да, ваш способ вроде работает, не много не так как я хотел, но работает. А можно узнать как вы привели таблицу в такой вид как во вложении?

Guest Гость	#8 09.03.2012 15:52:06 Выделяете & Вставка->таблица

ran Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#9 09.03.2012 17:02:39 Sub test() Dim a& Msgbox Selection.Row End Sub

Guest Гость	#10 09.03.2012 17:08:56 Это не то что я хотел, но направление верное. Я хотел вписать в ячейку формулу которая будет возвращать в эту же ячейку номер строки, в которой она стоит. Есть такая формула?

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#11 09.03.2012 17:10:37 {quote}{login=}{date=09.03.2012 05:08}{thema=Re: }{post}Я хотел вписать в ячейку формулу которая будет возвращать в эту же ячейку номер строки, в которой она стоит.{/post}{/quote}=СТРОКА() =ROW()

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#12 09.03.2012 17:15:45 {quote}{login=}{date=09.03.2012 03:39}{thema=Re: }{post}...можно узнать как вы привели таблицу в такой вид как во вложении?{/post}{/quote} На вкладке "Главная" Прикрепленные файлы post_315961.gif (39.96 КБ)

sva Пользователь Сообщений: 1027 Регистрация: 23.12.2012	#13 09.03.2012 18:26:21 Sub Макрос1() Rows([b12].value).Copy Rows([b12].value+1).Insert Shift:=xlDown Application.CutCopyMode = False End Sub

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	#14 09.03.2012 21:51:45 {quote}{login=RAN}{date=09.03.2012 02:07}{thema=}{post}Sub Макрос1() Цену спросите у макрорекордера{/post}{/quote} Спасибо, RAN. Рассмешил :) Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Читают тему